//////////////////////////////////////
// //
// JavaScript Functions //
// //
//////////////////////////////////////
function report_prev() {
var npag=0;
var nrolin=0;
// if (request.f_formato=="documento")
PrevisionHtml();
}
function PrevisionHtml() {
request.sumaret=0;
request.sumapag=0;
request.sumatal=0;
request.linea="";
request.suma_lin=0;
request.suma_tot=0;
var nrolin=0;
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('');
fileRpt.writeln('');
fileRpt.writeln('');
var keyLastRow="-";
c_vtosDate = database.cursor("SELECT unique vto_pago from facturas where tipo_doc_pago = '1' "+
" and vto_pago >='"+
request.f_entrada+"' order by vto_pago ")
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
while (c_bancos.next()) {
eval ("request.sum_"+c_bancos.cod_banco+"=0");
}
c_bancos.close();
while (c_vtosDate.next()){
if ( nrolin+3 == request.maxLins ) {
fileRpt.writeln('
');
nrolin=0;
set_head=true;
};
if ( set_head == true ) {
nrolin=nrolin+2;
if ( keyLastRow !="-" )
fileRpt.writeln("");
PrevisionCab();
set_head=false;
}
if ( nrolin+1 > request.maxLins ) {
skipTopPage(nrolin,request.maxLins);
nrolin=6;
fileRpt.writeln("");
PrevisionCab();
}
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
request.linea=""+datetoString(c_vtosDate.vto_pago)+" | ";
request.suma_lin=0;
while (c_bancos.next()) {
c_vtos = database.cursor("SELECT sum(importe_total) from facturas where tipo_doc_pago = '1' "+
" and cod_banco = '"+c_bancos.cod_banco+
"' and vto_pago ='"+datetoString(c_vtosDate.vto_pago)+
"'")
c_vtos.next();
numero=0;
if ( c_vtos[0] > 0 || c_vtos[0] < 0 )
numero=c_vtos[0];
request.linea=request.linea+""+NroFormat(numero,NF11)+" | "
eval ("request.sum_"+c_bancos.cod_banco+"=parseFloat(request.sum_"+c_bancos.cod_banco+")+parseFloat("+numero+")");
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
c_vtos.close();
}
c_bancos.close();
c_pagemi = database.cursor("SELECT sum(importe_total),f_pago,tipo_doc_pago from facturas where tipo_doc_pago ='2' "+
" and vto_pago is null and f_pago ='"+
datetoString(c_vtosDate.vto_pago)+"' group by tipo_doc_pago, f_pago order by f_pago,tipo_doc_pago")
c_pagemi.next();
// Suma de Pagos tipo 2
numero=0;
if ( c_pagemi[0] > 0 || c_pagemi[0] < 0 )
numero=c_pagemi[0];
request.linea=request.linea+""+NroFormat(numero,NF11)+" | "
request.sumtal=parseFloat(request.sumatal+numero);
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
c_pagemi.close();
c_pagemi = database.cursor("SELECT sum(importe_total),f_pago,tipo_doc_pago from facturas where tipo_doc_pago = '1' "+
" and vto_pago is null and f_pago ='"+
datetoString(c_vtosDate.vto_pago)+"' group by tipo_doc_pago, f_pago order by f_pago,tipo_doc_pago")
c_pagemi.next();
// Suma de Pagos tipo 1
numero=0;
if ( c_pagemi[0] > 0 || c_pagemi[0] < 0 )
numero=c_pagemi[0];
request.linea=request.linea+""+NroFormat(numero,NF11)+" | "
request.sumpag=parseFloat(request.sumapag+numero);
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
c_pagemi.close();
c_reten = database.cursor("SELECT sum(importe_total),f_pago from facturas,proveedores where tipo_doc_pago between '1' and '2' "+
" and f_emision_pago is null and f_pago ='"+
datetoString(c_vtosDate.vto_pago)+"' "+
" and facturas.nif=proveedores.nif "+
" and ( proveedores.cond_pago = '99' or facturas.cond_pago = '99' )"+
" group by cod_banco,f_pago order by f_pago")
c_reten.next();
// Suma de Retenciones
numero=0;
if ( c_reten[0] > 0 || c_reten[0] < 0 )
numero=c_reten[0];
request.linea=request.linea+""+NroFormat(numero,NF11)+" | "
request.sumret=parseFloat(request.sumaret+numero);
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
c_reten.close();
keyLastRow=c_vtosDate.vto_pago;
request.suma_tot=parseFloat(request.suma_tot)+parseFloat(request.suma_lin);
request.linea=request.linea+""+NroFormat(request.suma_lin,NF11)+" | "
nrolin++;
fileRpt.writeln(""+request.linea+"
")
}
// Acumulados totales
c_vtosDate.close();
request.linea="";
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
while (c_bancos.next()) {
eval ("request.linea=request.linea+''+NroFormat(request.sum_"+c_bancos.cod_banco+",NF11)+' | '");
}
c_bancos.close();
request.linea=request.linea+""+NroFormat(request.sumatal,NF11)+" | "
request.linea=request.linea+""+NroFormat(request.sumapag,NF11)+" | "
request.linea=request.linea+""+NroFormat(request.sumaret,NF11)+" | "
request.linea=request.linea+""+NroFormat(request.suma_tot,NF11)+" | "
fileRpt.writeln("| TOTALES | "+request.linea+"
");
fileRpt.writeln('');
fileRpt.writeln('');
fileRpt.writeln('