579 lines
27 KiB
HTML
579 lines
27 KiB
HTML
<!---
|
|
application: Cuentas a Traspasar
|
|
version: 1.0.0
|
|
filename: g_traspaso.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>Traspaso de facturas</TITLE>
|
|
<SCRIPT SRC="global.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="ctasapagar.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="l_traspaso.js">
|
|
</SCRIPT>
|
|
</HEAD>
|
|
<SERVER>
|
|
vto_dtal="40100000";
|
|
vto_dpag="40100000";
|
|
vto_h="57200000";
|
|
vto_clave="11 ";
|
|
pag_htal="57200000";
|
|
pag_hpag="40100000";
|
|
pag_clave="11 ";
|
|
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 pathFile="c:/tmprpts/";
|
|
var nomDoc=pathFile; // Donde escribe el Server
|
|
var nomData=pathFile;
|
|
var MES="";
|
|
if ( request.f_emision) {
|
|
var pos=request.f_emision.indexOf("/")
|
|
var lastPos=request.f_emision.substring(pos+1,request.f_emision.length).indexOf("/");
|
|
if ( lastPos == -1 )
|
|
MES = "";
|
|
else {
|
|
lastPos=pos+lastPos+1;
|
|
MES = request.f_emision.substring(pos+1,lastPos);
|
|
}
|
|
} else
|
|
var MES=HOY.getMonth()+1;
|
|
debug(MES);
|
|
nomDoc=nomDoc+request.f_traspaso+MES+".html";
|
|
nomData=nomData+request.f_traspaso+MES+".txt";
|
|
var urlDoc="file:///P|/"+request.f_traspaso+MES+".html" // Donde leen los Clients
|
|
var urlData="file:///P|/"+request.f_traspaso+MES+".txt"
|
|
// Direcciones Finales de Campos para traspaso
|
|
var p_nro_doc=6;
|
|
var p_nro_lin=12;
|
|
var p_f_cont=19;
|
|
var p_f_emis=26;
|
|
var p_centro=32;
|
|
var p_cta=41;
|
|
var p_tipo_apte=43;
|
|
var p_importe=55;
|
|
var p_clave=60;
|
|
var p_concepto=91;
|
|
var p_vto=98;
|
|
var p_contracta=107;
|
|
var SumaDebe=0;
|
|
var SumaHaber=0;
|
|
// Variable para Impresora y papel
|
|
var PaperLines=72; // Nro. Lins. del Papel
|
|
var PaperTray=60; // Nro. Lins. del Papel Bandeja
|
|
var LongLine=66; // Longitud de línea
|
|
//
|
|
dbAcl();
|
|
//if ((!request.waux && request.lock) || request.nvo )
|
|
LoadParametros();
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
//if ((!request.waux && request.lock) || request.nvo )
|
|
SetParametros();
|
|
writeln("</SCRIPT>");
|
|
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_traspaso; ');
|
|
if (!request.f_orden && !request.traspaso && !request.opt_traspaso ) {
|
|
if ( chk_traspaso() == false )
|
|
writeln(' f.f_traspaso.focus();');
|
|
}
|
|
if (request.doc_list)
|
|
writeln("displayRptDoc();");
|
|
if (request.data_list )
|
|
writeln("displayRptData();");
|
|
if (request.traspaso) {
|
|
writeln("displayReport();");
|
|
}
|
|
writeln(' }');
|
|
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('}');
|
|
writeln(' function Chek_fields(obj) {');
|
|
if (request.waux )
|
|
writeln(' return true;');
|
|
else if (request.f_orden ) {
|
|
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(' if ( parseInt(obj.totalDocs.value) <=0 ) { ');
|
|
writeln(' alert("!!! No hay Documentos disponibles para el Traspaso de ->"+obj.f_traspaso.value+"<- !!!");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' return true;');
|
|
}
|
|
else if (request.traspaso) {
|
|
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_traspaso;');
|
|
writeln(' if ( obj == "Alta" ) {');
|
|
writeln(' f_frame.action="g_traspaso.html?nvo=1&'+baseHtml+'";');
|
|
writeln(' f_frame.submit(); ');
|
|
writeln(' }');
|
|
writeln(' if ( obj == "Ayuda" )');
|
|
writeln(' NetHelp(valor);');
|
|
writeln(' history.back();');
|
|
writeln('}');
|
|
}
|
|
writeln('</SCRIPT>');
|
|
if (request.traspaso) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayReport() {");
|
|
request.sel_cols="nro_reg";
|
|
if (request.f_traspaso=="pago") {
|
|
request.sel_order="nro_doc_pago,"+request.sel_order
|
|
request.sel_cols="nro_doc_pago";
|
|
}
|
|
if (request.f_traspaso=="vto") {
|
|
request.sel_order="nro_doc_pago,nro_reg_vto,"+request.sel_order
|
|
request.sel_cols="nro_reg_vto";
|
|
}
|
|
c_traspdocs = database.cursor("SELECT unique "+request.sel_cols+" FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
|
" and "+request.criterio +
|
|
" ORDER BY " + request.sel_cols);
|
|
// " and is_locked !='S' and "+request.criterio +
|
|
report_traspaso();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (request.doc_list) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayRptDoc() {");
|
|
rpt_traspaso_Doc();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if (request.data_list) {
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
writeln("function displayRptData() {");
|
|
rpt_traspaso_Data();
|
|
writeln("}");
|
|
writeln("</SCRIPT>");
|
|
}
|
|
if( request.f_orden ) {
|
|
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_pago >= '"+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_pago <= '"+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+"'"
|
|
}
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+"traspaso_"+request.f_traspaso+" != 'S' "
|
|
if ( request.f_traspaso == "vto" ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" vto_pago is not null and nro_reg_vto not matches ' *' "
|
|
}
|
|
if ( request.f_traspaso == "pago" ) {
|
|
if (criterio.length > 0 )
|
|
criterio=criterio+" and "
|
|
criterio=criterio+" vto_pago is not null "
|
|
}
|
|
request.criterio=criterio;
|
|
}
|
|
}
|
|
criterio="Traspaso";
|
|
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_traspaso.f_desde.value) != 1 ) {;');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.f_traspaso.f_desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' if (clave == "vto") { ');
|
|
writeln(' if (dateCmp(obj.value,document.f_traspaso.v_desde.value) != 1 ) {;');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.f_traspaso.v_desde.focus();');
|
|
writeln(' } ');
|
|
writeln(' } ');
|
|
writeln(' if (clave == "fecha") { ');
|
|
writeln(' if (dateCmp(obj.value,document.f_traspaso.desde.value) != 1 ) {');
|
|
writeln(' alert("¡ El Rango de Fechas no es posible !");');
|
|
writeln(' obj.value="";');
|
|
writeln(' document.f_traspaso.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_traspaso.f_desde.value;');
|
|
writeln(' if (clave == "vto") ');
|
|
writeln(' obj.value=document.f_traspaso.v_desde.value;');
|
|
writeln(' if (clave == "fecha") ');
|
|
writeln(' obj.value=document.f_traspaso.desde.value;');
|
|
writeln(' } ');
|
|
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("Traspaso",criterio,"tra");
|
|
}
|
|
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_traspaso.html?'+baseHtml+'&nvo=1">');
|
|
QueryHeadBar("Traspaso",criterio,"tra")
|
|
writeln('</FORM>');
|
|
}
|
|
writeln('<FORM NAME="f_traspaso" method="Post" action="g_traspaso.html?'+baseHtml+'" onSubmit="return Chek_fields(this)">');
|
|
}
|
|
}
|
|
else {
|
|
writeln('<FORM NAME="f_traspaso" method="Post" action="g_traspaso.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.traspaso && !request.opt_traspaso) {
|
|
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>Traspaso de:</B></TD><TD><SELECT NAME="f_traspaso" OnChange="" SIZE=1><OPTION VALUE="gasto" SELECTED> Gasto <OPTION VALUE="pago"> Pago <OPTION VALUE="vto"> Vencimiento </SELECT></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>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><FONT COLOR='#800040'>Razón Social .:</FONT> </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>Pago Emitido 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" >Razón Social');
|
|
writeln('<OPTION VALUE="facturas.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_pago" >Fecha Pago ');
|
|
writeln('</SELECT></TD></TR>');
|
|
writeln('</SELECT></TD></TR></TABLE>');
|
|
writeln('<INPUT TYPE="submit" value="Buscar">');
|
|
writeln('</FORM>');
|
|
}
|
|
writeln("<CENTER>");
|
|
if (!request.waux) {
|
|
refHtml="g_traspaso.html?"+baseHtml;
|
|
}
|
|
else {
|
|
refHtml="g_traspaso.html?waux=1&"+baseHtml;
|
|
}
|
|
LoadHidden(refHtml);
|
|
if( request.f_orden ) {
|
|
writeln("</CENTER>");
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
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><B>Fecha Emisión:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_emision" VALUE="'+set_hoy()+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Traspaso </B></TD>');
|
|
if (request.f_traspaso=="gasto")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Gasto </B></FONT>');
|
|
if (request.f_traspaso=="pago")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Pago </B></FONT>');
|
|
if (request.f_traspaso=="vto")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Vencimiento </B></FONT>');
|
|
writeln('</TR>');
|
|
writeln('<INPUT TYPE="hidden" NAME="f_traspaso" VALUE="'+request.f_traspaso+'"></TD></TR>');
|
|
if (request.f_traspaso=="pago") {
|
|
writeln('<TR><TD ALIGN=LEFT><B>Cod. Cta. Abono Talones:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="pag_htal" VALUE="'+pag_htal+'" OnChange="CtaNroPad(this)" SIZE='+client.pa_longcta+' ></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Cod. Cta. Abono Pagarés:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="pag_hpag" VALUE="'+pag_hpag+'" OnChange="CtaNroPad(this)" SIZE='+client.pa_longcta+' ></TD></TR>');
|
|
request.f_clave=pag_clave;
|
|
}
|
|
if (request.f_traspaso=="vto") {
|
|
writeln('<TR><TD ALIGN=LEFT><B>Cod. Cta. Debe Talones:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="vto_dtal" VALUE="'+vto_dtal+'" OnChange="CtaNroPad(this)" SIZE='+client.pa_longcta+' ></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Cod. Cta. Debe Pagarés:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="vto_dpag" VALUE="'+vto_dpag+'" OnChange="CtaNroPad(this)" SIZE='+client.pa_longcta+' ></TD></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Cod. Cta. Haber:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="vto_h" VALUE="'+vto_h+'" OnChange="CtaNroPad(this)" SIZE='+client.pa_longcta+' ></TD></TR>');
|
|
request.f_clave=vto_clave;
|
|
}
|
|
if (request.f_traspaso !="gasto") {
|
|
writeln('<TR><TD ALIGN=LEFT><B>Clave:</B></TD>');
|
|
writeln('<TD><INPUT type="text" name="f_clave" VALUE="'+request.f_clave+'" OnChange="CtaNroPad(this)" SIZE='+client.pa_longcta+' ></TD></TR>');
|
|
}
|
|
writeln('</TABLE>');
|
|
writeln("<HR><CENTER>");
|
|
writeln('<INPUT TYPE="hidden" NAME="criterio" VALUE="'+request.criterio+'"></TD></TR>');
|
|
writeln('<INPUT TYPE="hidden" NAME="sel_order" VALUE="'+request.f_orden+'"></TD></TR>');
|
|
request.totalDocs=0;
|
|
request.sumaTotal=0;
|
|
// query = database.cursor("SELECT count(*),sum(importe_total) FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
|
if (request.f_traspaso=="vto")
|
|
query = database.cursor("SELECT count(unique nro_reg_vto) FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
|
" and "+request.criterio);
|
|
if (request.f_traspaso=="pago")
|
|
query = database.cursor("SELECT count(unique nro_doc_pago) FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
|
" and "+request.criterio);
|
|
if (request.f_traspaso=="gasto")
|
|
query = database.cursor("SELECT count(unique nro_reg) FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
|
" and "+request.criterio);
|
|
if (query.next()) {
|
|
request.totalDocs=query[0];
|
|
// request.sumaTotal=query[1];
|
|
}
|
|
query.close();
|
|
writeln('<HR>');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
// writeln('<TD ALIGN=LEFT><B>Suma Total:</B><INPUT TYPE="text" NAME="sumaTotal" OnChange="" VALUE="'+NroFormat(request.sumaTotal,NF11)+'" SIZE=12 ></TD>');
|
|
writeln('<TD ALIGN=LEFT><B>Nro. Docs:</B><INPUT TYPE="text" NAME="totalDocs" VALUE="'+NroFormat(request.totalDocs,NF7)+'" OnChange="" SIZE=12 ></TD><TR>');
|
|
writeln('</TABLE>');
|
|
writeln('<HR>');
|
|
writeln('<CENTER><INPUT TYPE="submit" name="traspaso" value="Traspasar Documentos"></CENTER>');
|
|
}
|
|
if (request.doc_clean) {
|
|
cleanup_traspaso();
|
|
redirect(addClient("g_traspaso.html?"+baseHtml));
|
|
}
|
|
if (request.doc_traspaso) {
|
|
if (request.f_traspaso!="gasto")
|
|
status=database.execute("UPDATE facturas SET traspaso_"+request.f_traspaso+"='S', is_locked='S' WHERE "+request.criterio);
|
|
if (request.f_traspaso=="gasto")
|
|
status=database.execute("UPDATE facturas SET traspaso_"+request.f_traspaso+"='S', is_locked='N' WHERE "+request.criterio);
|
|
cleanup_traspaso();
|
|
redirect(addClient("g_traspaso.html?"+baseHtml));
|
|
}
|
|
if (request.traspaso || request.opt_traspaso) {
|
|
writeln('<CENTER><INPUT TYPE="submit" name="doc_traspaso" value="Confirmar">');
|
|
writeln('<INPUT TYPE="submit" name="doc_clean" value="Deshacer">');
|
|
writeln('<INPUT TYPE="submit" name="data_list" value="Fichero">');
|
|
writeln('<INPUT TYPE="submit" name="doc_list" value="Listar"></CENTER>');
|
|
writeln('<INPUT TYPE="hidden" NAME="opt_traspaso" VALUE="0">');
|
|
writeln('<INPUT TYPE="hidden" NAME="f_traspaso" VALUE="'+request.f_traspaso+'">');
|
|
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Fecha Emisión:</B></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.f_emision+'</FONT><INPUT type="hidden" name="f_emision" VALUE="'+request.f_emision+'" size=8 maxlength=8></TD></FONT></TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Traspaso </B></TD>');
|
|
if (request.f_traspaso=="gasto")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Gasto </B></FONT>');
|
|
if (request.f_traspaso=="pago")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Pago </B></FONT>');
|
|
if (request.f_traspaso=="vto")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Vencimiento </B></FONT>');
|
|
writeln('</TR>');
|
|
writeln('<TR><TD ALIGN=LEFT><B>Nro. Documento:</B>');
|
|
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('</TABLE>');
|
|
writeln('<INPUT TYPE="hidden" NAME="criterio" VALUE="'+request.criterio+'"></TD></TR>');
|
|
writeln('<INPUT TYPE="hidden" NAME="totalDocs" VALUE="'+request.totalDocs+'"></TD></TR>');
|
|
}
|
|
writeln('</FORM>');
|
|
if (!request.waux)
|
|
writeSignature(true);
|
|
if (request.gofunc) {
|
|
writeln('-->');
|
|
}
|
|
else {
|
|
writeln('</BODY>');
|
|
writeln('</HTML>');
|
|
}
|
|
</SERVER>
|