ctasapagar/o_unlockfra.html
2021-10-01 20:28:38 +01:00

405 lines
20 KiB
HTML

<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_unlockfra.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>Gestion de facturas</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<SERVER>
var NF7=""
var NF9=""
var NF10=""
var HOY=new Date();
// 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();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 LANGUAGE='JavaScript'>");
writeln(' function Chek_fields(obj) {');
writeln(' var f=document.f_unlockfra; ');
writeln(' if ( f.unlock.value=="Ejecurar" ) { ');
writeln(' if (confirm("!!! Confirmar Tarea !!!"))');
writeln(' return true;');
writeln(' else ');
writeln(' return false;');
writeln(' } ');
writeln(' else ');
writeln(' return true;');
writeln(' }');
writeln(' function GoField() {');
writeln(' var f=document.f_unlockfra; ');
if ( request.unlock=="Ejecutar" ) {
writeln(' alert("¡¡¡ Acción realizada ...\\r sobre el documento !!!"); ');
}
if ( request.unlock=="Buscar" )
writeln(' f.totalDocs.focus();');
if ( request.unlock=="Ejecutar" || !request.unlock )
writeln(' f.d_nro_regn.focus();');
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('}');
if (request.gofunc) {
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_unlockfra;');
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.unlock) {
if (!request.gofunc) {
dbConnect();
if (request.unlock) {
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.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 matches '"+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);
criterio=criterio+"' 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 matches '"+StringClip(true,request.d_nro_regy)+StringClip(true,request.d_nro_regn)+"'"
}
}
if ( request.h_nro_reg_vton.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_reg_vto >= '"+StringClip(true,request.d_nro_reg_vtoy)+StringClip(true,request.d_nro_reg_vton)+"' and facturas.nro_reg_vto <= '"+StringClip(true,request.h_nro_reg_vtoy)+StringClip(true,request.h_nro_reg_vton)+"'"
} else {
if ( request.d_nro_reg_vton.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_reg_vto matches '"+StringClip(true,request.d_nro_reg_vtoy)+StringClip(true,request.d_nro_reg_vton)+"'"
}
}
if ( request.pago_delete && request.unlock=="Ejecutar" ) {
client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE facturas SET "+
" is_locked='N',"+
" nro_doc_pago='',"+
" f_emision_pago='',"+
" cod_localidad='',"+
" cod_banco='',"+
" vto_pago=''"+
" WHERE " + criterio );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=9'));
}
DbsError(true,status);
database.commitTransaction();
}
if ( request.vto_pago_upd && request.unlock=="Ejecutar" && request.vto_pago.length > 0 ) {
client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE facturas SET "+
" vto_pago='"+ DateFormat(request.vto_pago,NLDF)+"'"+
" WHERE " + criterio );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=9'));
}
DbsError(true,status);
database.commitTransaction();
}
if ( request.no_lock && request.unlock=="Ejecutar" ) {
status = database.execute("UPDATE facturas set is_locked='N' WHERE "+ criterio );
}
if ( request.lock_fra && request.unlock=="Ejecutar" ) {
status = database.execute("UPDATE facturas set is_locked='S' WHERE "+ criterio );
}
if ( request.trasp_gasto && request.unlock=="Ejecutar" ) {
status = database.execute("UPDATE facturas set traspaso_gasto='N' WHERE "+ criterio );
}
if ( request.trasp_pago && request.unlock=="Ejecutar" ) {
status = database.execute("UPDATE facturas set traspaso_pago='N' WHERE "+ criterio );
}
if ( request.trasp_vto && request.unlock=="Ejecutar" ) {
status = database.execute("UPDATE facturas set traspaso_vto='N' WHERE "+ criterio );
}
if ( request.unlock=="Ejecutar" )
request.unlock="Buscar";
}
}
}
nombre="Gestión";
writeln("<SCRIPT LANGUAGE='JavaScript'>");
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",nombre,"rpt");
}
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_unlockfra.html?'+baseHtml+'&nvo=1" onSubmit="return Chek_fields(this)">');
QueryHeadBar("Facturas",nombre,"ulk")
writeln('</FORM>');
}
writeln('<FORM NAME="f_unlockfra" method="Post" action="o_unlockfra.html?'+baseHtml+'" onSubmit="return Chek_fields(this)">');
}
}
else {
writeln('<FORM NAME="f_unlockfra" method="Post" action="o_unlockfra.html?waux='+request.waux+'&'+baseHtml+'" onSubmit="return Chek_fields(this)">');
writeln('<CENTER><FONT SIZE=+2>'+nombre+' </FONT></FONT></H1></CENTER>');
}
if ( !request.unlock || request.unlock=="Buscar" ) {
writeln("<B>Criterios de Seleccion Datos: </B>");
writeln("<HR>");
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.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_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;
}
if (!request.d_nro_reg_vton)
request.d_nro_reg_vton="";
if (!request.d_nro_reg_vtoy) {
var n = HOY.getYear();
if ( n >= 0 && n <= 70 )
n += 2000;
else
n += 1900;
request.d_nro_reg_vtoy=n;
}
if (!request.h_nro_reg_vton)
request.h_nro_reg_vton="";
if (!request.h_nro_reg_vtoy) {
var n = HOY.getYear();
if ( n >= 0 && n <= 70 )
n += 2000;
else
n += 1900;
request.h_nro_reg_vtoy=n;
}
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>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>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.Apte Vto.Desde: </B></TD><TD><INPUT TYPE="text" NAME="d_nro_reg_vton" VALUE="'+request.d_nro_reg_vton+'" OnChange="NroPad(this,5)" SIZE=5 > <INPUT TYPE="text" NAME="d_nro_reg_vtoy" VALUE="'+request.d_nro_reg_vtoy+'" SIZE=4 OnChange="chkYearNroReg(this)">');
writeln('Hasta: <INPUT TYPE="text" NAME="h_nro_reg_vton" VALUE="'+request.h_nro_reg_vton+'" OnChange="NroPad(this,5)" SIZE=5 > <INPUT TYPE="text" NAME="h_nro_reg_vtoy" VALUE="'+request.h_nro_reg_vtoy+'" SIZE=4 OnChange="chkYearNroReg(this)"><INPUT TYPE="submit" value=" / "></TD>');
writeln('</TD></TR></TABLE>');
writeln("<INPUT type='hidden' name='unlock' size=8 maxlength=10 VALUE='Seleccion' >");
writeln('<INPUT TYPE="submit" value="Buscar">');
}
else {
request.totalDocs=0;
query = database.cursor("SELECT count(*) FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
" and "+criterio);
if (query.next()) {
request.totalDocs=query[0];
}
query.close();
writeln('<HR>');
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
writeln('<TR><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('<TABLE ALIGN="CENTER" BORDER=0>');
writeln('<TR><TD ALIGN=LEFT><B><I><FONT COLOR="#800040">Desbloquear:</FONT></B><INPUT TYPE="submit" name="no_lock" value="Desbloqueo de Facturas"></TD></TR>');
writeln('<TR><TD ALIGN=LEFT><B><I>Bloquear:</B><INPUT TYPE="submit" name="lock_fra" value="Bloqueo de Facturas"></TD></TR>');
writeln('<TR><TD ALIGN=LEFT><B><I>Cancelar:</B><INPUT TYPE="submit" name="pago_delete" value="Datos de Pago"></TD></TR>');
writeln('<TR><TD ALIGN=LEFT><B><I>Cancelar Traspaso de:</B><INPUT TYPE="submit" name="trasp_gasto" value="Gasto"></TD></TR>');
writeln('<TR><TD ALIGN=LEFT><B><I>Cancelar Traspaso de:</B><INPUT TYPE="submit" name="trasp_pago" value="Pago"></TD></TR>');
writeln('<TR><TD ALIGN=LEFT><B><I>Cancelar Traspaso de:</B><INPUT TYPE="submit" name="trasp_vto" value="Vencimiento"></TD></TR></I>');
writeln('<TR><TD ALIGN=LEFT><B><I>Cambiar Vto. Pago a:</B><INPUT TYPE="submit" name="vto_pago_upd" value="Nueva fecha:"><INPUT type="text" name="vto_pago" size=8 maxlength=10 VALUE="" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" >');
writeln('</TABLE>');
writeln("<INPUT type='hidden' name='unlock' size=8 maxlength=10 VALUE='Ejecutar' >");
writeln('<INPUT TYPE="hidden" NAME="d_nro_regn" VALUE="'+request.d_nro_regn+'" > <INPUT TYPE="hidden" NAME="d_nro_regy" VALUE="'+request.d_nro_regy+'" >');
writeln('<INPUT TYPE="hidden" NAME="h_nro_regn" VALUE="'+request.h_nro_regn+'" > <INPUT TYPE="hidden" NAME="h_nro_regy" VALUE="'+request.h_nro_regy+'" >');
writeln('<INPUT TYPE="hidden" NAME="d_nro_fra" VALUE="'+request.d_nro_fra+'" >');
writeln('<INPUT TYPE="hidden" NAME="h_nro_fra" VALUE="'+request.h_nro_fra+'">');
writeln("<INPUT type='hidden' name='nif' VALUE='"+request.nif +"' >");
writeln("<INPUT type='hidden' name='d_cod_centro' VALUE='"+request.d_cod_centro +"' >");
writeln("<INPUT type='hidden' name='h_cod_centro' VALUE='"+request.h_cod_centro +"' ></TD></TR>");
writeln("<INPUT type='hidden' name='f_desde' VALUE='"+request.f_desde +"' >");
writeln("<INPUT type='hidden' name='f_hasta' VALUE='"+request.f_hasta +"' >");
writeln("<INPUT type='hidden' name='v_desde' VALUE='"+request.v_desde +"' >");
writeln("<INPUT type='hidden' name='v_hasta' VALUE='"+request.v_hasta +"' >");
writeln('<INPUT TYPE="hidden" NAME="d_nro_reg_vton" VALUE="'+request.d_nro_reg_vton+'" > <INPUT TYPE="hidden" NAME="d_nro_reg_vtoy" VALUE="'+request.d_nro_reg_vtoy+'">');
writeln('<INPUT TYPE="hidden" NAME="h_nro_reg_vton" VALUE="'+request.h_nro_reg_vton+'" > <INPUT TYPE="hidden" NAME="h_nro_reg_vtoy" VALUE="'+request.h_nro_reg_vtoy+'">');
}
writeln('</FORM>');
writeln("<CENTER>");
if (!request.waux) {
refHtml="o_unlockfra.html?"+baseHtml+"&search2=";
}
else {
refHtml="o_unlockfra.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>