478 lines
23 KiB
JavaScript
478 lines
23 KiB
JavaScript
//////////////////////////////////////
|
||
// //
|
||
// 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<73>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<63>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<61>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<73>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() {
|
||
}
|
||
|