//FORM inetcri01K
//'00 NOMBRE
//'01 CARGO
//'02 EMPRESA
//'03 CODIGO_AREA
//'04 TELEFONO
//'05 E-MAIL
//'06 ASUNTO
//'07 COMENTARIO
//*****************************************************
// CRISTIAN QUINTANA  VARIABLES GLOBALES
var swOK=0;
var nEle=0;
var sError='';
// CRISTIAN QUINTANA
function darioquintana() {
var nTot=0;
var nPas=0;
var nTorna=0;
sError=" Contáctenos desde GS1 Chile \n----> Detectó error en el ingreso de datos <----\n* ---------------------------------------------------------- *"+"\n";
//sError2="Gracias por Contactarce, "+"\n";
//sError2="Gracias por Contactarce, +quintana.nombre_del_contacto.value+,su e-mail es : +quintana.email.value+  "+"\n";
//sError3="hola,"+document.forms[0].elements[nEle].name.substr(0)+",contiene caracteres NO VALIDOS"+"\r"
//sError="Lista de errores: "+"\n";
  for (var j=0; j<10; j++) {
    nEle=j;
    // CRISTIAN QUINTANA LOS TIPOS
    var sNom=document.forms[0].elements[j].name;
    var sOne=sNom.substring(0,1);
    var sTwo=sNom.substring(1,2);
    var stre=sNom.substring(2,3);
    var scua=sNom.substring(3,4);
    var scin=sNom.substring(4,5);
    var ssei=sNom.substring(5,6);
    var ssie=sNom.substring(6,7);
    //var soch=sNom.substring(7,8);
//(sOne=='N' && sTwo=='O' && stre=='O' && scua=='O' && scin=='O' && ssei=='O' && ssie=='O' && soch=='O' && snue=='O'
//&& sdie=='O' && sonc=='O' && sdoc=='O' && strec=='O' && scat=='O' && squi=='O' && sdies=='O' && sdiesi=='O' 
//&& sdiesio=='O') 

//'00 NOMBRE
if (sOne=='N' && sTwo=='O') {
CaracterNoValid(document.forms[0].elements[j].value,'00');
nTot+=swOK;
}
//'01 CARGO
if (sOne=='C' && sTwo=='A') {
CaracterNoValid(document.forms[0].elements[j].value,'01');
nTot+=swOK;
}
//'02 EMPRESA
if (sOne=='E' && sTwo=='M') {
CaracterNoValid(document.forms[0].elements[j].value,'02');
nTot+=swOK;
}
//'03 CODIGO_AREA
if (sOne=='C' && sTwo=='O' && stre=='D') {
CaracterNoValid(document.forms[0].elements[j].value,'03');
nTot+=swOK;
}
//'04 TELEFONO
if (sOne=='T' && sTwo=='E') {
CaracterNoValid(document.forms[0].elements[j].value,'04');
nTot+=swOK;
}
//'05 E-MAIL
if (sOne=='E' && sTwo=='-') {
CaracterNoValid(document.forms[0].elements[j].value,'05');
nTot+=swOK;
}
//'06 ASUNTO
if (sOne=='A' && sTwo=='S') {
CaracterNoValid(document.forms[0].elements[j].value,'06');
nTot+=swOK;
}
//'07 COMENTARIO
if (sOne=='C' && sTwo=='O' && stre=='M') {
CaracterNoValid(document.forms[0].elements[j].value,'07');
nTot+=swOK;
}

    // CRISTIAN QUINTANA DE ERRORES
    if (nPas==0 && nTot>0) {
      document.forms[0].elements[nEle].focus()
      nPas=1
    }
  }
  if (nTot>0)
    alert(sError)
else
    //alert(sError2)
   // alert(sError3)
document.inetcri01k.submit();
}
// CRISTIAN QUINTANA CAMPO A CAMPO
//------12345678901234567890123456789012345678901234567890123456789012345678901234567890101234
//------°!"#$%&/()=?¡|¿,;.:-{}[]<>@*¬^+\_'~ABCDEFGHIJLMNÑOPQRSTUVWXYZabcdefghijlmnñopqrstuvwxyz no " no \
function CaracterNoValid(pCaracter,pType) {
//'00 NOMBRE
  if (pType=='00') {
   swOK=0;
    if (pCaracter=='') {
       sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,alfabético"+"\n\r"
       swOK=1;
       return
     }
    for (var i=0;i<pCaracter.length;i++) {
      var sByte=pCaracter.substring(i,i+1);
      if (
sByte=="°" || sByte=="!" || sByte=="#" || sByte=="$" || sByte=="%" || sByte=="&" || sByte=="/" || sByte=="(" ||
sByte==")" || sByte=="=" || sByte=="?" || sByte=="¡" || sByte=="|" || sByte=="¿" || sByte=="," || sByte==";" ||
sByte==":" || sByte=="-" || sByte=="{" || sByte=="}" || sByte=="[" || sByte=="]" || sByte=="<" || sByte==">" || 
sByte=="@" || sByte=="*" || sByte=="¬" || sByte=="^" || sByte=="+" || sByte=="_" || sByte=="'" || sByte=="~" )
 {
        sError+="error! en "+document.forms[0].elements[nEle].name.substr(0)+" ,Usted  ingreso caracteres no válidos, es alfabético"+"\n\r"
        swOK=1;
        return;
      }
    }
  }
  //'01 CARGO
  if (pType=='01') {
   swOK=0;
    if (pCaracter=='') {
       sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,alfabético"+"\n\r"
       swOK=1;
       return
     }
    for (var i=0;i<pCaracter.length;i++) {
      var sByte=pCaracter.substring(i,i+1);
      if (
sByte=="°" || sByte=="!" || sByte=="#" || sByte=="$" || sByte=="%" || sByte=="&" || sByte=="/" || sByte=="(" ||
sByte==")" || sByte=="=" || sByte=="?" || sByte=="¡" || sByte=="|" || sByte=="¿" || sByte=="," || sByte==";" ||
sByte==":" || sByte=="{" || sByte=="}" || sByte=="[" || sByte=="]" || sByte=="<" || sByte==">" || sByte=="@" ||
sByte=="*" || sByte=="¬" || sByte=="^" || sByte=="+" || sByte=="_" || sByte=="'" || sByte=="~" || sByte=="1" ||
sByte=="2" || sByte=="3" || sByte=="4" || sByte=="5" || sByte=="6" || sByte=="7" || sByte=="8" || sByte=="9" || sByte=="0" )
 {
        sError+="error! en "+document.forms[0].elements[nEle].name.substr(0)+" ,Usted  ingreso caracteres no válidos, es alfabético"+"\n\r"
        swOK=1;
        return;
      }
    }
  }
  //'02 EMPRESA
  if (pType=='02') {
   swOK=0;
    if (pCaracter=='') {
       sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,alfabético"+"\n\r"
       swOK=1;
       return
     }
    for (var i=0;i<pCaracter.length;i++) {
      var sByte=pCaracter.substring(i,i+1);
      if (
sByte=="°" || sByte=="!" || sByte=="#" || sByte=="$" || sByte=="%" || sByte=="&" || sByte=="/" || sByte=="(" ||
sByte==")" || sByte=="=" || sByte=="?" || sByte=="¡" || sByte=="|" || sByte=="¿" || sByte=="," || sByte==";" ||
sByte==":" || sByte=="-" || sByte=="{" || sByte=="}" || sByte=="[" || sByte=="]" || sByte=="<" || sByte==">" ||
sByte=="@" || sByte=="*" || sByte=="¬" || sByte=="^" || sByte=="+" || sByte=="_" || sByte=="'" || sByte=="~" )
 {
        sError+="error! en "+document.forms[0].elements[nEle].name.substr(0)+" ,Usted  ingreso caracteres no válidos, es alfabético"+"\n\r"
        swOK=1;
        return;
      }
    }
  }
//'03 CODIGO_AREA
  if (pType=='03') {
    swOK=0;
    if (pCaracter=='') {
      swOK=1
      sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,ej: 2865899"+"\n\r"
      return
    }
    for (var i=0;i<pCaracter.length;i++) {
      var sByte=pCaracter.substring(i,i+1);
      if (sByte<"0" || sByte>"9") {
        sError+="error! en "+document.forms[0].elements[nEle].name.substr(0)+" ,Usted  ingreso caracteres no válidos, es numérico"+"\n\r"
        swOK=1;
        swOK=1;
        return;
      }
    }
   }
//'04 TELEFONO
  if (pType=='04') {
    swOK=0;
    if (pCaracter=='') {
      swOK=1
      sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,ej: 2865899"+"\n\r"
      return
    }
    for (var i=0;i<pCaracter.length;i++) {
      var sByte=pCaracter.substring(i,i+1);
      if (sByte<"0" || sByte>"9") {
        sError+="error! en "+document.forms[0].elements[nEle].name.substr(0)+" ,Usted  ingreso caracteres no válidos, es numérico"+"\n\r"
        swOK=1;
        swOK=1;
        return;
      }
    }
   }
//'05 E-MAIL
  if (pType=='05') {
   swOK=2
   for (var i=0;i<pCaracter.length;i++) {
     var sByte=pCaracter.substring(i,i+1);
     if (sByte=="@" || sByte==".") {
       swOK=swOK-1;
     }
   }
   if (swOK>0)    {
       sError+="* Por Favor Ingrese su "+document.forms[0].elements[nEle].name.substr(0)+" ,ej: usuario@dominio" +"\n\r" }
   return;
 }
 //'06 ASUNTO
 if (pType=='06') {
  swOK=0;
    if (pCaracter=='') {
       sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,alfanumerico" +"\n\r"
       swOK=1;
       return
     }
  }
//'07 COMENTARIO
 if (pType=='07') {
  swOK=0;
    if (pCaracter=='') {
       sError+="* Ingrese su, "+document.forms[0].elements[nEle].name.substr(0)+" ,alfanumerico" +"\n\r"
       swOK=1;
       return
     }
  }

 }
