//                                  //
//     JavaScript Functions         // 
//                                  //
//////////////////////////////////////
// Algunas variables Globales
 var entorno = new entObj(0); 

<!-- constructor for object used to step through id|name  lists -->
function entObj(appreg) {
   this.DirBase="http://ctasapagar.malaga.sando.es/Ctas_a_Pagar";
   this.w_parambase="toolbar=yes,location=no,directories=no,menubar=no,status=yes,scrollbars=yes,resizable=yes";
   this.w_paramApp="toolbar=yes,location=no,directories=no,menubar=no,status=yes,scrollbars=yes,resizable=yes";
   this.appreg=appreg;
   this.es_inicio=0;
} 

<!-- connect to database if necessary -->
function dbConnect() {
//  if (client.es_inicio == 0 ) {
//       entorno.es_inicio=client.es_inicio; 
//       redirect("go_close.html");
//       initial.html?ipw=1");
// 		parent.window.close();
//} 
//else
//  client.es_inicio=0 ;      
  if (!database.connected()) {
    // arguments:
    //   database type 		INFORMIX
    //   database server	<your db server name>
    //   database login		<your db login name>
    //   database pw		<your db password>
    //   database name		tock
    // make sure you use a database login that has connect, select, update,
    // insert, and delete privileges on the tock database
    //    database.connect("INFORMIX","appalanche_db", "informix", "informix", "tock");

      client.type     = "INFORMIX";
      client.db_id    = "ctpagar"; 
      client.database = "sando_adm";
      client.server   = "sandodbs";
      client.password = "15-admisys";  
             
  		status=database.connect(client.type,
                    		  client.server, 
                          client.db_id, 
                          client.password, 
                          client.database);
      DbsError(status,-1);  
  }
}

function dbAcl()
{
 chkBrowser(); // control del Browser
//  if (request.FrameType) 
//     client.FrameType=request.FrameType;
//  else
//     request.FrameType=client.FrameType;
// Aquí va el control de acceso 
// Reasignamos algunas variables globales para el Server 
// Algunos formatos para fechas.
  NLDF="D/M/YY";  // para columnas en las queries INFORMIX
  IFDF="D/M/YY";  // para columnas en SQL según DBDATE
  nprinter="hp4mp";
  spoolpath="c:/tmprpts/spool/";
// Algunos formatos para nros. 
  NF2="##"
  NF3="###"
  NF4="#.###"
  NF5="##.###"
  NF6="###.###"
  NF7="#.###.###"
  NF8="##.###.###"
  NF9="###.###.###"
  NF09="***.***.***"
  NFY9="&&&.&&&.&&&"
  NF10="#.###.###.###"
  NF11="##.###.###.###"
  NF12="###.###.###.###"
//  client.acl=2;
  if (!request.uid || request.uid == null) 
     redirect("alertpage.html?alert=90");  
// request.uid=client.id;
//  if (!client.acl)  {  // Ha perdido el acl !!!!
     login = database.cursor("select acl from user where id='"+request.uid+"'");
     if (login.next()) {
         client.acl = login.acl;
     }
     login.close(); 
//  }
  if (client.acl == 0 || client.acl == null )
     redirect("alertpage.html?alert=0");  
//  if ( request.ViewFkey == "S" || request.ViewFkey == "N" )
//       client.ViewFkey = request.ViewFkey; 
//  client.FrameType= request.FrameType;
//  request.FrameType="L";
  if (client.acl == 1 ) {
     request.waux="1"; 
     baseHtml="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid+"&waux=1"
  }else 
     baseHtml="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
}
function setUrl(docpath,reqObj) {
   baseReq="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
   if (!reqObj || reqObj == "") 
       var HtmlRef=docpath+"?"+baseReq;
   else
       var HtmlRef=docpath+"?"+reqObj+"&"+baseReq;  
//  load_url("main",HtmlRef);
   debug(HtmlRef);
   return HtmlRef;
}
function getHtmlRef() {
   return "FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
}
//
function Go_BaseFrame(FrameType,ViewFkey,MsgScroll,username) {
     parent.document.location.href=entorno.DirBase+"/reinitial.html?FrameType="+FrameType+
	         "&ViewFkey="+ViewFkey+
	         "&MsgScroll="+MsgScroll+
	         "&username="+username

//   var mainFrame=find_frame(top,"contents");
//   mainFrame.document.f_contents.action=entorno.DirBase+"/ctasapagar.html?FrameType="+FrameType
//   mainFrame.document.f_contents.submit();
}
function IniciaRequest(objeto) {
  if (objeto == "us_" || objeto == "all" ) {
     // user ->  
//    request.id 	
//    request.login	
//    request.password	
//    request.firstname	
//    request.lastname 	
//    request.fullname 	
//    request.title 	
//    request.phone 	
//    request.email 	
//    request.active 
//    request.status 	
//    request.admin 	
//    request.def_project 
//    request.def_category 
  }
  if (objeto == "ac_" || objeto == "all" ) {
  // aptecuentas ->  
   request.ac_nro_reg=0	
   request.ac_nro_lin=0
   request.ac_cod_cta="" 	
   request.acf_clave="";
   request.acf_concepto="";
   request.ac_importe=0 	
   request.ac_tipo_apte=""; 	
   request.ac_fecha=""; 	
  }
  if (objeto == "tc_" || objeto == "all" ) {
   // traspaso_ctas ->  
    request.tc_cta_contable=""; 
    request.tc_importe=0;	
    request.tc_es_nueva="N"; 	
  }
  if (objeto == "pr_" || objeto == "all" ) {
  // proveedores ->  
    request.pr_nif="";
    request.pr_razon_social="";
    request.pr_cta_contable="";      
    request.pr_cond_pago="";
    request.pr_domicilio="";
    request.pr_localidad="";
    request.pr_cod_postal="";
    request.pr_attn_envio="";
    request.pr_direccion_envio="";
    request.pr_localidad_envio="";
    request.pr_cod_postal_envio="";
    request.pr_telefono_1="";
    request.pr_telefono_2="";
    request.pr_fax="";
    request.pr_e_mail="";
    request.pr_observaciones="";
    request.pr_expediente="";
    request.pr_t_condpago="";
    request.pr_t_localidad="";   
    request.pr_t_loc_envio=""; 
 }
  if (objeto == "ce_" || objeto == "all" ) {
    //  centros ->  
    request.ce_cod_centro="";      
    request.ce_cod_departamento="";
    request.ce_descripcion="";     
  }
  if (objeto == "cp_" || objeto == "all" ) {
    //  cond_pago ->  
    request.cp_cond_pago="";   
    request.cp_descripcion="";  
    request.cp_vencimiento=0  
  }
  if (objeto == "pe_" || objeto == "all" ) {
    // pedidos ->  
    request.pe_nro_pedido="";      
    request.pe_descripcion="";     
    request.pe_nif_proveedor="";   
    request.pe_cod_centro="";      
    request.pe_cond_pago="";       
    request.pe_fecha_pedido="";     
    request.pe_fecha_entrega="";  
    request.pe_importe=0;        
    request.pe_observaciones="";  
    request.pe_expediente="";     
  }
  if (objeto == "ct_" || objeto == "all" ) {
    //  ctas_contables ->  
    request.ct_cta_contable="";  
    request.ct_descripcion="";   
    request.ct_es_nueva="";      
  }
  if (objeto == "cv_" || objeto == "all" ) {
    //  ctas_contables ->  
    request.cv_cod_clave="";
    request.cv_descripcion="";   
  }
  if (objeto == "al_" || objeto == "all" ) {
    //  albalineas ->  
    request.al_nro_lin=0; 
    request.al_nro_reg=""; 		
    request.al_cantidad=0; 	
    request.al_referencia=""; 
    request.al_descripcion=""; 
    request.al_precio_und=0; 	
  }
  if (objeto == "lo_" || objeto == "all" ) {
    //  localidades ->  
    request.lo_cod_localidad="";
    request.lo_descripcion=""; 	
  }
  if (objeto == "re_" || objeto == "all" ) {
    // registros ->  
    request.rg_tipo_reg=""; 	
    request.rg_nro_reg=0; 	
  }
  if (objeto == "ab_" || objeto == "all" ) {
    // albaranes ->  
    request.ab_nro_reg=""; 		
    request.ab_is_locked="N";
    request.ab_fra_reg=""; 	
    request.ab_fecha_emision=""; 	
    request.ab_cod_centro=""; 	
    request.ab_nif=" "; 		
    request.ab_por_reten=client.pa_reten_1; 		
    request.ab_importe_reten=0; 		
    request.ab_nro_pedido=""; 		
    request.ab_vto_jefe_obra=""; 	
    request.ab_vto_jefe_grupo=""; 
    request.ab_vto_proveedor=""; 	
    request.ab_observaciones=""; 
    request.ab_expediente=""; 	
  }
  if (objeto == "af_" || objeto == "all" ) {
    // albafras ->  
    request.af_nroreg_albafact=""; 
    request.af_nroreg_factura=""; 	
    request.af_nroreg_albaran=""; 	
    request.af_observaciones=""; 
  }
  if (objeto == "ba_" || objeto == "all" ) {
    // bancos ->  
    request.ba_cod_banco="";
    request.ba_nombre=""; 	
    request.ba_domicilio="";
    request.ba_localidad=""; 	
    request.ba_cod_postal="";
    request.ba_entidad=""; 
    request.ba_sucursal="";
    request.ba_cod_control=""; 
    request.ba_nro_cc=""; 
    request.ba_nro_lins=""; 
    request.ba_l_importe="";
    request.ba_c_importe="";
    request.ba_l_paguese="";
    request.ba_c_paguese="";
    request.ba_l1_nroletra="";
    request.ba_c1_nroletra="";
    request.ba_l2_nroletra="";
    request.ba_c2_nroletra="";
    request.ba_l_fecha="";
    request.ba_c_fecha="";
    request.ba_l_mes="";
    request.ba_c_mes="";
    request.ba_l_anno="";
    request.ba_c_anno="";
    request.ba_l1_firmado="";
    request.ba_c1_firmado="";
    request.ba_l2_firmado="";
    request.ba_c2_firmado="";
    request.ba_t1_firmado="";
    request.ba_t2_firmado="";
  }
  if (objeto == "fa_" || objeto == "all" ) {
    // facturas ->  
    request.fa_nro_reg=""; 
    request.fa_nro_regn=""; 
    request.fa_nro_regy=""; 
    request.fa_is_locked="N";
    request.fa_mes=NroFormat(HOY.getMonth()+1,"00"); 
    request.fa_nro_fra=""; 	
    request.fa_f_emision=""; 	
    request.fa_f_recepcion="";
    request.fa_f_pago=""; 	
    request.fa_tipo_fra=1;
    request.fa_tipo_calc_iva=1; 
    request.fa_importe_total=0; 
    request.fa_nif="";
    request.fa_cod_centro="";
    request.fa_nro_pedido="";
    request.fa_cond_pago=""; 
    request.fa_tipo_doc_pago=1;
    request.fa_nro_doc_pago="";
    request.fa_f_emision_pago="";
    request.fa_cod_localidad="";
    request.fa_cod_banco=""; 	
    request.fa_base_1=0; 
    request.fa_por_ret1=0; 
    request.fa_ret_1=0; 	
    request.fa_por_iva1=client.pa_iva_1; 
    request.fa_iva_1=0; 	
    request.fa_base_2=0; 
    request.fa_por_ret2=0; 
    request.fa_ret_2=0; 	
    request.fa_por_iva2=client.pa_iva_2;
    request.fa_iva_2=0; 
    request.fa_base_3=0;
    request.fa_por_ret3=0; 
    request.fa_ret_3=0; 	
    request.fa_por_iva3=client.pa_iva_3; 
    request.fa_iva_3=0; 
    request.fa_canexen=0;
    request.fa_base_imponible=0;
    request.fa_tipo_retencion=1;
    request.fa_tipo_deduccion="";
    request.fa_deducciones=0;
    request.fa_sin_pedido="";
    request.fa_traspaso_gasto="N"; 
    request.fa_traspaso_vto="N";
    request.fa_traspaso_pago="N";
    request.fa_nro_reg_vto=""; 
    request.fa_vto_pago=""; 
    request.fa_observaciones="";
    request.fa_expediente=""; 
  }
  if (objeto == "acf_" || objeto == "all" ) {
    // aptectasfra ->  
    request.acf_nro_reg="";
    request.acf_nro_lin=0;
    request.acf_tipolin="";
    request.acf_cod_cta="";
    request.acf_clave="";
    request.acf_concepto="";
    request.acf_importe=0;
    request.acf_tipo_apte="";
    request.acf_fecha="";
  }
  if (objeto == "pa_" || objeto == "all" ) {
	  request.pa_id = 1;
	  request.pa_nro_reg = "";
	  request.pa_longcta = 0;
	  request.pa_dia_pago_1 = 0;
	  request.pa_dia_pago_2 = 0;
	  request.pa_ex_dia_pago = "";
	  request.pa_iva_1 = 0;
	  request.pa_iva_2 = 0;
	  request.pa_reten_1 = 0;
	  request.pa_ctas_reten_1 = "";
	  request.pa_clave_reten_1 = "";
	  request.pa_reten_2 = 0;
	  request.pa_ctas_reten_2 = "";
	  request.pa_clave_reten_2 = "";
	  request.pa_ctas_iva = "";
	  request.pa_clave_iva = "";
	  request.pa_ctas_cont = "";
	  request.pa_clave_cont = "";
	  request.pa_ctas_comp = "";
	  request.pa_clave_comp = "";
	  request.pa_ctas_coniva = "";
	  request.pa_clave_coniva = "";
	  request.pa_ctas_siniva = "";
	  request.pa_clave_siniva = "";
	  request.pa_ctas_dev = "";
	  request.pa_clave_dev = "";
  }	
}
// ---------------------- Select Tablas  ----------------------------------

function CursorTabla(CodTabla,clave,criterio,chk,forupdate)
{ 	
  if ( CodTabla == "pa" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_parametros=database.cursor("SELECT * FROM parametros WHERE "+ clave +criterio , forupdate );
   status=c_parametros.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "acf" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_aptectasfra=database.cursor("SELECT * FROM aptectasfra WHERE "+ clave +criterio , forupdate );
//   status=c_aptectasfra.next();
//   if ( chk == true ) 
//    	   DbsError(true,status);    
 }
 if ( CodTabla == "ac" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_aptecuentas=database.cursor("SELECT * FROM aptecuentas WHERE "+ clave +criterio , forupdate );
   if ( chk == true ) 
         status=c_aptecuentas.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "tc" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_traspaso_ctas=database.cursor("SELECT * FROM traspaso_ctas WHERE "+ clave +criterio , forupdate );
   status=c_traspaso_ctas.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "pr" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_proveedores=database.cursor("SELECT * FROM proveedores WHERE "+ clave +criterio , forupdate );
   status=c_proveedores.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "ce" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_centros=database.cursor("SELECT * FROM centros WHERE "+ clave +criterio , forupdate );
   status=c_centros.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "pl" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_plan_contable=database.cursor("SELECT * FROM plan_contable WHERE "+ clave +criterio , forupdate );
   status=c_plan_contable.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 
 if ( CodTabla == "cp" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_cond_pago=database.cursor("SELECT * FROM cond_pago WHERE "+ clave +criterio , forupdate );
   status=c_cond_pago.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "pe" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_pedidos=database.cursor("SELECT * FROM pedidos WHERE "+ clave +criterio , forupdate );
   status=c_pedidos.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "lo" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_localidades=database.cursor("SELECT * FROM localidades WHERE "+ clave +criterio , forupdate );
   status=c_localidades.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "fa" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_facturas=database.cursor("SELECT * FROM facturas WHERE "+ clave +criterio , forupdate );
   status=c_facturas.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "ct" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_ctas_contables=database.cursor("SELECT * FROM ctas_contables WHERE "+ clave +criterio , forupdate );
   status=c_ctas_contables.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "ba" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
   c_bancos=database.cursor("SELECT * FROM bancos WHERE "+ clave +criterio , forupdate );
   status=c_bancos.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "al" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_albalineas=database.cursor("SELECT * FROM albalineas WHERE "+ clave +criterio , forupdate );
   if ( chk == true ) 
       status=c_albalineas.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "cv" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_claves=database.cursor("SELECT * FROM claves WHERE "+ clave +criterio , forupdate );
   status=c_claves.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "re" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_registro=database.cursor("SELECT * FROM registro WHERE "+ clave +criterio , forupdate );
   status=c_registro.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "ab" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_albaranes=database.cursor("SELECT * FROM albaranes WHERE "+ clave +criterio , forupdate );
   status=c_albaranes.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "af" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_albafras=database.cursor("SELECT * FROM albafras WHERE "+ clave +criterio , forupdate );
   if ( chk == true ) 
         status=c_albafras.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
 if ( CodTabla == "pa" ) { 	
   //Si se busca la fila ... usando la clave primaria de la relación
	c_parametros=database.cursor("SELECT * FROM parametros WHERE "+ clave +criterio , forupdate );
   status=c_parametros.next();
   if ( chk == true ) 
    	   DbsError(true,status);    
 }
}

function LoadHidden(htmlBaseRef) {
   writeln('<INPUT  type="hidden" NAME="FrameType" VALUE="'+request.FrameType+'" SIZE=1 maxlength=1 >');
   writeln('<INPUT  type="hidden" NAME="uid" VALUE="'+request.uid+'" SIZE=1 maxlength=1 >');
   writeln('<INPUT  type="hidden" NAME="ViewFkey" VALUE="'+request.ViewFkey+'" SIZE=1 maxlength=1 >');
   writeln('<INPUT  type="hidden" NAME="htmlBaseRef" VALUE="'+htmlBaseRef+'" SIZE=200>');
}
function ObjHeadBar(valor,texto,obj) {
   writeln('<CENTER>');
   writeln('<TABLE  BORDER=6><TR>');
   writeln('		<TD><A HREF="logout.html?bb=1" target="_top">');
   writeln('				<IMG SRC="images/bb_logout.gif"');
   writeln('				 ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>');
   writeln('		<TD ALIGN=LEFT>');
   if ( obj != "rpt" ) {
       if (!valor) 
		 		writeln("<INPUT type='submit'  name='add' value='Confirmar'><BR>");
	    if (valor && request.nvo) 
	         writeln("<INPUT type='submit'  name='add' value='Confirmar'><BR>");
       if (valor && !request.nvo && request.lock)          
				writeln("<INPUT type='submit' name='upd' value='Confirmar'><BR>");
       if (valor && !request.nvo && !request.lock)          
				writeln("<INPUT type='submit' name='lock' value='Modificar'><BR>");
       if ( request.ViewFkey == "S" && request.lock ) 
	         writeln("<INPUT type='button' name='ir' value='Ir a' onClick='Enfoca(this)' >");
       if ( request.ViewFkey == "N" && request.lock ) 
	         writeln("<INPUT type='button' name='ver' value='Ver' onClick='FormPaint(this)'>");
   }
   if ( obj == "ab_"  && request.lock) {
            writeln("<INPUT type='button' name='linCta' value='Cta.' onClick='Enfoca(this)' >");
            writeln("<INPUT type='button' name='linAlb' value='Línea' onClick='Enfoca(this)'>");
   }
   if ( obj == "fa_"  && request.lock) {
            writeln("<INPUT type='button' name='linCta' value='Cta.' onClick='Enfoca(\"linCta\")' >");
            writeln("<INPUT type='button' name='linAlb' value='Alb.' onClick='Enfoca(\"linAlb\")'>");
   }
   writeln('		    <A HREF="javascript:history.back()">');
   writeln('          <IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></TD>');
   writeln('		<TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">');
   writeln('				'+texto+'');
   writeln('			</FONT><FONT COLOR="#FF00FF"></FONT></FONT></H1></TD>');
   writeln('		<TD ALIGN=RIGHT>');
   if ( obj != "rpt" ) {
     if (request.lock)          
         writeln('<INPUT type="reset" value="Deshacer"><BR>		');
     if (valor && !request.nvo ) 
	   	writeln("<INPUT type='submit' name='del' value='Borrar'>");
	}
   writeln('		</TD><TD><A HREF="fr_main.html?goback=1" onClick="NetHelp(\'intro\')">');
   writeln('				   <IMG SRC="images/bb_help.gif"	ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A></TD></TR>');
   writeln('</TABLE></CENTER>');
	writeln('<HR SIZE=3 WIDTH="100%">');
}
function QueryHeadBar(texto,criterio,obj) {
	writeln('<CENTER>');
	writeln('<TABLE  BORDER=6>');
	writeln('	<TR><TD ALIGN=LEFT>');
	writeln('		   <A HREF="logout.html?bb=1" target="_top">');
	writeln('				<IMG SRC="images/bb_logout.gif"');
	writeln('				 ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A><BR></TD>');
	writeln(' 		<TD ALIGN=LEFT>');
   if ( obj != "rpt" ) {
    if (client.acl != 1 && !request.waux) 	
  	   writeln('      	<INPUT type="submit" value="Alta">');   
   }
	writeln('         <A HREF="javascript:history.back();history.back();">');
	writeln('             <IMG SRC="images/l_arrowg.gif"');
	writeln('              ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47><BR></A></TD>');
	writeln('		<TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">');
	writeln('				'+texto+'</FONT><BR>');
	writeln('<!--   		<FONT COLOR="#FF00FF"> -->');
	writeln('         <FONT SIZE=+2>'+criterio+'</FONT></FONT></H1></TD>');
	writeln('		<TD ALIGN=RIGHT>');
	writeln('		    <A HREF="javascript:history.forward()">');
	writeln('              <IMG SRC="images/r_arrowg.gif"');
	writeln('               ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></A></TD>');
	writeln('		<TD ALIGN=RIGHT><BR>');
	writeln('			<A HREF="fr_main.html?goback=1"');
	writeln('				 onClick="NetHelp(\'intro\')">');
	writeln('				<IMG SRC="images/bb_help.gif"');
	writeln('		 		ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A><BR></TD></TR>');	
	writeln('</TABLE></CENTER>');
	writeln('<HR SIZE=3 WIDTH="100%">');
}
function execMainFrm(obj) {
  var accion=obj.name;
  var mainFrame=find_frame(top,"main");
  var f_form=mainFrame.document.forms[0];
  if ( accion == "add" ) {
      if (mainFrame.Chek_fields(f_form) == true) {
       	f_form.action=f_form.htmlBaseRef.value+"&add=1";
         f_form.submit(); 
      }   
  }
  if ( accion == "Actualizar" ) {
      if (mainFrame.Chek_fields(f_form) == true) {
       	f_form.action=f_form.htmlBaseRef.value+"&upd=1";
         f_form.submit(); 
      }   
  }
  if ( accion == "Modificar" ) {
   	f_form.action=f_form.htmlBaseRef.value+"&lock=true";
      f_form.submit(); 
  }
  if ( accion == "Ir a" ) 
      mainFrame.Enfoca("Ir a");
  if ( accion == "Refrescar" ) {
  	   f_form.action=f_form.htmlBaseRef.value+"&cookie=1&lock=true";
      f_form.submit(); 
  }
  if ( accion == "Deshacer" )
	   f_form.reset();
  if ( accion == "Borrar" ) {
   	f_form.action=f_form.htmlBaseRef.value+"&del=1";
      f_form.submit(); 
  }
  if ( accion == "Cta." ) 
      mainFrame.Enfoca("linCta");
  if ( accion == "Alb." ) 
      mainFrame.Enfoca("linAlb");
};

function ObjButtons(valor,texto,obj) {
   writeln('	ndoc.close();');  
   writeln('	ndoc.open();');  
   writeln('	ndoc.clear();');
   writeln('	ndoc.writeln(\'<HTML><HEAD></HEAD>\');');
//   writeln('	ndoc.writeln(\'<SCRIPT SRC="global.js">\');');
//   writeln('	ndoc.writeln(\'</SCRIPT>\');');
   writeln('	ndoc.writeln(\'<BODY BACKGROUND="images/backgrnd.gif">\');');
   writeln('	ndoc.writeln(\'<FORM NAME="f_buttons" METHOD="post" action="\'+formAction+\'">\');');
   writeln('	ndoc.writeln(\'<CENTER>\');');
   writeln('	ndoc.writeln(\'<TABLE  BORDER=6><TR>\');');
   writeln('	ndoc.writeln(\'		<TD><A HREF="logout.html?bb=1" target="_top">\');');
   writeln('	ndoc.writeln(\'				<IMG SRC="images/bb_logout.gif"\');');
   writeln('	ndoc.writeln(\'				 ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>\');');
   writeln('	ndoc.writeln(\'		<TD ALIGN=LEFT>\');');
   if ( obj != "rpt" ) {
     if (!valor) 
		 		writeln('	ndoc.writeln(\'<INPUT type="button"  name="add" value="Confirmar" onClick="parent.execMainFrm(this)"><BR>\');');
	  if (valor && request.nvo) 
	         writeln('	ndoc.writeln(\'<INPUT type="button"  name="add" value="Confirmar" onClick="parent.execMainFrm(this)"><BR>\');');
     if (valor && !request.nvo && request.lock)          
	         writeln('	ndoc.writeln(\'<INPUT type="button"  name="Actualizar" value="Confirmar" onClick="parent.execMainFrm(this)"><BR>\');');
     if (valor && !request.nvo && !request.lock)           
				writeln('	ndoc.writeln(\'<INPUT type="button" name="Modificar" value="Modificar" onClick="parent.execMainFrm(this)"><BR>\');');
     if ( request.ViewFkey == "S" && request.lock ) 
	        writeln('	ndoc.writeln(\'<INPUT type="button" name="Ir a" value="Ir a" onClick="parent.execMainFrm(this)">\');');
     if ( request.ViewFkey == "N" && request.lock ) 
	         writeln('	ndoc.writeln(\'<INPUT type="button"  name="Refrescar" value="Ver" onClick="parent.execMainFrm(this)"><BR>\');');
   }
   if ( obj == "ab_") {
            writeln('	ndoc.writeln(\'<INPUT type="button" name="Cta." value="Cta." onClick="parent.execMainFrm(this)">\');');
            writeln('	ndoc.writeln(\'<INPUT type="button" name="Linea" value="Línea" onClick="parent.execMainFrm(this)" >\');');
   }
   if ( obj == "fa_") {
            writeln('	ndoc.writeln(\'<INPUT type="button" name="Cta." value="Cta." onClick="parent.execMainFrm(this)">\');');
            writeln('	ndoc.writeln(\'<INPUT type="button" name="Alb." value="Alb." onClick="parent.execMainFrm(this)">\');');
   }
//   writeln('	ndoc.writeln(\'		    <A HREF="javascript:history.back()" target="_parent">\');');
//   writeln('	ndoc.writeln(\'          <IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></TD>\');');
   writeln('	ndoc.writeln(\'		<TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">\');');
   writeln('	ndoc.writeln(\'				'+texto+'\');');
   writeln('	ndoc.writeln(\'			</FONT><FONT COLOR="#FF00FF"></FONT></FONT></H1></TD>\');');
   writeln('	ndoc.writeln(\'		<TD ALIGN=RIGHT>\');');
   if ( obj != "rpt" ) {
     if (request.lock)          
         writeln('	ndoc.writeln(\'<INPUT type="button" name="Deshacer" value="Deshacer" onClick="parent.execMainFrm(this)"><BR>\');');
     if (valor && !request.nvo ) 
	    	writeln('	ndoc.writeln(\'<INPUT type="button" name="Borrar" value="Borrar" onClick="parent.execMainFrm(this)">\');');
   }
   writeln('	ndoc.writeln(\'   </TD><TD><A HREF="\'+formAction+\'&gofunc=Ayuda&valor=intro">\');');
// writeln("	ndoc.writeln('		</TD><TD><A HREF=\"fr_main.html?goback=1\" onClick=\"NetHelp(\\'intro\\')\">');");
   writeln('	ndoc.writeln(\'	   <IMG SRC="images/bb_help.gif"	ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A></TD></TR>\');');
   writeln('	ndoc.writeln(\'</TABLE></CENTER></FORM>\');');
	writeln('	ndoc.writeln(\'<HR SIZE=3 WIDTH="100%">\');');
   writeln('	ndoc.close();');  
}
function QueryButtons(texto,criterio,obj) {
   writeln('	ndoc.close();');  
   writeln('	ndoc.open();');  
   writeln('	ndoc.clear();');
   writeln('	ndoc.writeln(\'<HTML><HEAD></HEAD>\');');
   writeln('	ndoc.writeln(\'<BODY BACKGROUND="images/backgrnd.gif">\');');
   writeln('	ndoc.writeln(\'<FORM NAME="f_Querybuttons" METHOD="post" action="\'+formAction+\'">\');');
   writeln('	ndoc.writeln(\'<CENTER>\');');
   writeln('	ndoc.writeln(\'<TABLE  BORDER=6><TR>\');');
   writeln('	ndoc.writeln(\'		<TD><A HREF="logout.html?bb=1" target="_top">\');');
   writeln('	ndoc.writeln(\'				<IMG SRC="images/bb_logout.gif"\');');
   writeln('	ndoc.writeln(\'				 ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>\');');
   writeln('	ndoc.writeln(\'		<TD ALIGN=LEFT>\');');
   if ( obj != "rpt" ) {
     if (client.acl != 1 && !request.waux) 	
   	   writeln('	ndoc.writeln(\'      	<INPUT type="submit" name="gofunc" value="Alta">\');');   
   }
//   writeln('	ndoc.writeln(\'		    <A HREF="javascript:history.back()" target="_parent">\');');
//   writeln('	ndoc.writeln(\'          <IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></TD>\');');
	writeln('	ndoc.writeln(\'		<TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">\');');
	writeln('	ndoc.writeln(\'				'+texto+'</FONT><BR>\');');
	writeln('	ndoc.writeln(\'<!--   		<FONT COLOR="#FF00FF"> -->\');');
	writeln('	ndoc.writeln(\'         <FONT SIZE=+2>'+criterio+'</FONT></FONT></H1></TD>\');');
   writeln('	ndoc.writeln(\'		<TD ALIGN=RIGHT>\');');
   writeln('	ndoc.writeln(\'   </TD><TD><A HREF="\'+formAction+\'&gofunc=Ayuda&valor=intro">\');');
// writeln("	ndoc.writeln('		</TD><TD><A HREF=\"fr_main.html?goback=1\" onClick=\"NetHelp(\\'intro\\')\">');");
   writeln('	ndoc.writeln(\'	   <IMG SRC="images/bb_help.gif"	ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A></TD></TR>\');');
   writeln('	ndoc.writeln(\'</TABLE></CENTER></FORM>\');');
	writeln('	ndoc.writeln(\'<HR SIZE=3 WIDTH="100%">\');');
   writeln('	ndoc.close();');  
}

function writeSignature(showfull) {
 if (showfull == true) {
   writeln('<CENTER><HR SIZE=3 WIDTH="100%">');
	writeln('<TABLE BORDER=1 ALIGN=CENTER>');
	writeln('	<CAPTION></CAPTION>');
	writeln('	<TR>');
	writeln('		<TD ALIGN=LEFT>');
	writeln('			<BGCOLOR="#FFFFFF" >');
	writeln('			<A HREF="http://ctasapagar">');
	writeln('				<IMG SRC="images/SGRP.jpg" BORDER=0 HEIGHT=76 WIDTH=86>');
	writeln('			</A>');
	writeln('		</TD>');
	writeln('		<TD><I><FONT COLOR="#FF0080"><FONT SIZE=+2><B>');
	writeln('			<A HREF="fr_main.html">');
	writeln('				Dpto. Cuentas a Pagar');
	writeln('			</A></B> </FONT></FONT></I>');
	writeln('		</TD>');
	writeln('	</TR>');
	writeln('</TABLE></CENTER>');
	writeln('<HR SIZE=3 WIDTH="100%">');
 }	
	writeln('<CENTER>');
	writeln('<FONT SIZE=-1>');
	writeln('<B>Contactar con</B>: <ctasapagar></FONT><FONT SIZE=+1>');
	writeln('<A HREF="mailto:ctasapagar%3Csando_malaga@admisys.com%3E">');
	writeln('		Departamento de Cuentas a Pagar<BR>');
	writeln('</A>');
	writeln('</FONT><FONT SIZE=-1>Copyright &copy; 1997 </FONT>');
	writeln('<A HREF="mailto:info%3Csando_malaga@admisys.com%3E">');
	writeln('		Construcciones SANDO SA');
	writeln('</A>');
	writeln('<FONT SIZE=-1>&amp; </FONT>');
	writeln('<A HREF="mailto:info@admisys.com">');
	writeln('	AdmiSys SL');
	writeln('</A>');
	writeln('<FONT SIZE=-1>');
	writeln('<BR>Rev. 1.0 </FONT>');
	writeln('<A HREF="mailto:webteam@admisys.com">');
	writeln('	webteam@admisys.com');
	writeln('</A>');
	writeln('<FONT SIZE=-1><BR></CENTER>');
}

function LoadParametros() {
   UnLoadParametros();
   c_param = database.cursor("select * from parametros where id=1");
   if (c_param.next()) {
	  client.pa_id = c_param.id;
	  client.pa_nro_reg = StringClip(false,c_param.nro_reg);
	  client.pa_longcta = c_param.longcta;
	  client.pa_dia_pago_1 = c_param.dia_pago_1;
	  client.pa_dia_pago_2 = c_param.dia_pago_2;
	  client.pa_ex_dia_pago = StringClip(false,c_param.ex_dia_pago);
	  client.pa_iva_1 = c_param.iva_1;
	  client.pa_iva_2 = c_param.iva_2;
	  client.pa_iva_3 = c_param.iva_3;
	  client.pa_reten_1 = c_param.reten_1;
	  client.pa_cta_reten_1 = StringClip(false,c_param.cta_reten_1);
	  client.pa_clave_reten_1 = StringClip(false,c_param.clave_reten_1);
	  client.pa_reten_2 = c_param.reten_2;
	  client.pa_cta_reten_2 = StringClip(false,c_param.cta_reten_2);
	  client.pa_clave_reten_2 = StringClip(false,c_param.clave_reten_2);
	  client.pa_cta_iva = StringClip(false,c_param.cta_iva);
	  client.pa_clave_iva = StringClip(false,c_param.clave_iva);
	  client.pa_cta_cont = StringClip(false,c_param.cta_cont);
	  client.pa_clave_cont = StringClip(false,c_param.clave_cont);
	  client.pa_cta_comp = StringClip(false,c_param.cta_comp);
	  client.pa_clave_comp = StringClip(false,c_param.clave_comp);
	  client.pa_cta_coniva = StringClip(false,c_param.cta_coniva);
	  client.pa_clave_coniva = StringClip(false,c_param.clave_coniva);
	  client.pa_cta_siniva = StringClip(false,c_param.cta_siniva);
	  client.pa_clave_siniva = StringClip(false,c_param.clave_siniva);
	  client.pa_cta_dev = StringClip(false,c_param.cta_dev);
	  client.pa_clave_dev = StringClip(false,c_param.clave_dev);
	  client.pa_cp_lock = StringClip(false,c_param.cp_lock);
   }
   c_param.close(); 
}
function SetParametros() {
	  writeln('//  Variables de Entorno ');
	  writeln('    pa_id='+ client.pa_id + ' ;');
	  writeln('    pa_nro_reg='+ client.pa_nro_reg + ' ;');
	  writeln('    pa_nro_remesa='+ client.pa_nro_remesa + ' ;');
	  writeln('    pa_longcta='+ client.pa_longcta + ' ;');
	  writeln('    pa_dia_pago_1='+ client.pa_dia_pago_1 + ' ;');
	  writeln('    pa_dia_pago_2='+ client.pa_dia_pago_2 + ' ;');
	  writeln('    pa_ex_dia_pago='+ client.pa_ex_dia_pago + ' ;');
	  writeln('    pa_iva_1='+ client.pa_iva_1 + ' ;');
	  writeln('    pa_iva_2='+ client.pa_iva_2 + ' ;');
	  writeln('    pa_iva_3='+ client.pa_iva_3 + ' ;');
	  writeln('    pa_reten_1='+ client.pa_reten_1 + ' ;');
	  writeln('    pa_cta_reten_1="'+ client.pa_cta_reten_1 + '" ;');
	  writeln('    pa_clave_reten_1="'+ client.pa_clave_reten_1 + '" ;');
	  writeln('    pa_reten_2='+ client.pa_reten_2 + ' ;');
	  writeln('    pa_cta_reten_2="'+ client.pa_cta_reten_2 + '" ;');
	  writeln('    pa_clave_reten_2="'+ client.pa_clave_reten_2 + '" ;');
	  writeln('    pa_cta_iva="'+ client.pa_cta_iva + '" ;');
	  writeln('    pa_clave_iva="'+ client.pa_clave_iva + '" ;');
	  writeln('    pa_cta_cont="'+ client.pa_cta_cont + '" ;');
	  writeln('    pa_clave_cont="'+ client.pa_clave_cont + '" ;');
	  writeln('    pa_cta_comp="'+ client.pa_cta_comp + '" ;');
	  writeln('    pa_clave_comp="'+ client.pa_clave_comp + '" ;');
	  writeln('    pa_cta_coniva="'+ client.pa_cta_coniva + '" ;');
	  writeln('    pa_clave_coniva="'+ client.pa_clave_coniva + '" ;');
	  writeln('    pa_cta_siniva="'+ client.pa_cta_siniva + '" ;');
	  writeln('    pa_clave_siniva="'+ client.pa_clave_siniva + '" ;');
	  writeln('    pa_cta_dev="'+ client.pa_cta_dev + '" ;');
	  writeln('    pa_clave_dev="'+ client.pa_clave_dev + '" ;');
	  writeln('    pa_cp_lock="'+ client.pa_cp_lock + '" ;');
	  writeln('    baseHtml="'+ baseHtml + '" ;');
	  writeln('//');
 }
function UnLoadParametros() {
	  client.pa_id = null;
	  client.pa_nro_reg = null;
	  client.pa_nro_remesa = null;
	  client.pa_longcta = null;
	  client.pa_dia_pago_1 = null;
	  client.pa_dia_pago_2 = null;
	  client.pa_ex_dia_pago = null;
	  client.pa_iva_1 = null;
	  client.pa_iva_2 = null;
	  client.pa_iva_3 = null;
	  client.pa_reten_1 = null;
	  client.pa_cta_reten_1 = null;
	  client.pa_calve_reten_1 = null;
	  client.pa_reten_2 = null;
	  client.pa_cta_reten_1 = null;
	  client.pa_calve_reten_1 = null;
	  client.pa_cta_iva = null;
	  client.pa_clave_iva = null;
	  client.pa_cta_cont = null;
	  client.pa_clave_cont = null;
	  client.pa_cta_comp = null;
	  client.pa_clave_comp = null;
	  client.pa_cta_siniva = null;
	  client.pa_clave_siniva = null;
	  client.pa_cta_coniva = null;
	  client.pa_clave_coniva = null;
	  client.pa_cta_dev = null;
	  client.pa_clave_dev = null;
	  client.pa_cp_lock = null;
}

function CtaNroPad(obj) {
   if ( obj.value.length == 0 ) 
        return;
   var nro=parseInt(obj.value);
   if ( nro+1 > 0 )
      var c_nro=nro+"";
   else {
      alert("El dato: '"+obj.value+"' Contiene caracteres no válidos");
      obj.focus();
      return;
   }
   for (var j=c_nro.length ; j<pa_longcta ; j++ ) {
	        c_nro=c_nro+"0";	        
   }  
   obj.value=c_nro.substring(0,pa_longcta);
   if ( obj.value.length > pa_longcta ) {
      alert("La cuenta: '"+obj.value+"' contiene más caracteres !!! ");
      obj.focus();
   }
}   

function substCta(stringCta,formato) {      
   if (!formato) 
       return stringCta+" ";
   var nro="";
   nro=NroUnformat(stringCta+" ");
   if ( nro.length > 0  )
         c_nro=nro+" ";
   else 
        return "0" ; 
   var cadena="";
   var nrolon=c_nro.length;
   var f_size=formato.length;
   var f_char="";
   for (var i=0; i < f_size ; i++) {  
     f_char=formato.substring(i,i+1);  
//     alert(cadena+"--"+i+"-"+c_nro.substring(i,i+1)+"--"+formato.substring(i,i+1))
     if ( f_char == "?" )
            cadena=cadena+c_nro.substring(i,i+1);
     if ( f_char == "*" ) {
            cadena=cadena+c_nro.substring(i,nrolon);
            break;
     }
     if ( f_char != "*" && f_char != "?" ) 
            cadena=cadena+f_char;
   }
   return cadena;
}

function getSeqPrt(nprinter) {
     var nomFile=spoolpath+nprinter+"/seq";
     var seqprtfile=new File(nomFile);
     project.lock();
        seqprtfile.open("r");
        s_seq=seqprtfile.readln();
        seqprtfile.close();        
        var n_seq=parseInt(s_seq);     
        if ( n_seq > 0 ) 
             n_seq++;
        else
             n_seq=1;     
        seqprtfile.open("w");
        seqprtfile.write(n_seq);
        seqprtfile.close();        
     project.unlock();
     return n_seq;
}

function skipTopPage(nrolinea,PaperLines){
     for (nl=nrolinea ; nl <= PaperLines ; nl++) 
       fileRpt.writeln("<BR>");  
}