///////////////////////////////////////////////////////////////////////////////////
//                                                                               //
//   /////////////////////////////                                               //
//   ///// V A L I D A C A D /////                                               //
//   /////////////////////////////                                               //
//                                                                               //
//   Definición:                                                                 //
//      Comprueba si una cadena contiene algún carácter usado por el formato CGI //
//                                                                               //
//   Entra:                                                                      //
//       cadena: La cadena a comprobar si contiene algún carácter utilizado por  //
//   Retorna:                                                                    //
//       false: Si la cadena contiene algún carácter usado por el formato CGI.   //
//       true: Si la cadena no contiene algún carácter usado por el formato CGI. //
//                                                                               //
///////////////////////////////////////////////////////////////////////////////////

function ValidaCad(cadena) {    
        
    if (cadena.length==0) {
        return true;
    }
    return true;
    
}

////////////////////////////////////////////////////////////////////////////////////
//                                                                                //
//   ///////////////////////////////////////////                                  //
//   ///// V A L I D A _ T O D O S _ C A D /////                                  //
//   ///////////////////////////////////////////                                  //
//                                                                                //
//   Definición:                                                                  //
//       Comprueba los campos tipo TEXT y TEXTAREA de un formulario si contiene   //
//       algún carácter usado por el formato CGI.                                 //
//   Entra:                                                                       //
//       formu: Formulario a comprobar si algún campo de tipo TEXT o TEXTAREA     //
//              contiene algún carácter utilizado por el formato CGI.             //
//   Retorna:                                                                     //
//       - Da un alert con la cadena que tiene un carácter usado por el CGI.      //
//       false: Si la cadena contiene algún carácter usado por el formato CGI.    //
//       true: Si la cadena no contiene algún carácter usado por el formato CGI.  //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function Valida_Todos_Cad(formula) {
    for (i = 0 ; i < formula.length ; i++) {
        tempobj = formula.elements[i];
        if (tempobj.type == "text") {
            if (ValidaCad(tempobj.value) == false) {
                alert("La cadena de caractéres " + tempobj.value + " contiene caractéres no válidos.");
                return false;
            }
        }
    }                       
    return true;
}

////////////////////////////////////////////////////////////////////////////////////
//                                                                                //
//   /////////////////////////////////////////                                    //
//   ///// V A L I D A C A D N U M E R O /////                                    //
//   /////////////////////////////////////////                                    //
//                                                                                //
//   Definición:                                                                  //
//        Comprueba una cadena si tiene algún carácter diferente a un numero      //
//   Entra:                                                                       //
//        cadena: Cadena a comprobar si tiene algún carácter diferente a un       //
//                número.                                                         //
//   Retorna:                                                                     //
//        false: Si la cadena contiene algún carácter diferente a un número.      //
//        true: Si la cadena no contiene algún carácter diferente a un número.    //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function ValidaCadNumero (cadena){
    if (cadena != "") {
        i = 0;
        e = 0;
        while (i < cadena.length) {
            ncadena = cadena.substring(i,i+1);          
            if ((ncadena != "0") && (ncadena != "1") && (ncadena != "2") && (ncadena != "3") && (ncadena != "4") && (ncadena != "5") && (ncadena != "6") && (ncadena != "7") && (ncadena != "8") && (ncadena !="9")) { 
                e = 1;
            } 
            i = i + 1;
        }
        if (e == 1) {
            return false;
        }else{
            return true;
        }
    } else {
        return true;
    }
}

////////////////////////////////////////////////////////////////////////////////////
//                                                                                //
//   ///////////////////////////////////                                          //
//   ///// S U S T I T U Y E C A D /////                                          //
//   ///////////////////////////////////                                          //
//                                                                                //
//   Definición:                                                                  //
//        Sustituye en una cadena los espacios en blanco en %27                   //
//   Entra:                                                                       //
//        cadena: La cadena a sustituir los espacios en blanco                    //
//    Retorna:                                                                    //
//        ncadena: La cadena sustituida los espacios en %27                       //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function SustituyeCad(cadena) {
        
    if (cadena.length == 0){
        return (cadena);
    }
    ncadena = cadena.replace(cadena, "%27");
    return (ncadena);                          
}

////////////////////////////////////////////////////////////////////////////////////
//                                                                                //
//   /////////////////////////////////////////////////                            //
//   ///// S U S T I T U Y E _ T O D O S _ C A D /////                            //
//   /////////////////////////////////////////////////                            //
//                                                                                //
//   Definición:                                                                  //
//       Sustituye en los campos tipo TEXT y TEXTAREA de un formulario los        //
//       espacios en blanco por %27.                                              //
//   Entra:                                                                       //
//       formu: Formulario a sustituir los espacios en blanco en los campos TEXT  //
//              y TEXTAREA por %27.                                               //
//   Retorna:                                                                     //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function Sustituye_Todos_Cad(formu) {
    for (i = 0 ; i < formu.length ; i++) {
        tempobj = formu.elements[i];
        if (tempobj.type == "text") {
            tempobj.value = SustituyeCad(tempobj.value)
        }
    }                       
}
////////////////////////////////////////////////////////////////////////////////////
//                                                                                //
//   /////////////////////////////                                                //
//   ///// V A L O R S L C T /////                                                //
//   /////////////////////////////                                                //
//                                                                                //
//   Definición:                                                                  //
//       Dado un objeto select-one devuelve el valor de la opción elegida         //
//   Entra:                                                                       //
//       slct: objeto select-one del cual vamos a sacar el valor                  //
//   Retorna:                                                                     //
//       valor: el valor que tenga el atributo value de la opción selected        //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function ValorSlct(slct) {
    valor = slct.options[slct.selectedIndex].value;
    return valor;
}


// Extrae los espacios en blanco que se encuentren al principio de la cadena
// que aparece en un elemento del formulario (text, textArea)

function rtrim(cuadroTexto)
{
        while( (''+cuadroTexto.value.charAt(cuadroTexto.value.length-1)==' ') || (''+cuadroTexto.value.charAt(cuadroTexto.value.length-1)=="\n") )
                        cuadroTexto.value=cuadroTexto.value.substring(0,cuadroTexto.value.length-1);
}

// Extrae los espacios en blanco que se encuentren al final de la cadena
// que aparece en un elemento del formulario (text, textArea)

function ltrim(cuadroTexto)
{
        while( (''+cuadroTexto.value.charAt(0)==' ') || (''+cuadroTexto.value.charAt(cuadroTexto.value.length-1)=="\n"))
                cuadroTexto.value=cuadroTexto.value.substring(1,cuadroTexto.value.length);
}

////////////////////////////////////////////////////////////////////////////////////
//                            NUEVA                                                    //
//   /////////////////////////////////////////                                    //
//   ///// S U S T I T U Y E B L A N C O /////                                    //
//   /////////////////////////////////////////                                    //
//                                                                                //
//   Definición:                                                                  //
//        Sustituye en una cadena los espacios en blanco en %20                   //
//   Entra:                                                                       //
//        cadena: La cadena a sustituir los espacios en blanco                    //
//    Retorna:                                                                    //
//        ncadena: La cadena sustituida los espacios en %20                       //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function SustituyeBlanco(cadena) {
        
    if (cadena.length == 0){
        return (cadena);
    }
    ncadena = cadena.replace(cadena, "%20");
    return (ncadena);                          
}

////////////////////////////////////////////////////////////////////////////////////
//                                                                                //
//   ///////////////////////////////////////                                      //
//   ///// C A M B I A C O M I L L A S /////                                      //
//   ///////////////////////////////////////                                      //
//                                                                                //
//   Definición:                                                                  //
//       Sustituye comillas simples y dobles                                      //
//                                                                                //
//   Entra:                                                                       //
//       cadena: La cadena a sustituir                                            //
//                                                                                //
//   Retorna:                                                                     //
//       cadena: La cadena a sustituida                                           //
//                                                                                //
////////////////////////////////////////////////////////////////////////////////////

function CambiaComillas ( cadena ) {
  var ncadena="";
  for ( i = 0; i < cadena.length; i++ ) {
    caracter = cadena.charAt ( i );
    if ( caracter == "'" ) {
      ncadena += "\'";
    }
    else if ( caracter == '"' ) {
      ncadena += '&quot;';
    }
    else {
      ncadena += caracter;
    }
  }
  
  return ncadena;
  
}