//////////////////////////////////////
//                                  //
//     JavaScript Functions         // 
//                                  //
//////////////////////////////////////
function report_fra() {
  var npag=0;
  var nrolin=0;
  while (c_factreg.next()) {
//    if ( nrolin <= request.maxLins && npag >0 ) {
//              skipTopPage(nrolin,request.maxLins);
//              nrolin=0;
//    }
//    npag++;;
     if (request.f_formato=="proveedor")  
    	    FraProveedorHtml();
     if (request.f_formato=="centro")     
   	    FraCentroHtml();
     if (request.f_formato=="pendientes")
      	 FraPendientesHtml();
     if (request.f_formato=="emitidas")  
      	 FraEmitidasHtml();
     if (request.f_formato=="provBloq")  
      	 FraRetenidasHtml();
     if (request.f_formato=="documento")  
          nrolin=FraDocHtml(c_factreg.nro_reg);
  }
}
function FraProveedorHtml() {
   var suma_total=0;
   var suma_prov=0;
   var nrolin=0;
   var keyLastRow="-";
   var is_newpag=true;
   while (true) {
      if ( nrolin+3 == request.maxLins ) { 
          fileRpt.writeln('<BR><BR><BR>');
          nrolin=0;
          is_newpag=true;
      };
      if ( keyLastRow != c_factreg.nif && keyLastRow !="-") {
          fileRpt.writeln('</TABLE>');
          fileRpt.writeln('<HR><TABLE BORDER='+request.borde+' ALIGN=CENTER><TR>');
          fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+ 
                "<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>"); 
          fileRpt.writeln('</TABLE><HR>');
          suma_prov=0;
          nrolin=nrolin+3
          set_head=true;
     }
     if ( is_newpag == true ) {
          if ( keyLastRow !="-" ) { fileRpt.writeln('</TABLE>')};
          fileRpt.writeln('<B><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
          fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE FACTURAS POR PROVEEDOR</B></H3>');
          fileRpt.writeln('<HR>');
          is_newpag=false;
          nrolin=nrolin+4;
          set_head=true;
     }
     if ( set_head == true ) {
          fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
          fileRpt.writeln("<TR><TD ALIGN=RIGHT><B>"+c_factreg.nif +"</TD></B>"+ 
  	             "<TD ALIGN=RIGHT><B>"+c_factreg.razon_social+"</TD></B>");
          fileRpt.writeln('</TABLE>');
          fileRpt.writeln('<HR><CENTER><TABLE BORDER='+request.borde+' ALIGN=CENTER>');
          fileRpt.writeln(" <TR><TD ALIGN=CENTER>Nro. Reg." +
		          "<TD ALIGN=CENTER>F.Emisión </TD>"+ 
  		          "<TD ALIGN=CENTER>Nro. Fra.</TD>"+ 
  		          "<TD ALIGN=CENTER>Centro </TD>"+ 
  		          "<TD ALIGN=CENTER>Vto. Pago</TD>"+ 
                "<TD ALIGN=CENTER>Importe</TD></TR>");   
          nrolin=nrolin+3; set_head=false;
     }  
     fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_factreg.nro_reg.substring(4,c_factreg.nro_reg.length) + "/" +
               c_factreg.nro_reg.substring(0,4) +"</TD>"+
              "<TD ALIGN=RIGHT>"+datetoString(c_factreg.f_emision) +"</TD>"+ 
   	        "<TD ALIGN=RIGHT>"+c_factreg.nro_fra +"</TD>"+ 
   	        "<TD ALIGN=RIGHT>"+c_factreg.cod_centro +"</TD>"+ 
   	        "<TD ALIGN=RIGHT>"+datetoString(c_factreg.vto_pago) +"</TD>"+ 
              "<TD ALIGN=RIGHT>"+NroFormat(c_factreg.importe_total,NF9)+"</TD></TR>");   
     suma_total=suma_total+c_factreg.importe_total; 
     suma_prov=suma_prov+c_factreg.importe_total; 
     keyLastRow=c_factreg.nif;
     nrolin++;
     if (!c_factreg.next()) 
         break;
  }
//   writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT></TD><TD ALIGN=RIGHT>----------------</TD>");   
//   writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");   
  fileRpt.writeln('</TABLE>');
  fileRpt.writeln('<TABLE BORDER=0 ALIGN=CENTER><TR>');
  fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+ 
        "<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>"); 
  fileRpt.writeln('</TABLE>');
  fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
  fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL Acumulado....... </TD>"+ 
        "<TD ALIGN=RIGHT>"+NroFormat(suma_total,NF11)+"</TD>"); 
  fileRpt.writeln('</TABLE>');
}
function FraCentroHtml() {
   request.s_iva=0;
   request.s_ctas=0;
   request.s_ret=0;
   request.s_total=0;
   request.s_prov=0;
   request.s_albs=0;
   var nrolin=0;
   var keyLastRow="-";
   var desLastRow="";
   var keyLastPrv="";
   var set_head=true;
   var s_seq=getSeqPrt(nprinter);
   textoReqs=textoReqs+" "+s_seq;
   var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
   fileRpt=new File(nomFile);
   fileRpt.open("w");
   fileRpt.writeln('<HTML><HEAD></HEAD>');
   fileRpt.writeln('<BASEFONT SIZE=2>');
   status=database.execute("DELETE FROM sumactasfra where uid=\'" + request.uid+ "\'");
   while (true){
      if ( nrolin+3 == request.maxLins ) { 
          fileRpt.writeln('<BR><BR><BR>');
          nrolin=0;
          set_head=true;
      };
      if ( keyLastPrv != c_factreg.nif ) {
           keyLastPrv=c_factreg.nif;
           s_prov=0;
      }     
      if ( keyLastRow != c_factreg.cod_centro && keyLastRow !="-" ) {
          nrolin++;
          fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>TOTAL .... </FONT></TH>"+
//                "<TH ALIGN=RIGHT>"+NroFormat(suma_ctas,NF11)+"</TH>"); 
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TH ALIGN=RIGHT><B>"+NroFormat(request.s_ctas,NF11)+"</FONT></TH>"+
              "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_ret,NF11)+"</FONT></TH>"+
              "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_iva,NF11)+"</FONT></TH>"+
              "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TH>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_albs,NF11)+"</FONT></TH>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "</TR>");   
          fileRpt.writeln('</TABLE><BR><BR>');
          FraResCentrosHtml(keyLastRow,desLastRow);
    	    fileRpt.writeln('</BODY>');
	       fileRpt.writeln('</HTML>');
          fileRpt.close();
          s_seq=getSeqPrt(nprinter);
          textoReqs=textoReqs+" "+s_seq;
          nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
          fileRpt=new File(nomFile);
          fileRpt.open("w");
          fileRpt.writeln('<HTML><HEAD></HEAD>');
          fileRpt.writeln('<BASEFONT SIZE=2>');
//          if ( nrolin <= request.maxLins ) {
//               skipTopPage(nrolin,request.maxLins);
//               nrolin=0;
//               set_head=true;
//          }
          request.s_iva=0;
          request.s_ctas=0;
          request.s_ret=0;
          request.s_total=0;
          request.s_prov=0;
          request.s_albs=0;
          nrolin=nrolin+3
          set_head=true;
     }
     if ( set_head == true ) {
          nrolin=nrolin+6;
          if ( keyLastRow !="-" )
               fileRpt.writeln("</TABLE>");
          FraCentrosCab();
          set_head=false;
     }  
     s_iva=c_factreg.iva_1+c_factreg.iva_2+c_factreg.iva_3;
     s_ret=c_factreg.ret_1+c_factreg.ret_2+c_factreg.ret_3;
//     request.s_prov=request.s_prov+c_factreg.importe_total;
     c_aptesfra = database.cursor("SELECT * from aptectasfra where nro_reg='"+
                  c_factreg.nro_reg+"' and nro_lin > 9 ")
     c_albafra = database.cursor("SELECT * from albafras where nroreg_factura='"+
                     c_factreg.nro_reg+"' order by nroreg_albafact ")
     if (c_aptesfra.next()) {
         insCtaFra();
         if (c_albafra.next()) {
           a_nroreg=c_albafra.nroreg_albaran;
           a_sumactas=NroFormat(c_albafra.sumactas,NF9)
           request.s_albs=parseFloat(request.s_albs)+parseFloat(c_albafra.sumactas);
         }
         else {
           a_nroreg="";
           a_sumactas="";
         }
         importe=parseFloat(c_aptesfra.importe);
         if ( c_aptesfra.tipo_apte == "H" )       
            importe=parseFloat(c_aptesfra.importe)*-1; 
         if ( nrolin+1 > request.maxLins ) {
               skipTopPage(nrolin,request.maxLins);
               nrolin=6;
               fileRpt.writeln("</TABLE>");
               FraCentrosCab();
         }
         nrolin++;
         fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.nro_reg.substring(4,c_factreg.nro_reg.length) +
//        "/" + c_factreg.nro_reg.substring(0,4) +
              "</FONT></TD>"+
   	        "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.nro_fra +"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.f_emision) +"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.f_recepcion) +"</FONT></TD>"+ 
   	        "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.vto_pago) +"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.tipo_doc_pago+"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.f_emision_pago) +"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_aptesfra.cod_cta+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(importe,NF9)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(s_ret,NF9)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(s_iva,NF9)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_factreg.importe_total,NF9)+"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_nroreg+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_sumactas+"</FONT></TD>"+
              "<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.razon_social+"</FONT></TD>"+
//              "<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.razon_social.substring(0,18)+"</FONT></TD>"+
              "</TR>")
       request.s_total=parseFloat(request.s_total)+parseFloat(c_factreg.importe_total); 
       request.s_ret=parseFloat(request.s_ret)+parseFloat(s_ret);
       request.s_iva=parseFloat(request.s_iva)+parseFloat(s_iva);
       request.s_ctas=parseFloat(request.s_ctas)+parseFloat(importe);           

     }  
     while (c_aptesfra.next()) {
       insCtaFra();
       if (c_albafra.next()) {
           a_nroreg=c_albafra.nroreg_albaran;
           a_sumactas=NroFormat(c_albafra.sumactas,NF9)
           request.s_albs=parseFloat(request.s_albs)+parseFloat(c_albafra.sumactas);
       }
       else {
           a_nroreg="";
           a_sumactas="";
        }
       importe=parseFloat(c_aptesfra.importe);
       if ( c_aptesfra.tipo_apte == "H" )       
          importe=parseFloat(c_aptesfra.importe)*-1; 
       if ( nrolin+1 > request.maxLins ) {
               skipTopPage(nrolin,request.maxLins);
               nrolin=6;
               fileRpt.writeln("</TABLE>");
               FraCentrosCab();
       }
       nrolin++; 
       fileRpt.writeln("<TR><TD ALIGN=RIGHT></TD>"+
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_aptesfra.cod_cta+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(importe,NF9)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_nroreg+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_sumactas+"</FONT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "</TR>");   
        request.s_ctas=parseFloat(request.s_ctas)+parseFloat(importe);           
     }
     c_aptesfra.close();
     while (c_albafra.next()) {
       if ( nrolin+1 > request.maxLins ) {
               skipTopPage(nrolin,request.maxLins);
               nrolin=6;
               fileRpt.writeln("</TABLE>");
               FraCentrosCab();
       }
       nrolin++;
       fileRpt.writeln("<TR><TD ALIGN=RIGHT></TD>"+
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_albafra.nroreg_albaran+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_albafra.sumactas,NF9)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "</TR>");   
       request.s_albs=parseFloat(request.s_albs)+parseFloat(c_albafra.sumactas);   
     }
     keyLastRow=c_factreg.cod_centro;
     desLastRow=c_factreg.descripcion;
     c_albafra.close();
     if (!c_factreg.next()) 
        break;
  }
  fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>TOTAL .... </FONT></TD>"+
//                "<TD ALIGN=RIGHT>"+NroFormat(suma_ctas,NF11)+"</TD>"); 
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
   	        "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_ctas,NF11)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_ret,NF11)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_iva,NF11)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TD>"+
              "<TD ALIGN=RIGHT></TD>"+
              "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_albs,NF11)+"</FONT></TD>"+ 
              "<TD ALIGN=RIGHT></TD>"+ 
              "</TR>");   
  fileRpt.writeln('</TABLE>');
  FraResCentrosHtml(keyLastRow,desLastRow);
  fileRpt.writeln('</BODY>');
  fileRpt.writeln('</HTML>');
  fileRpt.close();
}
function insCtaFra() {
       importe=parseFloat(c_aptesfra.importe);
       if ( c_aptesfra.tipo_apte == "H" )       
          importe=parseFloat(c_aptesfra.importe)*-1; 
       status=database.execute("INSERT INTO sumactasfra(" +
				 " uid," +
				 " cod_centro," +
				 " cod_cta," +
 	          " importe)  VALUES ('" +
                     request.uid + "','" + 
         	         StringClip(true,c_factreg.cod_centro) + "','" + 
 	                  StringClip(true,c_aptesfra.cod_cta) + "','" + 
                     importe+ "')");
}
function FraResCentrosHtml(clave,desclave) {
    c_ctascentro = database.cursor("SELECT cod_cta,sum(importe) from sumactasfra where cod_centro=\'" +clave+"\' and uid=\'" + request.uid+
                                         "\' group by cod_cta ");
    fileRpt.writeln('<HR>');
    fileRpt.writeln('<H4><B>RESUMEN DE CUENTAS POR CENTRO</B></H4>');
    fileRpt.writeln('<HR>');
//    fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER><TR>');
//    fileRpt.writeln("<TD ALIGN=LEFT><B>"+clave +"</B>"+ 
//  	             "<B>"+desclave+"</B>");
//    fileRpt.writeln('</TD></TR></TABLE><BR><BR><LEFT>');
    fileRpt.writeln("<FONT SIZE=+1>"+clave +desclave+"</FONT>");
    fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP"><TR>');                
    fileRpt.writeln("<TR><TH ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Cod. Cta.</FONT></I></TH>" +
  		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Importe</FONT></I></TH>"+ 
                "</TR>");   
    request.s_total=0;
    while ( c_ctascentro.next()) {
              fileRpt.writeln("<TR>"+
                    "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_ctascentro.cod_cta+"</FONT></TD>"+
                    "<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_ctascentro[1],NF11)+"</FONT></TD>"+
                    "</TR>");   
      request.s_total=parseFloat(request.s_total)+parseFloat(c_ctascentro[1]); 
    }
    c_ctascentro.close();
    fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>TOTAL</FONT></I></TH>"+
          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TH></TR>");
    fileRpt.writeln('</TABLE>');
    fileRpt.writeln('<BR><BR>');
}
function FraCentrosCab() {
          fileRpt.writeln('<H6><I>Dpto. Cuentas a Pagar</FONT></I>');
          fileRpt.writeln('<HR>');
          fileRpt.writeln('<ALIGN=CENTER><H4><B>LISTADO DE FACTURAS POR CENTRO</B></H4>');
          fileRpt.writeln('<HR>');
          fileRpt.writeln('</TABLE><ALIGN=LEFT>');
          fileRpt.writeln("<ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=+1>"+c_factreg.cod_centro +c_factreg.descripcion+"</FONT>");
          fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP">');
          fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Nro.Reg.</FONT></I></TH>" +
  		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Nro. Fra.</FONT></I></TH>"+ 
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Fra.</FONT></I></TH>"+ 
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Recep.</FONT></I></TH>"+ 
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Pago</FONT></I></TH>"+ 
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>TD</FONT></I></TH>"+ 
  		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Emis.</FONT></I></TH>"+ 
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Cuenta</FONT></I></TH>"+ 
  		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Imp.Cta.</FONT></I></TH>"+ 
                "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Retención</FONT></I></TH>"+
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>I.V.A.</FONT></I></TH>"+ 
		          "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Total Fra.</FONT></I></TH>"+ 
                "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Alb.Int.</FONT></I></TH>"+
                "<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Alb.Imp.</FONT></I></TH>"+
		          "<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Razón Social</FONT></I></TH>"+ 
//		          "<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Imp.Prov.</TH>"+ 
                "</TR>");   
}
function FraPendientesHtml() {
}
function FraEmitidasHtml() {
   var suma_total=0;
   var suma_banco=0;
   var nrolin=0;
   var npag=1;
   var keyLastRow="";
   var is_newpag=true;
   while (true) {
      if ( nrolin+3 == request.maxLins ) { 
          fileRpt.writeln('<BR><BR><BR>');
          nrolin=0;
          is_newpag=true;
      };
      if ( keyLastRow != c_factreg.nif && npag!=1 ) {
          fileRpt.writeln('</TABLE>');
          fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
          fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+ 
                "<TD ALIGN=RIGHT>"+NroFormat(suma_banco,NF11)+"</TD>"); 
          fileRpt.writeln('</TABLE><HR>');
          suma_banco=0;
          nrolin=nrolin+3
          set_head=true;
     }
     if ( is_newpag == true ) {
          if (npag > 1 ) { fileRpt.writeln('</TABLE>')};
          fileRpt.writeln('<H6><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
          fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE PAGARES EMITIDOS</B></H3>');
//           'Pág.:'+npag+' ');
          fileRpt.writeln('<HR>');
          is_newpag=false;
          nrolin=nrolin+4;
          set_head=true;
          npag++;
     }
     if ( set_head == true ) {
          fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
          fileRpt.writeln("<TR><TD ALIGN=RIGHT><B>"+c_factreg.nif +"</TD></B>"+ 
  	             "<TD ALIGN=RIGHT><B>"+c_factreg.razon_social+"</TD></B>");
          fileRpt.writeln('</TABLE>');
          fileRpt.writeln('<HR><CENTER><TABLE BORDER='+request.borde+' ALIGN=CENTER>');
          fileRpt.writeln(" <TR><TD ALIGN=CENTER>Nro. Reg." +
		          "<TD ALIGN=CENTER>F.Emisión </TD>"+ 
  		          "<TD ALIGN=CENTER>Nro. Fra.</TD>"+ 
  		          "<TD ALIGN=CENTER>Centro </TD>"+ 
  		          "<TD ALIGN=CENTER>Vto. Pago</TD>"+ 
                "<TD ALIGN=CENTER>Importe</TD></TR>");   
          nrolin=nrolin+3; set_head=false;
     }  
     fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_factreg.nro_reg.substring(4,c_factreg.nro_reg.length) + "/" +
               c_factreg.nro_reg.substring(0,4) +"</TD>"+
              "<TD ALIGN=RIGHT>"+datetoString(c_factreg.f_emision) +"</TD>"+ 
   	        "<TD ALIGN=RIGHT>"+c_factreg.nro_fra +"</TD>"+ 
   	        "<TD ALIGN=RIGHT>"+c_factreg.cod_centro +"</TD>"+ 
   	        "<TD ALIGN=RIGHT>"+datetoString(c_factreg.vto_pago) +"</TD>"+ 
              "<TD ALIGN=RIGHT>"+NroFormat(c_factreg.importe_total,NF9)+"</TD></TR>");   
     suma_total=suma_total+c_factreg.importe_total; 
     suma_banco=suma_banco+c_factreg.importe_total; 
     keyLastRow=c_factreg.nif;
     nrolin++;
     if (!c_factreg.next()) 
         break;
  }
//   writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT></TD><TD ALIGN=RIGHT>----------------</TD>");   
//   writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");   
  fileRpt.writeln('</TABLE>');
  fileRpt.writeln('<TABLE BORDER=0 ALIGN=CENTER><TR>');
  fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+ 
        "<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>"); 
  fileRpt.writeln('</TABLE>');
  fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
  fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL Acumulado....... </TD>"+ 
        "<TD ALIGN=RIGHT>"+NroFormat(suma_total,NF11)+"</TD>"); 
  fileRpt.writeln('</TABLE>');
}
function FraRetenidasHtml() {
}