

function Analisis(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  var ValidChars = "<>\"'();{}[]|";
  var palControl = new Array("while","javascript","prompt","java","script","switch","case","into","update","select","split","cookie","join","<html>","<table>","<td>"); 
  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_sucursal(tpTxt, campo) {
	
 
  var tpSelT=tpTxt.value;
  var ValidChars = "<>\"'();{}[]|.,";
  var palControl = new Array("while","javascript","prompt","java","script","switch","case","into","update","select","split","cookie","join","<html>","<table>","<td>"); 
  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+= "| ";	  
       if(f==46) 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_email_pass(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  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;
  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");
}

function Analisis_archivos(tpTxt, campo) {
  
  var tpSelT=tpTxt.value;
  var ValidChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_";
  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("Sólo se aceptan Letras, Números y Guiones Bajos");
}
