<!--

function Analisis(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  
  //Limpia los espacios al principio y al final de la palabra

  tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,''); 

  var ValidChars = "<>\"'();{}[]|";
  var palControl = new Array("while","javascript","prompt","java","script","switch","case","update","select","split","cookie","join","html","table"); 
  var Char;
  var Cadena="";
  var letra="";
  error = false;
 
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (ValidChars.indexOf(Char) == -1) 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   var f = tpSelT.charCodeAt(i);
	   if(f==60) letra+= "< ";
   	   if(f==62) letra+= "> ";
	   if(f==92) letra+= "\ ";	   
	   if(f==34) letra+= "\" ";	   	   
	   if(f==39) letra+= "' ";	   	   	   
	   if(f==40) letra+= "( ";	   	   	   	   
	   if(f==41) letra+= ") ";	   	   	   	   
	   if(f==59) letra+= "; ";	   	   	   	   
	   if(f==123) letra+= "{ ";	   	   	   	   
	   if(f==125) letra+= "} ";
	   if(f==91) letra+= "[ ";	   	   	   	   	   	   	   	   
	   if(f==93) letra+= "] ";	   	   	   	   
	   if(f==124) letra+= "| ";	   	   	   	   
	   error = true;
	}
   }

if(Cadena != null){
var aux = Cadena.toUpperCase();
var aux2="";
 for(j=0; j<palControl.length;j++ ){
		aux2 = palControl[j].toUpperCase();
		var x = aux.indexOf(aux2); 
		while(x > -1)
		{ 
			aux = aux.replace(aux2, ""); 
            x = aux.indexOf(aux2);
		} 
	}
Cadena = aux;	
}

tpTxt.value=Cadena;

if(error)
	   alert(campo+" contiene carácteres inválidos : "+letra);
}
	
function Analisis_amaterno(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  
  //Limpia los espacios al principio y al final de la palabra

  //tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,''); 

  var ValidChars = "<>\"'();{}[]|";
  var palControl = new Array("while","javascript","prompt","java","script","switch","update","select","split","cookie","join","html","table"); 
  var Char;
  var Cadena="";
  var letra="";
  error = false;
 
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (ValidChars.indexOf(Char) == -1) 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   var f = tpSelT.charCodeAt(i);
	   if(f==60) letra+= "< ";
   	   if(f==62) letra+= "> ";
	   if(f==92) letra+= "\ ";	   
	   if(f==34) letra+= "\" ";	   	   
	   if(f==39) letra+= "' ";	   	   	   
	   if(f==40) letra+= "( ";	   	   	   	   
	   if(f==41) letra+= ") ";	   	   	   	   
	   if(f==59) letra+= "; ";	   	   	   	   
	   if(f==123) letra+= "{ ";	   	   	   	   
	   if(f==125) letra+= "} ";
	   if(f==91) letra+= "[ ";	   	   	   	   	   	   	   	   
	   if(f==93) letra+= "] ";	   	   	   	   
	   if(f==124) letra+= "| ";	   	   	   	   
	   error = true;
	}
   }

if(Cadena != null){
var aux = Cadena.toUpperCase();
var aux2="";
 for(j=0; j<palControl.length;j++ ){
		aux2 = palControl[j].toUpperCase();
		var x = aux.indexOf(aux2); 
		while(x > -1)
		{ 
			aux = aux.replace(aux2, ""); 
            x = aux.indexOf(aux2);
		} 
	}
Cadena = aux;	
}

tpTxt.value=Cadena;

if(error)
	   alert(campo+" contiene carácteres inválidos : "+letra);
}	

function Analisis_tlibres_resumen(tpTxt, campo, valor) {
  
  var tpSelT=replaceAll(tpTxt.value,"'",'"');
  
  //Limpia los espacios al principio y al final de la palabra

  tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,''); 

 /* tpSelT=tpSelT.replace('<','&lt;');   
  
  tpSelT=tpSelT.replace('>','&gt;');  */

if(valor == 1){
	if(tpSelT != null){
		var aux = tpSelT.toUpperCase();
		tpSelT = aux;
	}
}

tpTxt.value=tpSelT;

}

function Analisis_email_pass(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  
  //Limpia los espacios al principio y al final de la palabra

  tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,'');   
  
  tpSelT=tpSelT.replace('hotmail.com.mx','hotmail.com');     
  
  var ValidChars = "<>\"'();{}[]|";
  var Char;
  var Cadena="";
  var letra="";
  error = false;
 
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (ValidChars.indexOf(Char) == -1) 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   var f = tpSelT.charCodeAt(i);
	   if(f==60) letra+= "< ";
   	   if(f==62) letra+= "> ";
	   if(f==92) letra+= "\ ";	   
	   if(f==34) letra+= "\" ";	   	   
	   if(f==39) letra+= "' ";	   	   	   
	   if(f==40) letra+= "( ";	   	   	   	   
	   if(f==41) letra+= ") ";	   	   	   	   
	   if(f==59) letra+= "; ";	   	   	   	   
	   if(f==123) letra+= "{ ";	   	   	   	   
	   if(f==125) letra+= "} ";
	   if(f==91) letra+= "[ ";	   	   	   	   	   	   	   	   
	   if(f==93) letra+= "] ";	   	   	   	   
	   if(f==124) letra+= "| ";	   	   	   	   
	   error = true;
	}
   }

tpTxt.value=Cadena;

if(error)
	   alert(campo+" contiene carácteres inválidos : "+letra);
}


function Analisis_precio(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  
  //Limpia los espacios al principio y al final de la palabra

  tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,''); 
  
  var ValidChars = "0123456789";
  var Char;
  var Cadena="";
  var CadenaInvalida="";
  var letra="";
  error = false;
 
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (ValidChars.indexOf(Char) != -1) 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   CadenaInvalida= CadenaInvalida + Char;   	   	   	   
	   error = true;
	}
   }

tpTxt.value=Cadena;

if(error)
       alert(campo+" debe ser numérico.");
	   //alert("El"+campo+" debe ser numérico : "+CadenaInvalida);
}

function replaceAll( text, busca, reemplaza ){   
    while (text.toString().indexOf(busca) != -1){   
        text = text.toString().replace(busca,reemplaza);   
    }   
    return text;   
}  

function Analisis_folio_pago(tpTxt, campo) {
  
  var tpSelT=replaceAll(tpTxt.value," ","");
  tpTxt.value=tpSelT;
  var aviso="";
  
  //Limpia los espacios al principio y al final de la palabra

  tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,''); 
  
  var ValidChars = "0123456789,";
  var Char;
  var Cadena="";
  var CadenaInvalida="";
  var letra="";
  error = false;
 
  //Primera validación: el campo folio de pago solo debe de constar de numeros y comas
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (ValidChars.indexOf(Char) != -1) 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   CadenaInvalida= CadenaInvalida + Char;   	   	   	   
	   error = true;
	}
   }

tpSelT=tpTxt.value.replace(" ","");

if(tpSelT.length > 0)
{
  coma = tpSelT.substring(tpSelT.length-1,tpSelT.length);
  if(coma != ',')
   tpSelT = tpSelT+",";  
}

if(error)
   {
     aviso+="El "+campo+" debe ser numérico : "+CadenaInvalida+"\n";
     aviso+="En caso de existir más de un folio, este deberá estar separado con coma.\n";
   }


error = false;
Cadena = "";
   
  //Segunda validación: cada folio debera de constar de 4 digitos.
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (Char != ",") 
    {
	   Cadena = Cadena + Char;
    }
	else
	{

	   if(Cadena.length!=4)
         error = true;
	     Cadena = "";

	}
   }

if(error)
   {
     aviso+="Cada folio de pago deberá constar de 4 dígitos.\n";
   }

error = false;
Cadena = "";
   
  //Tercera validación: cada folio debera estar en el rango del 1 al 6000.
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (Char != ",") 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   if(Cadena< 1 || Cadena > 6000)
		 error = true;
	     Cadena = "";

	}
   }

if(error)
   {
     aviso+="El rango requerido en cada folio de pago es de 1-6000.\n";
   }
   
if(aviso!="")
  alert(aviso);

}


function Analisis_descuento(tpTxt1, tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  
  //Limpia los espacios al principio y al final de la palabra

  tpSelT=tpSelT.replace(/^\s+/,'').replace(/\s+$/,''); 
  
  var ValidChars = "0123456789";
  var Char;
  var Cadena="";
  var CadenaInvalida="";
  var letra="";
  error = false;
 
  for (i = 0; i < tpSelT.length ; i++) 
  { 
   Char = tpSelT.charAt(i); 
   if (ValidChars.indexOf(Char) != -1) 
    {
	   Cadena = Cadena + Char;
    }
	else
	{
	   CadenaInvalida= CadenaInvalida + Char;   	   	   	   
	   error = true;
	}
   }

if(error)
       {
		 tpTxt.value=0;  
         alert(campo+" debe ser numérico.");
		 return false;
	   }
	   else
	   {
		 tpTxt.value=Cadena;
		 if(parseInt(tpTxt.value) > parseInt(tpTxt1.value)) // Si el descuento es mayor al precio de lista
		   {
              tpTxt.value=0; 
			  alert("El descuento no puede se mayor al precio.");			
			  return false;
		   }
	     else
		   {
		     return true;   
		   }
	   }
}


function formato_precio(numero)
{
//Propiedades 
this.valor = numero || 0
this.dec = -1;
//Métodos 
this.formato = numFormat;
this.ponValor = ponValor;
//Definición de los métodos 
function ponValor(cad)
{
if (cad =='-' || cad=='+') return
if (cad.length ==0) return
if (cad.indexOf('.') >=0)
    this.valor = parseFloat(cad);
else 
    this.valor = parseInt(cad);
} 
function numFormat(dec, miles)
{
var num = this.valor, signo=3, expr;
var cad = ""+this.valor;
var ceros = "", pos, pdec, i;
for (i=0; i < dec; i++)
ceros += '0';
pos = cad.indexOf('.')
if (pos < 0)
    cad = cad+"."+ceros;
else
    {
    pdec = cad.length - pos -1;
    if (pdec <= dec)
        {
        for (i=0; i< (dec-pdec); i++)
            cad += '0';
        }
    else
        {
        num = num*Math.pow(10, dec);
        num = Math.round(num);
        num = num/Math.pow(10, dec);
        cad = new String(num);
        }
    }
pos = cad.indexOf('.')
if (pos < 0) pos = cad.lentgh
if (cad.substr(0,1)=='-' || cad.substr(0,1) == '+') 
       signo = 4;
if (miles && pos > signo)
    do{
        expr = /([+-]?\d)(\d{3}[\.\,]\d*)/
        cad.match(expr)
        cad=cad.replace(expr, RegExp.$1+','+RegExp.$2)
        }
while (cad.indexOf(',') > signo)
    if (dec<0) cad = cad.replace(/\./,'')
        return cad;
}
}

//-->