function completa_izq (valor,longitud,caracteres) { 
  var dif = longitud - valor.length ; 	
  var s = valor;	 
  if (dif > 0) { 	
    for (;dif!=0;dif+=-1) {	s = caracteres + s;}  
 }    
 return(s);    
}	 


function completa_der (valor,longitud,caracteres) { 
  var dif = longitud - valor.length ; 	
  var s = valor;	 
  if (dif > 0) { 	
    for (;dif!=0;dif+=-1) {	s = s+ caracteres;}  
 }    
 return(s);    
}	 

function ValTipoDato(TipoDato, VarTexto )           
	   {                                                     
	      var i  = 0;                                        
	      var sw = 0;                                        
	      var caracter;
	      var msgalerta;                                     
		  var swError = false;

		  if( TipoDato == 1 ) { //Valida códigos numéricos
	         Cadena = '1234567890';                          
	         msgalerta = 'Número.';
		  }
		  
		  if( TipoDato == 2 ) { //Valida Códigos Alfabéticos
	         Cadena = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ';        
	         msgalerta = 'Caracter ';
		  }

	      if( TipoDato == 3 ) {  //Valida correos electrónicos
	         Cadena = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890.-_@%';
	         msgalerta = 'Caracter ';          
		  }

	      if( TipoDato == 4 ) { //Valida nombres alfanuméricos
	         Cadena = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890.-_@ *\/():,=+;áéíóúÁÉÍÓÚüÜ#%';
	         msgalerta = 'Caracter ';        
		  }

	      if( TipoDato == 5 ) {  //Valida números telefónicos
			 Cadena = '1234567890() -';
	         msgalerta = 'Número ';
	      }   
		  
		  if( TipoDato == 6 ) {  //Valida ????
	         Cadena = '1234567890 :';
	         msgalerta = 'Número ';
	      } 

		  if( TipoDato == 7 )  { //valida que acepte sólo nros. y un punto(.)               
	         Cadena = '1234567890.';
	         msgalerta = 'Número ';
	      } 
			 
		  if( TipoDato == 8 ) {  //Valida códigos Alfanuméricos
			 Cadena = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ";
			 msgalerta  = "Código ";
		  }

		  if( TipoDato == 9 ) {  //Valida Nombres
			 Cadena = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ -";
			 msgalerta  = "Caracter ";
		  }

		  if( TipoDato == 10 ) {  //Valida Fechas
			 Cadena = "";
			 swError = !checkdate(VarTexto);
			 if( swError ) 
				alert("Fecha incorrecta");
			 
			 return swError;
			 
		  } //final wtipo==10

		  while ( i < VarTexto.length ) {                     
		    caracter = VarTexto.charAt(i).toUpperCase();     
		    if ( Cadena.indexOf( caracter ) < 0 ) {      
			  alert(msgalerta+' Incorrecto.!!');            
			  VarTexto = '';                                
			  break;                                        
			}                                                
			i++;                                         
		  } //final while                                                   

		  return VarTexto;                                    
	   }   


function ntod(fecha8n) {
	if (fecha8n.length=0) {
		alert(fecha8n);
		return('00/00/0000');
	}
	else
	{
	   return(	fecha8n.substring(6, 8)+"/"+fecha8n.substring(4, 6)+"/"+fecha8n.substring(0, 4))
	}
}