551 lines
27 KiB
HTML
551 lines
27 KiB
HTML
<!---
|
|
application: Cuentas a Pagar
|
|
version: 1.0.0
|
|
filename: g_factura.html
|
|
description: Esta página busca las filas de la tabla de acuerdo con el
|
|
criterio de búsqueda establecido. Las filas tinen un hiper-enlace para
|
|
poder ver los detalles completos, modificarla o Borrala.
|
|
El botón de Alta permite acceder al form para crear una nueva fila
|
|
--->
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>facturas</TITLE>
|
|
</HEAD>
|
|
<SERVER>
|
|
var NF9=""
|
|
var NF10=""
|
|
var HOY=new Date();
|
|
var linea="";
|
|
// Algunos formatos para fechas.
|
|
var NLDF=""; // para columnas en las queries INFORMIX
|
|
var baseHtml="";
|
|
dbAcl();
|
|
if (request.gofunc)
|
|
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\')"');
|
|
else {
|
|
if ( request.FrameType == "F" || request.FrameType == "T" )
|
|
writeln(' <BODY OnLoad="WriteFrameButtons()"');
|
|
else
|
|
writeln(' <BODY');
|
|
}
|
|
writeln(' BACKGROUND="images/backgrnd.gif">');
|
|
writeln('<SCRIPT SRC="global.js">');
|
|
writeln('</SCRIPT>');
|
|
writeln('<SCRIPT SRC="ctasapagar.js">');
|
|
writeln('</SCRIPT>');
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln(' function chkYearNroReg(obj) {');
|
|
writeln(' var nro=parseInt(obj.value); ');
|
|
writeln(' if (nro+1 > 0 ) { ');
|
|
writeln(' obj.value=nro; ');
|
|
writeln(' if ( HOY.getFullYear() != nro ) ');
|
|
writeln(' alert("¡¡ El Año del Nro. de Registro no es el actual !! ");');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln('function NroPad(obj,longNro) {');
|
|
writeln(' if ( obj.value.length == 0 )');
|
|
writeln(' return;');
|
|
writeln(' if (obj.value.indexOf("*") >= 0) ');
|
|
writeln(' return;');
|
|
writeln(' c_nro=obj.value;');
|
|
writeln(' for (var j=c_nro.length ; j<longNro ; j++ ) {');
|
|
writeln(' c_nro="0"+c_nro;');
|
|
writeln(' }');
|
|
writeln(' obj.value=c_nro.substring(0,longNro);');
|
|
writeln('}');
|
|
if (request.gofunc) {
|
|
writeln('function RunFunction(obj,valor) {');
|
|
writeln(' var mainFrame=find_frame(top,"main");');
|
|
writeln(' var f_frame=mainFrame.document.g_factura;');
|
|
writeln(' if ( obj == "Alta" ) {');
|
|
writeln(' f_frame.action="o_factura.html?nvo=1&'+baseHtml+'";');
|
|
writeln(' f_frame.submit(); ');
|
|
writeln(' }');
|
|
writeln(' if ( obj == "Ayuda" )');
|
|
writeln(' NetHelp(valor);');
|
|
writeln(' history.back();');
|
|
writeln('}');
|
|
}
|
|
writeln('</SCRIPT>');
|
|
if(request.search1 || request.search2 || request.desde || request.hasta || request.f_orden) {
|
|
if (!request.gofunc) {
|
|
dbConnect();
|
|
// if(request.search1 || request.desde || request.hasta || request.multiple || request.f_orden) {
|
|
//Si se busca usando el texto de entrada
|
|
if (request.desde && request.hasta) {
|
|
var desde_fecha=DateFormat(request.desde,NLDF);
|
|
if ( desde_fecha.substring(0,1) == "-" )
|
|
redirect("alertpage.html?alert=3");
|
|
var hasta_fecha=DateFormat(request.hasta,NLDF);
|
|
if ( hasta_fecha.substring(0,1) == "-" )
|
|
redirect("alertpage.html?alert=3");
|
|
c_facturas = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif and "+ client.criteria +" Between '" +
|
|
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
|
|
}
|
|
else if (request.search1) {
|
|
c_facturas = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif and "+ client.criteria +" MATCHES '" +
|
|
request.search1 + "' ORDER BY " + client.criteria);
|
|
}
|
|
else if (request.f_orden) {
|
|
var criterio=""
|
|
if ( request.f_desde.length > 0 ) {
|
|
var f_desde=DateFormat(request.f_desde,NLDF);
|
|
if ( f_desde.substring(0,1) == "-" )
|
|
redirect("alertpage.html?alert=3");
|
|
criterio=" f_emision >= '"+f_desde+"' "
|
|
}
|
|
if ( request.f_hasta.length > 0 ) {
|
|
var f_hasta=DateFormat(request.f_hasta,NLDF);
|
|
if ( f_hasta.substring(0,1) == "-" )
|
|
redirect("alertpage.html?alert=3");
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" f_emision <= '"+f_hasta+"' "
|
|
}
|
|
if ( request.v_desde.length > 0 ) {
|
|
var v_desde=DateFormat(request.v_desde,NLDF);
|
|
if ( v_desde.substring(0,1) == "-" )
|
|
redirect("alertpage.html?alert=3");
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" vto_pago >= '"+v_desde+"' "
|
|
}
|
|
if ( request.v_hasta.length > 0 ) {
|
|
var v_hasta=DateFormat(request.v_hasta,NLDF);
|
|
if ( v_hasta.substring(0,1) == "-" )
|
|
redirect("alertpage.html?alert=3");
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" vto_pago <= '"+v_hasta+"' "
|
|
}
|
|
if ( request.cod_centro.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" cod_centro matches '"+request.cod_centro+"'"
|
|
}
|
|
if ( request.nif.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nif matches '"+request.nif+"'"
|
|
}
|
|
if ( request.nro_fra.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_fra matches '"+request.nro_fra+"'"
|
|
}
|
|
if ( request.nro_regn.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_reg matches '"+StringClip(true,request.nro_regy)+StringClip(true,request.nro_regn)+"'"
|
|
}
|
|
if ( request.h_mes_fra.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.mes >= '"+request.d_mes_fra+"' and facturas.mes <= '"+request.h_mes_fra+"'"
|
|
} else {
|
|
if ( request.d_mes_fra.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.mes matches '"+request.d_mes_fra+"'"
|
|
}
|
|
}
|
|
if ( request.h_nro_doc_pago.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_doc_pago >= '"+request.d_nro_doc_pago+"' and facturas.nro_doc_pago <= '"+request.h_nro_doc_pago+"'"
|
|
} else {
|
|
if ( request.d_nro_doc_pago.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_doc_pago matches '"+request.d_nro_doc_pago+"'"
|
|
}
|
|
}
|
|
if ( request.razon_social.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
var razon_social=request.razon_social;
|
|
// var lowcaps = request.razon_social.toLowerCase();
|
|
// var uppercaps = request.razon_social.toUpperCase();
|
|
criterio=criterio+"razon_social matches '"+razon_social+"'"
|
|
}
|
|
c_facturas = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif and "+ criterio +
|
|
" ORDER BY " + request.f_orden);
|
|
}
|
|
if (!c_facturas)
|
|
DbsError(false,-1);
|
|
client.search1 = request.search1;
|
|
}
|
|
if(request.search2) {
|
|
if(request.search2 == "all") {
|
|
//Selecciono todos los facturas, sin criterio
|
|
c_facturas = database.cursor("SELECT * FROM facturas,proveedores where facturas.nif=proveedores.nif ORDER BY nro_reg ");
|
|
if (!c_facturas)
|
|
DbsError(false,-1);
|
|
}
|
|
else {
|
|
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
|
|
var lowcaps = request.search2.toLowerCase();
|
|
c_facturas = database.cursor("SELECT * FROM facturas f,proveedores "+
|
|
" WHERE facturas.nif=proveedores.nif and "
|
|
+ client.criteria + " MATCHES '" + request.search2 + "*' OR " +
|
|
client.criteria +" MATCHES '" + lowcaps + "*'"+
|
|
" ORDER BY " + client.criteria);
|
|
if (!c_facturas)
|
|
DbsError(false,-1);
|
|
}
|
|
client.search2 = request.search2;
|
|
}
|
|
// }
|
|
}
|
|
else {
|
|
if (!request.nro_reg && !request.f_emision && !request.nif && !request.cod_centro ) {
|
|
request.multiple ="Múltiple";
|
|
}
|
|
}
|
|
if (request.fecha_emision) {
|
|
client.criteria="f_emision";
|
|
client.des_criteria="cuya fecha de emisión";
|
|
}
|
|
if (request.vto_pago) {
|
|
client.criteria="vto_pago";
|
|
client.des_criteria="cuyo vto. de pago";
|
|
}
|
|
if (request.multiple ) {
|
|
client.criteria="multiple";
|
|
client.des_criteria="según criterio de búsqueda ";
|
|
}
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln('function RangoFecha(obj,clave) {');
|
|
writeln(' if (obj.value.length > 0 ){ ');
|
|
writeln(' if (clave == "emision") { ');
|
|
writeln(' if (dateCmp(obj.value,document.g_factura.f_desde.value) != 1 ) {;');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.g_factura.f_desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' if (clave == "vto") { ');
|
|
writeln(' if (dateCmp(obj.value,document.g_factura.v_desde.value) != 1 ) {;');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.g_factura.v_desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' if (clave == "fecha") { ');
|
|
writeln(' if (dateCmp(obj.value,document.g_factura.desde.value) != 1 ) {');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.g_factura.desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln('} ');
|
|
writeln('function HastaDefault(obj,clave) {');
|
|
writeln(' if (obj.value.length <= 0 ){ ');
|
|
writeln(' if (clave == "emision") ');
|
|
writeln(' obj.value=document.g_factura.f_desde.value;');
|
|
writeln(' if (clave == "vto") ');
|
|
writeln(' obj.value=document.g_factura.v_desde.value;');
|
|
writeln(' if (clave == "fecha") ');
|
|
writeln(' obj.value=document.g_factura.desde.value;');
|
|
writeln(' } ');
|
|
writeln('} ');
|
|
writeln('</SCRIPT>');
|
|
criterio="criterio múltiple";
|
|
if ( client.criteria == "multiple")
|
|
criterio="criterio múltiple";
|
|
if ( client.criteria == "f_emision" )
|
|
criterio="por fecha emision";
|
|
if ( client.criteria == "vto_pago" )
|
|
criterio="por vto. de pago";
|
|
if ( request.FrameType == "F" || request.FrameType == "T" ) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln('function WriteFrameButtons() {')
|
|
if (!request.waux) {
|
|
writeln(' var topFrame=find_frame(top,"top");');
|
|
writeln(' var ndoc=topFrame.document; ');
|
|
writeln(' var mainFrame=find_frame(top,"main");');
|
|
writeln(' var formAction=mainFrame.document.location.href;');
|
|
QueryButtons("Facturas",criterio,"fa_");
|
|
}
|
|
writeln('}');
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (!request.waux) {
|
|
if (request.gofunc) {
|
|
writeln('</BODY>');
|
|
writeln('</HTML>');
|
|
writeln(' <!--');
|
|
}
|
|
else {
|
|
if ( request.FrameType == "L" ) {
|
|
writeln('<FORM METHOD="post" ACTION="o_factura.html?'+baseHtml+'&nvo=1">');
|
|
QueryHeadBar("Facturas",criterio,"fa_")
|
|
writeln('</FORM>');
|
|
}
|
|
writeln('<FORM NAME="g_factura" method="Post" action="g_factura.html?'+baseHtml+'">');
|
|
}
|
|
}
|
|
else {
|
|
writeln('<FORM NAME="g_factura" method="Post" action="g_factura.html?waux='+request.waux+'&'+baseHtml+'">');
|
|
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
|
|
}
|
|
writeln("<B>Cambiar Seleccion Datos por: </B>");
|
|
if ( client.criteria != "fecha_emision" )
|
|
writeln("<INPUT TYPE='submit' NAME='fecha_emision' value='F.Emisión'>");
|
|
if ( client.criteria != "vto_pago" )
|
|
writeln("<INPUT TYPE='submit' NAME='vto_pago' value='Vto.Pago'>");
|
|
if ( client.criteria != "multiple" )
|
|
writeln("<INPUT TYPE='submit' NAME='multiple' value='Múltiple'>");
|
|
writeln("<HR>");
|
|
if (client.criteria == "f_emision" || client.criteria == "vto_pago" || client.criteria == "multiple" ) {
|
|
if (client.criteria == "multiple" ) {
|
|
if (!request.nif)
|
|
request.nif="";
|
|
if (!request.cod_centro)
|
|
request.cod_centro="";
|
|
if (!request.razon_social)
|
|
request.razon_social="";
|
|
if (!request.nro_fra)
|
|
request.nro_fra="";
|
|
if (!request.f_desde)
|
|
request.f_desde="";
|
|
if (!request.f_hasta)
|
|
request.f_hasta="";
|
|
if (!request.v_desde)
|
|
request.v_desde="";
|
|
if (!request.v_hasta)
|
|
request.v_hasta="";
|
|
if (!request.nro_regn)
|
|
request.nro_regn="";
|
|
if (!request.d_mes_fra)
|
|
request.d_mes_fra="";
|
|
if (!request.h_mes_fra)
|
|
request.h_mes_fra="";
|
|
if (!request.d_nro_doc_pago)
|
|
request.d_nro_doc_pago="";
|
|
if (!request.h_nro_doc_pago)
|
|
request.h_nro_doc_pago="";
|
|
if (!request.nro_regy) {
|
|
var n = HOY.getYear();
|
|
if ( n >= 0 && n <= 70 )
|
|
n += 2000;
|
|
else
|
|
n += 1900;
|
|
request.nro_regy=n;
|
|
}
|
|
writeln('<INPUT TYPE="submit" value="Buscar">');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.Reg.: </B></TD><TD><INPUT TYPE="text" NAME="nro_regn" VALUE="'+request.nro_regn+'" OnChange="NroPad(this,5)" SIZE=5 ><INPUT TYPE="submit" value=" / "><INPUT TYPE="text" NAME="nro_regy" VALUE="'+request.nro_regy+'" SIZE=4 OnChange="chkYearNroReg(this)"></TD>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.Fra.: </B></TD><TD><INPUT TYPE="text" NAME="nro_fra" VALUE="'+request.nro_fra+'" SIZE=12 > </TD>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.Mes.Desde: </B></TD><TD><INPUT TYPE="text" NAME="d_mes_fra" VALUE="'+request.d_mes_fra+'" SIZE=2 >');
|
|
writeln('Hasta: <INPUT TYPE="text" NAME="h_mes_fra" VALUE="'+request.h_mes_fra+'" SIZE=2 > </TD>');
|
|
writeln("<TR><TD ALIGN=LEFT>N.I.F. .......: </TD><TD><INPUT type='text' name='nif' size=12 maxlength=12 VALUE='"+request.nif +"' onChange='this.value=this.value.toUpperCase()' > </TD></TR>");
|
|
writeln("<TR><TD ALIGN=LEFT>Razón Social .: </TD><TD><INPUT type='text' name='razon_social' size=30 maxlength=40 VALUE='"+request.razon_social +"' ></TD></TR>");
|
|
writeln("<TR><TD ALIGN=LEFT>Código Centro : </TD><TD><INPUT type='text' name='cod_centro' size=12 maxlength=12 VALUE='"+request.cod_centro +"' ></TD></TR>");
|
|
writeln("<TR><TD ALIGN=LEFT>Emitida Desde: </TD><TD><INPUT type='text' name='f_desde' size=8 maxlength=10 VALUE='"+request.f_desde +"' onBlur='ToStringDate(this,IFDF)' onFocus='UnfrmtStrDate(this,IFDF)' >");
|
|
writeln("Hasta: <INPUT type='text' name='f_hasta' size=8 maxlength=10 VALUE='"+request.f_hasta +"' onBlur='ToStringDate(this,IFDF)' onFocus='HastaDefault(this,\"emision\");UnfrmtStrDate(this,IFDF)' onChange='RangoFecha(this,\"emision\")' ></TD></TR>");
|
|
writeln("<TR><TD ALIGN=LEFT>Vto. Pago Desde: </TD><TD><INPUT type='text' name='v_desde' size=8 maxlength=10 VALUE='"+request.v_desde +"' onBlur='ToStringDate(this,IFDF)' onFocus='UnfrmtStrDate(this,IFDF)' >");
|
|
writeln("Hasta: <INPUT type='text' name='v_hasta' size=8 maxlength=10 VALUE='"+request.v_hasta +"' onBlur='ToStringDate(this,IFDF)' onFocus='HastaDefault(this,\"vto\");UnfrmtStrDate(this,IFDF)' onChange='RangoFecha(this,\"vto\")''></TD></TR>");
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.Doc.Pago: </B></TD><TD><INPUT TYPE="text" NAME="d_nro_doc_pago" VALUE="'+request.d_nro_doc_pago+'" SIZE=12 >');
|
|
writeln('Hasta: <INPUT TYPE="text" NAME="h_nro_doc_pago" VALUE="'+request.h_nro_doc_pago+'" SIZE=12 > </TD>');
|
|
writeln('<TR><TD ALIGN=LEFT>Ordenado por: </TD><TD><SELECT NAME="f_orden" SIZE=1>');
|
|
writeln('<OPTION VALUE="razon_social" >Razón Social');
|
|
writeln('<OPTION VALUE="nif" >N.I.F.');
|
|
writeln('<OPTION VALUE="nro_fra" >Nro.Fra. ');
|
|
writeln('<OPTION VALUE="nro_reg" SELECTED>Nro.Reg. ');
|
|
writeln('<OPTION VALUE="f_emision" >Fecha Emisión');
|
|
writeln('<OPTION VALUE="vto_pago" >Vto. Pago');
|
|
writeln('<OPTION VALUE="cod_centro" >Centro ');
|
|
writeln('<OPTION VALUE="f_emision" >Fecha Pago ');
|
|
writeln('<OPTION VALUE="vto_pago" >Vto. Pago ');
|
|
writeln('</SELECT></TD></TR></SELECT></TABLE>');
|
|
}
|
|
else {
|
|
if (!request.desde)
|
|
request.desde="";
|
|
if (!request.hasta)
|
|
request.hasta="";
|
|
writeln("Desde: <INPUT type='text' name='desde' size=8 maxlength=10 VALUE='"+request.desde +"' onBlur='ToStringDate(this,IFDF)' onFocus='UnfrmtStrDate(this,IFDF)' >");
|
|
writeln("Hasta: <INPUT type='text' name='hasta' size=8 maxlength=10 VALUE='"+request.hasta +"' onBlur='ToStringDate(this,IFDF)' onFocus='HastaDefault(this,\"fecha\");UnfrmtStrDate(this,IFDF)' onChange='RangoFecha(this,\"fecha\")' >");
|
|
}
|
|
}
|
|
else {
|
|
if(request.search1 == null)
|
|
writeln("<INPUT type='text' name='search1'>");
|
|
else
|
|
writeln("<INPUT type='text' name='search1' VALUE='" + request.search1 + "'>");
|
|
}
|
|
writeln('<INPUT TYPE="submit" value="Buscar">');
|
|
writeln('</FORM>');
|
|
if ( client.criteria == "multiple" )
|
|
writeln("<b>Según criterio </b>");
|
|
if ( client.criteria == "f_emision" )
|
|
writeln("<b>Fecha de Emisión entre:</b>");
|
|
if ( client.criteria == "vto_pago" )
|
|
writeln("<b>Fecha de Vto. Pago entre:</b>");
|
|
if ( client.criteria == "nro_reg" )
|
|
writeln("Número de Registro empieza por:<BR>")
|
|
|
|
writeln("<CENTER>");
|
|
if (!request.waux) {
|
|
refHtml="g_factura.html?"+baseHtml+"&search2=";
|
|
}
|
|
else {
|
|
refHtml="g_factura.html?waux="+request.waux+"&"+baseHtml+"&search2=";
|
|
}
|
|
LoadHidden(refHtml);
|
|
if ( client.criteria != "f_emision" && client.criteria != "vto_pago" && client.criteria != "multiple" )
|
|
buttonsLetrasNros(refHtml,false);
|
|
writeln("</CENTER><HR>");
|
|
if (request.search1) {
|
|
if ( client.criteria == "f_emision" || client.criteria == "vto_pago" )
|
|
writeln("facturas "+ client.des_criteria +" entre <FONT SIZE=+2>" + request.desde + " - "+ request.hasta +" </FONT><BR>")
|
|
else
|
|
writeln("facturas "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
|
|
}
|
|
if (request.search2) {
|
|
if(request.search2 == "all") {
|
|
writeln("Lista de todos los facturas<BR>");
|
|
}
|
|
else {
|
|
writeln("facturas " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
|
|
}
|
|
}
|
|
writeln("<HR>");
|
|
if(request.search1 || request.search2 || request.desde || request.hasta || request.f_orden ) {
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=1>');
|
|
var suma_total=0;
|
|
var nrows=0;
|
|
while (c_facturas.next()) {
|
|
nrows++;
|
|
LastRow=c_facturas.nro_reg;
|
|
//lista de todos los facturas devueltos por el cursor.
|
|
if ( client.criteria == "f_emision" ){
|
|
if (!request.waux)
|
|
writeln("<TR><TD ALIGN=RIGTH><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html"+
|
|
"?fa_nro_reg=" + escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.cod_centro + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) +
|
|
"</A></TD></TR>");
|
|
else
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html?waux="+request.waux+
|
|
"&fa_nro_reg="+ escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.cod_centro + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) +
|
|
"</A><BR></TD></TR>");
|
|
}
|
|
if ( client.criteria == "vto_pago" ){
|
|
if (!request.waux)
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html"+
|
|
"?fa_nro_reg=" + escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.cod_centro + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) +
|
|
"</A></TD></TR>");
|
|
else
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html?waux="+request.waux+
|
|
"&fa_nro_reg="+ escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.cod_centro + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) +
|
|
"</A><BR></TD></TR>");
|
|
}
|
|
if ( client.criteria == "nro_reg" ){
|
|
if (!request.waux)
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html"+
|
|
"?fa_nro_reg=" + escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.cod_centro + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) +
|
|
"</A></TD></TR>");
|
|
else
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html?waux="+request.waux+
|
|
"&fa_nro_reg="+ escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.cod_centro + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) +
|
|
"</A><BR></TD></TR>");
|
|
}
|
|
if ( client.criteria == "multiple") {
|
|
if (!request.waux)
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html"+
|
|
"?fa_nro_reg=" + escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
StringClip(true,c_facturas.nro_fra) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
StringClip(true,c_facturas.cod_centro) + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif +
|
|
"</A></TD></TR>");
|
|
else
|
|
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_factura.html?waux="+request.waux+
|
|
"&fa_nro_reg="+ escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
|
|
StringClip(true,c_facturas.nro_fra) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.razon_social+ "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
|
|
c_facturas.nro_reg.substring(0,4) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.f_emision_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
datetoString(c_facturas.vto_pago) + "</TD><TD ALIGN=RIGHT>" +
|
|
StringClip(true,c_facturas.cod_centro) + "</TD><TD ALIGN=RIGHT>" +
|
|
NroFormat(c_facturas.importe_total,NF9) + "</TD><TD ALIGN=RIGHT>" +
|
|
c_facturas.nif +
|
|
"</A><BR></TD></TR>");
|
|
}
|
|
suma_total=suma_total+c_facturas.importe_total;
|
|
}
|
|
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></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");
|
|
writeln("</TABLE>");
|
|
if ( nrows == 1 )
|
|
redirect("o_factura.html?fa_nro_reg=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
|
|
}
|
|
if (!request.waux)
|
|
writeSignature(true);
|
|
if (request.gofunc) {
|
|
writeln('-->');
|
|
}
|
|
else {
|
|
writeln('</BODY>');
|
|
writeln('</HTML>');
|
|
}
|
|
</SERVER>
|