function parsenumber(num) { 
   var parseana,cfinal,dotcounter; cfinal=''; 
       dotcounter=0; num='' + num; 
	   if (len(num)==0) {num = "0" };
	   for (parseana=0;parseana<num.length;parseana++) 
         { if ((num.slice(parseana,parseana+1)=='-') && (parseana==0)) { cfinal=cfinal + num.slice(parseana,parseana+1) }; 
           if ((num.slice(parseana,parseana+1)>='0') && (num.slice(parseana,parseana+1)<='9')) { cfinal=cfinal + num.slice(parseana,parseana+1) }; 
           if ((num.slice(parseana,parseana+1)=='.') && (dotcounter==0)) { cfinal=cfinal + num.slice(parseana,parseana+1); dotcounter++; }; 
		   } return parseFloat(cfinal); 
		 }
		 
		 
function parsenumberzero(num) { 
   var parseana,cfinal,dotcounter; cfinal=''; 
       dotcounter=0; num='' + num; 
	   for (parseana=0;parseana<num.length;parseana++) 
         { if ((num.slice(parseana,parseana+1)=='-') && (parseana==0)) { cfinal=cfinal + num.slice(parseana,parseana+1) }; 
           if ((num.slice(parseana,parseana+1)>='0') && (num.slice(parseana,parseana+1)<='9')) { cfinal=cfinal + num.slice(parseana,parseana+1) }; 
           if ((num.slice(parseana,parseana+1)=='.') && (dotcounter==0)) { cfinal=cfinal + num.slice(parseana,parseana+1); dotcounter++; }; 
		   } 
		   if (cfinal.length==0) { cfinal="0";};
		   return parseFloat(cfinal); 		   
		 } 

function tvtext(objname,message)
 {
   var obj,returnmsg;
   obj=FindObj(objname);   
   returnmsg='';
   if (obj.value.length==0) {returnmsg=message};
   return (returnmsg);
 }
 
 function tvcheckbox(objname,message)
 {
   var obj,returnmsg;
   obj=FindObj(objname);   
   returnmsg='';
   if ((obj.checked)) {returnmsg=message}; 
   return (returnmsg);
 }
 
 
 function tvnotcheckbox(objname,message)
 {
   var obj,returnmsg;
   obj=FindObj(objname);   
   returnmsg='';
   if (!(obj.checked)) {returnmsg=message}; 
   return (returnmsg);
 }
 
 function tvselect(objname,message)
 {
   var obj,returnmsg,i,ok,value;
   obj=FindObj(objname);   
   returnmsg='';
   ok=-1;
   for (i=0;i<obj.length;i++) if (obj[i].selected) {ok=i;}
   if ((ok<=0)) {returnmsg=message};
   return (returnmsg);
 }
 
 function tvradio(objname,message)
 {
   var obj,returnmsg,i,ok;
   obj=FindObj(objname);   
   returnmsg='';
   ok=(0==1);
   for (i=0;i<obj.length;i++) ok=ok || obj[i].checked;
   if (!(ok)) {returnmsg=message}; 
   return (returnmsg);
 }
          
 function tvtextlength(objname,lsize,message)
 {
   var obj,returnmsg;
   obj=FindObj(objname);   
   returnmsg='';
   if (obj.value.length<lsize) {returnmsg=message};
   return (returnmsg);
 }
 
 function sicalc(lexpresion,option1,option2)
 {
   if (lexpresion) 
     {return(option1);}
	else
	 {return(option2);}
 }
 
 function len(lstring)
  {
   lstring="" + lstring;
   return(lstring.length);
  }
  
 function ucase(lstring)
  {
   lstring="" + lstring;
   return(lstring.toUpperCase());
  } 
  
 function lcase(lstring)
  {
  lstring="" + lstring;
  return(lstring.toLowerCase());
  }
  
 function n(lstring)
  {
  lstring=1 * parsenumberzero(lstring);  
  return(lstring);
  }
  
 function tv(lstring)
  {
  lstring="" + lstring;
  return (lstring.length>0);
  }
  
 function dif(elemento1,elemento2)
  {
   return (elemento1!=elemento2);
  }
  
 function eq(elemento1,elemento2)
  {
   return (elemento1==elemento2);
  } 
  
 function strzero(cantidad,zeros)
  {
   cantidad="" + cantidad;
   for (;cantidad.length<zeros;) { cantidad="0" +cantidad; };
   return (cantidad);
  }
  
 function format(numero,pos)
   {
    var ent,dec,pot;
    pot=1;
    for (i=1;i<=pos;i++) pot=pot*10;
       entero=parseInt(numero*pot);
       decimal=entero % pot;
	   for (;len(decimal)<pos;) decimal="0"+decimal;	   
   return ('' + parseInt(numero) + '.' +decimal);
   }
   
 function formatround(numero,pos)
   {
    var ent,dec,pot;
    pot=1;
	pos=pos+1;
    for (i=1;i<=pos;i++) pot=pot*10;
       entero=parseInt(numero*pot);
       decimal=entero % pot;
	   for (;decimal.length<pos;) decimal+="0";	   
   minumero=parseFloat('' + parseInt(numero) + '.' +decimal);
   for (i=1;i<=(pos-1);i++) minumero=(minumero*10);
   minumero=Math.round(minumero);
   while (minumero.length<3) 
      minumero="0" + minumero;
   minumero="" + minumero;	  
   minumero=minumero.slice(0,minumero.length-2)+"."+minumero.slice(minumero.length-2,minumero.length);
   return (minumero);
   }
   
 function int(lnumero)
  {
  return(parseInt(lnumero));
  }    
  
  
 function getValue(varName,varType)  
  { var lobj;
    lobj=FindObj(varName);
    if (varType=="R") { return(findradiovaluetest(lobj)); } /* Radio Buttons */
	if (varType=="C") { return(findcheckboxvaluetest(lobj)); } /* CheckBoxes */
	if (varType=="S") { return(lobj.value);} /* Rest of elements */
	return (1==0);
  }
  
function findradiovalue(sobj) 
 { 
   var respuesta; 
       respuesta=''; 
   for (analisis=0;analisis<sobj.length;analisis++) 
     {  
	   if (sobj[analisis].checked) 
	   { respuesta=sobj[analisis].value;} 
	 } 
    return respuesta; 
 }
  
function findradiovaluetest(sobj) 
 { 
   if (typeof(sobj)=='undefined') 
     {
	  return (1==1);
	 } 
	else 
    {  if (sobj.type=="hidden") 
         {
		 return (1==1) ; 
		 } 
      else 
         {
		 return (findradiovalue(sobj));
		 };
     } 
  } 
  
  
function findcheckboxvalue(sobj) 
   { 
    var respuesta; 
	    respuesta=''; 
	 if (sobj.checked) 
	    {respuesta=sobj.value;} 
	  return respuesta; 
   }
   
   
function findcheckboxvaluetest(sobj) 
  { 
  if (typeof(sobj)=='undefined') 
    {
	return (1==1);
	} 
 else 
 { if (sobj.type!="checkbox") 
     {return (1==1);} 
	 else 
	 {return (findcheckboxvalue(sobj));} 
 }; 
 } 


function assingvalue(varName,varValue)
{
  var sobj;
  sobj=FindObj(varName);
  sobj.value=varValue;
  return (1==1);
}

function setfocus(varName)
{
  var sobj;
  sobj=FindObj(varName);
  sobj.focus();
}

function cond(param1,param2) 
{ ok=(1==1); 
  if (param1) 
  { ok=param2; } 
 return ok; }


function ref22(referencia, cantidad,fecha,dias)
{
  var multiplicador_monto=[0,7,3,1];
  var multiplicador_ref=[0,11,13,17,19,23];
  var monto,referenciafecha,i,j,referenciamonto,anio,mes,dia;
  var sfecha;
  sfecha='' + fecha;
  monto = parseInt(parseInt(cantidad) * 100);
  anio=sfecha.slice(0,4);
  mes=sfecha.slice(4,6);
  dia=sfecha.slice(6,8);
  if (mes.slice(0,1)=="0") mes=mes.slice(1,2);
  if (dia.slice(0,1)=="0") dia=dia.slice(1,2);
  anio = (parseInt(anio) - 1988) * 372;
  mes = (parseInt(mes) - 1) * 31;
  dia = parseInt(dia) - 1;
  referenciafecha = anio + mes + dia;
  
  monto = '' + monto;
  i = 1;
  referenciamonto = 0;
  for (j=monto.length-1;j>=0;j--)
     { referenciamonto= referenciamonto + (parseInt(monto.slice(j,j+1)) * multiplicador_monto[i]);
       i++;
       if (i>3) {i=1;};
     };
  referenciamonto = referenciamonto % 10;
  referenciaref = 0;
  i = 1;
  referencia = '' + referencia + referenciafecha + referenciamonto + '2';
  for (j=referencia.length-1;j>=0;j--)
      {
      referenciaref = referenciaref + (parseInt(referencia.slice(j,j+1))*multiplicador_ref[i]);
      i++;
      if (i>5) { i=1; };
      };
   referenciaref = parseInt(referenciaref) % 97 + 1;
   anexo=''; if (referenciaref<=9) {anexo='0';};
   return '' + referencia + anexo + referenciaref;
}


function overwrite(elementname,lhtml)
 {
  var obj=fetchelement(elementname);
  obj.innerHTML=lhtml;
 }
   
  
function ajustseparators(lnum,ltext)
 {
 var obj=fetchelement("ajusttop" + lnum);
 var toreturn;
 toreturn=obj.innerHTML;
 obj.innerHTML=ltext;
 return toreturn;
 }
 
function setleftmargin(layername)
  {
  var objcoords=findPosName("leftmostobject");
  var objlayer=fetchelement(layername); 
  objlayer.style.left=objcoords[0]; 
  }

  
function fopen(framename,y,x,ltimer,fractions,lsrcpage)
  {
  var objframe=fetchelement(framename);
  var currentx=parseInt(objframe.style.width);
  var currenty=parseInt(objframe.style.height);
  var deltax=parseInt((x-currentx)/fractions);
  var deltay=parseInt((y-currenty)/fractions);
  var i;
  for (i=0;i<(fractions-1);i++)
   {
   currentx=currentx+deltax;
   currenty=currenty+deltay;
   setTimeout("ResizeLayer('" + framename + "'," + currentx + "," + currenty +")",((i)*ltimer/fractions));
   };  
  setTimeout("ResizeLayer('" + framename + "'," + x + "," + y +")",ltimer+10);
  objframe.src=lsrcpage;
  }
  
function ResizeLayer(layerobjname,x,y)
  {
  var objframe=fetchelement(layerobjname);
  objframe.style.height=y;
  objframe.style.width=x; 
  }
  
  function chr(AsciiNum)
     { 
	return String.fromCharCode(AsciiNum)
     }