//
//-----------------------------------------------------------------------------
// Funciones de conversión entre VBScript y JavaScript				(15/Mar/99)
//
// (c)Guillermo 'guille' Som, 1999
//
//-----------------------------------------------------------------------------
// Las funciones son:
//		Left, Right, Mid, LTrim, RTrim, Trim, InStr, RInStr, Space, 
//		jString (esta se llamará así, ya que String es una palabra reservada)
//		UCase, LCase, Len, 
// Otras funciones adicionales:
//		StrReverse
// Constantes:
//		vbCrLf, vbCr, vbLf, vbTab, 
//
//-----------------------------------------------------------------------------
// Códigos escape:
//
// \b = Backspace
// \f = Form feed
// \n = Line feed
// \r = Carriage return
// \t = Horizontal tab
//-----------------------------------------------------------------------------
// 
// Nota: 
// Para que todo funcione bien, hay que respetar el estado de las instrucciones
// es decir: cuidado con las mayúsculas/minúsculas.
//
//-----------------------------------------------------------------------------
//

//
//-----------------------------------------------------------------------------
// Constantes
var vbCr = "\r";
var vbLf = "\n";
var vbCrLf = vbCr+vbLf;
var vbTab = "\t";

function Left(s, n){
	// Devuelve los n primeros caracteres de la cadena
	if(n>s.length)
		n=s.length;
		
	return s.substring(0, n);
}
function Right(s, n){
	// Devuelve los n últimos caracteres de la cadena
	var t=s.length;
	if(n>t)
		n=t;
		
	return s.substring(t-n, t);
}
function Mid(s, n, c){
	// Devuelve una cadena desde la posición n, con c caracteres
	// Si c = 0 devolver toda la cadena desde la posición n
	
	var numargs=Mid.arguments.length;
	
	// Si sólo se pasan los dos primeros argumentos
	if(numargs<3)
		c=s.length-n+1;
		
	if(c<1)
		c=s.length-n+1;
	if(n+c >s.length)
		c=s.length-n+1;
	if(n>s.length)
		return "";
		
	return s.substring(n-1,n+c-1);
}


function LTrim(s){
	// Devuelve una cadena sin los espacios del principio
	var i=0;
	var j=0;
	
	// Busca el primer caracter <> de un espacio
	for(i=0; i<=s.length-1; i++)
		if(s.substring(i,i+1) != ' '){
			j=i;
			break;
		}
	return s.substring(j, s.length);
}
function RTrim(s){
	// Quita los espacios en blanco del final de la cadena
	var j=0;
	
	// Busca el último caracter <> de un espacio
	for(var i=s.length-1; i>-1; i--)
		if(s.substring(i,i+1) != ' '){
			j=i;
			break;
		}
	return s.substring(0, j+1);
}



function Trim(s){
	// Quita los espacios del principio y del final
	return LTrim(RTrim(s));
}
function InStr(n, s1, s2){
	// Devuelve la posición de la primera ocurrencia de s2 en s1
	// Si se especifica n, se empezará a comprobar desde esa posición
	// Sino se especifica, los dos parámetros serán las cadenas
	var numargs=InStr.arguments.length;
	
	if(numargs<3)
		return n.indexOf(s1)+1;
	else
		return s1.indexOf(s2, n)+1;
}
function RInStr(n, s1, s2){
	// Devuelve la posición de la última ocurrencia de s2 en s1
	// Si se especifica n, se empezará a comprobar desde esa posición
	// Sino se especifica, los dos parámetros serán las cadenas
	var numargs=RInStr.arguments.length;
	
	if(numargs<3)
		return n.lastIndexOf(s1)+1;
	else
		return s1.lastIndexOf(s2, n)+1;
}
function Space(n){
	// Devuelve una cadena con n espacios
	var t="";
	
	for(var i=1; i<=n; i++)
		t=t+" ";
	
	return t;
}
function jString(n, c){
	// Devuelve n veces el caracter c
	var t="";
	
	for(var i=1; i<=n; i++)
		t=t+c;
	return t;
}
function UCase(s){
	// Devuelve la cadena convertida a mayúsculas
	return s.toUpperCase();
}
function LCase(s){
	// Devuelve la cadena convertida en minúsculas
	return s.toLowerCase();
}
function Len(s){
	// Devuelve la longitud de la cadena s
	return s.length;
}
function StrReverse(s){
	// Invierte la cadena
	var i=s.length;
	var t="";
	
	while(i>-1){
		t=t+ s.substring(i,i+1);
		i--;
	}
	return t;
}
//
//-----------------------------------------------------------------------------
// Fin del código con las funciones de conversión de VBScript para JavaScript
//-----------------------------------------------------------------------------
//


function cad_no_validas(form, obj, opc_fun){
	//Valida los caracteres especiales
	var campo = eval("document." + form + "." + obj);
	var cad = campo.value;
	
	if((event.keyCode!=13)&&(event.keyCode!=37)&&(event.keyCode!=38)&&(event.keyCode!=39)&&(event.keyCode!=40)){
		if(opc_fun == "1"){
			//No deja ingresar los caracteres especiales
			var k="^%?&|°";
			var char_opc = "";
			for (j=0;j<cad.length;j++){
				if(!(k.indexOf(cad.charAt(j)) == -1 )){
					char_opc = cad.charAt(j);
				}
			}
			
			if(char_opc.length > 0 ){
				alert("The character (" + char_opc + ") is invalid in this context");
				cad = cad.replace(char_opc,"")
			}
			campo.value = cad;
		}
	}
}

function cadenas_esp(cadena_val, opc_val_cad){
//Valida las cadenas 
	if(opc_val_cad=="esp"){
		cadena_val = cadena_val.replace("'","/7/"); //1
	}
	
	if(opc_val_cad=="nor"){
		cadena_val = cadena_val.replace("/7/","'"); //1	
	}
	return cadena_val;
}

function Trim_esp(s){
	// Quita los espacios del principio y del final, y quita el caracter + que manda el PHP
	alert(s);
	s = Trim(s);   
	s = s.replace(" ","");
	alert(s);
	return  s;
}


function enter(){
 if(event.keyCode!=13) return;
} 

function cambiar_color_over(celda){
   celda.style.backgroundColor="#DFDFDF";
}
function cambiar_color_out(celda){
   celda.style.backgroundColor="#FFFFFF"; 
}

function vNumerico(numero,otras_letras,form_obj,nom_cap){
	  if (numero != "") {	
		digito = vEntero(numero,otras_letras);
			if( digito == ""){
				 alert ("Only Number");
				 var campo_obj		  = eval("document." + form_obj + "." + nom_cap);
				 campo_obj.value = "";
				 return "";
			}
	  }
		return numero;
}

function vEntero(cadena,otras_cad){
	cadena_bak = cadena;
	tipo_char = 'valido';
		for( val_num = 0; val_num < cadena.length; val_num ++){ 
		cad1 = cadena.charAt(val_num);
				if(otras_cad.length != 0){
						for( val_num2 = 0; val_num2 < otras_cad.length; val_num2 ++){ 
						cad2 = otras_cad.charAt(val_num2);
								if(cad1 != cad2 ) {
									 valor_cad1 = parseInt(cad1) 
									 if (isNaN(valor_cad1) ) { 
										cadena = '';
									 }
								}else{ 
									cadena   = cadena_bak;
									val_num2 = otras_cad.length + 1;
									 }
						 }
				 }else{
							 valor_cad1 = parseInt(cad1) 
							 if (isNaN(valor_cad1) ) { 
								cadena = '';
							 }		  
				}
		}
	return cadena;	
}

function mayuscula(cadena){
	cadena = cadena.toUpperCase(); 
	return cadena;
}

function minuscula(cadena){
	cadena = cadena.toLowerCase();
	return cadena;
}

function validar_correo(cadena){
	if((cadena.indexOf("@") <= 0)||(cadena.indexOf(".") <= 0))
		cadena = "";
		
	return cadena;
}

function mostrarImagenes(imagen) {
      document.images[imagen].style.display = "block";
}

function ocultarImagenes(imagen) {
      document.images[imagen].style.display = "none";
}

function validar_fecha(form, obj){
	var campo = eval("document." + form + "." + obj);
	var cad   = campo.value;
	cad 	  =	Trim(cad);
	var vE	  = vEntero(cad,'-/.');
	if((cad != "")&&( vE == "")){
		 alert("Fecha Invalida");
		 campo.focus();
		 cad = "";	
	}

	if(cad != ""){
		cad = cad.replace(" ","-");
		cad = cad.replace("/","-");
		cad = cad.replace(".","-");
		if(cad.indexOf("-") >=2){
			var elem = cad.split('-');
			ano = elem[0];
			mes = elem[1];
			dia = elem[2];
			if((dia.length > 2 ) || (mes.length > 2 ) || (ano.length < 3 ) || (ano.length > 4 )){
			 alert("Fecha Invalida");
			 campo.focus();
			 cad = "";
			}else{

					 if(dia.charAt(0) == "0")
					 	dia = dia.charAt(1); 
					 
					 if(mes.charAt(0) == "0")
					 	mes = mes.charAt(1); 

					  if((parseInt(dia)<1)||(parseInt(dia)>31)||(parseInt(mes)<1)||(parseInt(mes)>12)){
						 alert("Fecha Invalida");
						 campo.focus();		 
						 cad = "";					  
					  }else{
						  if(dia.length <= 1)
							 dia = '0' + dia;
						  
						  if(mes.length <= 1)
							 mes = '0' + mes;
							 
						  parseInt(dia)
						  cad = ano + '-' + mes + '-' + dia;
					  }
				  }				  
		}else{
		 alert("Fecha Invalida");
		 campo.focus();		 
		 cad = "";
		}
	}
	return cad;
}

function formato_num_float(valor){
 var pos_punto 		= valor.indexOf(".");
 var sub_cadena_int = "";
 var sub_cadena_dec = "";

 	if(pos_punto != -1){
		sub_cadena_int = valor.substring(0, pos_punto);
		sub_cadena_dec = valor.substring(pos_punto + 1, valor.length);
		if( sub_cadena_dec.length > 2)
			sub_cadena_dec = sub_cadena_dec.substring(0, 2); 
		valor = sub_cadena_int + "." + sub_cadena_dec;
		
	}
	return valor;
}

function reemplazarAll( text, busca, reemplaza ){ 
	 while (text.toString().indexOf(busca) != -1){ 
	      text = text.toString().replace(busca,reemplaza); 
	 } 
	 return text;
}

function Tnor_a_esp(s){
	// Quita los espacios del principio y del final, y quita el caracter + que manda el PHP
	s = Trim(s); 
	s = reemplazarAll(s,'"',"_CC_");
	s = reemplazarAll(s,"&","_YY_");
	s = reemplazarAll(s,"'","_apos_");
	
	s = reemplazarAll(s,"á","::aa::"); //á	
	s = reemplazarAll(s,"é","::ee::"); //é		

	s = reemplazarAll(s,"í","::ii::"); //í
	s = reemplazarAll(s,"ó","::oo::"); //ó		
	s = reemplazarAll(s,"ú","::uu::"); //ú
	
	s = reemplazarAll(s,"É","::AA::"); //Á
	s = reemplazarAll(s,"É","::EE::"); //É
	s = reemplazarAll(s,"Í","::II::"); //Í
	s = reemplazarAll(s,"Ó","::OO::"); //Ó		
	s = reemplazarAll(s,"Ú","::UU::"); //Ú
	
	s = reemplazarAll(s,"ñ","::nn::"); //ñ		
	s = reemplazarAll(s,"Ñ","::NN::"); //Ñ	
	return  s;
}

 

function Tesp_a_nor(s){
	// Quita los espacios del principio y del final, y quita el caracter + que manda el PHP
	s = Trim(s);  
	s = reemplazarAll(s,"_CC_",'"');	
	s = reemplazarAll(s,"_YY_","&");
	s = reemplazarAll(s,"_apos_","'");
		
	s = reemplazarAll(s,"::aa::", "á"); //á	
	s = reemplazarAll(s,"::ee::", "é"); //é		

	s = reemplazarAll(s,"::ii::", "í"); //í
	s = reemplazarAll(s,"::oo::", "ó"); //ó		
	s = reemplazarAll(s,"::uu::", "ú"); //ú
	
	s = reemplazarAll(s,"::AA::", "Á"); //Á
	s = reemplazarAll(s,"::EE::", "É"); //É
	s = reemplazarAll(s,"::II::", "Í"); //Í
	s = reemplazarAll(s,"::OO::", "Ó"); //Ó		
	s = reemplazarAll(s,"::UU::", "Ú"); //Ú
	
	s = reemplazarAll(s,"::nn::", "ñ"); //ñ		
	s = reemplazarAll(s,"::NN::", "Ñ"); //Ñ
	return  s;
}
	
  var imagen_x 		       = 0;
  var imagen_alpha 		   = 0;
  var vector_imagenes	   = new Array();
	  vector_imagenes [0]  = "imagenes/manos.jpg";
	  vector_imagenes [1]  = "imagenes/firma_doc.jpg";
	  vector_imagenes [2]  = "imagenes/pluma.jpg";
	  vector_imagenes [3]  = "imagenes/mundo.jpg";
	
  function cargar_galery(nom_img){
		document.getElementById(nom_img).src = vector_imagenes[imagen_x] ;
  }
	
  
  function cambiar_imagen(nom_img){
		setTimeout("cambiar_imagen('" + nom_img + "')", 8000); 
		sig_imagen(nom_img);
  }
	
  function efecto_alpha(nom_img){ 
		imagen_alpha = imagen_alpha + 15;
		if(imagen_alpha < 90){
			setTimeout("efecto_alpha('" + nom_img + "')", 100); 
		}
		if(version_browser() == "IE"){
				document.getElementById(nom_img).style.filter	=	'alpha(opacity=' + imagen_alpha + ')';			
		}else{
				imagen_alpha_por = imagen_alpha/100;
				document.getElementById(nom_img).style.opacity	=	imagen_alpha_por;
		}
  } 
		
  function ant_imagen(nom_img){
		var pos_imagen = 0;
		if(imagen_x==0){
			imagen_x 	  = (vector_imagenes.length -1);
			var pos_imagen = imagen_x;
		}else{
			imagen_x		  = imagen_x - 1;
			var pos_imagen = imagen_x;
		}
		document.getElementById(nom_img).src = vector_imagenes[pos_imagen];
	}
	
	function sig_imagen(nom_img){
		var pos_imagen = 0;
		if(imagen_x == (vector_imagenes.length -1)){
			imagen_x 	  = 0;
			var pos_imagen = imagen_x;
		}else{
			imagen_x		  = imagen_x + 1;
			var pos_imagen = imagen_x;
		}
		document.getElementById(nom_img).src = vector_imagenes[pos_imagen];
		imagen_alpha = 0;
		efecto_alpha(nom_img);
	}
		
	function version_browser(){
		var parametros = "";
		var navegador = navigator.appName
		if (navegador == "Microsoft Internet Explorer")
			parametros = "IE";
		else
			parametros = "OTROS";
		return parametros;
	}