function MudaCor(campo,tipo)
    {
      switch (tipo)
      {
        case 0:
          campo.style.background="#EFEFEF";
          campo.style.color="#000000";
          break;
        case 1:
          campo.style.background="#FFFFFF";
          campo.style.color="#1B3883";
          break;
      }
    }

    function caixaAlta(obj) 
    { 
      obj.value = obj.value.toUpperCase(); 
    } 

    var da = (document.all) ? 1 : 0;
    var pr = (window.print) ? 1 : 0;
    var mac = (navigator.userAgent.indexOf("Mac") != -1); 

    function mascara(campo,mascara,tamanho,teclapres )
    {	
    /*
    # = numero
    A = LETRAs
    * = letra ou numero
    & = qualquer caracter
    */
       if(document.all) // Internet Explorer
          var tecla = teclapres.keyCode;
       else
          var tecla = teclapres.which;
    //	  alert(tecla);
      vr = campo.value;
      tam = vr.length; 	
      if(tecla == 9 || tecla == 8 || tecla==46 || (tecla >= 33 && tecla <= 40)) return true;
        if(mascara=='MOEDA')
      {
        vr = limpa_dados(vr);
        //alert(vr);
        tam = vr.length; 	
        if (tam < tamanho && tecla != 8){ tam = vr.length + 1 ; }

        if ( tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105 ){
        if ( tam <= 2 ){ 
          campo.value = 'R$ '+vr ; }
        if ( (tam > 2) && (tam <= 5) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 6) && (tam <= 8) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 9) && (tam <= 11) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 12) && (tam <= 14) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 15) && (tam <= 17) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;}
      }
      else
      return false;

      }
      else
      {
      if(tam < tamanho )
      {
        formato = mascara.substring(tam,tam+1);	
        if(formato!='#' && formato!='A' && formato!='*' && formato!='&')	  
        {	  
         campo.value += formato;
         inicio = tam+1;	  
           pformato = mascara.substring(inicio,inicio+1);  
         while(pformato!='#' && pformato!='A' && pformato!='*' && pformato!='&' && inicio < tamanho)		  
        {		 	  	  	   
          inicio++;
          campo.value += pformato;
          pformato = mascara.substring(inicio,inicio+1); 		 
          formato += pformato;		  
        } 
        formato = pformato;
        }
        if(formato=='#')
        {
         if((tecla > 47 && tecla < 58)||(tecla >= 96 && tecla <= 105)||(tecla == 32)) // numeros de 0 a 9
               return true;
             else         
               return false;		              
          }
        else
         if(formato=='A')
         {
         if((tecla >= 65 && tecla <= 90) || (tecla >= 192 && tecla <= 255)||(tecla == 32))
               return true; 
         else         
           return false;			 
         }
         else
          if(formato=='*')
          {
          if((tecla >= 65 && tecla <= 90) || (tecla >= 192 && tecla <= 255)||(tecla == 32)||((tecla > 47 && tecla < 58)||(tecla >= 96 && tecla <= 105)||(tecla == 32)))
                return true; 
          else         
            return false;		
          }
            else	 
           if(formato=='&')	
              return true; 
      }
      
      else return false;
      }

    }

    function formatar_valor(campo,tammax,teclapres) {
       if(document.all) // Internet Explorer
          var tecla = teclapres.keyCode;
         else 
        var tecla = teclapres.which;
      vr = campo.value;
      vr = vr.replace( "/", "" );
      vr = vr.replace( "/", "" );
      vr = vr.replace( ",", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( "R$ ", "" );
      vr = vr.replace( "r$ ", "" );
      ///campo.value = 'R$ '+vr;


      tam = vr.length;
    //alert(tecla);
      if (tam < tammax && tecla != 8){ tam = vr.length + 1 ; }
      if(tecla == 9 || tecla == 8 || tecla==46 || (tecla >= 33 && tecla <= 40)) return true;

      if (tecla == 8 ){	tam = tam - 1 ; }		
      if ( tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105 ){
        if ( tam <= 2 ){ 
          campo.value = 'R$ '+vr ; }
        if ( (tam > 2) && (tam <= 5) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 6) && (tam <= 8) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 9) && (tam <= 11) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 12) && (tam <= 14) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 15) && (tam <= 17) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;}
      }
      else
      return false;
        
      
    }


    function aplica_mascara(campo, mascara)
    {
      vr = campo.value;
      vr = limpa_dados(vr);
      tam_mascara = mascara.length;
      tam = vr.length;		
      window.status = vr;
      if(mascara=='MOEDA')
      {
        if ( tam <= 2 ){ 
          campo.value = 'R$ '+vr ; }
        if ( (tam > 2) && (tam <= 5) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 6) && (tam <= 8) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 9) && (tam <= 11) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 12) && (tam <= 14) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
        if ( (tam >= 15) && (tam <= 17) ){
          campo.value = 'R$ '+vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;}

      }
      else
      {
      i=0;
      campo.value = '';	
      if(tam>tam_mascara) max=tam;
      else max=tam_mascara;
      for(c=0;c<max;c++)
      {
        pformato=mascara.charAt(c);
        if(pformato!='#' && pformato!='A' && pformato!='*' && pformato!='&')
        {
          campo.value += pformato;			
        }
        else
        {
         campo.value += vr.charAt(i);
         i++;
        }
      }
      }
    }


    function limpa_dados(vr)
    {
        vr = vr.replace( "/", "" );
      vr = vr.replace( " ", "" );
      vr = vr.replace( "/", "" );
      vr = vr.replace( ",", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( ".", "" );
      vr = vr.replace( "-", "" );
      vr = vr.replace( "(", "" );
      vr = vr.replace( ")", "" );
      vr = vr.replace( "R$", "" );
      vr = vr.replace( "r$", "" );

     return vr;

    }