946 lines
42 KiB
JavaScript
946 lines
42 KiB
JavaScript
//////////////////////////////////////
|
|
// //
|
|
// JavaScript Functions //
|
|
// //
|
|
//////////////////////////////////////
|
|
|
|
function wrdocpago(text){
|
|
// writeln("w_outdocpago.document.write('"+text+"\\n');");
|
|
fileRpt.writeln(text);
|
|
}
|
|
|
|
function chk_docspago() {
|
|
var query;
|
|
query = database.cursor("select count(*) FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
|
if (query.next()) {
|
|
if (query[0] > 0) {
|
|
tdoc = database.cursor("select unique tipo_doc_pago FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
|
tdoc.next();
|
|
if ( tdoc.tipo_doc_pago=="1" ) {
|
|
request.f_tipo_doc_pago="1";
|
|
Palabra="Pagarés";
|
|
}
|
|
if ( tdoc.tipo_doc_pago=="2" ) {
|
|
request.f_tipo_doc_pago="2";
|
|
Palabra="Talones";
|
|
}
|
|
writeln(' alert("\\r Hay '+Palabra+' Pendientes de Confirmación !!!"); ');
|
|
tdoc.close();
|
|
request.opt_docpago="true";
|
|
}
|
|
}
|
|
query.close();
|
|
if (request.opt_docpago)
|
|
return true
|
|
else
|
|
return false
|
|
}
|
|
|
|
function updPagoFras() {
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' order by nro_reg ");
|
|
while (c_docspago.next()) {
|
|
// DesBloquear factura
|
|
status=database.execute("UPDATE facturas SET "+
|
|
" is_locked='N',"+
|
|
" tipo_doc_pago='" + c_docspago.tipo_doc_pago + "',"+
|
|
" nro_doc_pago='" + c_docspago.nro_doc_pago + "',"+
|
|
" f_emision_pago='" + DateFormat(datetoString(c_docspago.f_emision_pago),NLDF) + "',"+
|
|
" vto_pago='" + DateFormat(datetoString(c_docspago.vto_pago),NLDF) + "',"+
|
|
" cod_localidad='" + c_docspago.cod_localidad + "',"+
|
|
" cod_banco='" + c_docspago.cod_banco + "'"+
|
|
" WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
|
|
if ( status != 0 ) {
|
|
c_docspago.close();
|
|
client.is_trans=false;
|
|
database.rollbackTransaction();
|
|
redirect(addClient('error.html?alert=9'));
|
|
}
|
|
}
|
|
database.commitTransaction();
|
|
client.is_trans=false;
|
|
c_docspago.close();
|
|
return true;
|
|
}
|
|
|
|
function report_docpago() {
|
|
// Borramos en tabla de pagos datos del usuario
|
|
status=database.execute("DELETE FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
var s_lon=request.sel_nro_reg.length;
|
|
if (s_lon == 0 )
|
|
return;
|
|
var s_lon=request.sel_nro_reg.length;
|
|
var i=0;
|
|
pos=request.sel_nro_reg.substring(i,s_lon).indexOf("|")
|
|
var nregfra="";
|
|
while (pos >0) {
|
|
insertaDocPago(i,pos);
|
|
i=pos+1;
|
|
if ( i >= s_lon )
|
|
break;
|
|
pos=request.sel_nro_reg.substring(i,s_lon).indexOf("|")
|
|
if (pos <= 0 )
|
|
break;
|
|
else
|
|
pos=pos+i;
|
|
}
|
|
if (i==0)
|
|
return;
|
|
// Hay que buscar si tiene ABONOS
|
|
chk_abonos();
|
|
upd_docspago();
|
|
database.commitTransaction();
|
|
client.is_trans=false;
|
|
if (preparamat("spa", "f") == false ) // Aquí se prepara la trad. de dígitos
|
|
return;
|
|
if (request.f_tipo_doc_pago == "1" )
|
|
out_docpago()
|
|
if (request.f_tipo_doc_pago == "2" )
|
|
out_doctalon()
|
|
writeln('w_outdocpago=window.open("'+urlFile+'","w_outdocpago","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
|
}
|
|
function rpt_doccarta() {
|
|
out_doccarta()
|
|
writeln('w_carta=window.open("'+urlCarta+'","w_carta","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
|
}
|
|
function rpt_docfile() {
|
|
out_docfichero()
|
|
writeln('w_carta=window.open("'+urlFich+'","w_file","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
|
}
|
|
function insertaDocPago(i,pos) {
|
|
var nro_reg=request.sel_nro_reg.substring(i,pos);
|
|
// debug(nro_reg);
|
|
if ( nro_reg.length < 1 )
|
|
return;
|
|
c_facturas = database.cursor("SELECT nif, importe_total,cod_centro,f_pago,nro_fra,tipo_fra,tipo_doc_pago "+
|
|
" FROM facturas WHERE nro_reg="+nro_reg);
|
|
if (c_facturas.next()) {
|
|
status=database.execute("INSERT INTO docspago(" +
|
|
" uid," +
|
|
" nro_reg," +
|
|
" cod_centro," +
|
|
" f_pago," +
|
|
" nro_fra," +
|
|
" tipo_fra," +
|
|
" nif," +
|
|
" tipo_doc_pago," +
|
|
" nro_doc_pago," +
|
|
" f_emision_pago," +
|
|
" cod_localidad," +
|
|
" vto_pago," +
|
|
" cod_banco," +
|
|
" importe_total ) VALUES ('" + request.uid+ "','" +
|
|
nro_reg + "','"+
|
|
StringClip(true,c_facturas.cod_centro) + "','"+
|
|
DateFormat(datetoString(c_facturas.f_pago),NLDF) + "','"+
|
|
StringClip(true,c_facturas.nro_fra) + "','"+
|
|
StringClip(true,c_facturas.tipo_fra) + "','"+
|
|
StringClip(false,c_facturas.nif) + "','"+
|
|
StringClip(false,c_facturas.tipo_doc_pago) + "','"+
|
|
"0','"+
|
|
DateFormat(request.f_f_emision_pago,NLDF) + "','"+
|
|
StringClip(true,request.f_cod_localidad) + "','"+
|
|
DateFormat(datetoString(c_facturas.f_pago),NLDF) + "','"+
|
|
StringClip(true,request.f_cod_banco) + "','"+
|
|
c_facturas.importe_total + "')");
|
|
if ( status != 0 ) {
|
|
client.is_trans=false;
|
|
database.rollbackTransaction();
|
|
redirect(addClient('error.html?alert=14&nro_reg='+nro_reg));
|
|
}
|
|
}
|
|
c_facturas.close();
|
|
}
|
|
function chk_abonos() {
|
|
// c_fraspago = database.cursor("SELECT sum(importe_total),nif FROM docspago WHERE uid='"+request.uid+"' group by nif ");
|
|
// while (c_fraspago.next()) {
|
|
// debug(c_fraspago[0]);
|
|
// if ( c_fraspago[0] < 0 ) {
|
|
// no se paga nada de nada ... nos Debe
|
|
// status=database.execute("DELETE from docspago WHERE uid='" + request.uid+"'"+
|
|
// " and nif = '"+c_fraspago.nif+"'");
|
|
// }
|
|
// }
|
|
// c_fraspago.close();
|
|
// Leemos los abonos de cada proveedor y buscamos fras. que lo cubran si no no se paga.
|
|
// Para evitar problemas actualizamos centro y f_pago en el abono ...
|
|
c_docsnif = database.cursor("SELECT UNIQUE nif FROM docspago WHERE uid='"+request.uid+"' ");
|
|
while (c_docsnif.next()) {
|
|
c_frasabono= database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' and nif ='"+c_docsnif.nif+"' and importe_total < 0 "+
|
|
" order by importe_total");
|
|
to_paynif=true;
|
|
while (c_frasabono.next() && to_paynif == true ) {
|
|
//debug(c_frasabono.nro_reg)
|
|
to_payfra=false;
|
|
c_fraspago = database.cursor("SELECT sum(importe_total),cod_centro,f_pago FROM docspago WHERE uid='"+request.uid+"' and nif ='"+c_docsnif.nif+"' and importe_total > 0 "+
|
|
"group by cod_centro,f_pago ");
|
|
while (c_fraspago.next() ) {
|
|
//linea=c_fraspago[0]+" "+c_frasabono.importe_total;
|
|
//debug(linea)
|
|
if ( c_fraspago[0] > c_frasabono.importe_total*-1 ) {
|
|
status=database.execute("UPDATE docspago SET cod_centro='"+c_fraspago.cod_centro+"',"+
|
|
" f_pago='"+DateFormat(datetoString(c_fraspago.f_pago),NLDF)+"',"+
|
|
" vto_pago='"+DateFormat(datetoString(c_fraspago.f_pago),NLDF)+
|
|
"' WHERE nro_reg='"+c_frasabono.nro_reg+"'");
|
|
|
|
to_payfra=true
|
|
break;
|
|
}
|
|
}
|
|
c_fraspago.close();
|
|
if ( to_payfra == false )
|
|
to_paynif=false;
|
|
}
|
|
if ( to_paynif == false ) {
|
|
status=database.execute("DELETE FROM docspago WHERE uid='" + request.uid+"'"+
|
|
" and nif = '"+c_docsnif.nif+"'");
|
|
}
|
|
c_frasabono.close();
|
|
}
|
|
c_docsnif.close();
|
|
}
|
|
|
|
function upd_docspago() {
|
|
var nro_docpago=parseFloat(NroUnformat(request.f_nro_doc));
|
|
var inro_docpago=nro_docpago;
|
|
// Actualizar las Filas con su nro_doc_pago ...
|
|
// c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' and importe_total > 0 order by nif,importe_total ");
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' order by nif,importe_total ");
|
|
while (c_docspago.next()) {
|
|
// if (request.f_tipo_doc_pago=="1") // Pagaré
|
|
// if (request.f_tipo_doc_pago=="2") // Talón
|
|
// if (request.f_tipo_doc_pago=="3") // Compensación
|
|
// if (request.f_tipo_doc_pago=="4") // Domiciliación
|
|
// Asignar el nro. de documento de pago, el mismo si nif, centro y f_pago coinciden.
|
|
c_haydocspago = database.cursor("SELECT nro_doc_pago FROM docspago WHERE uid='"+ request.uid+"' and nif = '"+StringClip(false,c_docspago.nif)+
|
|
"' and nro_doc_pago !='0' and nro_reg != '"+c_docspago.nro_reg+
|
|
"' and cod_centro ='"+c_docspago.cod_centro+
|
|
"' and f_pago='"+DateFormat(datetoString(c_docspago.f_pago),NLDF)+"'");
|
|
// "' and importe_total > 0 "+
|
|
//debug(c_haydocspago.nro_doc_pago);
|
|
var nro_doc_pago=nro_docpago;
|
|
var hay_mas=false;
|
|
if ( c_haydocspago.next() ) {
|
|
nro_doc_pago=parseFloat(c_haydocspago.nro_doc_pago);
|
|
if ( nro_doc_pago == 0 )
|
|
nro_doc_pago=nro_docpago;
|
|
else
|
|
hay_mas=true;
|
|
}
|
|
c_haydocspago.close();
|
|
status=database.execute("UPDATE docspago SET nro_doc_pago='"+nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
if (hay_mas == false) { nro_docpago++ };
|
|
// Bloquear la factura durante el curso del pago ... Así sólo es de lectura.
|
|
status=database.execute("UPDATE facturas SET is_locked='S' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
}
|
|
c_docspago.close();
|
|
}
|
|
function no_sirve() {
|
|
// Devoluciones ...
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' and importe_total < 0 order by nro_reg ");
|
|
while (c_docspago.next()) {
|
|
var nro=c_docspago.importe_total*-1;
|
|
// Asignar el nro. de documento de pago, el mismo si nif coincide.
|
|
c_haydocspago = database.cursor("SELECT nro_doc_pago FROM docspago WHERE uid='"+ request.uid+"' and nif = '"+StringClip(false,c_docspago.nif)+
|
|
"' and nro_doc_pago !='0' and nro_reg != '"+c_docspago.nro_reg+
|
|
"' and importe_total > '"+nro+"'");
|
|
if ( c_haydocspago.next() ) {
|
|
status=database.execute("UPDATE docspago SET nro_doc_pago='"+c_haydocspago.nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
// Bloquear la factura durante el curso del pago ... Así sólo es de lectura.
|
|
status=database.execute("UPDATE facturas SET is_locked='S' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
}
|
|
c_haydocspago.close();
|
|
}
|
|
c_docspago.close();
|
|
}
|
|
function cleanup_docspago() {
|
|
c_docspago = database.cursor("SELECT nro_reg FROM docspago WHERE uid='"+request.uid+"' order by nro_reg ");
|
|
while (c_docspago.next()) {
|
|
// DesBloquear factura
|
|
status=database.execute("UPDATE facturas SET is_locked='' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
}
|
|
// Borramos en tabla de pagos datos del usuario
|
|
status=database.execute("DELETE FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
|
}
|
|
function out_docpago() {
|
|
var fileRpt=new File(nomFile);
|
|
fileRpt.open("w");
|
|
fileRpt.writeln('<HTML>');
|
|
fileRpt.writeln('<HEAD></HEAD>');
|
|
fileRpt.writeln('<BODY>');
|
|
fileRpt.writeln('<FONT SIZE=3>');
|
|
fileRpt.writeln('<PRE> ');
|
|
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
|
var PlusNroDoc=0; // Acumula incrementos en Nro. Doc si salto página
|
|
var lnro="";
|
|
var nlin=1
|
|
while (c_nrodocspago.next()) {
|
|
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
|
var importeTotal=0;
|
|
var NeedLins=0;
|
|
while (c_docspago.next()) { // A Sumar ....
|
|
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
|
NeedLins++;
|
|
}
|
|
c_docspago.close();
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY importe_total ");
|
|
c_docspago.next();
|
|
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
|
CursorTabla("ba","cod_banco","=\'"+StringClip(false,c_docspago.cod_banco)+"\'",false,false);
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
for (n=nlin; n<14 ; n++) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
fileRpt.writeln(lnro+" Málaga,"+datetoString(c_docspago.f_emision_pago));
|
|
nlin++;
|
|
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
|
// direccion=StringClip(false,c_proveedores.direccion_envio);
|
|
// localidad=StringClip(false,c_proveedores.cod_postal_envio)+" "+StringClip(false,c_proveedores.localidad_envio);
|
|
// if ( direccion == "" || direccion == " " ) {
|
|
direccion=StringClip(false,c_proveedores.domicilio);
|
|
localidad=StringClip(false,c_proveedores.cod_postal)+" "+c_proveedores.localidad;
|
|
// }
|
|
// attn_envio=StringClip(false,c_proveedores.attn_envio);
|
|
// fileRpt.writeln(lnro+" "+c_proveedores.attn_envio+" ");
|
|
if (request.t_nl == "1") { lnro=nlin };
|
|
fileRpt.writeln(lnro+" <B>"+StringClip(false,c_proveedores.razon_social)+"</B> ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin };
|
|
fileRpt.writeln(lnro+" "+direccion+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin };
|
|
fileRpt.writeln(lnro+" "+localidad+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin };
|
|
for (n=1; n<3 ; n++) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin };
|
|
}
|
|
if ( NeedLins > BodyLines) {
|
|
PlusNroDoc++;
|
|
}
|
|
var nro_doc_pago=parseFloat(c_docspago.nro_doc_pago)+PlusNroDoc;
|
|
if (PlusNroDoc > 0 ) {
|
|
status=database.execute("UPDATE docspago SET nro_doc_pago='"+nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
}
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" Muy Sres. nuestros:");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" Adjunto les remitimos pagaré nro. <I>0"+nro_doc_pago+"</I> a cargo del ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" <I>"+StringClip(false,c_bancos.nombre)+"</I> de pesetas <B><I>"+NroFormat(importeTotal,NF9)+"</I></B>,");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" con el cual cancelamos las facturas siguientes: ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" Centro Registro Importe Nro.Fra ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ------ --------- ---------------- ----------------");
|
|
nlin++;
|
|
blin=0;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (true) {
|
|
blin++;
|
|
codCentro=StringClip(false,c_docspago.cod_centro);
|
|
if ( c_docspago.importe_total < 0 )
|
|
codCentro=" ";
|
|
var nreg=c_docspago.nro_reg.substring(4,10)+"/"+c_docspago.nro_reg.substring(2,4);
|
|
fileRpt.writeln(lnro+" "+codCentro+" "+nreg+" "+NroFormat(c_docspago.importe_total,NF9)+" Ptas."+" "+StringClip(false,c_docspago.nro_fra));
|
|
if (blin+1 > BodyLines ) {
|
|
blin=0;
|
|
nlin=FootPosLin;
|
|
}
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
if ( nlin == FootPosLin ) {
|
|
for (var i=nlin ; i <= PaperLines ; i++) {
|
|
if (request.t_nl == "1") { lnro=i; }
|
|
fileRpt.writeln(lnro+" ");
|
|
}
|
|
for (var i=nlin ; i <= HeadPosLin ; i++) {
|
|
if (request.t_nl == "1") { lnro=i; }
|
|
fileRpt.writeln(lnro+" ");
|
|
}
|
|
nlin=HeadPosLin;
|
|
}
|
|
if ( !c_docspago.next())
|
|
break;
|
|
}
|
|
while ( blin < BodyLines ) {
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
blin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
fileRpt.writeln(lnro+" A la espera de que el mencionado importe sea de su entera ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" conformidad, reciban un cordial saludo.");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+"<I> CONSTRUCCIONES SANCHEZ DOMINGUEZ-SANDO, S.A.</I> ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (nlin < FootPosLin) {
|
|
// Salta hasta pie de Página
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
linea=NroFormat(importeTotal,NF9);
|
|
fileRpt.writeln(lnro+" <FONT SIZE=-1>");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+StringClip(false,c_proveedores.nif)+" "+StringClip(false,c_docspago.cod_localidad)+" #"+StringClip(true,linea)+"#");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+datetoString(c_docspago.f_emision_pago)+" "+datetoString(c_docspago.f_pago)+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
// fileRpt.writeln(lnro+" "+CompLetOn+"orden"+CompLetOff);
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" no a la orden");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+StringClip(false,c_proveedores.razon_social)+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
num_let="";
|
|
if (importeTotal > 0 )
|
|
nro_letra(importeTotal, "spa", "f", "PESETAS", CarPad,LongLine,LongLine);
|
|
//debug(num_let)
|
|
//debug(num_let2)
|
|
fileRpt.writeln(lnro+" "+num_let);
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+num_let2);
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
// fileRpt.writeln(lnro+" ");
|
|
// nlin++;
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+c_bancos.nombre+" "+c_bancos.entidad+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+c_bancos.domicilio+" "+c_bancos.sucursal+" "+c_bancos.cod_control+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+c_bancos.cod_postal+" "+c_bancos.localidad+" "+c_bancos.nro_cc+" </FONT>");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while ( nlin <= PaperLines ) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
// Cerrando cursores
|
|
c_proveedores.close();
|
|
c_bancos.close();
|
|
c_docspago.close();
|
|
nlin=1;
|
|
}
|
|
c_nrodocspago.close();
|
|
fileRpt.writeln('<PRE>');
|
|
fileRpt.writeln('</FONT>');
|
|
fileRpt.writeln('</BODY>');
|
|
fileRpt.writeln('</HTML>');
|
|
fileRpt.close();
|
|
}
|
|
function out_doctalon() {
|
|
var fileRpt=new File(nomFile);
|
|
fileRpt.open("w");
|
|
fileRpt.writeln('<HTML>');
|
|
fileRpt.writeln('<HEAD></HEAD>');
|
|
fileRpt.writeln('<BODY>');
|
|
fileRpt.writeln('<FONT SIZE=2>');
|
|
fileRpt.writeln('<PRE> ');
|
|
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
|
var f_pago = new Date();
|
|
var cadena=" ";
|
|
var loncad=cadena.length;
|
|
var nlin=1;
|
|
var lnro="";
|
|
while (c_nrodocspago.next()) {
|
|
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
|
var importeTotal=0;
|
|
while (c_docspago.next()) { // A Sumar ....
|
|
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
|
}
|
|
c_docspago.close();
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY nro_reg ");
|
|
c_docspago.next();
|
|
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
|
CursorTabla("ba","cod_banco","=\'"+StringClip(false,c_docspago.cod_banco)+"\'",false,false);
|
|
ntal=1;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
if ( nlin > 1 ) {
|
|
for (n=1; n<1 ; n++) {
|
|
fileRpt.writeln(nlin+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
}
|
|
if ( nlin == 1 )
|
|
ntal=3
|
|
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l_importe) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
linea=cadena;
|
|
nro=NroFormat(importeTotal,NF9);
|
|
linea=linea.substring(0,c_bancos.c_importe)+"#"+StringClip(true,nro)+"#";
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l_paguese) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
linea=cadena;
|
|
linea=linea.substring(0,c_bancos.c_paguese)+StringClip(false,c_proveedores.razon_social);
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l1_nroletra) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
}
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
num_let="";
|
|
if (importeTotal > 0 )
|
|
nro_letra(importeTotal, "spa", "f", "PESETAS", CarPad,LongLine,LongLine);
|
|
//debug(num_let)
|
|
//debug(num_let2)
|
|
linea=cadena;
|
|
linea=linea.substring(0,c_bancos.c1_nroletra)+num_let;
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l2_nroletra) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
}
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
linea=cadena;
|
|
linea=linea.substring(0,c_bancos.c2_nroletra)+num_let2;
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
num_let="";
|
|
AsignaFecha(datetoString(c_docspago.f_pago),f_pago);
|
|
importeTotal=f_pago.getDate();
|
|
if (importeTotal > 0 )
|
|
nro_letra(importeTotal, "spa", "m", "", "",LongLine,LongLine);
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l_fecha) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
linea=cadena;
|
|
linea=linea.substring(0,c_bancos.c_fecha)+num_let;
|
|
lonlin=linea.length;
|
|
linea=linea+cadena.substring(lonlin,loncad);
|
|
linea=linea.substring(0,c_bancos.c_mes)+stringMonth(f_pago.getMonth()); //CalendarMonth();
|
|
linea=linea+cadena.substring(lonlin,loncad);
|
|
anno=""+f_pago.getYear();
|
|
linea=linea.substring(0,c_bancos.c_anno)+anno; //.substring(2,4)
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l1_firmado) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
linea=cadena;
|
|
linea=linea.substring(0,c_bancos.c1_firmado)+StringClip(false,c_bancos.t1_firmado);
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.l2_firmado) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
linea=cadena;
|
|
linea=linea.substring(0,c_bancos.c2_firmado)+StringClip(false,c_bancos.t2_firmado);
|
|
fileRpt.writeln(linea);
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while (ntal < c_bancos.nro_lins) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++; ntal++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
|
if (nlin == PaperTLines )
|
|
nlin=1;
|
|
// Cerrando cursores
|
|
c_proveedores.close();
|
|
c_bancos.close();
|
|
c_docspago.close();
|
|
}
|
|
c_nrodocspago.close();
|
|
fileRpt.writeln('<PRE>');
|
|
fileRpt.writeln('</FONT>');
|
|
fileRpt.writeln('</BODY>');
|
|
fileRpt.writeln('</HTML>');
|
|
fileRpt.close();
|
|
}
|
|
function out_doccarta() {
|
|
var fileRpt=new File(nomCarta);
|
|
fileRpt.open("w");
|
|
fileRpt.writeln('<HTML>');
|
|
fileRpt.writeln('<HEAD></HEAD>');
|
|
fileRpt.writeln('<BODY>');
|
|
fileRpt.writeln('<FONT SIZE=3>');
|
|
fileRpt.writeln('<PRE> ');
|
|
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
|
var PlusNroDoc=0; // Acumula incrementos en Nro. Doc si salto página
|
|
var lnro="";
|
|
while (c_nrodocspago.next()) {
|
|
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
|
var importeTotal=0;
|
|
var NeedLins=0;
|
|
while (c_docspago.next()) { // A Sumar ....
|
|
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
|
NeedLins++;
|
|
}
|
|
c_docspago.close();
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY nro_reg ");
|
|
c_docspago.next();
|
|
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
|
CursorTabla("ba","cod_banco","=\'"+StringClip(false,c_docspago.cod_banco)+"\'",false,false);
|
|
nlin=1;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
for (n=1; n<13 ; n++) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
fileRpt.writeln(lnro+" Málaga,"+datetoString(c_docspago.f_emision_pago));
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
|
// direccion=StringClip(false,c_proveedores.direccion_envio);
|
|
// localidad=StringClip(false,c_proveedores.cod_postal_envio)+" "+StringClip(false,c_proveedores.localidad_envio);
|
|
// if ( direccion == "" || direccion == " " ) {
|
|
direccion=StringClip(false,c_proveedores.domicilio);
|
|
localidad=StringClip(false,c_proveedores.cod_postal)+" "+c_proveedores.localidad;
|
|
// }
|
|
// attn_envio=StringClip(false,c_proveedores.attn_envio);
|
|
// fileRpt.writeln(lnro+" "+c_proveedores.attn_envio+" ");
|
|
fileRpt.writeln(lnro+" <B>"+StringClip(false,c_proveedores.razon_social)+"</B> ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+direccion+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" "+localidad+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
for (n=1; n<3 ; n++) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
if ( NeedLins > BodyLines) {
|
|
PlusNroDoc++;
|
|
}
|
|
var nro_doc_pago=parseFloat(c_docspago.nro_doc_pago)+PlusNroDoc;
|
|
if (PlusNroDoc > 0 ) {
|
|
status=database.execute("UPDATE docspago SET nro_doc_pago='"+nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
|
}
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" Muy Sres. nuestros:");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" Adjunto les remitimos talón nro. <B><I>"+nro_doc_pago+"</I></B> a cargo del ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" <I>"+StringClip(false,c_bancos.nombre)+"</I> de pesetas <B><I>"+NroFormat(importeTotal,NF9)+"</I></B>,");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" con el cual cancelamos las facturas siguientes: ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" Centro Registro Importe Nro.Fra ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ------ --------- ---------------- ----------------");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
blin=0;
|
|
while (true) {
|
|
blin++;
|
|
codCentro=StringClip(false,c_docspago.cod_centro);
|
|
if ( c_docspago.importe_total < 0 )
|
|
codCentro=" ";
|
|
var nreg=c_docspago.nro_reg.substring(4,10)+"/"+c_docspago.nro_reg.substring(2,4);
|
|
fileRpt.writeln(lnro+" "+codCentro+" "+nreg+" "+NroFormat(c_docspago.importe_total,NF9)+" Ptas."+" "+StringClip(false,c_docspago.nro_fra));
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
if ( nlin == FootPosLin ) {
|
|
for (var i=nlin ; i <= PaperLines ; i++) {
|
|
fileRpt.writeln(lnro+" ");
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
for (var i=nlin ; i <= HeadPosLin ; i++) {
|
|
fileRpt.writeln(lnro+" ");
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
nlin=HeadPosLin;
|
|
}
|
|
if ( !c_docspago.next())
|
|
break;
|
|
}
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while ( blin < BodyLines ) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
blin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
fileRpt.writeln(lnro+" A la espera de que el mencionado importe sea de su entera ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" conformidad, reciban un cordial saludo.");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
fileRpt.writeln(lnro+"<I> CONSTRUCCIONES SANCHEZ DOMINGUEZ-SANDO, S.A.</I> ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
while ( nlin <= PaperTray ) {
|
|
fileRpt.writeln(lnro+" ");
|
|
nlin++;
|
|
if (request.t_nl == "1") { lnro=nlin; }
|
|
}
|
|
// Cerrando cursores
|
|
c_proveedores.close();
|
|
c_bancos.close();
|
|
c_docspago.close();
|
|
}
|
|
c_nrodocspago.close();
|
|
fileRpt.writeln('<PRE>');
|
|
fileRpt.writeln('</FONT>');
|
|
fileRpt.writeln('</BODY>');
|
|
fileRpt.writeln('</HTML>');
|
|
fileRpt.close();
|
|
}
|
|
function out_docfichero() {
|
|
var fileRpt=new File(nomFich);
|
|
fileRpt.open("w");
|
|
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
|
var PlusNroDoc=0; // Acumula incrementos en Nro. Doc si salto página
|
|
var lnro="";
|
|
while (c_nrodocspago.next()) {
|
|
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
|
var importeTotal=0;
|
|
var NeedLins=0;
|
|
while (c_docspago.next()) { // A Sumar ....
|
|
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
|
NeedLins++;
|
|
}
|
|
c_docspago.close();
|
|
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
|
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY nro_reg ");
|
|
c_docspago.next();
|
|
|
|
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
|
linea=" ";
|
|
linea=StringClip(false,c_proveedores.razon_social)+linea;
|
|
fileRpt.writeln(linea.substring(0,40)+" "+importeTotal);
|
|
// Cerrando cursores
|
|
c_proveedores.close();
|
|
c_docspago.close();
|
|
}
|
|
c_nrodocspago.close();
|
|
fileRpt.close();
|
|
}
|
|
|
|
function rpt_test() {
|
|
var fileRpt=new File(nomTest);
|
|
fileRpt.open("w");
|
|
fileRpt.writeln('<HTML>');
|
|
fileRpt.writeln('<HEAD></HEAD>');
|
|
fileRpt.writeln('<BODY>');
|
|
fileRpt.writeln('<FONT SIZE=3>');
|
|
fileRpt.writeln('<PRE> ');
|
|
var cadena="";
|
|
for (n=1; n< 8 ; n++) {
|
|
cadena=cadena+"123456789 "
|
|
}
|
|
fileRpt.writeln(cadena);
|
|
for (n=1; n< PaperLines ; n++) {
|
|
fileRpt.writeln(n);
|
|
}
|
|
fileRpt.writeln('<PRE>');
|
|
fileRpt.writeln('</FONT>');
|
|
fileRpt.writeln('</BODY>');
|
|
fileRpt.writeln('</HTML>');
|
|
fileRpt.close();
|
|
writeln('w_outtest=window.open("'+urlTest+'","w_test","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
|
}
|
|
|
|
function rpt_docpago() {
|
|
c_docspago= database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' order by nro_doc_pago ");
|
|
var fileRpt=new File(nomList);
|
|
fileRpt.open("w");
|
|
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
|
fileRpt.writeln('<BODY BACKGROUND="images/backgrnd.gif">');
|
|
var suma_total=0;
|
|
var nlins=0;
|
|
var npag=1;
|
|
var is_newpag=true;
|
|
request.maxLins=53;
|
|
while (c_docspago.next()) {
|
|
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
|
CursorTabla("fa","nro_reg","=\'"+StringClip(false,c_docspago.nro_reg)+"\'",false,false);
|
|
// if ( nlins+3 == request.maxLins ) {
|
|
// fileRpt.writeln('<BR><BR><BR>');
|
|
// nlins=0;
|
|
// is_newpag=true;
|
|
// };
|
|
if ( is_newpag == true ) {
|
|
if (npag > 1 ) { fileRpt.write('</TABLE>')};
|
|
fileRpt.writeln('<B><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
|
|
fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE PAGOS PENDIENTES DE CONFIRMAR</B></H3>');
|
|
fileRpt.writeln('<HR>');
|
|
is_newpag=false;
|
|
nlins=nlins+4;
|
|
set_head=true;
|
|
npag++;
|
|
}
|
|
if ( set_head == true ) {
|
|
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
|
|
fileRpt.writeln(" <TR><TD ALIGN=CENTER><B>N.Reg.</B>" +
|
|
"<TD ALIGN=CENTER><B>F.Vto.Pago</B> </TD>"+
|
|
"<TD ALIGN=CENTER><B>Centro </B></TD>"+
|
|
"<TD ALIGN=CENTER><B>Proveedor</B></TD>"+
|
|
"<TD ALIGN=CENTER><B>Tot.Fra.</B></TD>"+
|
|
"<TD ALIGN=CENTER><B>Nro.Doc.</B></TD>"+
|
|
"<TD ALIGN=CENTER><B>Banco</B></TD>"+
|
|
"<TD ALIGN=CENTER><B>Importe</B></TD></TR>");
|
|
nlins=nlins+2; set_head=false;
|
|
}
|
|
// "/" + c_docspago.nro_reg.substring(0,4) +"</TD>"+
|
|
fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_docspago.nro_reg.substring(4,c_docspago.nro_reg.length) + "</TD>" +
|
|
"<TD ALIGN=RIGHT>"+datetoString(c_docspago.vto_pago) +"</TD>"+
|
|
"<TD ALIGN=CENTER>"+c_docspago.cod_centro +"</TD>"+
|
|
"<TD ALIGN=CENTER>"+c_proveedores.razon_social +"</TD>"+
|
|
"<TD ALIGN=RIGHT>"+NroFormat(c_facturas.importe_total,NF9)+"</TD>"+
|
|
"<TD ALIGN=CENTER>"+StringClip(false,c_docspago.nro_doc_pago) +"</TD>"+
|
|
"<TD ALIGN=CENTER>"+StringClip(false,c_docspago.cod_banco) +"</TD>"+
|
|
"<TD ALIGN=RIGHT>"+NroFormat(c_docspago.importe_total,NF9)+"</TD></TR>");
|
|
suma_total=suma_total+c_docspago.importe_total;
|
|
nlins++;
|
|
c_proveedores.close();
|
|
c_facturas.close();
|
|
}
|
|
// 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('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
|
fileRpt.writeln("<TR><TD></TD><TD ALIGN=RIGHT><B>TOTAL Acumulado....... </B></TD>"+
|
|
"<TD ALIGN=RIGHT><B>"+NroFormat(suma_total,NF11)+"</B></TD>");
|
|
fileRpt.writeln('</TABLE>');
|
|
fileRpt.writeln('</FONT>');
|
|
fileRpt.writeln('</BODY>');
|
|
fileRpt.writeln('</HTML>');
|
|
fileRpt.close();
|
|
writeln('w_outtest=window.open("'+urlList+'","w_list","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
|
|
|
}
|