803 lines
38 KiB
HTML
803 lines
38 KiB
HTML
<!---
|
|
application: Cuentas a Pagar
|
|
version: 1.0.0
|
|
filename: g_docpago.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>Doc. Pago de facturas</TITLE>
|
|
<SCRIPT SRC="global.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="ctasapagar.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="l_docpago.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="nroletra.js">
|
|
</SCRIPT>
|
|
</HEAD>
|
|
<SERVER>
|
|
var NF09=""
|
|
var NFY9="";
|
|
var NF7="";
|
|
var NF10=""
|
|
var HOY=new Date();
|
|
// Algunos formatos para fechas.
|
|
var NLDF=""; // para columnas en las queries INFORMIX
|
|
var baseHtml="";
|
|
var nprinter="ep1170";
|
|
var spoolpath="";
|
|
var pathFile="c:/tmprpts/";
|
|
var nomFile=pathFile+request.uid+"_pag.html"; // Donde escribe el Server
|
|
var nomCarta=pathFile+request.uid+"_car.html";
|
|
var nomFich=pathFile+request.uid+"_fic.txt";
|
|
var nomTest=pathFile+request.uid+"_tst.html";
|
|
var nomList=pathFile+request.uid+"_lst.html";
|
|
var urlFile="file:///P|/"+request.uid+"_pag.html" // Donde leen los Clients
|
|
var urlCarta="file:///P|/"+request.uid+"_car.html"
|
|
var urlFich="file:///P|/"+request.uid+"_fic.txt"
|
|
var urlTest="file:///P|/"+request.uid+"_tst.html"
|
|
var urlList="file:///P|/"+request.uid+"_lst.html"
|
|
// Variable para Impresora y papel
|
|
var BodyLines=8; // Nro. Lins. del Cuerpo
|
|
var PaperLines=72; // Nro. Lins. del Papel Pagaré
|
|
var PaperTray=60; // Nro. Lins. del Papel Bandeja
|
|
var PaperTLines=74; // Nro. Lins. del Papel Talón
|
|
var HeadPosLin=20; // Nro. Lin. de Cabecera (luego del logo)
|
|
var FootPosLin=43; // Nro. Lin. del Pie (pagaré)
|
|
var CompLetOn=""; // Código on Letra comprimida
|
|
var CompLetOff=""; // Código off Letra comprimida
|
|
var LongLine=66; // Longitud de línea
|
|
var CarPad="-"; // Caracter de relleno
|
|
// Variables de traducción de dígitos -- Se ha fracasado con matrices en el SERVER
|
|
var mat_un_0="";
|
|
var mat_un_1="";
|
|
var mat_un_2="";
|
|
var mat_un_3="";
|
|
var mat_un_4="";
|
|
var mat_un_5="";
|
|
var mat_un_6="";
|
|
var mat_un_7="";
|
|
var mat_un_8="";
|
|
var mat_un_9="";
|
|
var mat_ud_0="";
|
|
var mat_ud_1="";
|
|
var mat_ud_2="";
|
|
var mat_ud_3="";
|
|
var mat_ud_4="";
|
|
var mat_ud_5="";
|
|
var mat_ud_6="";
|
|
var mat_ud_7="";
|
|
var mat_ud_8="";
|
|
var mat_ud_9="";
|
|
var mat_de_1="";
|
|
var mat_de_2="";
|
|
var mat_de_3="";
|
|
var mat_de_4="";
|
|
var mat_de_5="";
|
|
var mat_de_6="";
|
|
var mat_de_7="";
|
|
var mat_de_8="";
|
|
var mat_de_9="";
|
|
var mat_ce_1="";
|
|
var mat_ce_2="";
|
|
var mat_ce_3="";
|
|
var mat_ce_4="";
|
|
var mat_ce_5="";
|
|
var mat_ce_6="";
|
|
var mat_ce_7="";
|
|
var mat_ce_8="";
|
|
var mat_ce_9="";
|
|
var mat_mll_1="";
|
|
var mat_mll_2="";
|
|
var mat_mll_3="";
|
|
var mat_mll_4="";
|
|
var mat_mll_5="";
|
|
var mat_mll_6="";
|
|
var mat_mll_7="";
|
|
var mat_mll_8="";
|
|
var mat_mll_9="";
|
|
var let_ciens=""; // cientos
|
|
var let_cient=""; // ciento
|
|
var let_cien=""; // cien
|
|
var let_plus100=""; // ciento
|
|
var let_un=""; // un
|
|
var let_mil=""; // mil
|
|
var let_mill=""; // cadena "llón"
|
|
var let_mills=""; // cadena "llones"
|
|
var let_con=""; // con para decimales
|
|
var car_dec=""; // carácter decimales
|
|
var num_let=""; // resultado
|
|
var num_let2=""; // resultado
|
|
var tx_cent="";
|
|
var tx_dece="";
|
|
var tx_und="";
|
|
var tx_mll="";
|
|
var txletmll="";
|
|
var txletmil="";
|
|
var linPad="";
|
|
dbAcl();
|
|
if (request.doc_clean) {
|
|
cleanup_docspago();
|
|
redirect(addClient("g_docpago.html?"+baseHtml));
|
|
}
|
|
if (request.doc_pago) {
|
|
if (updPagoFras()) {
|
|
cleanup_docspago();
|
|
redirect(addClient("g_docpago.html?"+baseHtml));
|
|
}
|
|
}
|
|
if (request.doc_delete) {
|
|
// Borramos en tabla de pagos datos del usuario
|
|
if ( request.h_nro_doc != "0" ) {
|
|
criteria=" nro_doc_pago >= '"+NroUnformat(request.d_nro_doc)+"' and nro_doc_pago <= '"+NroUnformat(request.h_nro_doc)+"'";
|
|
} else {
|
|
criteria=" nro_doc_pago = '"+NroUnformat(request.d_nro_doc)+"'";
|
|
}
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
c_docspago = database.cursor("SELECT nro_reg FROM docspago WHERE uid='"+request.uid+"' and "+ criteria+" 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+"'");
|
|
}
|
|
c_docspago.close();
|
|
status=database.execute("DELETE FROM docspago WHERE uid=\'" + request.uid+ "\' and "+criteria);
|
|
database.commitTransaction();
|
|
client.is_trans=false;
|
|
}
|
|
if (request.gofunc)
|
|
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\')"');
|
|
else {
|
|
if ( request.FrameType == "F" || request.FrameType == "T" )
|
|
writeln(' <BODY OnLoad="WriteFrameButtons();GoField()"');
|
|
else
|
|
writeln(' <BODY OnLoad="GoField()"');
|
|
}
|
|
writeln(' BACKGROUND="images/backgrnd.gif">');
|
|
writeln('<SCRIPT SRC="global.js">');
|
|
writeln('</SCRIPT>');
|
|
writeln('<SCRIPT SRC="ctasapagar.js">');
|
|
writeln('</SCRIPT>');
|
|
writeln('<SCRIPT SRC="factura.js">');
|
|
writeln('</SCRIPT>');
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln(' function GoField() {');
|
|
writeln(' var f=document.f_docpago; ');
|
|
writeln(' // nro_letra("2505480", "spa", "f", "Pesetas", "-", 54,68);');
|
|
writeln(' // alert("\\r"+num_let+"¡¡¡ !!!"); ');
|
|
if (!request.f_orden && !request.docpago && !request.opt_docpago && !request.test) {
|
|
if ( chk_docspago() == false )
|
|
writeln(' f.f_impdisp.focus();');
|
|
}
|
|
if (request.doc_list)
|
|
writeln("displayRptPagos();");
|
|
if (request.f_tipo_doc_pago == "2" && request.doc_carta)
|
|
writeln("displayRptCarta();");
|
|
if (request.f_tipo_doc_pago == "2" && request.doc_file)
|
|
writeln("displayRptFile();");
|
|
if (request.docpago)
|
|
writeln("displayReport();");
|
|
if (request.test)
|
|
writeln("displayRptTest();");
|
|
writeln(' }');
|
|
writeln(' function chkYearNroReg(obj) {');
|
|
writeln(' var nro=0; ');
|
|
writeln(' 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('}');
|
|
writeln(' function Chek_fields(obj) {');
|
|
if (request.waux )
|
|
writeln(' return true;');
|
|
else if (!request.f_orden && !request.docpago && !request.opt_docpago && !request.test) {
|
|
writeln(' var importe_disp=0, importe_min=0, nro=0;');
|
|
writeln(' importe_disp=parseInt(NroUnformat(obj.f_impdisp.value));');
|
|
writeln(' if ( emptyField(obj.f_impdisp) == true || importe_disp <= 0 ) { ');
|
|
writeln(' alert("!!! El Disponible ha de ser mayor que 0 !!!->"+obj.f_impdisp.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' if ( emptyField(obj.f_nro_doc) == true || parseInt(obj.f_nro_doc.value)<=0 ) { ');
|
|
writeln(' alert("!!! Es necesario rellenar el Nro. de Documento !!!->"+obj.f_nro_doc.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' importe_min=parseInt(NroUnformat(obj.f_importe_min.value));');
|
|
writeln(' nro=importe_disp-importe_min;');
|
|
writeln(' if ( nro < 0 ) { ');
|
|
writeln(' alert("!!! El importe Disponible ha de ser mayor que el Mínimo a pagar !!!->"+nro+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' return true;');
|
|
}
|
|
else if (request.f_orden && !request.test) {
|
|
writeln(' var sumaTotal=0, importe_disp=0, nro=0, pos=0;');
|
|
writeln(' sumaTotal=parseFloat(NroUnformat(obj.sumaTotal.value));');
|
|
writeln(' if ( sumaTotal <= 0 ) { ');
|
|
writeln(' alert("!!! EL importe total a pagar no puede ser 0 o menor que 0 !!!->"+sumaTotal+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' importe_disp=parseInt(NroUnformat(obj.f_impdisp.value));');
|
|
writeln(' nro=sumaTotal-importe_disp;');
|
|
writeln(' if ( nro < 0 ) { ');
|
|
writeln(' alert("!!! El importe Disponible ha sido excedido en !!!->"+nro+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' obj.sel_nro_reg.value="";');
|
|
writeln(' for (var i=0; i <obj.docpago.length; i++){ ');
|
|
writeln(' if (obj.docpago.options[i].selected) {');
|
|
writeln(' pos=obj.docpago.options[i].value.indexOf("|");');
|
|
writeln(' if (pos > 1) {');
|
|
writeln(' nro_reg=obj.docpago.options[i].value.substring(0,pos);');
|
|
writeln(' if (obj.sel_nro_reg.value.length > 0 ) ');
|
|
writeln(' obj.sel_nro_reg.value=obj.sel_nro_reg.value+"|"+nro_reg;');
|
|
writeln(' else ');
|
|
writeln(' obj.sel_nro_reg.value=nro_reg;');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' obj.sel_nro_reg.value=obj.sel_nro_reg.value+"|"');
|
|
writeln(' obj.sel_nro_reg2.value="";');
|
|
writeln(' if (obj.docpago2) { ') ;
|
|
writeln(' for (var i=0; i <obj.docpago2.length; i++){ ');
|
|
writeln(' if (obj.docpago2.options[i].selected) {');
|
|
writeln(' pos=obj.docpago2.options[i].value.indexOf("|");');
|
|
writeln(' if (pos > 1) {');
|
|
writeln(' nro_reg=obj.docpago2.options[i].value.substring(0,pos);');
|
|
writeln(' if (obj.sel_nro_reg2.value.length > 0 ) ');
|
|
writeln(' obj.sel_nro_reg2.value=obj.sel_nro_reg2.value+"|"+nro_reg;');
|
|
writeln(' else ');
|
|
writeln(' obj.sel_nro_reg2.value=nro_reg;');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' obj.sel_nro_reg.value=obj.sel_nro_reg.value+obj.sel_nro_reg2.value+"|"');
|
|
writeln(' obj.sel_nro_reg2.value="";');
|
|
writeln(' return true;');
|
|
}
|
|
else if (request.docpago) {
|
|
writeln(' if (confirm("!!! Confirmar Tarea !!!"))');
|
|
writeln(' return true;');
|
|
writeln(' else ');
|
|
writeln(' return false;');
|
|
}
|
|
writeln('}');
|
|
if (request.gofunc) {
|
|
writeln('function RunFunction(obj,valor) {');
|
|
writeln(' var mainFrame=find_frame(top,"main");');
|
|
writeln(' var f_frame=mainFrame.document.f_docpago;');
|
|
writeln(' if ( obj == "Alta" ) {');
|
|
writeln(' f_frame.action="g_docpago.html?nvo=1&'+baseHtml+'";');
|
|
writeln(' f_frame.submit(); ');
|
|
writeln(' }');
|
|
writeln(' if ( obj == "Ayuda" )');
|
|
writeln(' NetHelp(valor);');
|
|
writeln(' history.back();');
|
|
writeln('}');
|
|
}
|
|
writeln('</SCRIPT>');
|
|
if (request.docpago) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayReport() {");
|
|
report_docpago();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (request.doc_list) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayRptPagos() {");
|
|
rpt_docpago();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (request.f_tipo_doc_pago == "2" && request.doc_carta) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayRptCarta() {");
|
|
rpt_doccarta();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (request.f_tipo_doc_pago == "2" && request.doc_file) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayRptFile() {");
|
|
rpt_docfile();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (request.test) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayRptTest() {");
|
|
rpt_test();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if( request.f_orden && !request.test) {
|
|
if (!request.gofunc) {
|
|
dbConnect();
|
|
LoadParametros();
|
|
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+" f_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+" f_pago <= '"+v_hasta+"' "
|
|
}
|
|
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 >= '"+request.d_mes_fra+"'"
|
|
}
|
|
}
|
|
if ( request.h_cod_centro.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" cod_centro <= '"+request.d_cod_centro+"' and cod_centro >= '"+request.h_cod_centro+"' "
|
|
} else {
|
|
if ( request.d_cod_centro.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" cod_centro matches '"+request.d_cod_centro+"'"
|
|
}
|
|
}
|
|
if ( request.nif.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nif matches '"+request.nif+"'"
|
|
}
|
|
if ( request.h_nro_fra.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_fra >= '"+request.d_nro_fra+"' and facturas.nro_fra <= '"+request.h_nro_fra+"'"
|
|
} else {
|
|
if ( request.d_nro_fra.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_fra >= '"+request.d_nro_fra+"'"
|
|
}
|
|
}
|
|
if ( request.h_nro_regn.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_reg >= '"+StringClip(true,request.d_nro_regy)+StringClip(true,request.d_nro_regn)+"' and facturas.nro_reg <= '"+StringClip(true,request.h_nro_regy)+StringClip(true,request.h_nro_regn)+"'"
|
|
} else {
|
|
if ( request.d_nro_regn.length > 0 ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" facturas.nro_reg >= '"+StringClip(true,request.d_nro_regy)+StringClip(true,request.d_nro_regn)+"'"
|
|
}
|
|
}
|
|
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+"'"
|
|
}
|
|
var nro=parseFloat(NroUnformat(request.f_importe_min));
|
|
critIMP="";
|
|
if ( nro > 0 ) {
|
|
critIMP=" and importe_total >= '"+nro+"'"
|
|
}
|
|
if (criterio.length > 0 )
|
|
criterio=" and "+criterio;
|
|
request.criterio=criterio;
|
|
c_facturas = database.cursor("SELECT * FROM facturas,proveedores,centros WHERE facturas.nif=proveedores.nif and facturas.cod_centro=centros.cod_centro "+
|
|
" and is_locked !='S' and f_emision_pago is null and proveedores.cond_pago != '"+client.pa_cp_lock+"'"+
|
|
" and tipo_doc_pago ='"+request.f_tipo_doc_pago+"' "+
|
|
" and facturas.cond_pago != '"+client.pa_cp_lock+"' and importe_total > 0 "+criterio +
|
|
critIMP+" ORDER BY " + request.f_orden);
|
|
}
|
|
// if (!c_facturas)
|
|
// DbsError(false,-1);
|
|
// else {
|
|
// writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
// writeln("function displayReport() {");
|
|
// report_fra();
|
|
// writeln("}");
|
|
// writeln("</SCRIPT>");
|
|
// c_facturas.close();
|
|
// }
|
|
}
|
|
criterio="Doc. Pago";
|
|
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.f_docpago.f_desde.value) != 1 ) {;');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.f_docpago.f_desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' if (clave == "vto") { ');
|
|
writeln(' if (dateCmp(obj.value,document.f_docpago.v_desde.value) != 1 ) {;');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.f_docpago.v_desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' if (clave == "fecha") { ');
|
|
writeln(' if (dateCmp(obj.value,document.f_docpago.desde.value) != 1 ) {');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.f_docpago.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.f_docpago.f_desde.value;');
|
|
writeln(' if (clave == "vto") ');
|
|
writeln(' obj.value=document.f_docpago.v_desde.value;');
|
|
writeln(' if (clave == "fecha") ');
|
|
writeln(' obj.value=document.f_docpago.desde.value;');
|
|
writeln(' } ');
|
|
writeln('} ');
|
|
writeln('function SumaTotal(obj) {');
|
|
writeln(' var f=document.f_docpago; ');
|
|
writeln(' var sumaTotal=0 ');
|
|
writeln(' var ndocs=0 ');
|
|
writeln(' for (var i=0; i <obj.length; i++){ ');
|
|
writeln(' if (obj.options[i].selected) {');
|
|
writeln(' ndocs++; ');
|
|
writeln(' var pos=obj.options[i].value.indexOf("|"); ');
|
|
writeln(' if (pos > 1) ');
|
|
writeln(' sumaTotal=sumaTotal+parseFloat(obj.options[i].value.substring(pos+1,obj.options[i].value.length))');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' f.sumaTotal.value=NroFormat(sumaTotal,NF9);');
|
|
writeln(' var impdisp=parseFloat(NroUnformat(f.f_impdisp[1].value));');
|
|
writeln(' f.totalDocs.value=ndocs;');
|
|
writeln(' var total=impdisp-sumaTotal ');
|
|
writeln(' if ( total<0 ) ');
|
|
writeln(' alert("¡ La suma total excede al disponible en:"+NroFormat(total*-1,NF9)+" !");');
|
|
writeln('} ');
|
|
writeln('function SumaTotal2(obj) {');
|
|
writeln(' var f=document.f_docpago; ');
|
|
writeln(' var sumaTotal2=0 ');
|
|
writeln(' var ndocs2=0 ');
|
|
writeln(' for (var i=0; i <obj.length; i++){ ');
|
|
writeln(' if (obj.options[i].selected) {');
|
|
writeln(' ndocs2++; ');
|
|
writeln(' var pos=obj.options[i].value.indexOf("|"); ');
|
|
writeln(' if (pos > 1) ');
|
|
writeln(' sumaTotal2=sumaTotal2+parseFloat(obj.options[i].value.substring(pos+1,obj.options[i].value.length))');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' f.sumaTotal2.value=NroFormat(sumaTotal2,NF9);');
|
|
writeln(' f.totalDocs2.value=ndocs2;');
|
|
writeln('} ');
|
|
writeln('</SCRIPT>');
|
|
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,"pag");
|
|
}
|
|
writeln('}');
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (!request.waux) {
|
|
if (request.gofunc) {
|
|
writeln('</BODY>');
|
|
writeln('</HTML>');
|
|
writeln(' <!--');
|
|
}
|
|
else {
|
|
if ( request.FrameType == "L" ) {
|
|
writeln('<FORM METHOD="post" ACTION="g_docpago.html?'+baseHtml+'&nvo=1">');
|
|
QueryHeadBar("Facturas",criterio,"rpt")
|
|
writeln('</FORM>');
|
|
}
|
|
writeln('<FORM NAME="f_docpago" method="Post" action="g_docpago.html?'+baseHtml+'" onSubmit="return Chek_fields(this)">');
|
|
}
|
|
}
|
|
else {
|
|
writeln('<FORM NAME="f_docpago" method="Post" action="g_docpago.html?waux='+request.waux+'&'+baseHtml+'" onSubmit="return Chek_fields(this)">');
|
|
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
|
|
}
|
|
if( !request.f_orden && !request.docpago && !request.opt_docpago) {
|
|
if (!request.nif)
|
|
request.nif="";
|
|
if (!request.d_cod_centro)
|
|
request.d_cod_centro="";
|
|
if (!request.h_cod_centro)
|
|
request.h_cod_centro="";
|
|
if (!request.razon_social)
|
|
request.razon_social="";
|
|
if (!request.d_nro_fra)
|
|
request.d_nro_fra="";
|
|
if (!request.h_nro_fra)
|
|
request.h_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.d_mes_fra)
|
|
request.d_mes_fra="";
|
|
if (!request.h_mes_fra)
|
|
request.h_mes_fra="";
|
|
if (!request.d_nro_regn)
|
|
request.d_nro_regn="";
|
|
if (!request.d_nro_regy) {
|
|
var n = HOY.getYear();
|
|
if ( n >= 0 && n <= 70 )
|
|
n += 2000;
|
|
else
|
|
n += 1900;
|
|
request.d_nro_regy=n;
|
|
}
|
|
if (!request.h_nro_regn)
|
|
request.h_nro_regn="";
|
|
if (!request.h_nro_regy) {
|
|
var n = HOY.getYear();
|
|
if ( n >= 0 && n <= 70 )
|
|
n += 2000;
|
|
else
|
|
n += 1900;
|
|
request.h_nro_regy=n;
|
|
}
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Disponible:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_impdisp" VALUE="0" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14></TD>');
|
|
writeln('<TD><SELECT NAME="f_cod_banco" SIZE=1>');
|
|
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
|
|
while (c_bancos.next()) {
|
|
writeln('<OPTION VALUE="'+c_bancos.cod_banco+'" >'+c_bancos.nombre);
|
|
}
|
|
c_bancos.close();
|
|
writeln('</SELECT></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Localidad:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_cod_localidad" VALUE="MALAGA" size=12 maxlength=12></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro. Documento:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_nro_doc" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" size=12 maxlength=12 VALUE="" ></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT></TD><TD><SELECT NAME="f_tipo_doc_pago" OnChange="//" SIZE=1><OPTION VALUE="1" SELECTED> Pagaré <OPTION VALUE="2"> Talón Bancario <OPTION VALUE="3"> Compensación <OPTION VALUE="4"> Domiciliación </SELECT></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Fecha Emisión:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_f_emision_pago" VALUE="'+set_hoy()+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
|
|
writeln('</TABLE>');
|
|
writeln('<HR>');
|
|
writeln('<B>Criterios de Seleccion Datos: </B><BR>');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<INPUT TYPE="submit" value="Buscar">');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Importe Superior a:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_importe_min" VALUE="0" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14><INPUT TYPE="submit" value=" . "></TD>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.Reg.Desde: </B></TD><TD><INPUT TYPE="text" NAME="d_nro_regn" VALUE="'+request.d_nro_regn+'" OnChange="NroPad(this,5)" SIZE=5 > <INPUT TYPE="text" NAME="d_nro_regy" VALUE="'+request.d_nro_regy+'" SIZE=4 OnChange="chkYearNroReg(this)">');
|
|
writeln('Hasta: <INPUT TYPE="text" NAME="h_nro_regn" VALUE="'+request.h_nro_regn+'" OnChange="NroPad(this,5)" SIZE=5 > <INPUT TYPE="text" NAME="h_nro_regy" VALUE="'+request.h_nro_regy+'" SIZE=4 OnChange="chkYearNroReg(this)"><INPUT TYPE="submit" value=" / "></TD>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.Fra.Desde: </B></TD><TD><INPUT TYPE="text" NAME="d_nro_fra" VALUE="'+request.d_nro_fra+'" SIZE=12 >');
|
|
writeln('Hasta: <INPUT TYPE="text" NAME="h_nro_fra" VALUE="'+request.h_nro_fra+'" SIZE=12 > </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 Desde: </TD><TD><INPUT type='text' name='d_cod_centro' size=12 maxlength=12 VALUE='"+request.d_cod_centro +"' >");
|
|
writeln("Hasta: <INPUT type='text' name='h_cod_centro' size=12 maxlength=12 VALUE='"+request.h_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>Fecha. 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.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>Ordenado por: </TD><TD><SELECT NAME="f_orden" SIZE=1>');
|
|
writeln('<OPTION VALUE="razon_social" SELECTED>Razón Social');
|
|
writeln('<OPTION VALUE="facturas.nif" >N.I.F.');
|
|
writeln('<OPTION VALUE="nro_fra" >Nro.Fra. ');
|
|
writeln('<OPTION VALUE="nro_reg" >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_pago" >Fecha Pago ');
|
|
writeln('</SELECT></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT>Nro.Lin (test): </TD><TD><SELECT NAME="t_nl" SIZE=1>');
|
|
writeln('<OPTION VALUE="0" SELECTED>No');
|
|
writeln('<OPTION VALUE="1" >Si');
|
|
writeln('</SELECT></TD></TR></TABLE>');
|
|
writeln('<INPUT TYPE="submit" value="Buscar">');
|
|
|
|
writeln('<INPUT TYPE="submit" name="test" value="Test">');
|
|
writeln('</FORM>');
|
|
}
|
|
writeln("<CENTER>");
|
|
if (!request.waux) {
|
|
refHtml="g_docpago.html?"+baseHtml;
|
|
}
|
|
else {
|
|
refHtml="g_docpago.html?waux=1&"+baseHtml;
|
|
}
|
|
LoadHidden(refHtml);
|
|
if( request.f_orden && !request.test ) {
|
|
writeln("</CENTER>");
|
|
if (request.t_nl == "1")
|
|
writeln('<FONT COLOR="#800040" SIZE=+2><BLINK><B>TEST nro. Línea </B></BLINK></FONT>');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<TR><TD ALIGN=LEFT></TD><TD>');
|
|
if (request.f_cod_banco && request.f_cod_banco != null) {
|
|
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.f_cod_banco)+"\'",false,false);
|
|
request.f_t_nombre_banco=StringClip(false,c_bancos.nombre);
|
|
c_bancos.close();
|
|
}
|
|
else
|
|
request.f_t_nombre_banco="";
|
|
writeln('<TR><TD ALIGN=LEFT><B> Cód: <B>'+request.f_cod_banco+'</B></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_t_nombre_banco+'</FONT></B><INPUT TYPE="hidden" NAME="f_cod_banco" VALUE="'+request.f_cod_banco+'" SIZE=4></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Disponible:</TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_impdisp+'</B></FONT><INPUT TYPE="hidden" NAME="f_impdisp" VALUE="'+request.f_impdisp+'" SIZE=14> </TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Localidad:</B></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_cod_localidad+'</FONT><INPUT type="hidden" name="f_cod_localidad" VALUE="'+request.f_cod_localidad+'" size=12 maxlength=12></FONT></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Fecha Emisión:</B></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_f_emision_pago+'</FONT><INPUT type="hidden" name="f_f_emision_pago" VALUE="'+request.f_f_emision_pago+'" size=8 maxlength=8></TD></FONT></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro.</B>');
|
|
if (request.f_tipo_doc_pago=="1")
|
|
writeln('<FONT COLOR="#800040"><B> Pagaré </B></FONT>');
|
|
if (request.f_tipo_doc_pago=="2")
|
|
writeln('<FONT COLOR="#800040"><B> Talón </B></FONT>');
|
|
if (request.f_tipo_doc_pago=="3")
|
|
writeln('<FONT COLOR="#800040"><B> Compensación </B></FONT>');
|
|
if (request.f_tipo_doc_pago=="4")
|
|
writeln('<FONT COLOR="#800040"><B> Domiciliación </B></FONT>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_nro_doc+'</B></FONT><INPUT TYPE="hidden" NAME="f_nro_doc" VALUE="'+request.f_nro_doc+'">');
|
|
writeln('<INPUT TYPE="hidden" NAME="f_tipo_doc_pago" VALUE="'+request.f_tipo_doc_pago+'"></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Importe Superior a:</B></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_importe_min+'</B></FONT><INPUT type="hidden" name="f_importe_min" VALUE="'+request.f_importe_min+'" SIZE=14></TD>');
|
|
writeln('<INPUT TYPE="hidden" NAME="t_nl" VALUE="'+request.t_nl+'"></TD></TR>');
|
|
writeln('</TABLE>');
|
|
writeln("<HR><CENTER>");
|
|
var suma_total=0;
|
|
var nrows=0;
|
|
while (c_facturas.next()) {
|
|
if ( nrows == 0 )
|
|
writeln('<SELECT NAME="docpago" OnChange="SumaTotal(this)" SIZE=10 MULTIPLE>');
|
|
nrows++;
|
|
LastRow=c_facturas.nro_reg;
|
|
//lista de todos los facturas devueltos por el cursor.
|
|
if ( (suma_total+c_facturas.importe_total) > NroUnformat(request.f_impdisp) )
|
|
continue ;
|
|
var linea=c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length)+"   ";
|
|
linea=linea+NroFormat(c_facturas.importe_total,NF09)
|
|
linea=linea+"   "+
|
|
c_facturas.nif +"   "+
|
|
datetoString(c_facturas.f_pago) +"  "+
|
|
c_facturas.razon_social.substring(0,20);
|
|
// "/" + c_facturas.nro_reg.substring(0,4) +" "+
|
|
// c_facturas.nro_fra +" "+
|
|
// datetoString(c_facturas.f_emision) +" "+
|
|
// datetoString(c_facturas.vto_pago) +" "+
|
|
// c_facturas.cod_centro +" "+
|
|
// writeln("<option>"+substChar(linea," "," ")+"</option>");
|
|
writeln('<option value="'+c_facturas.nro_reg+'|'+c_facturas.importe_total+'">'+linea+'</option>');
|
|
suma_total=suma_total+c_facturas.importe_total;
|
|
if ( suma_total > NroUnformat(request.f_impdisp) )
|
|
break ;
|
|
}
|
|
c_facturas.close();
|
|
if ( nrows > 0 )
|
|
writeln('</SELECT>');
|
|
writeln('<HR>');
|
|
writeln('<INPUT TYPE="hidden" NAME="sel_nro_reg" VALUE="">');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<TD ALIGN=LEFT><B>Suma Total:</B><INPUT TYPE="text" NAME="sumaTotal" OnChange="SumaTotal(this)" VALUE="0" SIZE=12 ></TD>');
|
|
writeln('<TD ALIGN=RIGHT><B>Disponible:</B><FONT COLOR="#800040"><B>'+request.f_impdisp+'</B></FONT><INPUT TYPE="hidden" NAME="f_impdisp" VALUE="'+request.f_impdisp+'" SIZE=14> </TD>');
|
|
writeln('<TD ALIGN=LEFT><B>Nro. Docs:</B><INPUT TYPE="text" NAME="totalDocs" VALUE="0" OnChange="SumaTotal(this)" SIZE=3 ></TD><TR>');
|
|
writeln('</TABLE>');
|
|
writeln('<CENTER> <B><H3>Devoluciones</B></H3></CENTER>');
|
|
writeln('<HR>');
|
|
var suma_total2=0;
|
|
var nrows2=0;
|
|
c_facturas = database.cursor("SELECT * FROM facturas,proveedores,centros WHERE facturas.nif=proveedores.nif and facturas.cod_centro=centros.cod_centro "+
|
|
" and is_locked !='S' and f_emision_pago is null and proveedores.cond_pago != '"+client.pa_cp_lock+"'"+
|
|
" and tipo_doc_pago ='"+request.f_tipo_doc_pago+"' "+
|
|
" and facturas.cond_pago != '"+client.pa_cp_lock+"' "+request.criterio +
|
|
" and importe_total < 0 ORDER BY " + request.f_orden);
|
|
while (c_facturas.next()) {
|
|
if ( nrows2 == 0 )
|
|
writeln('<SELECT NAME="docpago2" OnChange="SumaTotal2(this)" SIZE=10 MULTIPLE>');
|
|
nrows2++;
|
|
LastRow=c_facturas.nro_reg;
|
|
var linea=c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length)+"   ";
|
|
linea=linea+NroFormat(c_facturas.importe_total,NF09)
|
|
linea=linea+"   "+
|
|
c_facturas.nif +"   "+
|
|
datetoString(c_facturas.f_pago) +"  "+
|
|
c_facturas.razon_social.substring(0,20);
|
|
// "/" + c_facturas.nro_reg.substring(0,4) +" "+
|
|
// c_facturas.nro_fra +" "+
|
|
// datetoString(c_facturas.f_emision) +" "+
|
|
// datetoString(c_facturas.vto_pago) +" "+
|
|
// c_facturas.cod_centro +" "+
|
|
// writeln("<option>"+substChar(linea," "," ")+"</option>");
|
|
writeln('<option value="'+c_facturas.nro_reg+'|'+c_facturas.importe_total+'">'+linea+'</option>');
|
|
suma_total2=suma_total2+c_facturas.importe_total;
|
|
}
|
|
c_facturas.close();
|
|
if ( nrows2 > 0 )
|
|
writeln('</SELECT>');
|
|
writeln('<HR>');
|
|
writeln('<INPUT TYPE="hidden" NAME="sel_nro_reg2" VALUE="">');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<TD ALIGN=LEFT><B>Suma Total:</B><INPUT TYPE="text" NAME="sumaTotal2" OnChange="SumaTotal2(this)" VALUE="0" SIZE=12 ></TD>');
|
|
writeln('<TD ALIGN=LEFT><B>Nro. Docs:</B><INPUT TYPE="text" NAME="totalDocs2" VALUE="0" OnChange="SumaTotal2(this)" SIZE=3 ></TD><TR>');
|
|
writeln('</TABLE>');
|
|
writeln('<HR>');
|
|
writeln('<CENTER><INPUT TYPE="submit" value="Pagar Documentos"></CENTER>');
|
|
}
|
|
if (request.docpago || request.opt_docpago) {
|
|
writeln('<CENTER><INPUT TYPE="submit" name="doc_pago" value="Confirmar">');
|
|
writeln('<INPUT TYPE="submit" name="doc_clean" value="Deshacer">');
|
|
if (request.f_tipo_doc_pago == "2" ) {
|
|
writeln('<INPUT TYPE="submit" name="doc_carta" value="Carta">');
|
|
writeln('<INPUT TYPE="submit" name="doc_file" value="Fichero">');
|
|
}
|
|
writeln('<INPUT TYPE="submit" name="doc_list" value="Listar"></CENTER>');
|
|
writeln('<INPUT TYPE="hidden" NAME="opt_docpago" VALUE="0">');
|
|
writeln('<INPUT TYPE="hidden" NAME="f_tipo_doc_pago" VALUE="'+request.f_tipo_doc_pago+'">');
|
|
writeln('<BR><BR><LEFT><B>Documentos a Cancelar:</B>');
|
|
writeln('Desde<INPUT type="text" name="d_nro_doc" onBlur="NroToString(this,NF7)" onFocus="StringToNro(this,NF7)" size=9 maxlength=9 VALUE="" >');
|
|
writeln('Hasta<INPUT type="text" name="h_nro_doc" onBlur="NroToString(this,NF7)" onFocus="StringToNro(this,NF7)" size=9 maxlength=9 VALUE="" >');
|
|
writeln('<INPUT TYPE="submit" name="doc_delete" value="Cancelar">');
|
|
}
|
|
writeln('</FORM>');
|
|
if (!request.waux)
|
|
writeSignature(true);
|
|
if (request.gofunc) {
|
|
writeln('-->');
|
|
}
|
|
else {
|
|
writeln('</BODY>');
|
|
writeln('</HTML>');
|
|
}
|
|
</SERVER>
|