// JScript File

function Right(str, n){
    if (n <= 0)
       return "";
    else if (n > String(str).length)
       return str;
    else {
       var iLen = String(str).length;
       return String(str).substring(iLen, iLen - n);
    }
}

function ConvertDecToBin(pLngNumero){

/*
Descripcion     :	Convierte un numero decimal a su correspondiente binario
Parametros      :	pLngNumero --> Numero a convertir	
Pagina          :	javascript:LlenaTablaPropiedades()
Activa          :	Button.onclick
Regresa         :	True / False
Comentarios     :
*/

	var currnum = 128;
	
	try{
		if(pLngNumero >= currnum){
			num2 = "1";
			pLngNumero = pLngNumero - currnum;
			currnum = currnum / 2;
		}
		else{
			num2 = "0";
			currnum = currnum / 2;
		}
		for (p = 1; p <= 7; p++){
			if(pLngNumero >= currnum){
				num2 = num2 + "1";
				pLngNumero = pLngNumero - currnum;
				currnum = currnum / 2;
			}
			else{
				num2 = num2 + "0";
				currnum = currnum / 2;
			}
		}
		return num2;
	}
	catch(err){
		strErr = "Error al construir los datos .\n\n"
        strErr += "ConvertDecToBin() : " + err.description + "\n\n"
        strErr += "Click OK to continue.\n\n"
        alert(strErr)
	}
	
}


function InStr2(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=InStr2.arguments.length;
		
	if(numargs<3)
		return n.indexOf(s1)+1;
	else
		return s1.indexOf(s2, n)+1;
		
}




function sortSelect (select, compareFunction) {
	/*
Decripción:  Ordena de menor a mayor un listbox
Parametros:  select          --> Objeto que se va a ordenar
             compareFunction --> 
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Junio 2007
*/	
  if (!compareFunction)
      compareFunction = compareText;
	  
  var options = new Array (select.options.length);
  for (var i = 0; i < options.length; i++)
    options[i] = 
      new Option (
        select.options[i].text,
        select.options[i].value,
        select.options[i].defaultSelected,
        select.options[i].selected
      );
  options.sort(compareFunction);
  select.options.length = 0;
  for (var i = 0; i < options.length; i++)
    select.options[i] = options[i];
}

function compareText (option1, option2) {
/*
Decripción:  Compara datos y regresa dato menor 
Parametros:  option1 --> Valor uno para comparar
             option2 --> Valor dos para comparar
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Junio 2007
*/	

  return option1.text < option2.text ? -1 :
    option1.text > option2.text ? 1 : 0;
}

function MM_preloadImages() { //v3.0
/*
Decripción:  Carga las imagenes por defecto
Parametros:  
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Octubre 2005
*/
 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
   var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
   if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function swapimg(pidimg, pnimg){
/*
Decripción:  Cambia todas las imagenes
Parametros:  
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Octubre 2005
*/
   MM_swapImgRestore(pidimg,'',pnimg,1);
   MM_swapImage(pidimg,'',pnimg,1);
}

function swapimgdos(pidimg, pnimg){
/*
Decripción:  Cambia todas las imagenes
Parametros:  
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Octubre 2005
*/
// MM_swapImgRestore();
   MM_swapImage(pidimg,'',pnimg,1);
}

function MM_swapImage() { //v3.0
 /*
Decripción:  Cambia la imagen que se esta mostrando
Parametros:  
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Octubre 2005
*/
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_swapImgRestore() { //v3.0
/*
Decripción:  Carga lasimagenes que estan por defecto
Parametros:  
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Octubre 2005
*/
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_ValidaForma() { //v4.0
/*
Decripción:  Valida una Forma
Parametros:  
			** ARGUMENTOS **
			1.- n	--> Objeto a buscar
			2.- ''	--> 
			3.- (R = Requerido, NisEmail = Email, NisNum = Numero) 
Regresa:    True, False
Programo: 
Fecha: Mayo 2005
*/
  var i,p,q,nm,test,num,min,max,errors='',args=MM_ValidaForma.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' debe ser una direccion de e-mail\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' debe ser un Numero.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' debe ser un numero Entre '+min+' y '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' es un dato Requerido.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_showHideLayers() { //v6.0
/*
Decripción:  Muestra o esconde un Layer
Parametros:  Argumento1 --> Nombre del Layer
 			 Argumento2 --> Opción
Ejecuta:     Acción 
Programo: Eduardo Olvera
Fecha: Mayo 2005
*/
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

function MM_findObj(n, d) { //v4.01
/*
Decripción:  busca un objeto dentro de la página
Parametros:  n --> Objeto a buscar
			 d --> Nombre de la página	
Regresa:     Asignación del objeto 
Programo: Eduardo Olvera
Fecha: febrero 2006
*/
  var p,i,x;  
  if(!d) d=document; 
  if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; 
  for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
  		x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_findObjt(n, d) { 
  //v4.0
  // $ en el objeto es de otro FRAME (parent.parent)
  // ? es de otra Ventana (parent)
  var p,i,x;  
  if(!d) 
     d=window.opener.document; 
  if((p=n.indexOf("?"))>0&&parent.frames.length) {
     d=parent.frames[n.substring(p+1)].document; 
     n=n.substring(0,p);
  }
  if((p=n.indexOf("$"))>0) {
     d=parent.parent.frames[n.substring(p+1)].document; 
     n=n.substring(0,p);
  }
  if(!(x=d[n])&&d.all) 
     x=d.all[n]; 
  for (i=0;!x&&i<d.forms.length;i++) 
     x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
     x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) 
     x=document.getElementById(n); 
  return x;
}

function NewWindow(mypage,myname,w,h,scroll,pos){
   if(pos=="random"){LeftPosition=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;TopPosition=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
   if(pos=="center"){LeftPosition=(screen.width)?(screen.width-w)/2:100;TopPosition=(screen.height)?(screen.height-h)/2:100;}
   else if((pos!="center" && pos!="random") || pos==null){LeftPosition=0;TopPosition=20}
   settings='width='+w+',height='+h+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=no';
   win=window.open(mypage,myname,settings);
   //win=window.open(mypage,myname);
}



function ocultalayer(pobjlayer){
/*
Decripción:  oculta layers que vienen en el parametro pobjlayer
Parametros:  
Programo: Eduardo Olvera
Fecha: Mayo 2006
*/
  var separador = ',';
  var array_datos = pobjlayer.split(separador);
  var intcont;
  for(intcont=0;array_datos.length > intcont;intcont++){
     MM_showHideLayers(array_datos[intcont],'','hide'); 
  }
}

function muestralayer(pobjlayer){
/*
Decripción:  oculta layers que vienen en el parametro pobjlayer
Parametros:  
Programo: Eduardo Olvera
Fecha: Mayo 2006
*/
  var separador = ',';
  var array_datos = pobjlayer.split(separador);
  var intcont;
  for(intcont=0;array_datos.length > intcont;intcont++){
     MM_showHideLayers(array_datos[intcont],'','show'); 
  }
}

function keypressallonum(pobjtxt, pevent){
/*
Decripción:  permite la entrada a numeros flotantes
Parametros:  pobjtxt ---> objeto de texto que en el que se validan los datos
             pevent  ---> evento
Programo: Eduardo Olvera
Fecha: Mayo 2006
*/
   var objtxt = MM_findObj(pobjtxt);
   var objtxtcambios = MM_findObj('txtcambios');
   var txtactual = objtxt.value;
   if(pevent<48 || pevent>57){
      if(pevent!=46){
        event.keyCode=0;
        return;
      }else{
       
      }
   }else{
      
   }
}
function keypressallonument(pobjtxt, pevent){
/*
Decripción:  permite la entrada a numeros enteros
Parametros:  pobjtxt ---> objeto de texto que en el que se validan los datos
             pevent  ---> evento
Programo: Eduardo Olvera
Fecha: Mayo 2006
*/
   var objtxt = MM_findObj(pobjtxt);
   var objtxtcambios = MM_findObj('txtcambios');
   var txtactual = objtxt.value;
   if(pevent<48 || pevent>57){
       event.keyCode=0;
        return;
   }
}    

function keypressalloabcd(pobjtxt, pevent){
/*
Decripción:  permite la entrada a a letras minusculas
Parametros:  pobjtxt ---> objeto de texto que en el que se validan los datos
             pevent  ---> evento
Programo: Eduardo Olvera
Fecha: Mayo 2006
*/
   var objtxt = MM_findObj(pobjtxt);
   var objtxtcambios = MM_findObj('txtcambios');
   var txtactual = objtxt.value;
   if(pevent<97 || pevent>122){
       event.keyCode=0;
        return;
   }
}    

function keypressevitatag(pobjtxt, pevent){
/*
Decripción:  evita meter mayor que y menor que
Parametros:  pobjtxt ---> objeto de texto que en el que se validan los datos
             pevent  ---> evento
Programo: Eduardo Olvera
Fecha: Mayo 2006
*/
   var objtxt = MM_findObj(pobjtxt);
   var objtxtcambios = MM_findObj('txtcambios');
   var txtactual = objtxt.value;
   if(pevent==60 || pevent==62){
       event.keyCode=0;
        return;
   }
}


function preparagrabar(pstrforma,pobjtxtgrabar,pstrseparador,pstrcauseval){
/*
Descripción:  Barre una forma para y genera una cadena para Grabar, Editar.
Parametros:   pstrforma      ----> nombre de la forma que debe barrer.
              pobjtxtgrabar  ----> nombre del objeto en el que va a poner la cadena para grabar
              pstrseparador  ----> caracter que se utilizará como separador en la cadena.
              pstrcauseval   ----> en balco para validar 
              
Otros:        objx   ----> objetos que se omiten
              obl    ----> campos obligatorios
              obx    ----> campos no obligatorios
Programó: Eduardo Olvera
Fecha:    23 noviembre de 2006                             
*/
   var objforma = MM_findObj(pstrforma);
   var objtxtgrabar = MM_findObj(pobjtxtgrabar);
   var objnombre ='';
   var intformelems = objforma.elements.length;
   var objtype = '';
   var strdatograbar='';
   var strdatograbtmp='';
   var strbuscabotones='';
   var strobligatorio='';
   var strcampo = '';
   for (i=0;i<intformelems;i++){//inicia for elementos
      objtype = objforma.elements[i].type;
      objnombre = objforma.elements[i].name;
      strbuscabotones = objnombre.indexOf('objx');//objeto a omitir
      strobligatorio = objnombre.indexOf('obl');//objeto obligatorio
      if(objtype=='checkbox'){
        if(objforma.elements[objnombre].checked){
           strdatograbtmp = '1';
        }else{
           strdatograbtmp = '0';
        }
      }else{
         strdatograbtmp = objforma.elements[objnombre].value.replace(/^\s*|\s*$/g,"");
      }
      if (objnombre != '__VIEWSTATE' && objnombre != 'txtpage' && strbuscabotones != 0 && objnombre != '__EVENTTARGET' && objnombre != '__EVENTARGUMENT'&& objnombre != '__EVENTVALIDATION' && objnombre != '__LASTFOCUS'){
         strcampo = objnombre.replace(/obl/,'');
         strcampo = strcampo.replace(/obx/,'');
         if(UCase(strcampo)=='PLAN'){
            strcampo = '[PLAN]';
         }
         switch(objtype){
            case 'text':
               if(strobligatorio==0){
                  if(strdatograbtmp==""){
                     if(pstrcauseval!='0'){
                        alert("Todos los campos son obligatorios");
                        return false;
                     }
                  }else{
                     strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
                  }   
               }else{
                    strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
               }
               break;
            case 'textarea':   
               if(strobligatorio==0){
                  if(strdatograbtmp==""){
                     if(pstrcauseval!='0'){
                        alert("Todos los campos son obligatorios");
                        return false;
                     }   
                  }else{
                     strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
                  }   
               }else{
                    strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
               }
               break;            
            case 'select-one':
               if(strobligatorio==0){
                  if(strdatograbtmp==""){
                     if(pstrcauseval!='0'){
                        alert("Todos los campos son obligatorios");
                        return false;
                     }   
                  }else{
                     strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
                  }   
               }else{
                    strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
               }
               break;
            case 'checkbox':
              if(strobligatorio==0){
                  if(strdatograbtmp==""){
                     if(pstrcauseval!='0'){
                        alert("Todos los campos son obligatorios");
                        return false;
                     }   
                  }else{
                     strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
                  }   
               }else{
                    strdatograbar += strdatograbtmp + pstrseparador + strcampo + pstrseparador;  
               }
               break;
            case 'radio':   
               break;
            default:
               alert(objtype + " Este objeto no esta definido verifique pues no se grabara");      
               alert(objnombre);
               break;
         }//termina switch
      }// termina if descarta elementos para almacenar
   }//termina for elementos
   if(strdatograbar.text != ""){
      objtxtgrabar.value = strdatograbar;
   }else{
      return false;
   }
}

/*function NewWindow(mypage,myname,w,h,scroll,pos){
   if(pos=="random"){LeftPosition=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;TopPosition=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
   if(pos=="center"){LeftPosition=(screen.width)?(screen.width-w)/2:100;TopPosition=(screen.height)?(screen.height-h)/2:100;}
   else if((pos!="center" && pos!="random") || pos==null){LeftPosition=0;TopPosition=20}
   settings='width='+w+',height='+h+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=no';
   win=window.open(mypage,myname,settings);
}*/

function ocultartabla(tabla, Var1) {
//tabla --> nombre tabla
// vari --> true muestra -- false oculta
  tabla = document.getElementById(tabla);
  //var img = document.getElementById("img_button");
  //alert(tabla);
  //if (tabla.style.display == "none") {
  if (Var1 == "False") {
   tabla.style.display = "block";
   //img.src = "dir/cerrar.gif";
  } else {
   tabla.style.display = "none";
   //img.src = "dir/abrir.gif";
  }
 }
 
function ocultarsubtablas(){
  var tablasubbene = document.getElementById('subbeneficios');
  var tablasubdirectorio =document.getElementById('subdirectorio');
  var tablasubmensaje =document.getElementById('submensaje');
  var tablasubcatalogos =document.getElementById('subcatalogos');
  var tablasubimgapiassa = document.getElementById('subimgapiassa');
  var tablasubcobranza = document.getElementById('subcobranza');
  
  tablasubbene.style.display = "none";
  tablasubdirectorio.style.display = "none";
  tablasubmensaje.style.display = "none";
  tablasubcatalogos.style.display = "none";
  tablasubimgapiassa.style.display = "none";
  tablasubcobranza.style.display = "none";
  
}
function ocultaadmin(){
   var tablasubbene = document.getElementById('Administracion');
   //var tablasubdirectorio =document.getElementById('subdirectorio');
   tablasubbene.style.display = "none";
   //tablasubdirectorio.style.display = "none";
}


//funciones left y rigth
function Left(str, n){
	if (n <= 0)
	    return "";
	else if (n > String(str).length)
	    return str;
	else
	    return String(str).substring(0,n);
}
function Right(str, n){
    if (n <= 0)
       return "";
    else if (n > String(str).length)
       return str;
    else {
       var iLen = String(str).length;
       return String(str).substring(iLen, iLen - n);
    }
}
function LCase(s){
	// Devuelve la cadena convertida en minúsculas
	return s.toLowerCase();
}
function UCase(s){
   //Devuelve la cadena en minusculas
   return s.toUpperCase();
}
function TRim(s){
  //elimina espacios al principio y al final
  return s.replace(/^\s*|\s*$/g,'');
}

function replaceChars(entry,cmpactual,remplazapor) {
   out = cmpactual; // replace this
   add = remplazapor; // with this
   temp = "" + entry; // temporary holder
   while (temp.indexOf(out)>-1) {
      pos= temp.indexOf(out);
      temp = "" + (temp.substring(0, pos) + add + 
      temp.substring((pos + out.length), temp.length));
   }
   return temp;
}

function setfocus(pobjfield) {
//pobjfield   --> objeto endonde pone el foco
//Pone el foco en un objeto
        pobjfield.focus()
}

/*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 InStr(STRING,SUBSTRING,COMPARE,START){
   if(START){
      STRING = STRING.substring(START,STRING.length);
   }
   if(CBool(COMPARE) || COMPARE ==undefined){
      STRING = STRING.toLowerCase();
      SUBSTRING = SUBSTRING.toLowerCase();
   }
   if(STRING.indexOf(SUBSTRING) > -1){
      return STRING.indexOf(SUBSTRING)
   }else{
      return 0;

   }
}

function CBool(VALUE){
VALUE = new String(VALUE);
VALUE = VALUE.toLowerCase();
if(VALUE== "1" || VALUE=="-1" || VALUE=="true" || VALUE == "yes"){
return true;
}
else{
return false;
}
}



function isFolder(sFolderPath) {
/*
   verifica si existe un directorio
*/
  var objFSO = new ActiveXObject("Scripting.FileSystemObject");
  return objFSO.FolderExists(sFolderPath);
}

function isFile(sFolderPath) {
/*
   verifica si existe un directorio
*/
  var objFSO = new ActiveXObject("Scripting.FileSystemObject");
  return objFSO.FileExists(sFolderPath);
}


function validarEmail(valor) {
  if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(valor)){
     return true; //si es correo
  } else {
     return false; //no es correo
  }
 }