Protohistory/ctasapagar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

chore: html pages

Browse Source
This commit is contained in:
JesusPerez 2021-10-01 20:28:38 +01:00
parent 109659fb20
commit 170557d88c
63 changed files with 16806 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
alertpage.html Normal file
View File

@ -0,0 +1,87 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Main Frame in FrameSet</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<BODY BACKGROUND="images/backgrnd.gif">
<SERVER>
//<!--
writeln("<SCRIPT LANGUAGE='JavaScript'>")
writeln("function Go_Location() {")
if (request.alert == 0 ){
redirect("logout.html?alert=0");
}
if (request.alert == 90 ){
writeln('alert("\\r ¡¡¡ Se desconoce el Usuario en la Base de Datos !!!\\r ")');
}
if (request.alert == 99 ){
writeln('alert("\\r ¡¡¡ No es posible utilizar las Páginas con otro Navegador\\r que no sea NETSCAPE NAVIGATOR 3 !!!\\r ")');
}
if (request.alert == 1 ){
writeln('alert("\\r ¡¡¡ Cursor No Abierto !!!\\r Operación no Realizada")');
}
if (request.alert == 2 ) {
if ( request.key )
writeln(' alert("\\r ¡¡¡ Ya existe un registro con esta clave !!! \\r'+ request.key+'\\r Operación no Realizada")');
else
writeln(' alert("\\r ¡¡¡ Ya existe un registro con esta clave !!! \\r Operación no Realizada")');
}
if (request.alert == 3 ) {
writeln(' alert("\\r ¡¡¡ La conversión de Fecha no es correcta!!! \\r Operación no Realizada")');
}
if (request.alert == 5 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Datos!!! \\r Operación no Realizada")');
}
if (request.alert == 6 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la actualización de Datos!!! \\r Operación no Realizada")');
}
if (request.alert == 7 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar el borrado de Datos!!! \\r Operación no Realizada")');
}
if (request.alert == 8 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Datos!!! \\r Transacción no Realizada")');
}
if (request.alert == 9 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la actualización de Datos!!! \\r Transacción no Realizada")');
}
if (request.alert == 10 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar el borrado de Datos!!! \\r Transacción no Realizada")');
}
if (request.alert == 11 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Líneas !!! \\r Transacción no Realizada")');
}
if (request.alert == 12 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Cuentas !!! \\r Transacción no Realizada")');
}
if (request.alert == 14 ) {
if ( request.key )
writeln(' alert("\\r ¡¡¡ No es posible realizar el bloqueo del albarán !!! \\r'+ request.key+'\\r Transacción no Realizada")');
else
writeln(' alert("\\r ¡¡¡ No es posible realizar el bloqueo del albarán !!! \\r Transacción no Realizada")');
}
if (request.alert == 15 ) {
if ( request.key )
writeln(' alert("\\r ¡¡¡ No existe la clave !!! \\r'+ request.key+'\\r Transacción no Realizada")');
else
writeln(' alert("\\r ¡¡¡ No existe clave !!! \\r Transacción no Realizada")');
}
if (request.nro_reg) {
writeln(' alert("\\r ¡¡¡ Error en Factura Nro. Reg: '+request.nro_reg+' !!! \\r Operación no Realizada")');
}
writeln(' history.back(-2)')
writeln("}")
writeln("</SCRIPT>")
//}
//-->
</SERVER>
</HEAD>
<BODY ONLOAD="Go_Location()" >
</BODY>
</HTML>

57
ctasapagar.html Normal file
View File

@ -0,0 +1,57 @@
<HTML>
<TITLE>Cuentas a Pagar</TITLE>
<HEAD>
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE= "JavaScript">
<!--
//-->
</SCRIPT>
<SERVER>
var baseHtml="";
if (!request.FrameType || request.FrameType == "null" )
redirect("logout.html");
dbAcl();
client.prevPage ='ctasapagar.html?""'+baseHtml;
if (request.FrameType =="F") {
writeln('<FRAMESET marginheigth=0 marginwidth=0 noresize ROWS="*,18%">');
writeln(' <FRAMESET marginheigth=0 marginwidth=0 noresize cols="18%,*">');
writeln(' <FRAME src="fr_conten.html?'+baseHtml+'" resize="no" scrolling="auto" name="contents">');
writeln(' <FRAMESET rows="25%,*">');
if ( client.MsgScroll == "S" )
writeln(' <FRAME SRC="fr_top.html?'+baseHtml+'" resize="no" SCROLLING=NO name="top">');
else
writeln(' <FRAME SRC="fr_maintop.html?'+baseHtml+'" resize="no" SCROLLING=NO name="top">');
writeln(' <FRAME src="fr_main.html?'+baseHtml+'" scrolling="auto" name="main">');
writeln(' </FRAMESET>');
writeln(' </FRAMESET>');
writeln(' <FRAMESET marginheigth=0 marginwidth=0 noresize cols="15%,55%,*">');
writeln(' <FRAME src="fr_botleft.html?'+baseHtml+'" resize="no" scrolling="no" name="left_bottom">');
writeln(' <FRAME src="fr_bottom.html?'+baseHtml+'" resize="no" scrolling="no" name="center_bottom">');
writeln(' <FRAME src="fr_botright.html?'+baseHtml+'" resize="no" scrolling="no" name="right_bottom">');
writeln(' </FRAMESET>');
writeln('</FRAMESET>');
}
if (request.FrameType =="T") {
writeln('<FRAMESET marginheigth=0 marginwidth=0 noresize cols="18%,*">');
writeln(' <FRAME src="fr_conten.html?'+baseHtml+'" resize="no" scrolling="auto" name="contents">');
writeln(' <FRAMESET marginheigth=0 marginwidth=0 noresize rows="25%,*">');
if ( client.MsgScroll == "S" )
writeln(' <FRAME SRC="fr_top.html?'+baseHtml+'" resize="no" SCROLLING=NO name="top">');
else
writeln(' <FRAME SRC="fr_maintop.html?'+baseHtml+'" resize="no" SCROLLING=NO name="top">');
writeln(' <FRAME src="fr_main.html?'+baseHtml+'"scrolling="auto" name="main">');
writeln(' </FRAMESET>');
writeln('</FRAMESET>');
}
if (request.FrameType =="L") {
writeln('<FRAMESET marginheigth=0 marginwidth=0 noresize cols="18%,*">');
writeln(' <FRAME src="fr_conten.html?'+baseHtml+'" resize="no" scrolling="auto" name="contents">');
writeln(' <FRAME src="fr_main.html?'+baseHtml+'" scrolling="auto" name="main">');
writeln('</FRAMESET>');
}
</SERVER>
</HTML>

126
error.html Normal file
View File

@ -0,0 +1,126 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Error de Conexi&oacute;n a la Base de Datos</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<SERVER>
if (request.alert) {
//<!--
writeln("<SCRIPT LANGUAGE='JavaScript'>")
writeln("function Go_Location() {")
if (request.alert == 0 ){
redirect("logout.html?alert=0");
}
if (request.alert == 90 ){
writeln('alert("\\r ¡¡¡ Se desconoce el Usuario en la Base de Datos !!!\\r ")');
}
if (request.alert == 99 ){
writeln('alert("\\r ¡¡¡ No es posible utilizar las Páginas con otro Navegador\\r que no sea NETSCAPE NAVIGATOR 3 !!!\\r ")');
}
if (request.alert == 1 ){
writeln('alert("\\r ¡¡¡ Cursor No Abierto !!!\\r Operación no Realizada")');
}
if (request.alert == 2 ) {
writeln(' alert("\\r ¡¡¡ Ya existe un registro con esta clave !!! \\r Operación no Realizada")');
}
if (request.alert == 3 ) {
writeln(' alert("\\r ¡¡¡ La conversión de Fecha no es correcta!!! \\r Operación no Realizada")');
}
if (request.alert == 5 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Datos!!! \\r Operación no Realizada")');
}
if (request.alert == 6 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la actualización de Datos!!! \\r Operación no Realizada")');
}
if (request.alert == 7 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar el borrado de Datos!!! \\r Operación no Realizada")');
}
if (request.alert == 8 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Datos!!! \\r Transacción no Realizada")');
}
if (request.alert == 9 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la actualización de Datos!!! \\r Transacción no Realizada")');
}
if (request.alert == 10 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar el borrado de Datos!!! \\r Transacción no Realizada")');
}
if (request.alert == 11 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Líneas !!! \\r Transacción no Realizada")');
}
if (request.alert == 12 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Cuentas !!! \\r Transacción no Realizada")');
}
if (request.alert == 14 ) {
writeln(' alert("\\r ¡¡¡ No es posible realizar la inserción de Datos de Pago!!! \\r Transacción no Realizada")');
}
if (request.nro_reg) {
writeln(' alert("\\r ¡¡¡ Error en Factura Nro. Reg: '+request.nro_reg+' !!! \\r Operación no Realizada")');
}
writeln(' history.back(-2)')
writeln("}")
writeln("</SCRIPT>")
writeln('<BODY ONLOAD="Go_Location()" BACKGROUND="images/backgrnd.gif">');
} else
writeln('<BODY BACKGROUND="images/backgrnd.gif">');
//-->
</SERVER>
<H1>Gestor de Base de Datos: &nbsp;&nbsp;<B><BLINK><FONT COLOR="#FF0000"><FONT SIZE=+4>ERROR</FONT></FONT></BLINK></B></H1>
<P>
<HR>Par&aacute;metros de Conexi&oacute;n utilizados:</P>
<P>
<SERVER>
// write(" Status: <B>" + status + "</B>\n");
writeln("<p> Tipo de Servidor: <B>" + client.type + "</B><p>\n");
writeln("<p>Identificador del Servidor: <B>" + client.server + "</B><p>\n");
writeln("<p> Identificador Usuario ID: <B>" + client.db_id + "</B><p>\n");
// writeln(" Password: <B>" + client.password + "</B>\n");
writeln("<p> Password: <B>[not shown]</B><p>\n");
writeln("<p> Base de Datos: <B>" + client.database + "</B><p>\n");</SERVER></P>
<P>Comprobar los manuales y documentaci&oacute;n del Gestor de Base de
Datos para m&aacute;s informiaci&oacute;n acerca de los siguientes c&oacute;digos
de error:</P>
<P><!--
<TABLE BORDER=2 CELLPADDING=8 >
<CAPTION>
</CAPTION>
<TR>
<TD><B>Error Code</B></TD>
<TD><B>Mensaje de Error</B></TD>
</TR>
</TABLE>
-->
<SERVER>
if ( client.trans == true ) {
writeln("<p></B>Transacción Abortada </B><p>\n");
client.trans == false
}
writeln("<p>Status: " + client.status + "\n");
writeln("<p>DbStatus: " + client.dbstatus + "\n");
writeln("<p>Major Error: " + client.majorErrorCode + "\n");
writeln(client.majorErrorMessage + "</p>\n");
writeln("<p>Minor Error: " + client.minorErrorCode + "\n");
writeln(client.minorErrorMessage + "</p>\n");
</SERVER>
<!--
<h3>More Information</h3>
For more information, please see the
<a href="http://home.netscape.com/eng/LiveWire/relnotes/">LiveWire
Release Notes</a>. Also check the
<a href="http://help.netscape.com/">Netscape Technical Support Home
Page</a> for related Technical Notes and Frequently Asked Questions.
-->
<SERVER>writeSignature(false)</SERVER>
</BODY>
</HTML>

27
fr_botleft.html Normal file
View File

@ -0,0 +1,27 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="Author" CONTENT="">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (WinNT; I) [Netscape]">
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<FORM NAME="buttonbar">
<LEFT>
<SERVER>
if (request.FrameType == "F") {
writeln('<INPUT TYPE="button" NAME="LeftFrame" VALUE="Lateral"');
writeln(' OnClick="Go_BaseFrame(\'L\')">');
writeln('<INPUT TYPE="button" NAME="TopFrame" VALUE="Cabecera"');
writeln(' OnClick="Go_BaseFrame(\'C\')">');
}
</SERVER>
</FORM>
</BODY>
</HTML>

22
fr_botright.html Normal file
View File

@ -0,0 +1,22 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="Author" CONTENT="">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (WinNT; I) [Netscape]">
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<P><!--
<a href="fr_botright.html" onClick="loadHelp()"><img src="images/bb_help.gif" border="0" alt="Help"></a>
-->
<A HREF="fr_botright.html" onClick="NetHelp('intro')"><IMG SRC="images/bb_help.gif" ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A>
<A HREF="logout.html" target="_top"><IMG SRC="images/bb_logout.gif" ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A>
</P>
</BODY>
</HTML>

13
fr_bottom.html Normal file
View File

@ -0,0 +1,13 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<SCRIPT SRC="global.js">
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Bottom Navigation Bar Frame in FrameSet</TITLE>
<META NAME="FORMATTER" CONTENT="Microsoft FrontPage 1.1">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (WinNT; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<SERVER>writeSignature(false)</SERVER>
</BODY>
</HTML>

73
fr_conten.html Normal file
View File

@ -0,0 +1,73 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Table of Contents Frame in FrameSet</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (WinNT; I) [Netscape]">
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<SERVER>
var baseHtml="frame";
dbAcl();
writeln('<P><BASE target="main"></P>');
writeln('<TABLE BORDER=4 ALIGN=CENTER CELLSPACING=4 CELLPADDING=4>');
writeln('<TR><TD><B><A HREF="g_listados.html?'+baseHtml+'">Listados</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_factura.html?'+baseHtml+'">Facturas</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_albaran.html?'+baseHtml+'">Albaranes</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_proveedor.html?'+baseHtml+'">Proveedores</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_pedido.html?'+baseHtml+'">Pedidos</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_centro.html?'+baseHtml+'">Centros</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_ctascont.html?'+baseHtml+'">Cuentas</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_clave.html?'+baseHtml+'">Claves</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_condpago.html?'+baseHtml+'">Cond.Pago</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_banco.html?'+baseHtml+'">Bancos</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_localidad.html?'+baseHtml+'">Localidades</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_vto.html?'+baseHtml+'">Vencimientos</A></B></TD></TR>');
if (request.uid== "100001") {
writeln('<TR><TD><B><A HREF="g_docpago.html?pa_id=1&'+baseHtml+'">Doc. Pago</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="g_traspaso.html?pa_id=1&'+baseHtml+'">Traspasos</A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="o_unlockfra.html?pa_id=1&'+baseHtml+'">Desbloqueo </A></B></TD></TR>');
writeln('<TR><TD><B><A HREF="o_parame.html?pa_id=1&'+baseHtml+'">Parámetros</A></B></TD></TR>');
}
writeln('<TR><TD><B><A HREF="file:///P%7C/spool">Colas</A></B></TD></TR>');
writeln('</TABLE>');
</SERVER>
<P><FORM NAME="f_contents"><LEFT>
<HR></P>
<DL>
<P><B>Estructura P&aacute;gina:</B> </P>
</DL>
<P>
<SERVER>
if (request.FrameType == "L") {
writeln('<DL><INPUT TYPE="button" NAME="FullFrame" VALUE="Completa"');
writeln(' OnClick="Go_BaseFrame(\'F\',\''+request.ViewFkey+'\',\''+client.MsgScroll+'\',\''+client.username+'\')"></DL>');
writeln('<DL><INPUT TYPE="button" NAME="TopFrame" VALUE="Cabecera"');
writeln(' OnClick="Go_BaseFrame(\'T\',\''+request.ViewFkey+'\',\''+client.MsgScroll+'\',\''+client.username+'\')"></DL>');
}
if (request.FrameType == "T") {
writeln('<DL><INPUT TYPE="button" NAME="FullFrame" VALUE="Completa"');
writeln(' OnClick="Go_BaseFrame(\'F\',\''+request.ViewFkey+'\',\''+client.MsgScroll+'\',\''+client.username+'\')"></DL>');
writeln('<DL><INPUT TYPE="button" NAME="LeftFrame" VALUE="Lateral"');
writeln(' OnClick="Go_BaseFrame(\'L\',\''+request.ViewFkey+'\',\''+client.MsgScroll+'\',\''+client.username+'\')"></DL>');
}
if (request.FrameType == "F") {
writeln('<DL><INPUT TYPE="button" NAME="LeftFrame" VALUE="Lateral"');
writeln(' OnClick="Go_BaseFrame(\'L\',\''+request.ViewFkey+'\',\''+client.MsgScroll+'\',\''+client.username+'\')"></DL>');
writeln('<DL><INPUT TYPE="button" NAME="TopFrame" VALUE="Cabecera"');
writeln(' OnClick="Go_BaseFrame(\'T\',\''+request.ViewFkey+'\',\''+client.MsgScroll+'\',\''+client.username+'\')"></DL>');
}
else {
writeln('<hr>');
writeln('<DL><A HREF="fr_conten.html" target="contents" javascript: onClick="NetHelp(\'intro\')"><IMG SRC="images/bb_help.gif" ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A>');
writeln('<A HREF="logout.html" target="_top"><IMG SRC="images/bb_logout.gif" ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></DL>');
}</SERVER>
<HR></FORM></P>
</BODY>
</HTML>

34
fr_main.html Normal file
View File

@ -0,0 +1,34 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Main Frame in FrameSet</TITLE>
<META NAME="FORMATTER" CONTENT="Microsoft FrontPage 1.1">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<DT>&nbsp;</DT>
<CENTER><TABLE BORDER=4 >
<TR VALIGN=TOP>
<TD WIDTH="100%" HEIGHT="100%" BGCOLOR="#FFFFFF">
<DT><A HREF="http://ctasapagar.malaga.sando.es/Ctas_a_Pagar/home.html" target="_top"><IMG SRC="images/sand2new.gif" BORDER=0 HEIGHT=117 WIDTH=424></A></DT>
</TD>
</TR>
</TABLE></CENTER>
<H1 ALIGN=CENTER><FONT COLOR="#FF0080">Cuentas a Pagar</FONT></H1>
<!--
<A HREF="mailto:%20info%3Csando_malaga@admisys.com%3E"><IMG SRC="images/emailed.gif" HEIGHT=52 WIDTH=45 BORDER=0></A>
-->
<SERVER>
if (request.goback){
writeln('<IMG SRC="images/linea.gif" HEIGHT=20 WIDTH=500 ALIGN=BOTTOM>&nbsp;</P></CENTER>');
writeln('<A HREF="javascript:history.back()"><CENTER><H1>Volver </H1>');
writeln('<A HREF="javascript:history.back()"><IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=52 WIDTH=70>')
}
</SERVER>
<CENTER><DT ALIGN=CENTER>&nbsp;</DT></CENTER>
</BODY>
</HTML>

26
fr_maintop.html Normal file
View File

@ -0,0 +1,26 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="Author" CONTENT="">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (WinNT; I) [Netscape]">
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<FORM NAME="buttonbar">
<LEFT>
<SERVER>
//if (request.FrameType == "F") {
//}
</SERVER>
<P><CENTER><B><FONT COLOR="#3cb74e" SIZE=+2>Construcciones SANDO </FONT></B>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B><FONT
COLOR="#FF0080" SIZE=+2> Dpto. Cuentas a pagar</FONT></B></CENTER></P>
</FORM>
</BODY>
</HTML>

33
fr_top.html Normal file
View File

@ -0,0 +1,33 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<P><!--
<param name="bgImage" value="images/backgrnd.gif">
-->
<APPLET code="Banners.class" width="750" height="50">
<PARAM name="borderColor" value="black">
<PARAM name="bgImage" value="images/backgrnd.gif">
<PARAM name="textColor" value="1BC065">
<PARAM name="pause" value="1">
<PARAM name="exit" value="scrollLeft">
<PARAM name="shadowDepth" value="2">
<PARAM name="align" value="Top">
<PARAM name="fps" value="20">
<PARAM name="repeat" value="1">
<PARAM name="bgExit" value="None">
<PARAM name="messages" value="Construcciones Sánchez Domínguez S.A. |Departamento de Cuentas a Pagar {font=TimesRoman} {style=Bold} {repeat=2} {bgEnter=Squeeze} {bgExit=Squeeze} {textColor=FF0080} {emboss=true}">
<PARAM name="font" value="Helvetica">
<PARAM name="cpf" value="2">
<PARAM name="enter" value="scrollLeft">
<PARAM name="bgEnter" value="None">
<PARAM name="style" value="BoldItalic">
<PARAM name="size" value="36">
<PARAM name="shadowColor" value="darkGray">
</APPLET></P>
</BODY>
</HTML>

419
g_albaran.html Normal file
View File

@ -0,0 +1,419 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_albaran.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>albaranes</TITLE>
</HEAD>
<SERVER>
var HOY=new Date();
// Algunos formatos para fechas.
var NLDF="YY/M/D"; // 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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_albaran;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_albaran.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) {
dbConnect();
if (!request.gofunc) {
if ( request.search1 || request.desde || request.hasta ) {
//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_albaranes = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.nif=proveedores.nif and fecha_emision Between '" +
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
}
} else if (request.search1) {
c_facturas = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.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=" fecha_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+" fecha_emision <= '"+f_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+" albaranes.nif matches '"+request.nif+"'"
}
if ( request.nro_reg.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.nro_reg matches '"+StringClip(true,request.nro_reg)+"'"
}
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_albaranes = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.nif=proveedores.nif and "+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_albaranes)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2) {
if(request.search2 == "all") {
//Selecciono todos los albaranes, sin criterio
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores where albaranes.nif=proveedores.nif ORDER BY nro_reg ");
if (!c_albaranes)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
if (client.criteria == "razon_social" )
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores "+
" WHERE albaranes.nif=proveedores.nif and proveedores." +
client.criteria + " MATCHES '" + request.search2 + "*' OR proveedores." +
client.criteria +" MATCHES '" + lowcaps + "*'"+
" ORDER BY " + client.criteria);
else
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores "+
" WHERE albaranes.nif=proveedores.nif and albaranes." +
client.criteria + " MATCHES '" + request.search2 + "*' OR albaranes." +
client.criteria +" MATCHES '" + lowcaps + "*'"+
" ORDER BY " + client.criteria);
if (!c_albaranes)
DbsError(false,-1);
client.search2 = request.search2;
}
}
}
else {
if (!request.nro_reg && !request.fecha_emision ) {
request.multiple ="Múltiple";
}
}
if (request.fecha_emision) {
client.criteria="fecha_emision";
client.des_criteria="cuya fecha de emisión";
}
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_albaran.f_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_albaran.f_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "fecha") { ');
writeln(' if (dateCmp(obj.value,document.g_albaran.desde.value) != 1 ) {');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_albaran.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_albaran.f_desde.value;');
writeln(' if (clave == "fecha") ');
writeln(' obj.value=document.g_albaran.desde.value;');
writeln(' } ');
writeln('} ');
writeln('</SCRIPT>');
criterio="criterio múltiple";
if ( client.criteria == "multiple")
criterio="criterio múltiple";
if ( client.criteria == "fecha_emision" )
criterio="por fecha emision";
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("Albaranes",criterio,"ab_");
}
writeln('}');
writeln("</SCRIPT>");
}
if (!request.waux) {
if (request.gofunc) {
writeln('</BODY>');
writeln('</HTML>');
writeln(' <!--');
}
else {
if ( request.FrameType == "L" ) {
writeln('<FORM NAME="g_albaran" METHOD="post" ACTION="o_albaran.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Albaranes",criterio,"ab_")
writeln('</FORM>');
}
writeln('<FORM NAME="g_albaran" method="Post" action="g_albaran.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="g_albaran" method="Post" action="g_albaran.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 != "multiple" )
writeln("<INPUT TYPE='submit' NAME='multiple' value='Múltiple'>");
writeln("<HR>");
if (client.criteria == "fecha_emision" || 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.f_desde)
request.f_desde="";
if (!request.f_hasta)
request.f_hasta="";
if (!request.nro_reg)
request.nro_reg="";
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_reg" VALUE="'+request.nro_reg+'" SIZE=10 >');
writeln('<INPUT TYPE="submit" value=" - "></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>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>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_reg" SELECTED>Nro.Reg. ');
writeln('<OPTION VALUE="fecha_emision" >Fecha Emisión');
writeln('<OPTION VALUE="cod_centro" >Centro ');
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 == "fecha_emision" )
writeln("<b>Fecha de Emisión entre:</b>");
if ( client.criteria == "nro_reg" )
writeln("Número de Registro empieza por:<BR>")
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_albaran.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_albaran.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
if ( client.criteria != "fecha_emision" && client.criteria != "multiple" )
buttonsLetrasNros(refHtml,false);
writeln("</CENTER><HR>");
if (request.search1) {
if ( client.criteria == "fecha_emision" )
writeln("albaranes "+ client.des_criteria +" entre <FONT SIZE=+2>" + request.desde + " - "+ request.hasta +" </FONT><BR>")
else
writeln("albaranes "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
writeln("<HR>");
if(request.search1 || request.search2 || request.desde || request.hasta || request.f_orden ) {
writeln('<TABLE ALIGN="CENTER" BORDER=1>');
var nrows=0;
while (c_albaranes.next()) {
nrows++;
LastRow=c_albaranes.nro_reg;
//lista de todos los albaranes devueltos por el cursor.
if ( client.criteria == "cod_centro" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html"+
"?ab_nro_reg=" +escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+"'>" +
c_albaranes.cod_centro + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social +
"</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html?waux="+request.waux+
"&ab_nro_reg="+ escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
c_albaranes.cod_centro + "</TD><TD>" +
c_albaranes.descripcion + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social +
"</A><BR></TD></TR>");
}
if ( client.criteria == "fecha_emision" ){
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html"+
"?ab_nro_reg=" + escape(StringClip(false,c_albaranes.nro_reg)) + "&"+baseHtml+"'>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.cod_centro +
"</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html?waux="+request.waux+
"&ab_nro_reg="+ escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.cod_centro +
"</A><BR></TD></TR>");
}
if ( client.criteria == "nro_reg" || client.criteria == "multiple" ){
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html"+
"?ab_nro_reg=" + escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+"'>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.cod_centro + "</TD><TD>" +
"</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html?waux="+request.waux+
"&ab_nro_reg="+ escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.cod_centro +
"</A><BR></TD></TR>");
}
if ( client.criteria == "nif") {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html"+
"?ab_nro_reg=" + escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.cod_centro +
"</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html?waux="+request.waux+
"&ab_nro_reg="+ escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.cod_centro +
"</A><BR></TD></TR>");
}
if ( client.criteria == "razon_social") {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html"+
"?ab_nro_reg=" + escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.cod_centro +
"</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_albaran.html?waux="+request.waux+
"&ab_nro_reg="+ escape(StringClip(false,c_albaranes.nro_reg)) +"&"+baseHtml+ "'>" +
c_albaranes.razon_social + "</TD><TD>" +
c_albaranes.nif + "</TD><TD>" +
c_albaranes.nro_reg + "</TD><TD>" +
datetoString(c_albaranes.fecha_emision) + "</TD><TD>" +
c_albaranes.cod_centro +
"</A><BR></TD></TR>");
}
}
c_albaranes.close();
writeln("</TABLE>");
if ( nrows == 1 )
redirect("o_albaran.html?ab_nro_reg=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
}
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

214
g_banco.html Normal file
View File

@ -0,0 +1,214 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_banco.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>bancos</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_banco;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_banco.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_bancos = database.cursor("SELECT * FROM bancos WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_bancos)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los bancos, sin criterio
c_bancos = database.cursor("SELECT * FROM bancos ORDER BY nombre ");
if (!c_bancos)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el nombre empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_bancos = database.cursor("SELECT * FROM bancos WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_bancos)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.cod_banco && !request.nombre ) {
request.nombre ="nombre ";
}
}
if (request.cod_banco) {
client.criteria="cod_banco";
client.des_criteria="cuyo código";
}
if (request.nombre ) {
client.criteria="nombre ";
client.des_criteria="cuya nombre";
}
if ( client.criteria == "nombre " ) {
criterio=" por Nombre ";
}
if ( client.criteria == "cod_banco" ) {
criterio=" por Código ";
}
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("Bancos",criterio,"ba_");
}
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_banco.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Bancos",criterio,"ba_")
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_banco" action="g_banco.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_banco" action="g_banco.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "nombre " ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='cod_banco' value='Código'>");
writeln("<HR>");
writeln("<b>Nombre contiene:</b>");
}
if ( client.criteria == "cod_banco" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='nombre ' value='Nombre'>");
writeln("<HR>");
writeln("<b>Código contiene:</b>");
}
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) {
client.criteria="nombre ";
client.des_criteria="cuya razón social";
}
if ( client.criteria == "nombre " ) {
client.des_criteria="cuya nombre";
writeln("Nombre empieza por:</BR>")
}
if ( client.criteria == "cod_banco" ) {
client.des_criteria="cuyo Código";
writeln("Código empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_banco.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_banco.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,true);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("bancos "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los bancos<BR>");
}
else {
writeln("bancos " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "cod_banco" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
var nrows=0;
while (c_bancos.next()) {
nrows++;
LastRow=c_bancos.cod_banco;
//lista de todos los bancos devueltos por el cursor.
if ( client.criteria == "nombre " ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_banco.html?ba_cod_banco=" + escape(StringClip(false,c_bancos.cod_banco))+"&"+baseHtml+"'>" + c_bancos.nombre + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_banco.html?waux="+request.waux+"&ba_cod_banco="+escape(StringClip(false,c_bancos.cod_banco))+"&"+baseHtml + "'>" + c_bancos.cod_banco + "</TD><TD>"+ c_bancos.nombre + "</A><BR></TD></TR>");
}
if ( client.criteria == "cod_banco" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_banco.html?ba_cod_banco=" +escape(StringClip(false,c_bancos.cod_banco))+"&"+baseHtml + "'>" + c_bancos.cod_banco + "</TD><TD>" +c_bancos.nombre + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_banco.html?waux="+request.waux+"&ba_cod_banco="+escape(StringClip(false,c_bancos.cod_banco))+"&"+baseHtml + "'>" + c_bancos.cod_banco + "</TD><TD>"+ c_bancos.nombre + "</A><BR></TD></TR>");
}
}
c_bancos.close();
if ( client.criteria == "cod_banco" )
writeln("</TABLE>");
if ( nrows == 1 )
redirect("o_banco.html?ba_cod_banco=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
}
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

210
g_centro.html Normal file
View File

@ -0,0 +1,210 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_centro.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>centros</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_centro;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_centro.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_centros = database.cursor("SELECT * FROM centros WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_centros)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los centros, sin criterio
c_centros = database.cursor("SELECT * FROM centros ORDER BY descripcion ");
if (!c_centros)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_centros = database.cursor("SELECT * FROM centros WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_centros)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.cod_centro && !request.descripcion ) {
request.descripcion ="descripcion";
}
}
if (request.cod_centro) {
client.criteria="cod_centro";
client.des_criteria="cuyo código";
}
if (request.descripcion ) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
criterio=" por descripción ";
}
if ( client.criteria == "cod_centro" ) {
criterio=" por Código ";
}
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("Centros",criterio,"ce_");
}
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_centro.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Centros",criterio,"ce_")
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_centro" action="g_centro.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_centro" action="g_centro.html?waux='+request.waux+"&"+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "descripcion " ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='cod_centro' value='Código'>");
writeln("<HR>");
writeln("<b>descripción contiene:</b>");
}
if ( client.criteria == "cod_centro" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='descripcion' value='Descripción'>");
writeln("<HR>");
writeln("<b>Código contiene:</b>");
}
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) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
client.des_criteria="cuya descripción";
writeln("descripcion empieza por:</BR>")
}
if ( client.criteria == "cod_centro" ) {
client.des_criteria="cuyo Código";
writeln("Código empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_centro.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_centro.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,true);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("centros "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los centros<BR>");
}
else {
writeln("centros " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "cod_centro" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
while (c_centros.next()) {
//lista de todos los centros devueltos por el cursor.
if ( client.criteria == "descripcion " ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_centro.html?ce_cod_centro=" + escape(StringClip(false,c_centros.cod_centro)) +"&"+baseHtml+ "'>" + c_centros.descripcion + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_centro.html?waux="+request.waux+"&ce_cod_centro="+ escape(StringClip(false,c_centros.cod_centro))+"&"+baseHtml + "'>" + c_centros.cod_centro + "</TD><TD>"+ c_centros.descripcion + "</A><BR></TD></TR>");
}
if ( client.criteria == "cod_centro" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_centro.html?ce_cod_centro=" + escape(StringClip(false,c_centros.cod_centro)) +"&"+baseHtml+ "'>" + c_centros.cod_centro + "</TD><TD>" +c_centros.descripcion + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_centro.html?waux="+request.waux+"&ce_cod_centro="+ escape(StringClip(false,c_centros.cod_centro))+"&"+baseHtml + "'>" + c_centros.cod_centro + "</TD><TD>"+ c_centros.descripcion + "</A><BR></TD></TR>");
}
}
c_centros.close();
if ( client.criteria == "cod_centro" )
writeln("</TABLE>");
}
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

208
g_clave.html Normal file
View File

@ -0,0 +1,208 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_clave.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>claves</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_clave;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_clave.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_claves = database.cursor("SELECT * FROM claves WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_claves)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los claves, sin criterio
c_claves = database.cursor("SELECT * FROM claves ORDER BY "+client.criteria+" ");
if (!c_claves)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_claves = database.cursor("SELECT * FROM claves WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_claves)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.cod_clave && !request.descripcion ) {
request.descripcion ="descripcion ";
}
}
if (request.cod_clave) {
client.criteria="cod_clave";
client.des_criteria="cuyo código";
}
if (request.descripcion ) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " )
criterio=" por descripcion ";
if ( client.criteria == "cod_clave" )
criterio=" por Código ";
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("Claves",criterio,"cv_");
}
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_clave.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Claves",criterio,"cv_");
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_clave" action="g_clave.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_clave" action="g_clave.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "descripcion " ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='cod_clave' value='Código'>");
writeln("<HR>");
writeln("<b>Descripción contiene:</b>");
}
if ( client.criteria == "cod_clave" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='descripcion ' value='Descripción'>");
writeln("<HR>");
writeln("<b>Código contiene:</b>");
}
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) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
client.des_criteria="cuya descripción";
writeln("Descripcion empieza por:</BR>")
}
if ( client.criteria == "cod_clave" ) {
client.des_criteria="cuyo Código";
writeln("Código empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_clave.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_clave.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,true);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("claves "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los claves<BR>");
}
else {
writeln("claves " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "cod_clave" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
while (c_claves.next()) {
//lista de todos los claves devueltos por el cursor.
if ( client.criteria == "descripcion " ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_clave.html?cv_cod_clave=" + escape(StringClip(false,c_claves.cod_clave))+"&"+baseHtml + "'>" + c_claves.descripcion + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_clave.html?waux="+request.waux+"&cv_cod_clave="+ escape(StringClip(false,c_claves.cod_clave))+"&"+baseHtml + "'>" + c_claves.cod_clave + "</TD><TD>"+ c_claves.descripcion + "</A><BR></TD></TR>");
}
if ( client.criteria == "cod_clave" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_clave.html?cv_cod_clave=" + escape(StringClip(false,c_claves.cod_clave))+"&"+baseHtml + "'>" + c_claves.cod_clave + "</TD><TD>" +c_claves.descripcion + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_clave.html?waux="+request.waux+"&cv_cod_clave="+ escape(StringClip(false,c_claves.cod_clave))+"&"+baseHtml + "'>" + c_claves.cod_clave + "</TD><TD>"+ c_claves.descripcion + "</A><BR></TD></TR>");
}
}
c_claves.close();
if ( client.criteria == "cod_clave" )
writeln("</TABLE>");
}
if (!request.waux) {
writeSisgnature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

211
g_condpago.html Normal file
View File

@ -0,0 +1,211 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_condpago.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>Condiciones de Pago</TITLE>
</HEAD>
<SERVER>
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 SRC="ctasapagar.js">');
writeln('</SCRIPT>');
writeln('</SCRIPT>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_condpago;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_condpago.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_cond_pago = database.cursor("SELECT * FROM cond_pago WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_cond_pago)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los cond_pago, sin criterio
c_cond_pago = database.cursor("SELECT * FROM cond_pago ORDER BY descripcion");
if (!c_cond_pago)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el nombre empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_cond_pago = database.cursor("SELECT * FROM cond_pago WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_cond_pago)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.cond_pago && !request.descripcion) {
request.descripcion="descripcion";
}
}
if (request.cond_pago) {
client.criteria="cond_pago";
client.des_criteria="cuya N.I.F.";
}
if (request.descripcion) {
client.criteria="descripcion";
client.des_criteria="cuya razón social";
}
if ( client.criteria == "descripcion" ) {
criterio=" por Descripción ";
}
if ( client.criteria == "cond_pago" ) {
criterio=" por Código ";
}
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("Condiciones Pago",criterio,"cp_");
}
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_condpago.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Condiciones Pago",criterio,"cp_")
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_condpago" action="g_condpago.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" action="g_condpago.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "descripcion" ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='cond_pago' value='Código'>");
writeln("<HR>");
writeln("<b>Descripción contiene:</b>");
}
if ( client.criteria == "cond_pago" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='descripcion' value='Descripción'>");
writeln("<HR>");
writeln("<b>Código contiene:</b>");
}
if(request.search1 == null) {
writeln("<INPUT type='text' name='search1'>");
}
else {
writeln("<INPUT type='text' name='search1' VALUE='" + request.search1 + "'>");
} BaseHtml="g_cond_pago.html?search2=";
writeln('<INPUT TYPE="submit" value="Buscar">');
writeln('</FORM>');
if (!client.criteria) {
client.criteria="descripcion";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion" ) {
client.des_criteria="cuya descripción";
writeln("Descripción empieza por:</BR>")
}
if ( client.criteria == "cond_pago" ) {
client.des_criteria="cuyo Código";
writeln("Código empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_condpago.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_condpago.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,true);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("cond_pago "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos las Condiciones de Pago<BR>");
}
else {
writeln("Condiciones de Pago " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "cond_pago" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
while (c_cond_pago.next()) {
//lista de todos los cond_pago devueltos por el cursor.
if ( client.criteria == "descripcion" ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_condpago.html?cp_cond_pago=" + escape(StringClip(false,c_cond_pago.cond_pago))+"&"+baseHtml + "'>" + c_cond_pago.descripcion + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_condpago.html?waux="+request.waux+"&cp_cond_pago="+escape(StringClip(false,c_cond_pago.cond_pago))+"&"+baseHtml + "'>" + c_cond_pago.cond_pago + "</TD><TD>"+ c_cond_pago.descripcion + "</A><BR></TD></TR>");
}
if ( client.criteria == "cond_pago" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_condpago.html?cp_cond_pago=" + escape(StringClip(false,c_cond_pago.cond_pago))+"&"+baseHtml + "'>" + c_cond_pago.cond_pago + "</TD><TD>" +c_cond_pago.descripcion + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_condpago.html?waux="+request.waux+"&cp_cond_pago="+escape(StringClip(false,c_cond_pago.cond_pago))+"&"+baseHtml + "'>" + c_cond_pago.cond_pago + "</TD><TD>"+ c_cond_pago.descripcion + "</A><BR></TD></TR>");
}
}
c_cond_pago.close();
if ( client.criteria == "cond_pago" )
writeln("</TABLE>");
}
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

210
g_ctascont.html Normal file
View File

@ -0,0 +1,210 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_ctascont.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>ctasconts</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_ctascont;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_ctascont.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_ctasconts = database.cursor("SELECT * FROM ctas_contables WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_ctasconts)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los ctasconts, sin criterio
c_ctasconts = database.cursor("SELECT * FROM ctas_contables ORDER BY "+client.criteria+" ");
if (!c_ctasconts)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_ctasconts = database.cursor("SELECT * FROM ctas_contables WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_ctasconts)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.cta_contable && !request.descripcion ) {
request.descripcion ="descripcion ";
}
}
if (request.cta_contable) {
client.criteria="cta_contable";
client.des_criteria="cuyo código";
}
if (request.descripcion ) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
criterio=" por descripcion ";
}
if ( client.criteria == "cta_contable" ) {
criterio=" por Código ";
}
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("Cuentas Contables",criterio,"ct_");
}
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_ctascont.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Cuentas Contables",criterio,"ct_");
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_ctascont" action="g_ctascont.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_ctascont" action="g_ctascont.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "descripcion " ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='cta_contable' value='Código'>");
writeln("<HR>");
writeln("<b>Descripción contiene:</b>");
}
if ( client.criteria == "cta_contable" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='descripcion ' value='Descripción'>");
writeln("<HR>");
writeln("<b>Código contiene:</b>");
}
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) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
client.des_criteria="cuya descripción";
writeln("Descripcion empieza por:</BR>")
}
if ( client.criteria == "cta_contable" ) {
client.des_criteria="cuyo Código";
writeln("Código empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_ctascont.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_ctascont.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,true);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("ctasconts "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los ctasconts<BR>");
}
else {
writeln("ctasconts " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "cta_contable" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
while (c_ctasconts.next()) {
//lista de todos los ctasconts devueltos por el cursor.
if ( client.criteria == "descripcion " ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_ctascont.html?ct_cta_contable=" +escape(StringClip(false,c_ctasconts.cta_contable))+"&"+baseHtml + "'>" + c_ctasconts.descripcion + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_ctascont.html?waux="+request.waux+"&ct_cta_contable="+escape(StringClip(false,c_ctasconts.cta_contable))+"&"+baseHtml + "'>" + c_ctasconts.cta_contable + "</TD><TD>"+ c_ctasconts.descripcion + "</A><BR></TD></TR>");
}
if ( client.criteria == "cta_contable" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_ctascont.html?ct_cta_contable=" +escape(StringClip(false,c_ctasconts.cta_contable))+"&"+baseHtml + "'>" + c_ctasconts.cta_contable + "</TD><TD>" +c_ctasconts.descripcion + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_ctascont.html?waux="+request.waux+"&ct_cta_contable="+escape(StringClip(false,c_ctasconts.cta_contable))+"&"+baseHtml + "'>" + c_ctasconts.cta_contable + "</TD><TD>"+ c_ctasconts.descripcion + "</A><BR></TD></TR>");
}
}
c_ctasconts.close();
if ( client.criteria == "cta_contable" )
writeln("</TABLE>");
}
if (!request.waux) {
writeSisgnature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

802
g_docpago.html Normal file
View File

@ -0,0 +1,802 @@
<!---
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)+"&nbsp&nbsp&nbsp";
linea=linea+NroFormat(c_facturas.importe_total,NF09)
linea=linea+"&nbsp&nbsp&nbsp"+
c_facturas.nif +"&nbsp&nbsp&nbsp"+
datetoString(c_facturas.f_pago) +"&nbsp&nbsp"+
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," ","&nbsp;")+"</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)+"&nbsp&nbsp&nbsp";
linea=linea+NroFormat(c_facturas.importe_total,NF09)
linea=linea+"&nbsp&nbsp&nbsp"+
c_facturas.nif +"&nbsp&nbsp&nbsp"+
datetoString(c_facturas.f_pago) +"&nbsp&nbsp"+
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," ","&nbsp;")+"</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>

550
g_factura.html Normal file
View File

@ -0,0 +1,550 @@
<!---
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>

134
g_listados.html Normal file
View File

@ -0,0 +1,134 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_listados.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>Listado de facturas</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<SERVER>
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 SRC="factura.js">');
writeln('</SCRIPT>');
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln(' function GoField() {');
writeln(' var f=document.l_factura; ');
writeln('// alert("\\r¡¡¡ !!!"); ');
if (!request.f_orden)
// writeln(' f.f_formato.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(' }');
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>');
criterio="";
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("Listados",criterio,"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="l_factura.html?'+baseHtml+'">');
QueryHeadBar("Listados",criterio,"rpt")
writeln('</FORM>');
}
writeln('<FORM NAME="l_factura" method="Post" action="l_factura.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="l_factura" method="Post" action="l_factura.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
writeln('<P><BASE target="main"></P>');
writeln('<DT><B>&nbsp;<A HREF="l_factura.html?'+baseHtml+'"><IMG SRC="images/bullet_p.gif" BORDER=0 HEIGHT=14 WIDTH=31 ALIGN=BOTTOM></A><A HREF="l_factura.html?'+baseHtml+'">Facturas</A>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;<A HREF="l_albaran.html?'+baseHtml+'"><IMG SRC="images/bullet_p.gif" BORDER=0 HEIGHT=14 WIDTH=31 ALIGN=BOTTOM></A><A HREF="l_albaran.html?'+baseHtml+'">Albaranes Internos</A>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;<A HREF="l_proveedor.html?'+baseHtml+'"><IMG SRC="images/bullet_p.gif" BORDER=0 HEIGHT=14 WIDTH=31 ALIGN=BOTTOM></A><A HREF="l_proveedor.html?'+baseHtml+'">Proveedores</A>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;<A HREF="l_pedido.html?'+baseHtml+'"><IMG SRC="images/bullet_p.gif" BORDER=0 HEIGHT=14 WIDTH=31 ALIGN=BOTTOM></A><A HREF="l_pedido.html?'+baseHtml+'">Pedidos</A>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;<A HREF="l_prevision.html?'+baseHtml+'"><IMG SRC="images/bullet_p.gif" BORDER=0 HEIGHT=14 WIDTH=31 ALIGN=BOTTOM></A><A HREF="l_prevision.html?'+baseHtml+'">Previsiones</A>&nbsp;</B></DT>');
writeln('<DT><B>&nbsp;</B></DT>');
writeln('<HR>');
//writeln('<DT><B>&nbsp;<A HREF="l_docpago.html?'+baseHtml+'"><IMG SRC="images/bullet_p.gif" BORDER=0 HEIGHT=14 WIDTH=31 ALIGN=BOTTOM></A><A HREF="l_docpago.html?'+baseHtml+'">Documentos de Pago</A>&nbsp;</B></DT>');
//writeln('<DT><B>&nbsp;</B></DT>');
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_listados.html?"+baseHtml;
}
else {
refHtml="g_listados.html?waux="+request.waux+"&"+baseHtml;
}
LoadHidden(refHtml);
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

208
g_localidad.html Normal file
View File

@ -0,0 +1,208 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_localidad.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>localidades</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_localidad;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_localidad.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_localidades = database.cursor("SELECT * FROM localidades WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_localidades)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los localidades, sin criterio
c_localidades = database.cursor("SELECT * FROM localidades ORDER BY "+client.criteria+" ");
if (!c_localidades)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_localidades = database.cursor("SELECT * FROM localidades WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_localidades)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.cod_localidad && !request.descripcion ) {
request.descripcion ="descripcion ";
}
}
if (request.cod_localidad) {
client.criteria="cod_localidad";
client.des_criteria="cuyo código";
}
if (request.descripcion ) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " )
criterio=" por descripcion ";
if ( client.criteria == "cod_localidad" )
criterio=" por Código ";
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("localidades",criterio,"lo_");
}
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_localidad.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("localidades",criterio,"lo_");
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_localidad" action="g_localidad.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_localidad" action="g_localidad.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "descripcion " ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='cod_localidad' value='Código'>");
writeln("<HR>");
writeln("<b>Descripción contiene:</b>");
}
if ( client.criteria == "cod_localidad" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='descripcion ' value='Descripción'>");
writeln("<HR>");
writeln("<b>Código contiene:</b>");
}
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) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
client.des_criteria="cuya descripción";
writeln("Descripcion empieza por:</BR>")
}
if ( client.criteria == "cod_localidad" ) {
client.des_criteria="cuyo Código";
writeln("Código empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_localidad.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_localidad.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,true);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("localidades "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los localidades<BR>");
}
else {
writeln("localidades " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "cod_localidad" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
while (c_localidades.next()) {
//lista de todos los localidades devueltos por el cursor.
if ( client.criteria == "descripcion " ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_localidad.html?lo_cod_localidad=" + escape(StringClip(false,c_localidades.cod_localidad))+"&"+baseHtml + "'>" + c_localidades.descripcion + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_localidad.html?waux="+request.waux+"&lo_cod_localidad="+ escape(StringClip(false,c_localidades.cod_localidad))+"&"+baseHtml + "'>" + c_localidades.cod_localidad + "</TD><TD>"+ c_localidades.descripcion + "</A><BR></TD></TR>");
}
if ( client.criteria == "cod_localidad" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_localidad.html?lo_cod_localidad=" + escape(StringClip(false,c_localidades.cod_localidad))+"&"+baseHtml + "'>" + c_localidades.cod_localidad + "</TD><TD>" +c_localidades.descripcion + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_localidad.html?waux="+request.waux+"&lo_cod_localidad="+ escape(StringClip(false,c_localidades.cod_localidad))+"&"+baseHtml + "'>" + c_localidades.cod_localidad + "</TD><TD>"+ c_localidades.descripcion + "</A><BR></TD></TR>");
}
}
c_localidades.close();
if ( client.criteria == "cod_localidad" )
writeln("</TABLE>");
}
if (!request.waux) {
writeSisgnature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

222
g_pedido.html Normal file
View File

@ -0,0 +1,222 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_pedido.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>Pedidos</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_pedido;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_pedido.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_pedidos = database.cursor("SELECT * FROM pedidos WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_pedidos)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los pedidos, sin criterio
c_pedidos = database.cursor("SELECT * FROM pedidos ORDER BY descripcion ");
if (!c_pedidos)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_pedidos = database.cursor("SELECT * FROM pedidos WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_pedidos)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.nro_pedido && !request.descripcion ) {
request.descripcion ="descripcion";
}
}
if (request.nro_pedido) {
client.criteria="nro_pedido";
client.des_criteria="cuyo número";
}
if (request.descripcion ) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " )
criterio=" por descripción ";
if ( client.criteria == "nro_pedido" )
criterio=" por número ";
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("Pedidos",criterio,"pe_");
}
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_pedido.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Pedidos",criterio,"pe_")
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_pedido" action="g_pedido.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_pedido" action="g_pedido.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "descripcion " ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='nro_pedido' value='número'>");
writeln("<HR>");
writeln("<b>Descripción contiene:</b>");
}
if ( client.criteria == "nro_pedido" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='descripcion' value='Descripción'>");
writeln("<HR>");
writeln("<b>Número contiene:</b>");
}
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) {
client.criteria="descripcion ";
client.des_criteria="cuya descripción";
}
if ( client.criteria == "descripcion " ) {
client.des_criteria="cuya descripción";
writeln("Descripcion empieza por:</BR>")
}
if ( client.criteria == "nro_pedido" ) {
client.des_criteria="cuyo número";
writeln("Número empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_pedido.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_pedido.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,false);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("pedidos "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los pedidos<BR>");
}
else {
writeln("pedidos " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "nro_pedido" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
var nrows=0;
while (c_pedidos.next()) {
nrows++;
LastRow=c_pedidos.nro_pedido;
//lista de todos los pedidos devueltos por el cursor.
if (request.pe_nif_proveedor && request.pe_nif_proveedor != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.pe_nif_proveedor)+"\'",false,false);
request.pe_t_razon_social=c_proveedores.razon_social;
c_proveedores.close();
}
else
request.pe_t_razon_social="";
if ( client.criteria == "descripcion " ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_pedido.html?pe_nro_pedido=" + escape(StringClip(false,c_pedidos.nro_pedido))+"&"+baseHtml + "'>" + c_pedidos.descripcion+" "+request.pe_t_razon_social+"</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_pedido.html?waux="+request.waux+"&pe_nro_pedido="+ escape(StringClip(false,c_pedidos.nro_pedido))+"&"+baseHtml + "'>" + c_pedidos.nro_pedido + "</TD><TD>"+ c_pedidos.descripcion +" "+request.pe_t_razon_social+ "</A><BR></TD></TR>");
}
if ( client.criteria == "nro_pedido" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_pedido.html?pe_nro_pedido=" + escape(StringClip(false,c_pedidos.nro_pedido))+"&"+baseHtml + "'>" + c_pedidos.nro_pedido + "</TD><TD>" +c_pedidos.descripcion +" "+request.pe_t_razon_social+ "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_pedido.html?waux="+request.waux+"&pe_nro_pedido="+ escape(StringClip(false,c_pedidos.nro_pedido))+"&"+baseHtml + "'>" + c_pedidos.nro_pedido + "</TD><TD>"+ c_pedidos.descripcion +" "+request.pe_t_razon_social+ "</A><BR></TD></TR>");
}
}
c_pedidos.close();
if ( client.criteria == "nro_pedido" )
writeln("</TABLE>");
if ( nrows == 1 )
redirect("o_pedido.html?pe_nro_pedido=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
}
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

214
g_proveedor.html Normal file
View File

@ -0,0 +1,214 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_proveedor.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>Proveedores</TITLE>
</HEAD>
<SERVER>
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>');
if (request.gofunc) {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_proveedor;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_proveedor.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) {
dbConnect();
if(request.search1 && !request.gofunc) {
//Si se busca usando el texto de entrada
c_proveedores = database.cursor("SELECT * FROM proveedores WHERE "+ client.criteria +" MATCHES '" + request.search1 + "' ORDER BY " + client.criteria);
if (!c_proveedores)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2 && !request.gofunc) {
if(request.search2 == "all") {
//Selecciono todos los proveedores, sin criterio
c_proveedores = database.cursor("SELECT * FROM proveedores ORDER BY razon_social");
if (!c_proveedores)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el nombre empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_proveedores = database.cursor("SELECT * FROM proveedores WHERE "+ client.criteria + " MATCHES '" + request.search2 + "*' OR " + client.criteria +" MATCHES '" + lowcaps + "*' ORDER BY " + client.criteria);
if (!c_proveedores)
DbsError(false,-1);
}
client.search2 = request.search2;
}
}
else {
if (!request.nif && !request.razon_social) {
request.razon_social="razon_social";
}
}
if (request.nif) {
client.criteria="nif";
client.des_criteria="cuya N.I.F.";
}
if (request.razon_social) {
client.criteria="razon_social";
client.des_criteria="cuya razón social";
}
if ( client.criteria == "razon_social" ) {
criterio=" por Razón Social ";
}
if ( client.criteria == "nif" ) {
criterio=" por N.I.F. ";
}
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("Proveedores",criterio,"pr_");
}
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_proveedor.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Proveedores",criterio,"pr_")
writeln('</FORM>');
}
writeln('<FORM method="Post" NAME="g_proveedor" ACTION="g_proveedor.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM method="Post" NAME="g_proveedor" ACTION="g_proveedor.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
if ( client.criteria == "razon_social" ) {
writeln("<B>Cambiar Seleccion Datos por: </B>");
writeln("<INPUT TYPE='submit' NAME='nif' value='N.I.F.'>");
writeln("<HR>");
writeln("<b>Razón Social contiene:</b>");
}
if ( client.criteria == "nif" ) {
writeln("<B> Buscar por: </B>");
writeln("<INPUT TYPE='submit' NAME='razon_social' value='Razón Social'>");
writeln("<HR>");
writeln("<b>N.I.F. contiene:</b>");
}
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) {
client.criteria="razon_social";
client.des_criteria="cuya razón social";
}
if ( client.criteria == "razon_social" ) {
client.des_criteria="cuya razón social";
writeln("Razón Social empieza por:</BR>")
}
if ( client.criteria == "nif" ) {
client.des_criteria="cuyo N.I.F";
writeln("N.I.F. empieza por:<BR>")
}
writeln("<CENTER>");
if (!request.waux) {
refHtml="g_proveedor.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_proveedor.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
buttonsLetrasNros(refHtml,false);
writeln("</CENTER><HR>");
if (request.search1) {
writeln("Proveedores "+ client.des_criteria +" contiene <FONT SIZE=+2>" + request.search1 + "</FONT><BR>")
}
if (request.search2) {
if(request.search2 == "all") {
writeln("Lista de todos los proveedores<BR>");
}
else {
writeln("Proveedores " + client.des_criteria + " empieza por <FONT SIZE=+2>" + request.search2 + "</FONT><BR>");
}
}
writeln("<HR>");
if (request.search1 || request.search2) {
if ( client.criteria == "nif" )
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
var nrows=0;
while (c_proveedores.next()) {
nrows++;
LastRow=c_proveedores.nif;
//lista de todos los proveedores devueltos por el cursor.
if ( client.criteria == "razon_social" ) {
if (!request.waux)
writeln("<IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_proveedor.html?pr_nif=" + escape(StringClip(false,c_proveedores.nif))+"&"+baseHtml + "'>" + c_proveedores.razon_social + "</A><BR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_proveedor.html?waux="+request.waux+"&pr_nif="+escape(StringClip(false,c_proveedores.nif))+"&"+baseHtml + "'>" + c_proveedores.nif + "</TD><TD>"+ c_proveedores.razon_social + "</A><BR></TD></TR>");
}
if ( client.criteria == "nif" ) {
if (!request.waux)
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_proveedor.html?pr_nif=" +escape(StringClip(false,c_proveedores.nif))+"&"+baseHtml + "'>" + c_proveedores.nif + "</TD><TD>" +c_proveedores.razon_social + "</A></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_proveedor.html?waux="+request.waux+"&pr_nif="+escape(StringClip(false,c_proveedores.nif))+"&"+baseHtml + "'>" + c_proveedores.nif + "</TD><TD>"+ c_proveedores.razon_social + "</A><BR></TD></TR>");
}
}
c_proveedores.close();
if ( client.criteria == "nif" )
writeln("</TABLE>");
if ( nrows == 1 )
redirect("o_proveedor.html?pr_nif=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
}
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

578
g_trasp_old.html Normal file
View File

@ -0,0 +1,578 @@
<!---
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>

566
g_traspaso.html Normal file
View File

@ -0,0 +1,566 @@
<!---
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"
var jusnum="";
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>

600
g_vto.html Normal file
View File

@ -0,0 +1,600 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_vto.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>vtos</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_vto;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_vto.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.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.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_vto.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Vencimientos",criterio,"fa_")
writeln('</FORM>');
}
writeln('<FORM NAME="g_vto" method="Post" action="g_vto.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="g_vto" method="Post" action="g_vto.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_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;
}
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.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('<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="nro_reg_vto">Apte. Vto. ');
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_vto.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_vto.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_vto.html"+
"?fa_nro_reg=" + escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
datetoString(c_facturas.f_emision) + "</TD><TD>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.substring(0,4) + "</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></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_vto.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.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vto.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.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vto.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.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vto.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vto.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vto.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vto.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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></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></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");
writeln("</TABLE>");
if ( nrows == 1 )
redirect("o_vto.html?fa_nro_reg=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
}
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

566
g_vtos.html Normal file
View File

@ -0,0 +1,566 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: g_vtos.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>vtos</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_vtos;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="o_vtos.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_vtos.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Vencimientos",criterio,"fa_")
writeln('</FORM>');
}
writeln('<FORM NAME="g_vtos" method="Post" action="g_vtos.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="g_vtos" method="Post" action="g_vtos.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_vtos.html?"+baseHtml+"&search2=";
}
else {
refHtml="g_vtos.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_vtos.html"+
"?fa_nro_reg=" + escape(StringClip(false,c_facturas.nro_reg))+"&"+baseHtml + "'>" +
datetoString(c_facturas.f_emision) + "</TD><TD>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.substring(0,4) + "</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></TD></TR>");
else
writeln("<TR><TD><IMG SRC='images/sphere.gif' ALT='Bullet'> <A HREF='o_vtos.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.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.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.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.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.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.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>" +
c_facturas.nro_reg_vto.substring(4,c_facturas.nro_reg_vto.length) + "/" +
c_facturas.nro_reg_vto.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_vtos.html?fa_nro_reg=" + escape(StringClip(false,LastRow))+"&"+baseHtml)
}
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

26
go_close.html Normal file
View File

@ -0,0 +1,26 @@
<HTML>
<HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SERVER>
//<!--
writeln('<SCRIPT LANGUAGE="JavaScript">');
writeln('function Go_Location() {');
writeln(' winInfo="¡¡ No hay Conexión con la Base de Datos !! \\r";');
writeln(' winInfo += "Es necesario iniciar una nueva sesión. \\r";');
writeln(' winInfo += "La ventana se cerrará ahora.";');
writeln(' alert(winInfo);');
writeln(' top.close() ');
writeln('}');
writeln('</SCRIPT>');
//-->
</SERVER>
</HEAD>
<BODY ONLOAD="Go_Location()")
</BODY>
</HTML>

26
go_frame.html Normal file
View File

@ -0,0 +1,26 @@
<HTML>
<HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SERVER>
//<!--
//function Go_Location(){
writeln("<SCRIPT LANGUAGE='JavaScript'>")
writeln("function Go_Location() {")
// writeln(' top.location.target="_parent"')
// parent.frames[0].location.href=\'content.html\'; history.go(0)">')
// writeln(' parent.frames[1].location.href=entorno.DirBase+"/'+request.page+'"')
writeln(' top.frames['+request.frameNro+'].location.href=entorno.DirBase+"/'+request.page+'"')
writeln("}")
writeln("</SCRIPT>")
//}
//-->
</SERVER>
</HEAD>
<BODY ONLOAD="Go_Location()" >
</BODY>
</HTML>

20
go_page.html Normal file
View File

@ -0,0 +1,20 @@
<HTML>
<HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SERVER>
//<!--
//function Go_Location(){
writeln("<SCRIPT LANGUAGE='JavaScript'>")
writeln("function Go_Location() {")
writeln(' top.location.href=entorno.DirBase+"/'+request.page+'"')
writeln("}")
writeln("</SCRIPT>")
//}
//-->
</SERVER>
</HEAD>
<BODY ONLOAD="Go_Location()" >
</BODY>
</HTML>

20
help.html Normal file
View File

@ -0,0 +1,20 @@
<html>
<!-- application: Cuentas a Pagar -->
<!-- version: 1.0 -->
<!-- company name: AdmiSys -->
<!-- filename: help.html -->
<!-- description: frameset for online help facility -->
<head>
<title>Ayuda en Línea</title>
</head>
<script language="JavaScript">
topic = location.hash
document.write("<frameset rows='52,*'>")
document.write("<frame src='help_navbar.html' scrolling=no marginwidth=0 marginheight=0 name='buttons'>")
document.write("<frame src= helptopics.html" + topic + " name='topic'>")
</script>
</frameset>
</html>

74
help_contents.html Normal file
View File

@ -0,0 +1,74 @@
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Adobe PageMill 2.0 Win">
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<P><body bgcolor="#ffffff" link="#003366" vlink="#333399"><IMG SRC="images/help.gif"
ALT="Help" WIDTH="122" HEIGHT="59" NATURALSIZEFLAG="0" ALIGN="BOTTOM"> <BASE TARGET="topic"></P>
<H2>Indice de Contenidos:</H2>
<P>&nbsp;</P>
<H3>Introducci&oacute;n:</H3>
<UL>
<P><h3><FONT SIZE=+1>Que es </FONT></h3><h3><FONT SIZE=+1>Que hace</FONT></h3>
</UL>
<H3>Tecnolog&iacute;a y Plataforma.</H3>
<H3>Esquema y estructura de datos. Como usar esta Aplicaci&oacute;n:</H3>
<H3>&nbsp;</H3>
<H3><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3">Como usar cursor, rat&oacute;n y navegador.</H3>
<UL>
<P><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><B><FONT SIZE=+1>Pantalla de Entrada.</FONT></B>
<P><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><B><FONT SIZE=+1>Men&uacute; Principal.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Facturas.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Albaranes.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Proveedores.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Pedidos.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Centros.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Cuentas Contables.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Claves.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Condiciones de pago.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Bancos.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Documentos de pago.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Previsiones de pago.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Informes.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Traspaso.</FONT></B>
<P><B><IMG SRC="images/ball_gre.gif" WIDTH="14" HEIGHT="14" ALIGN="BOTTOM"
NATURALSIZEFLAG="3"><FONT SIZE=+1>Copias.</FONT></B>
<P>&nbsp;
</UL>
<H3>Soporte T&eacute;cnico y servicios.</H3>
<H3>&nbsp;</H3>
<H3><HR ALIGN=LEFT></H3>
<H1><IMG SRC="images/SGRP.jpg" BORDER="2" HEIGHT="76" WIDTH="86" NATURALSIZEFLAG=
"0" ALIGN="BOTTOM"></H1>
</BODY>
</HTML>

23
help_navbar.html Normal file
View File

@ -0,0 +1,23 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#003366" VLINK="#333399" ALINK="#FF0000" BACKGROUND="images/backgrnd.gif">
<P><!-- application: Tock --><!-- version: 1.0 --><!-- company name: Internet Media Services --><!-- filename: help_navbar.html --><!-- description: navigation bar for online help --></P>
<TABLE WIDTH="100%" >
<TR>
<TD align="left" valign="top"><A HREF="help_contents.html" target="topic"><IMG SRC="images/content1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>
<!-- <a HREF="help_initial.html" target="topic"><img src="images/index1.gif" border=0 height=37 width=44></a> --><A HREF="javascript:parent.frames[1].history.go(-1)"><IMG SRC="images/back1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>
<A HREF="javascript:parent.frames[1].history.go(1)"><IMG SRC="images/forward1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>
</TD>
<TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

432
helptopics.html Normal file
View File

@ -0,0 +1,432 @@
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Adobe PageMill 2.0 Win">
<TITLE>Tock Help</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff">
<P><IMG SRC="images/help.gif" ALT="Help" WIDTH="122" HEIGHT="59" NATURALSIZEFLAG=
"0" ALIGN="BOTTOM"> <BACKGROUND="images/backgrnd.gif"> <HR ALIGN=LEFT><A
NAME="intro"></A></P>
<H2>Introducci&oacute;n. &iquest;Que es?, &iquest;Que hace?.</H2>
<!--
<P><A NAME="creators"></A></P>
<H3>About the Creators of Tock</H3>
<P><A HREF="http://www.imservice.com/">Internet Media Services (IMS)</A>
designs and builds database applications for the Internet and corporate
Intranet. The Tock time tracking system demonstrates IMS's commitment to
creating robust web applications with intuitive, easy to use interfaces.</P>
<P><B>If you would like IMS to customize Tock for your organization or consult
with you to create other Internet/Intranet applications, please contact
at <A HREF="http://www.imservice.com/tock/forms/request.html">sales@imservice.com
</A>or (415) 617-0701. </B></P>
<P><A HREF="http://www.imservice.com/clients/initial.html">Other IMS web-based
solutions</A> include an employee directory / &quot;expert&quot; locator,
project management system, computer-based training, operations monitoring,
data collection, newsfeed displays, and research and reporting applications.
<A NAME="application"></A></P>
<H3>About the Application</H3>
<P>Tock is an application for logging time spent on projects, and generating
reports which can be used for payroll, billing, and project management.
This is an essential application for anyone whose business relies on managing
and reporting time spent on projects. <HR ALIGN=LEFT><A NAME="techsup"></A></P>
<H2>Tecnolog&iacute;a y plataforma.</H2>
<P>Tock is distributed free of charge as an unsupported application. However,
IMS provides a Frequently Asked Questions (FAQ) forum for Tock users, and
welcomes your comments and suggestions.</P>
<UL>
<P>For HELP using Tock, check out the <A HREF="http://www.imservice.com/tock/faq/initial.html">Tock
FAQ</A> on the <A HREF="http://www.imservice.com/">IMS</A> web site.
<P>To REPORT BUGS or other critical issues, SUGGEST feature changes/additions,
or just send your COMMENTS, send email to <A HREF="http://www.imservice.com/tock/forms/comments.html">tock@imservice.com
</A>
<P>If you would like <A HREF="http://www.imservice.com/">IMS</A> to install
a CUSTOMIZED VERSION of Tock or to discuss the development of other Intranet/Internet
applications, send email to <A HREF="http://www.imservice.com/tock/forms/request.html">sales@imservice.com
</A>or call (415) 617-0701.
</UL>
//-->
</SCRIPT>
<P><HR ALIGN=LEFT><A NAME="userguide"></A></P>
<H2>Esquema y estructura de datos. Como Usar esta Aplicaci&oacute;n:</H2>
<P><A NAME="entry"></A></P>
<H3>Como usar cursor, rat&oacute;n y navegador.</H3>
<P>En primer lugar significar que con el rat&oacute;n funciona todo solamente
apuntando al campo o a la opci&oacute;n a utilizar.</P>
<P>Para avanzar el cursor de un campo a otro solo se puede hacer con el
tabulador, para retroceder al anterior shitf + tabulador, una vez terminados
de rellenar los campos necesarios se desplaza el cursor con el tabulador
o con el rat&oacute;n directamente hacia la opci&oacute;n que necesite (busqueda,
confirmar, ver, alta, etc..) y se pulsa la barra espaciadora(*).</P>
<P>Para enfocar de un frame(*) a otro solo se puede hacer con el rat&oacute;n,
por ejemplo:</P>
<P> En la pantalla de facturas, &eacute;sta aparece a su derecha (1 frame),
y el menu principal a su izquierda (2&ordm; frame, mas peque&ntilde;o),
si quiere trabajar en facturas debe de apuntar a ese frame con el rat&oacute;n
para que el cursor se sit&uacute;e al principio y la misma operaci&oacute;n
debe realizar si quiere paar al frame peque&ntilde;o, del men&uacute; principal
en este caso.</P>
<P>* La barra espaciadora en este caso hace la misma funci&oacute;n que
INTRO.</P>
<P>* Se puede definir Frame como una pantalla dentro de otra que puede ser
de diversos tama&ntilde;os.</P>
<H4>Navegador Netscape Gold 3.0.</H4>
<P>Algunos conceptos b&aacute;sicos para el uso del navegador:</P>
<P>&nbsp;</P>
<P>&nbsp;</P>
<H3>Running Reports</H3>
<P><B>Step One: Enter the Date</B></P>
<P>The first step for all reports is to select a date range. If you do not
select a date range your report will default to the last 7 days (including
today).</P>
<P>To select a date range click on the radio button associated with either
a set amount of time (last 7 days, last 14 days or month to date) or input
your own date range in mm/dd/yy format.</P>
<P>Last 7 days, 14 days and month to date all include date from today.</P>
<P>&nbsp;</P>
<P><B>Step Two: Choose either a summary or detail report</B></P>
<P>To run a <B>summary report</B> select how you want the report broken
down from the pop up menu and click on the Create Summary Report button.</P>
<P>&nbsp;</P>
<UL>
<LI>A summary report by employee lists the total hours entered for each
employee during the date range you selected. <BR>
<LI>A summary report by project lists the total hours entered for each
project during the date range you selected. <BR>
<LI>A summary report by group lists the total hours entered for each group
during the date range you selected. <BR>
<LI>A summary report by category lists the total hours entered for each
category during the date range you selected.
<P>To run a<B> detail report</B> you first choose one of the four categories:
Employee, Group, Project or Type of Work by clicking on the corresponding
radio button. Then use the select list to choose the item for which you
would like generate a report. Click Create Detail Report to produce the
report.
<P>&nbsp;
<P><A NAME="edit_report"></A><B>Editing Your Entries</B>
<P>You can edit your hours entries from the report section. Select your
name in the employee list under Detail Report. Select all entries in the
select list. Click CREATE DETAIL REPORT to run the report. Click a field
of the entry you want to edit. Change whatever details you want, then click
Update to save your changes.
<P><HR ALIGN=LEFT><A NAME="prefs"></A><H3>Preferences and User Information</H3>
<P><B>Entering your information</B>
<P><B>Password:</B> Your user name and a temporary password will be added
to the system by your administrator. You may go in at any time to change
your password by clicking on Change Password link. You will need to know
your current password to change your password.
<P>You can update most of your information by changing the text or selection
lists on the preferences page and then clicking the SAVE CHANGES button.
<P>Only your administrator can change your active status, full/part time
status, and group.
<P><B>User Preferences</B>
<P><B>Active Projects:</B> The projects you select here will show up on
your hours entry page. You may select as many as you like (you may need
to hold down the control or apple key to make multiple selections). If
a project you will be working on is not listed, contact your administrator.
<P><B>Default Project:</B> Select the project that you work on the most
often from the pop up menu (it must be one of your active projects). Your
enter hours page will default to this project if no other project is selected.
<P><B>Default Type of Work:</B> Select the type of work that you do the
most often from the pop up menu. Your enter hours page will default to
this type of work if no other type of work is selected.
<P>After making any changes click on SAVE CHANGES and your information
will be updated to the database.
<P><HR ALIGN=LEFT><A NAME="admin"></A><H3>Administration</H3>
<P><B>Add User:</B> Enter the user's information and click on Add User.
Required information is: first name, last name, user name, temporary password,
group, and project information. You can update this information at any
time. Only administrators can edit the active status, full/part time status,
and group fields. The user's login, password, first name, last name, title,
email, and phone can not contain double quotes. The user's email and phone
can not contain single quotes.
<P><B>Add Group:</B> Type in the group name. Choose group members from
the select list. You may select as many as you wish (you may need to hold
down the control or apple key to make multiple selections). Remember, a
user can only be a member of one group at a time. Click on Add Group. The
group name can not contain single or double quotes.
<P><B>Add Project:</B> Type in the project name. Choose Active or Inactive,
and Billable or Non Billable from the select lists. Click on Add Project.
The project name can not contain single or double quotes.
<P><B>Add Type of Work:</B> Type in the name of the new type of work. Click
on Add Type of Work. The name of the type of work can not contain single
or double quotes.
<P><B>Edit User:</B> Choose a user from the select list that you would
like to edit and click on USER. Follow the same directions for Add User
to edit user information. Click SAVE CHANGES to update the user information.
To delete a user click on Delete User. You may only delete a user if they
have never entered any hours. If you want to prevent a user from logging
in, make the user inactive. The user's login, password, first name, last
name, title, email, and phone can not contain double quotes. The user's
email and phone can not contain single quotes.
<P><B>Reset Password:</B> If a user has forgotten his or her password,
select the user from the list and click USER. From the user information
screen, click on Reset Password. This will reset the user's password to
his or her user id.
<P><B>Edit Group:</B> To edit the group name only, change the name and
then click on UPDATE THIS GROUP. You can also move users into and out of
the group you are editing. A user can only be in one group at a time. If
you remove a user from a group they will be put into the special group
called No Group. If you add a user to a group you will automatically take
him or her out of the group he or she is in currently.
<P><B>Group Members, Group Name:</B> If you choose a name from this select
list and click on UPDATE THIS GROUP this person will be removed from the
group and added to No Group. The group name can not contain single or double
quotes.
<P><B>All Other Employees:</B> If you choose a name from this select list
and click on UPDATE THIS GROUP this person will be added to the group which
you are editing and deleted from whatever group s/he was in previously.
<P><B>Deleting a Group:</B> You may only delete a group if it has no members.
Once you remove all of the members, click on DELETE THIS GROUP.
<P><B>Edit a Project:</B> You may a edit the project name by changing the
text and clicking on UPDATE PROJECT. You may also change the status of
a project: Inactive or Active and Billable or Non Billable; by selecting
the correct status from the select lists and then clicking on UPDATE PROJECTS.
A project cannot be deleted if hours have been entered for it. If you no
longer need a project, make it project inactive. The project name can not
contain single or double quotes.
<P><B>Edit Type of Work:</B> You may change the type of work by changing
the text and then clicking on UPDATE TYPE OF WORK. You may not delete a
category if hours have been entered using that type of work.
<P>The name of the type of work can not contain single or double quotes.
<HR ALIGN=LEFT><A NAME="troubleshooting"></A><H2>Troubleshooting and Known
Problems</H2>
<P><h4>Navigator 2.0</h4> This application is <B>not</B> recommended for
use with Navigator 2.0.x. Several problems in 2.0 versions of Navigator
prevent some areas of the application from working properly. These include
(but may not be limited to):
<UL>
<LI>Radio buttons are ordered differently for JavaScript in Navigator 2.0.x
and 3.0. On the reports screen the radio buttons will not be selected properly
using Navigator 2.0.x. On Navigator 2.0.x for the Macintosh, it's possible
to have more than one radio button selected.
<LI>The help system does not work for Navigator 2.0.x Unix versions.
<LI>Java Script functions are sometimes not called correctly using Navigator
2.0.x. This problem has been reported on the login screen, on the hours
entry screen, and on the reports screen.
</UL>
<P>The Java applet on the hours entry screen uses Live Connect to update
itself based on user input. This functionality is only available with Netscape
3.0 browsers.
<P><h4>Admin privileges</h4> You can delete all users with admin privileges.
If you do this, you will not be able to create new users or change the
admin privileges of users to get admin privileges back. We recommend that
you do not ever delete the admin user created during the install (username
admin, password admin) in case you accidentally remove admin privileges
from all other uses.
<P><h4>Alphabetical Order</h4> Every list of projects, types of work, users,
etc. is alphabetized. However, the lists are alphabetized using ASCII collating
sequence, which means that lowercase letters come after uppercase letters.
If your projects, types of work, etc. start with both upper and lowercase
letters, the entries will not seem to be ordered. We recommend that you
start all items with either uppercase or lowercase letters, not both.
<P><h4>Logging out and the back button</h4> After you log out of the system,
you can still see screens using the back button. If you try to click on
anything on these screens, you will be asked to log in again. If you have
sensitive information on these screens, you may want to exit the browser
before leaving your machine.
<P><h4>Dates</h4> Java Script can not work with dates before 1970. If you
enter a two digit year less than 70 (for example, 8/5/15), the year will
be added to 2000 (for the previous example, the date will become 8/5/2015).
<P><h4>Entering hours</h4> Although the Java applet graph updates as you
enter hours, this information is not saved in the database until you click
Save. <h4>Deleting a project, group, or category</h4> A project or category
cannot be deleted if hours have been entered which reference it. You can
make a project inactive, which will prevent it from appearing in reports.
Groups can be only be deleted if they have no members. Put everyone in
the group you'd like to delete in different groups, then delete the group.
<h4>Screen not displaying properly</h4> Try resizing your browser or reloading
the page. <h4>I typed in a URL and it loaded the hours entry screen instead</h4>
You do not have the privileges to see the page you requested, or you attempted
to view a page which was not intended to be accessed directly. You should
be able to use every feature of the application from the button bar or
links within the pages. If you're interested in looking at the source code,
use an external viewer. <h4>I entered comments with my hours, but they're
not showing up in the report</h4> Comments are printed only for the show
all entries reports. For all other reports, each line may be representing
multiple entries.
<P><HR ALIGN=LEFT><A NAME="devguide"></A><H2>How This Application Works</H2>
<P><h3>General</h3> <h4>Project variables</h4> Tock uses project variables
to minimize the number of database lookups which must be performed. Because
the project variables are available to all users of the application, they
only need to be set once, and reset as needed. Tock stores lists of work
types, projects, groups, and employees. Pages which use these values call
load functions to set these variables if they have not been set already.
<P><h4>Access control</h4> The application uses LiveWire's client cookies
to maintain state. This means that until the user's cookies expire, she
or he will be recognized by the system and won't have to enter a user name
and password every time. A logout function erases these cookies so that
another person can use the same machine to access the application using
her own login. This is also useful to prevent access after leaving the
machine unattended.
<P>Tock also stores a number of useful data items using client cookies.
These cookies are used to store items such as the user's id, login name,
full name, default project, default category, list of active projects,
and the page the user came from.
<P>In addition to cookies, Tock uses a simple security scheme to verify
that the user has actually passed through the login screens. This consists
of setting a cookie whose name is determined at login time, and then checking
whether this cookie is set before displaying a page.
<P>Some pages in this application should never be accessed directly, such
as pages that perform database actions based on form input. In order to
access one of these pages, the prevPage cookie must be set to the correct
value. The only way to set this value correctly is to click submit on the
page which provides the form input for the page. This prevents users from
typing in URLs and seeing pages they shouldn't.
<P>On each page, the function checkPrevPage is called with the name of
the current page. This function
<UL>
<LI>checks whether there is a connection to the database
<LI>verifies that the user has logged in correctly
<LI>if a page has a prerequisite, checks that the user is coming from the
correct page using the prevPage cookie
</UL>
<P>If any of these checks fail, the user is redirected to the login screen.
If the user is logged in, s/he will go directly to the enter hours screen.
If all checks succeed, the prevPage cookie is set to the current page and
processing continues.
<P>A similar process is used to check a user's admin status before displaying
pages that only admins should be able to see. The function lookupAdminStatus
performs a database query to determine whether a user has admin privileges.
<P><h4>Input validation</h4> Tock uses Java Script extensively to validate
user input and provide immediate feedback. This prevents having to switch
back and forth between the form screen and an error screen, trying to determine
what went wrong. Java Script is used to ensure that dates are valid, date
ranges make sense, fields are not too long for the database, all necessary
selections have been made, and that database constraints are enforced.
<P><h4>Database interaction</h4> Tock uses Live Wire's database connectivity
in every aspect of its functionality. The data users enter on the hours
entry screen is saved to the database, where it is immediately available
for producing reports. The reports retrieve information from the database
and present it in a variety of views so that it is useful to the user.
User preference information is stored in the database and used to customize
the application on the fly for each user. The admin section provides an
easy to use way to administer the Tock database.
<P><h3>Hours Entry</h3> The hours entry screen uses a form to collect information
about the date, project, category, and number of hours a user has worked,
and stores this information in the database.
<P>The hours entry screen contains a Java applet which graphs a user's
hours based on entries in the database. It also takes advantage of Live
Connect to update the graph every time the user enters hours on the form.
The date field, hours, and hours fraction fields all have onChange event
handlers which determine if the graph should be updated, and if so, call
a Java method to instantly change the graph.
<P>The date field uses a Java Script function to ensure that the user has
entered a valid date. A warning pops up if the date is not valid.
<P>The list of projects each user sees is determined at page generation
time from the user's list of active projects in the database. This list
can be changed at any time using the preferences screen. Any projects which
are made inactive will not appear in the list.
<P>If a user attempts to enter more than 24 hours for a single day this
week, a warning pops up and the hours for the entry are reset. For hours
outside this week, the user cannot enter more than 24 hours on the form.
As the hours entries are inserted into the database, each entry is checked
to see whether it puts the user over 24 hours for a day. If so, the hours
for that are set to 0, all other information is retained, and the user
is warned and asked to edit the entries for that day.
<P>Comments have a maximum length of 250 characters. If the user types
a comment longer than this, the user has the option of truncating the comment
or editing it to be under 250 characters.
<P><h3>Reports</h3> The reports screen is a form which allows the user
to define a view of the hours data. The form input is used to construct
database queries. The results of these queries are formatted using Java
Script functions. This methodology should be easily extensible should a
developer which to add new types of reports, since s/he would need only
to construct a new query and could use the existing functions to format
and display the report.
<P>The reports screen uses Java Script to ensure that the date range entered
by the user is valid and that the user has selected an item from the select
list for they type of report s/he wants to generate. The radio button next
to each select list is checked automatically using the onChange event handler
when the user selects an item from the select list.
<P><h3>Preferences</h3> The preferences screen is where users can change
their vital data, current active projects, and defaults.
<P>The preferences screen uses Java Script functions to ensure that all
entries are valid and that a user's default project is also one of her/his
active projects. Clicking save changes causes the information to be updated
in the database and forces a reload of the user's preference information.
<P><h3>Admin</h3> The admin section uses forms to allow users to perform
a variety of functions. This section of the application can only be accessed
by users who have admin privileges.
<P>The admin screen uses Java Script to ensure that a user has chosen an
item to edit before clicking the submit button. Each of the screens in
the admin interface also uses Java Script to validate user input. For groups,
projects, and work types, a Java Script function called when the user clicks
Save checks that the name of the item is not already being used. Names
are also checked for length limits and illegal characters.
<P>A delete button is only displayed if the item can be deleted without
violating database integrity constraints. This is determined as the page
is generated by querying the database about the existence of items which
would prevent a legal delete.
<P>After adding or editing an item, the default status line message is
set to a message reflecting the change with the onLoad event handler. The
onUnload event handler is used to turn the message off once the user leaves
the page.
<P><A NAME="dbschema"></A><H2>Database Schema</H2>
<P>&nbsp;
<DL>
<DT><B>category</B> table
<DD>unique ids and names of types of work
<DT><B>group</B> table
<DD>unique ids and names of groups
<DT><B>group_people</B> table
<DD>user ids and group ids which specify group affiliations for users
<DT><B>hours</B> table
<DD>hours entries: date, user, number of hours, project, category, and
description
<DT><B>project</B> table
<DD>unique ids, names, active status, and billable status of projects
<DT><B>user</B> table
<DD>user information: id, login, password, name, title, phone, email, active
status, full/part time status, admin privileges, default project and default
category
<DT><B>user_projects</B> table
<DD>user ids and project isd which specify the active projects for users
</DL>
<P>&nbsp;
</UL>
<H2>Soporte t&eacute;cnico y servicios.</H2>
<UL>
<P><CENTER>&nbsp;</CENTER>
</UL>
</BODY>
</HTML>

78
home.html Normal file
View File

@ -0,0 +1,78 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Cuentas a Pagar (SANDO)</TITLE>
<META NAME="Author" CONTENT="Admisys S.L. webteam">
<META NAME="Description" CONTENT="Página para aplicación de Cuentas a Pagar">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="images/gray_rock.gif">
<DT>&nbsp;</DT>
<CENTER><TABLE BORDER=2 >
<CAPTION></CAPTION>
<TR>
<TH ALIGN=LEFT VALIGN=CENTER BGCOLOR="#FFFFFF"><A HREF="http://ctasapagar"><IMG SRC="images/SGRP.jpg" BORDER=0 HEIGHT=76 WIDTH=86></A>
</TH>
<TD><!--
<param name="bgImage" value="images/backgrnd.gif">
--><APPLET code="Banners.class" width="500" height="50"><PARAM name="borderColor" value="black"><PARAM name="bgImage" value="images/gray_rock.gif"><PARAM name="textColor" value="1BC065"><PARAM name="pause" value="1"><PARAM name="exit" value="scrollLeft"><PARAM name="shadowDepth" value="2"><PARAM name="align" value="Center"><PARAM name="fps" value="20"><PARAM name="repeat" value="1"><PARAM name="bgExit" value="None"><PARAM name="messages" value="Construcciones Sánchez Domínguez S.A. | Construcciones SANDO {font=TimesRoman} {style=Bold} {repeat=2} {bgEnter=Squeeze} {bgExit=Squeeze} {textColor=FF0080} {emboss=true}"><PARAM name="font" value="Helvetica"><PARAM name="cpf" value="2"><PARAM name="enter" value="scrollLeft"><PARAM name="bgEnter" value="None"><PARAM name="style" value="BoldItalic"><PARAM name="size" value="36"><PARAM name="shadowColor" value="darkGray"></APPLET></TD>
</TR>
</TABLE></CENTER>
<H4>
<HR SIZE=20 WIDTH="100%"></H4>
<CENTER><TABLE BORDER=1 BGCOLOR="#FFFFFF" >
<TR>
<TD><A HREF="http://ctasapagar/Ctas_a_Pagar"><IMG SRC="images/handanimated.gif" BORDER=0 HEIGHT=25 WIDTH=35></A><B><I><FONT COLOR="#1BC065"><FONT SIZE=+2><A HREF="http://ctasapagar/Ctas_a_Pagar">Dpto.
Cuentas a Pagar</A></FONT></FONT></I></B></TD>
</TR>
</TABLE></CENTER>
<P><BR>
&nbsp;<BR>
<BR>
</P>
<CENTER><TABLE BORDER=4 >
<TR VALIGN=TOP>
<TD WIDTH="100%" HEIGHT="100%" BGCOLOR="#FFFFFF">
<DT><A HREF="http://ctasapagar" target="main"><IMG SRC="images/sando.jpg" BORDER=0 HEIGHT=80 WIDTH=265></A></DT>
</TD>
</TR>
</TABLE></CENTER>
<P>
<HR SIZE=20 WIDTH="100%"></P>
<CENTER><TABLE BORDER=1 BGCOLOR="#FFFFFF" >
<TR>
<TD WIDTH="50%">
<ADDRESS><BASE target="contents"><IMG SRC="images/emailed.gif" HEIGHT=52 WIDTH=45><B><FONT SIZE=+1><A HREF="mailto:%20%3Cinfo%3Esando_malaga@admisys.com">Construcciones
SANDO SA</A> </FONT></B></ADDRESS>
<ADDRESS><ctasapagar><FONT SIZE=+1><A HREF="mailto:%3Cctasapagar%3Esando_malaga@admisys.com">Departamento
de Cuentas a Pagar<BR>
<BR>
</A></FONT><FONT SIZE=-1>Last modified: 5/2/97 </FONT></ADDRESS>
</TD>
<TD>
<CENTER><ADDRESS><FONT COLOR="#008000">c<B><I>/ Jos&eacute; Ortega y Gasset
194-196</I></B></FONT></ADDRESS></CENTER>
<CENTER><ADDRESS><B><I><FONT COLOR="#008000">29006 MALAGA</FONT></I></B></ADDRESS></CENTER>
<CENTER><ADDRESS><B><I><FONT COLOR="#008000">Tfno: 34 - 5 -232 20 00 </FONT></I></B></ADDRESS></CENTER>
<CENTER><ADDRESS><B><I><FONT COLOR="#008000">Fax : 34 - 5 - 234 75 48</FONT></I></B></ADDRESS></CENTER>
</TD>
</TR>
</TABLE></CENTER>
</BODY>
</HTML>

128
initial.html Normal file
View File

@ -0,0 +1,128 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Inicio</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/4.0b1 (Win95; I) [Netscape]">
<SCRIPT language="JavaScript">
function validate() {
if (!document.login.username.value) {
alert("Debe introducir un nombre de usuario y una clave de acceso!");
return false;
}
document.login.prevPage.value = "initial.html submit";
return true;
}
</SCRIPT>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<BODY BACKGROUND="images/BG.JPG">
<P><!-- application: Cuentas a Pagar -->
<!-- version: 1.0 -->
<!-- company name: AdmiSys -->
<!-- filename: initial.html -->
<!-- description: initial and default page of the application -->
<!-- application returns here whenever a non-database -->
<!-- error occurs. checks if user is logged in, -->
<!-- prompts for id and password if not, else goes to -->
<!-- main application screen. -->
<SERVER>
chkBrowser();
<!-- this is the only page where client.prevPage doesn't matter -->
client.prevPage = "initial.html";
client.es_inicio = 1;
dbConnect();
<!-- if we know who the user is already, go direct to enter hours -->
if (!request.ipw && client.username != "null" && client.username != null) {
// if (!loggedIn()) <!-- session expired -->
// redirect("logout.html");
// else
// if (request.err)
// redirect("multi_entry.html");
// else
redirect("ctasapagar.html?FrameType="+request.FrameType);
}
if (request.err)
redirect("logged_out.html");
</SERVER></P>
<DIV ALIGN=CENTER><TABLE BORDER=4 WIDTH="100" HEIGHT="100" BGCOLOR="#FFFFFF" >
<TR><TD>
<DT><A HREF="http://ctasapagar"><IMG SRC="images/sand2new.gif"
ALT="Construcciones SANDO" BORDER=0 HEIGHT=117 WIDTH=424 ALIGN=RIGHT></A>
<A HREF="http://ctasapagar">&nbsp;</A></DT>
</TD></TR>
</TABLE>
<H1>Departamento de Cuentas a Pagar</H1>
<TABLE>
<TR>
<TD colspan=2 align=right><DT>
<FORM name="login"
method="post"
action="login.html"
onSubmit="return validate()">
</DT>
<TR valign=baseline><TD><DT>
<SERVER>
<!-- if request.ipw is set, the user has entered an incorrect login -->
<!-- or password. -->
if (request.ipw) {
writeln("<td><b><i>El nombre de usuario o el password<br>es incorrecto.</i></b></td>");
}
</SERVER>
</DT>
</TD><DT></DT>
<TD align=right><H3>USER</H3></TD>
<TD><DT>
<SERVER>
if (client.username != "null" && client.username != null)
writeln(" <input name=\"username\" type=\"text\" size=\"15\" value=\""+client.username+"\">");
else
writeln(" <input name=\"username\" type=\"text\" size=\"15\">");
</SERVER>
</DT></TD></TR>
<TR valign=baseline><TD><DT>
<SERVER>
if (request.ipw)
writeln("<td><b><i>Por favor Intentar otra vez.</i></b></td>");
</SERVER>
</DT></TD>
<TD align=right><H3>PASSWORD</H3></TD>
<TD><DT><INPUT name="password" type="password" size="15"></DT></TD></TR>
<TR><TD><DT>
<SERVER>
if (request.ipw)
writeln("<td></td>");
</SERVER>
</DT></TD>
<TD><DT>&nbsp;</DT></TD>
<TD align=right><DT>
<INPUT name="Submit" type="submit" value="ENTER">
<INPUT name="prevPage" type="hidden"></DT>
</TD>
</TR>
</TABLE></DIV>
<DIV ALIGN=CENTER><P>
<DT><B>Estructura P&aacute;gina:</B>
&nbsp;<INPUT TYPE="radio" NAME="FrameType" VALUE="F" >Completa
&nbsp;<INPUT TYPE="radio" NAME="FrameType" VALUE="L" CHECKED>Lateral
&nbsp;<INPUT TYPE="radio" NAME="FrameType" VALUE="T" >Cabecera
</DT><DT>&nbsp;</DT><BR>
<DT><B>Visualizar Descripciones de Claves:</B>
&nbsp;<INPUT TYPE="radio" NAME="ViewFkey" VALUE="S" >Si
&nbsp;<INPUT TYPE="radio" NAME="ViewFkey" VALUE="N" CHECKED>No
</DT></P>
<DT><B>Visualizar Mensaje:</B>
&nbsp;<INPUT TYPE="radio" NAME="MsgScroll" VALUE="S" >Si
&nbsp;<INPUT TYPE="radio" NAME="MsgScroll" VALUE="N" CHECKED>No
</DT></P>
<DT>&nbsp;</DT>
</FORM></DIV>
<SERVER>writeSignature(true);</SERVER>
<BR><CENTER>Last modified: 27/2/97&nbsp;</FONT></DT></CENTER>
</BODY>
</HTML>

368
l_albaran.html Normal file
View File

@ -0,0 +1,368 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: l_albaran.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>Listado de albaranes</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT SRC="l_albaran.js">
</SCRIPT>
</HEAD>
<SERVER>
var NF6=""
var NF8=""
var NF9=""
var NF10=""
var HOY=new Date();
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var nprinter="";
var spoolpath="";
var baseHtml="";
var textoReqs="";
var nomFile="c:/tmprpts/empty";
fileRpt=new File(nomFile);
fileRpt.close();
var PaperVLines=76// Nro. Lins. del Papel A4 Vertical FONT Default
var PaperHLines=52// Nro. Lins. del Papel A4 Horizontal FONT Default
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 SRC="albaran.js">');
writeln('</SCRIPT>');
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln(' function GoField() {');
writeln(' var f=document.l_albaran; ');
writeln('// alert("\\r¡¡¡ !!!"); ');
if (!request.f_orden)
writeln(' f.f_formato.focus();');
if (request.f_orden)
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('}');
if (request.gofunc) {
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_albaran;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="l_albaran.html?nvo=1&'+baseHtml+'";');
writeln(' f_frame.submit(); ');
writeln(' }');
writeln(' if ( obj == "Ayuda" )');
writeln(' NetHelp(valor);');
writeln(' history.back();');
writeln('}');
}
writeln('</SCRIPT>');
if( request.f_orden) {
if (!request.gofunc) {
dbConnect();
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_albaranes = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.nif=proveedores.nif and "+ client.criteria +" Between '" +
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
}
else if (request.search1) {
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.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.h_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.cod_centro >= '"+request.d_cod_centro+"' and albaranes.cod_centro <= '"+request.h_cod_centro+"' "
} else {
if ( request.d_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.cod_centro matches '"+request.d_cod_centro+"'"
}
}
if ( request.nif.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.nif matches '"+request.nif+"'"
}
if ( request.h_nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.fra_reg >= '"+request.d_nro_fra+"' and albaranes.nro_fra <= '"+request.h_nro_fra+"'"
} else {
if ( request.d_nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.fra_reg >= '"+request.d_nro_fra+"'"
}
}
if ( request.h_nro_reg.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.nro_reg >= '"+StringClip(true,request.d_nro_reg)+"' and albaranes.nro_reg <= '"+StringClip(true,request.h_nro_reg)+"'"
} else {
if ( request.d_nro_reg.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.nro_reg >= '"+StringClip(true,request.d_nro_reg)+"'"
}
}
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 (request.f_formato=="proveedor")
request.f_orden=" albaranes.nif,"+request.f_orden;
if (request.f_formato=="centro")
request.f_orden=" albaranes.cod_centro,razon_social,"+request.f_orden;
if (request.f_formato=="pendientes") {
request.f_orden=" albaranes.cod_centro,razon_social,"+request.f_orden;
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+"fra_reg matches ' *' "
}
if (request.f_formato=="emitidas") {
request.f_orden=""+request.f_orden;
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+"fecha_emision is not null "
}
if (request.f_formato=="provBloq")
request.f_orden=" albaranes.nif,"+request.f_orden;
// if (request.f_formato=="documento")
// request.f_orden=" albaranes.nif,"+request.f_orden;
if (criterio.length > 0 )
criterio=" and "+criterio;
c_albareg = database.cursor("SELECT * FROM albaranes,proveedores,centros WHERE albaranes.nif=proveedores.nif and albaranes.cod_centro=centros.cod_centro"+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_albareg)
DbsError(false,-1);
else {
report_alb();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln("function displayReport() {");
if ( textoReqs.length > 0 )
writeln(' alert("Listado(s): '+textoReqs+'\\r está(n) en la cola \''+nprinter+'\'"); ');
writeln("}");
writeln("</SCRIPT>");
c_albareg.close();
}
}
}
criterio="Listado";
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.l_albaran.f_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_albaran.f_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "vto") { ');
writeln(' if (dateCmp(obj.value,document.l_albaran.v_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_albaran.v_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "fecha") { ');
writeln(' if (dateCmp(obj.value,document.l_albaran.desde.value) != 1 ) {');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_albaran.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.l_albaran.f_desde.value;');
writeln(' if (clave == "vto") ');
writeln(' obj.value=document.l_albaran.v_desde.value;');
writeln(' if (clave == "fecha") ');
writeln(' obj.value=document.l_albaran.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("albaranes",criterio,"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="l_albaran.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("albaranes",criterio,"rpt")
writeln('</FORM>');
}
writeln('<FORM NAME="l_albaran" method="Post" action="l_albaran.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="l_albaran" method="Post" action="l_albaran.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
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.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.d_nro_reg)
request.d_nro_reg="";
if (!request.h_nro_reg)
request.h_nro_reg="";
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
writeln('<TR><TD ALIGN=LEFT><B>Formato: </B></TD><TD><SELECT NAME="f_formato" SIZE=1>');
writeln('<OPTION VALUE="documento" SELECTED>Documento Registrado');
writeln('<OPTION VALUE="proveedor" >Por Proveedor');
writeln('<OPTION VALUE="centro" >Por Centro');
writeln('<OPTION VALUE="pendientes" >Pendientes de Factura');
writeln('<OPTION VALUE="emitidos" >Emitidos');
writeln('<OPTION VALUE="provBloq" >Retenidos');
writeln('</SELECT>');
writeln("<INPUT type='hidden' name='f_tipo' size=4 maxlength=4 VALUE='html' >");
writeln("<INPUT type='hidden' name='maxLins' size=2 maxlength=2 VALUE='76' >");
writeln('<TD ALIGN=LEFT><B>Borde: </B></TD><TD><SELECT NAME="borde" SIZE=1>');
writeln('<OPTION VALUE="0" SELECTED>No');
writeln('<OPTION VALUE="1" >Fino');
writeln('<OPTION VALUE="2" >Medio');
writeln('<OPTION VALUE="3" >Grueso');
writeln('</SELECT>');
writeln("</TD></TR>");
// writeln('<B>Tipo: </B><SELECT NAME="f_tipo" SIZE=1>');
// writeln('<OPTION VALUE="html" SELECTED>HTML');
// writeln('<OPTION VALUE="ascii" >ASCII');
// writeln('</SELECT></TD></TR>');
writeln('</TABLE>');
writeln("<HR>");
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_reg" VALUE="'+request.d_nro_reg+'" OnChange="NroPad(this,5)" SIZE=5 >');
writeln('Hasta: <INPUT TYPE="text" NAME="h_nro_reg" VALUE="'+request.h_nro_reg+'" OnChange="NroPad(this,5)" SIZE=5 ></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>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>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="fra_reg" >Nro.Fra. ');
writeln('<OPTION VALUE="nro_reg" SELECTED>Nro.Reg. ');
writeln('<OPTION VALUE="fecha_emision" >Fecha Emisión');
writeln('<OPTION VALUE="cod_centro" >Centro ');
writeln('</SELECT></TD></TR></TABLE>');
writeln('<INPUT TYPE="submit" value="Buscar">');
writeln('</FORM>');
writeln("<CENTER>");
if (!request.waux) {
refHtml="l_albaran.html?"+baseHtml+"&search2=";
}
else {
refHtml="l_albaran.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

419
l_factura.html Normal file
View File

@ -0,0 +1,419 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: l_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>Listado de facturas</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT SRC="l_factura.js">
</SCRIPT>
<SCRIPT SRC="factura.js">
</SCRIPT>
</HEAD>
<SERVER>
var NF6=""
var NF8=""
var NF9=""
var NF10=""
var HOY=new Date();
var nlin=0;
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var nprinter="";
var spoolpath="";
var baseHtml="";
var textoReqs="";
var nomFile="c:/tmprpts/empty";
fileRpt=new File(nomFile);
fileRpt.close();
var PaperVLines=76// Nro. Lins. del Papel A4 Vertical FONT Default
var PaperHLines=52// Nro. Lins. del Papel A4 Horizontal FONT Default
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 LANGUAGE='JavaScript'>");
writeln(' function GoField() {');
writeln(' var f=document.l_factura; ');
writeln('// alert("\\r¡¡¡ !!!"); ');
if (!request.f_orden)
writeln(' f.f_formato.focus();');
if (request.f_orden)
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('}');
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="l_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.f_orden) {
if (!request.gofunc) {
dbConnect();
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.h_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.cod_centro >= '"+request.d_cod_centro+"' and facturas.cod_centro <= '"+request.h_cod_centro+"' "
} else {
if ( request.d_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.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_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_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 matches '"+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 (request.f_formato=="proveedor")
request.f_orden=" facturas.nif,"+request.f_orden;
if (request.f_formato=="centro")
request.f_orden=" facturas.cod_centro,razon_social,"+request.f_orden;
if (request.f_formato=="pendientes")
request.f_orden=" facturas.f_recepcion,"+request.f_orden;
if (request.f_formato=="emitidas") {
request.f_orden=" facturas.cod_banco,facturas.vto_pago,"+request.f_orden;
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+"f_emision_pago is not null "
}
if (request.f_formato=="provBloq")
request.f_orden=" facturas.nif,"+request.f_orden;
// if (request.f_formato=="documento")
// request.f_orden=" facturas.nif,"+request.f_orden;
if (criterio.length > 0 )
criterio=" and "+criterio;
c_factreg = database.cursor("SELECT * FROM facturas,proveedores,centros WHERE facturas.nif=proveedores.nif and facturas.cod_centro=centros.cod_centro"+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_factreg)
DbsError(false,-1);
else {
report_fra();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln("function displayReport() {");
if ( textoReqs.length > 0 )
writeln(' alert("Listado(s): '+textoReqs+'\\r está(n) en la cola \''+nprinter+'\'"); ');
writeln("}");
writeln("</SCRIPT>");
c_factreg.close();
}
}
}
criterio="Listado";
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.l_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.l_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.l_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.l_factura.f_desde.value;');
writeln(' if (clave == "vto") ');
writeln(' obj.value=document.l_factura.v_desde.value;');
writeln(' if (clave == "fecha") ');
writeln(' obj.value=document.l_factura.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("Facturas",criterio,"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="l_factura.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Facturas",criterio,"rpt")
writeln('</FORM>');
}
writeln('<FORM NAME="l_factura" method="Post" action="l_factura.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="l_factura" method="Post" action="l_factura.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
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.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.d_mes_fra)
request.d_mes_fra="";
if (!request.h_mes_fra)
request.h_mes_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;
}
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
writeln('<TR><TD ALIGN=LEFT><B>Formato: </B></TD><TD><SELECT NAME="f_formato" SIZE=1>');
writeln('<OPTION VALUE="documento" SELECTED>Documento Registrado');
writeln('<OPTION VALUE="proveedor" >Por Proveedor');
writeln('<OPTION VALUE="centro" >Por Centro');
writeln('<OPTION VALUE="pendientes" >Pendientes de Pago');
writeln('<OPTION VALUE="emitidas" >Emitidas');
writeln('<OPTION VALUE="provBloq" >Retenidas');
writeln('</SELECT>');
writeln("<INPUT type='hidden' name='f_tipo' size=4 maxlength=4 VALUE='html' >");
writeln("<INPUT type='hidden' name='maxLins' size=2 maxlength=2 VALUE='76' >");
writeln('<TD ALIGN=LEFT><B>Borde: </B></TD><TD><SELECT NAME="borde" SIZE=1>');
writeln('<OPTION VALUE="0" SELECTED>No');
writeln('<OPTION VALUE="1" >Fino');
writeln('<OPTION VALUE="2" >Medio');
writeln('<OPTION VALUE="3" >Grueso');
writeln('</SELECT>');
writeln("</TD></TR>");
// writeln('<B>Tipo: </B><SELECT NAME="f_tipo" SIZE=1>');
// writeln('<OPTION VALUE="html" SELECTED>HTML');
// writeln('<OPTION VALUE="ascii" >ASCII');
// writeln('</SELECT></TD></TR>');
writeln('</TABLE>');
writeln("<HR>");
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><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 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>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></TABLE>');
writeln('<INPUT TYPE="submit" value="Buscar">');
if (!request.waux) {
refHtml="l_factura.html?"+baseHtml+"&search2=";
}
else {
refHtml="l_factura.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
writeln('</FORM>');
writeln("<CENTER>");
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

414
l_pedido.html Normal file
View File

@ -0,0 +1,414 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: l_pedido.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>Listado de pedidos</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT SRC="l_pedido.js">
</SCRIPT>
</HEAD>
<SERVER>
var NF6=""
var NF8=""
var NF9=""
var NF10=""
var HOY=new Date();
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var baseHtml="";
var PaperVLines=76// Nro. Lins. del Papel A4 Vertical FONT Default
var PaperHLines=52// Nro. Lins. del Papel A4 Horizontal FONT Default
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 SRC="pedido.js">');
writeln('</SCRIPT>');
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln(' function GoField() {');
writeln(' var f=document.l_pedido; ');
writeln('// alert("\\r¡¡¡ !!!"); ');
if (!request.f_orden)
writeln(' f.f_formato.focus();');
if (request.f_orden)
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('}');
if (request.gofunc) {
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_pedido;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="l_pedido.html?nvo=1&'+baseHtml+'";');
writeln(' f_frame.submit(); ');
writeln(' }');
writeln(' if ( obj == "Ayuda" )');
writeln(' NetHelp(valor);');
writeln(' history.back();');
writeln('}');
}
writeln('</SCRIPT>');
if( request.f_orden) {
if (!request.gofunc) {
dbConnect();
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_pedidos = database.cursor("SELECT * FROM pedidos,proveedores WHERE pedidos.nif=proveedores.nif and "+ client.criteria +" Between '" +
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
}
else if (request.search1) {
c_pedidos = database.cursor("SELECT * FROM pedidos,proveedores WHERE pedidos.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.h_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.cod_centro >= '"+request.d_cod_centro+"' and pedidos.cod_centro <= '"+request.h_cod_centro+"' "
} else {
if ( request.d_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.cod_centro matches '"+request.d_cod_centro+"'"
}
}
if ( request.nif.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.nif matches '"+request.nif+"'"
}
if ( request.h_nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.nro_fra >= '"+request.d_nro_fra+"' and pedidos.nro_fra <= '"+request.h_nro_fra+"'"
} else {
if ( request.d_nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.nro_fra >= '"+request.d_nro_fra+"'"
}
}
if ( request.h_mes_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.mes >= '"+request.d_mes_fra+"' and pedidos.mes <= '"+request.h_mes_fra+"'"
} else {
if ( request.d_mes_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.mes >= '"+request.d_mes_fra+"'"
}
}
if ( request.h_nro_regn.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" pedidos.nro_reg >= '"+StringClip(true,request.d_nro_regy)+StringClip(true,request.d_nro_regn)+"' and pedidos.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+" pedidos.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 (request.f_formato=="proveedor")
request.f_orden=" pedidos.nif,"+request.f_orden;
if (request.f_formato=="centro")
request.f_orden=" pedidos.cod_centro,razon_social,"+request.f_orden;
if (request.f_formato=="pendientes")
request.f_orden=" pedidos.f_recepcion,"+request.f_orden;
if (request.f_formato=="emitidas") {
request.f_orden=" pedidos.cod_banco,pedidos.vto_pago,"+request.f_orden;
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+"f_emision_pago is not null "
}
if (request.f_formato=="provBloq")
request.f_orden=" pedidos.nif,"+request.f_orden;
// if (request.f_formato=="documento")
// request.f_orden=" pedidos.nif,"+request.f_orden;
if (criterio.length > 0 )
criterio=" and "+criterio;
c_factreg = database.cursor("SELECT * FROM pedidos,proveedores,centros WHERE pedidos.nif=proveedores.nif and pedidos.cod_centro=centros.cod_centro"+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_factreg)
DbsError(false,-1);
else {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln("function displayReport() {");
report_fra();
writeln("}");
writeln("</SCRIPT>");
c_factreg.close();
}
}
}
criterio="Listado";
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.l_pedido.f_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_pedido.f_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "vto") { ');
writeln(' if (dateCmp(obj.value,document.l_pedido.v_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_pedido.v_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "fecha") { ');
writeln(' if (dateCmp(obj.value,document.l_pedido.desde.value) != 1 ) {');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_pedido.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.l_pedido.f_desde.value;');
writeln(' if (clave == "vto") ');
writeln(' obj.value=document.l_pedido.v_desde.value;');
writeln(' if (clave == "fecha") ');
writeln(' obj.value=document.l_pedido.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("pedidos",criterio,"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="l_pedido.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("pedidos",criterio,"rpt")
writeln('</FORM>');
}
writeln('<FORM NAME="l_pedido" method="Post" action="l_pedido.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="l_pedido" method="Post" action="l_pedido.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
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.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.d_mes_fra)
request.d_mes_fra="";
if (!request.h_mes_fra)
request.h_mes_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;
}
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
writeln('<TR><TD ALIGN=LEFT><B>Formato: </B></TD><TD><SELECT NAME="f_formato" SIZE=1>');
writeln('<OPTION VALUE="documento" SELECTED>Documento Registrado');
writeln('<OPTION VALUE="proveedor" >Por Proveedor');
writeln('<OPTION VALUE="centro" >Por Centro');
writeln('<OPTION VALUE="pendientes" >Pendientes de Pago');
writeln('<OPTION VALUE="emitidas" >Emitidas');
writeln('<OPTION VALUE="provBloq" >Retenidas');
writeln('</SELECT>');
writeln("<INPUT type='hidden' name='f_tipo' size=4 maxlength=4 VALUE='html' >");
writeln("<INPUT type='text' name='maxLins' size=2 maxlength=2 VALUE='76' > ( 76 A4 V. 52 A4 H.)");
writeln('<TD ALIGN=LEFT><B>Borde: </B></TD><TD><SELECT NAME="borde" SIZE=1>');
writeln('<OPTION VALUE="0" SELECTED>No');
writeln('<OPTION VALUE="1" >Fino');
writeln('<OPTION VALUE="2" >Medio');
writeln('<OPTION VALUE="3" >Grueso');
writeln('</SELECT>');
writeln("</TD></TR>");
// writeln('<B>Tipo: </B><SELECT NAME="f_tipo" SIZE=1>');
// writeln('<OPTION VALUE="html" SELECTED>HTML');
// writeln('<OPTION VALUE="ascii" >ASCII');
// writeln('</SELECT></TD></TR>');
writeln('</TABLE>');
writeln("<HR>");
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><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 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>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></TABLE>');
writeln('<INPUT TYPE="submit" value="Buscar">');
writeln('</FORM>');
writeln("<CENTER>");
if (!request.waux) {
refHtml="l_pedido.html?"+baseHtml+"&search2=";
}
else {
refHtml="l_pedido.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

160
l_prevision.html Normal file
View File

@ -0,0 +1,160 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: l_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>Listado de facturas</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT SRC="l_prevision.js">
</SCRIPT>
</HEAD>
<SERVER>
var NF9=""
var NF10=""
var NF11=""
var HOY=new Date();
var nlin=0;
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var baseHtml="";
var pathFile="c:/tmprpts/";
var urlDoc="file:///C|/tmprpts/prevision.html" // Donde leen los Clients
var nprinter="";
var spoolpath="";
var baseHtml="";
var textoReqs="";
var nomFile="c:/tmprpts/prevision.html";
var PaperVLines=76// Nro. Lins. del Papel A4 Vertical FONT Default
var PaperHLines=52// Nro. Lins. del Papel A4 Horizontal FONT Default
criterio="";
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 LANGUAGE='JavaScript'>");
writeln(' function GoField() {');
writeln('// alert("\\r¡¡¡ !!!"); ');
if (request.f_entrada)
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(' }');
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(' //;');
writeln(' }');
writeln(' if ( obj == "Ayuda" )');
writeln(' NetHelp(valor);');
writeln(' history.back();');
writeln('}');
}
writeln('</SCRIPT>');
if (request.f_entrada) {
if (!request.gofunc) {
dbConnect();
report_prev();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln("function displayReport() {");
writeln('w_prev=window.open("'+urlDoc+'","w_prevision","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
// if ( textoReqs.length > 0 )
// writeln(' alert("Listado(s): '+textoReqs+'\\r está(n) en la cola \''+nprinter+'\'"); ');
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("Previsiones",criterio,"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="l_prevision.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("Previsiones",criterio,"rpt")
writeln('</FORM>');
}
writeln('<FORM NAME="l_prevision" method="Post" action="l_prevision.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="l_prevision" method="Post" action="l_prevision.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
writeln("<B>Criterios de Seleccion Datos: </B>");
writeln("<HR>");
if (!request.f_entrada)
request.f_entrada="";
writeln('<TABLE ALIGN="CENTER" BORDER=0><TR>');
writeln("<INPUT type='hidden' name='f_tipo' size=4 maxlength=4 VALUE='html' >");
writeln("<INPUT type='hidden' name='maxLins' size=2 maxlength=2 VALUE='76' >");
writeln('<TD ALIGN=LEFT><B>Borde: </B></TD><TD><SELECT NAME="borde" SIZE=1>');
writeln('<OPTION VALUE="0" SELECTED>No');
writeln('<OPTION VALUE="1" >Fino');
writeln('<OPTION VALUE="2" >Medio');
writeln('<OPTION VALUE="3" >Grueso');
writeln('</SELECT>');
writeln("</TD></TR>");
writeln('</TABLE>');
writeln("<HR>");
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
writeln("<TR><TD ALIGN=LEFT>Desde: </TD><TD><INPUT type='text' name='f_entrada' size=8 maxlength=10 VALUE='"+request.f_entrada +"' 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('</SELECT></TD></TR></TABLE>');
writeln('<INPUT TYPE="submit" value="Buscar">');
if (!request.waux) {
refHtml="l_prevision.html?"+baseHtml+"&search2=";
}
else {
refHtml="l_prevision.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
writeln('</FORM>');
writeln("<CENTER>");
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

414
l_proveedor.html Normal file
View File

@ -0,0 +1,414 @@
<!---
application: Cuentas a Pagar
version: 1.0.0
filename: l_proveedor.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>Listado de proveedores</TITLE>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT SRC="l_proveedor.js">
</SCRIPT>
</HEAD>
<SERVER>
var NF6=""
var NF8=""
var NF9=""
var NF10=""
var HOY=new Date();
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var baseHtml="";
var PaperVLines=76// Nro. Lins. del Papel A4 Vertical FONT Default
var PaperHLines=52// Nro. Lins. del Papel A4 Horizontal FONT Default
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 SRC="proveedor.js">');
writeln('</SCRIPT>');
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln(' function GoField() {');
writeln(' var f=document.l_proveedor; ');
writeln('// alert("\\r¡¡¡ !!!"); ');
if (!request.f_orden)
writeln(' f.f_formato.focus();');
if (request.f_orden)
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('}');
if (request.gofunc) {
writeln('function RunFunction(obj,valor) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.g_proveedor;');
writeln(' if ( obj == "Alta" ) {');
writeln(' f_frame.action="l_proveedor.html?nvo=1&'+baseHtml+'";');
writeln(' f_frame.submit(); ');
writeln(' }');
writeln(' if ( obj == "Ayuda" )');
writeln(' NetHelp(valor);');
writeln(' history.back();');
writeln('}');
}
writeln('</SCRIPT>');
if( request.f_orden) {
if (!request.gofunc) {
dbConnect();
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_proveedores = database.cursor("SELECT * FROM proveedores,proveedores WHERE proveedores.nif=proveedores.nif and "+ client.criteria +" Between '" +
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
}
else if (request.search1) {
c_proveedores = database.cursor("SELECT * FROM proveedores,proveedores WHERE proveedores.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.h_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.cod_centro >= '"+request.d_cod_centro+"' and proveedores.cod_centro <= '"+request.h_cod_centro+"' "
} else {
if ( request.d_cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.cod_centro matches '"+request.d_cod_centro+"'"
}
}
if ( request.nif.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.nif matches '"+request.nif+"'"
}
if ( request.h_nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.nro_fra >= '"+request.d_nro_fra+"' and proveedores.nro_fra <= '"+request.h_nro_fra+"'"
} else {
if ( request.d_nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.nro_fra >= '"+request.d_nro_fra+"'"
}
}
if ( request.h_mes_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.mes >= '"+request.d_mes_fra+"' and proveedores.mes <= '"+request.h_mes_fra+"'"
} else {
if ( request.d_mes_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.mes >= '"+request.d_mes_fra+"'"
}
}
if ( request.h_nro_regn.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" proveedores.nro_reg >= '"+StringClip(true,request.d_nro_regy)+StringClip(true,request.d_nro_regn)+"' and proveedores.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+" proveedores.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 (request.f_formato=="proveedor")
request.f_orden=" proveedores.nif,"+request.f_orden;
if (request.f_formato=="centro")
request.f_orden=" proveedores.cod_centro,razon_social,"+request.f_orden;
if (request.f_formato=="pendientes")
request.f_orden=" proveedores.f_recepcion,"+request.f_orden;
if (request.f_formato=="emitidas") {
request.f_orden=" proveedores.cod_banco,proveedores.vto_pago,"+request.f_orden;
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+"f_emision_pago is not null "
}
if (request.f_formato=="provBloq")
request.f_orden=" proveedores.nif,"+request.f_orden;
// if (request.f_formato=="documento")
// request.f_orden=" proveedores.nif,"+request.f_orden;
if (criterio.length > 0 )
criterio=" and "+criterio;
c_factreg = database.cursor("SELECT * FROM proveedores,proveedores,centros WHERE proveedores.nif=proveedores.nif and proveedores.cod_centro=centros.cod_centro"+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_factreg)
DbsError(false,-1);
else {
writeln("<SCRIPT LANGUAGE='JavaScript'>");
writeln("function displayReport() {");
report_fra();
writeln("}");
writeln("</SCRIPT>");
c_factreg.close();
}
}
}
criterio="Listado";
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.l_proveedor.f_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_proveedor.f_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "vto") { ');
writeln(' if (dateCmp(obj.value,document.l_proveedor.v_desde.value) != 1 ) {;');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_proveedor.v_desde.focus();');
writeln(' } ');
writeln(' } ');
writeln(' if (clave == "fecha") { ');
writeln(' if (dateCmp(obj.value,document.l_proveedor.desde.value) != 1 ) {');
writeln(' alert("¡ El Rango de Fechas no es posible !");');
writeln(' obj.value="";');
writeln(' document.g_proveedor.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.l_proveedor.f_desde.value;');
writeln(' if (clave == "vto") ');
writeln(' obj.value=document.l_proveedor.v_desde.value;');
writeln(' if (clave == "fecha") ');
writeln(' obj.value=document.l_proveedor.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("proveedores",criterio,"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="l_proveedor.html?'+baseHtml+'&nvo=1">');
QueryHeadBar("proveedores",criterio,"rpt")
writeln('</FORM>');
}
writeln('<FORM NAME="l_proveedor" method="Post" action="l_proveedor.html?'+baseHtml+'">');
}
}
else {
writeln('<FORM NAME="l_proveedor" method="Post" action="l_proveedor.html?waux='+request.waux+'&'+baseHtml+'">');
writeln('<CENTER><FONT SIZE=+2>'+criterio+' </FONT></FONT></H1></CENTER>');
}
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.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.d_mes_fra)
request.d_mes_fra="";
if (!request.h_mes_fra)
request.h_mes_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;
}
writeln('<TABLE ALIGN="CENTER" BORDER=0>');
writeln('<TR><TD ALIGN=LEFT><B>Formato: </B></TD><TD><SELECT NAME="f_formato" SIZE=1>');
writeln('<OPTION VALUE="documento" SELECTED>Documento Registrado');
writeln('<OPTION VALUE="proveedor" >Por Proveedor');
writeln('<OPTION VALUE="centro" >Por Centro');
writeln('<OPTION VALUE="pendientes" >Pendientes de Pago');
writeln('<OPTION VALUE="emitidas" >Emitidas');
writeln('<OPTION VALUE="provBloq" >Retenidas');
writeln('</SELECT>');
writeln("<INPUT type='hidden' name='f_tipo' size=4 maxlength=4 VALUE='html' >");
writeln("<INPUT type='text' name='maxLins' size=2 maxlength=2 VALUE='76' > ( 76 A4 V. 52 A4 H.)");
writeln('<TD ALIGN=LEFT><B>Borde: </B></TD><TD><SELECT NAME="borde" SIZE=1>');
writeln('<OPTION VALUE="0" SELECTED>No');
writeln('<OPTION VALUE="1" >Fino');
writeln('<OPTION VALUE="2" >Medio');
writeln('<OPTION VALUE="3" >Grueso');
writeln('</SELECT>');
writeln("</TD></TR>");
// writeln('<B>Tipo: </B><SELECT NAME="f_tipo" SIZE=1>');
// writeln('<OPTION VALUE="html" SELECTED>HTML');
// writeln('<OPTION VALUE="ascii" >ASCII');
// writeln('</SELECT></TD></TR>');
writeln('</TABLE>');
writeln("<HR>");
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><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 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>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></TABLE>');
writeln('<INPUT TYPE="submit" value="Buscar">');
writeln('</FORM>');
writeln("<CENTER>");
if (!request.waux) {
refHtml="l_proveedor.html?"+baseHtml+"&search2=";
}
else {
refHtml="l_proveedor.html?waux="+request.waux+"&"+baseHtml+"&search2=";
}
LoadHidden(refHtml);
if (!request.waux)
writeSignature(true);
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

45
logged_out.html Normal file
View File

@ -0,0 +1,45 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Logged Out</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/4.0b1 (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="images/BG.jpg">
<CENTER><P><BR>
<BR>
<SERVER>
if (request.alert) {
if (request.alert == 0 )
writeln('<H1><B><BLINK><FONT COLOR="#FF0000"> ¡¡¡ Acceso No Permitido a los Datos !!!!</FONT></H1></BLINK> </B>');
}
</SERVER>
<BR></P></CENTER>
<CENTER><TABLE BORDER=4 WIDTH="100" HEIGHT="100" BGCOLOR="#FFFFFF" >
<TR>
<TD align=center colspan=3>
<DL>
<DT><A HREF="http://ctasapagar.malaga.sando.es"><IMG SRC="images/sand2new.gif" ALT="Construcciones Sando" BORDER=0 HEIGHT=117 WIDTH=424 ALIGN=RIGHT></A>
<A HREF="http://ctasapagar.malaga.sando.es">&nbsp;</A></DT>
</DL>
</TD>
</TR>
</TABLE></CENTER>
<H1 ALIGN=CENTER><FONT COLOR="#FF0080">Cuentas a Pagar</FONT></H1>
<CENTER><P><BR>
<BR>
<IMG SRC="images/linea.gif" HEIGHT=20 WIDTH=500 ALIGN=BOTTOM>&nbsp;</P></CENTER>
<H1 ALIGN=CENTER>Debe <A HREF="http://ctasapagar.malaga.sando.es/Ctas_a_Pagar/initial.html" target="_top">Alojarse
en</A> el sistema de nuevo.</H1>
<CENTER><DT ALIGN=CENTER>&nbsp;</DT></CENTER>
<CENTER><DT><A HREF="http://ctasapagar.malaga.sando.es/Ctas_a_Pagar/initial.html"><IMG SRC="images/click.gif" HEIGHT=30 WIDTH=68></A></DT></CENTER>
</BODY>
</HTML>

80
login.html Normal file
View File

@ -0,0 +1,80 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Login</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (WinNT; I) [Netscape]">
</HEAD>
</SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<BODY>
<P><!-- application: -->
<!-- version: 1.0 -->
<!-- company name: -->
<!-- filename: login.html -->
<!-- description: looks up user name and password from initial.html -->
<!-- in db. if not found, return to login screen, -->
<!-- else set cookies and go on to app. -->
<!-- ==================================================================== -->
<!-- -->
<!-- ==================================================================== -->
<!-- Look up user in the database. If found, set cookies so s/he won't have
to log in again and redirect to menu. If not found, try logging in
again. -->
<SERVER>
var baseHtml="";
if (request.prevPage)
client.prevPage = request.prevPage;
checkPrevPage("login.html");
//client.ViewFkey=request.ViewFkey;
//client.FrameType=request.FrameType;
client.MsgScroll=request.MsgScroll;
<!-- look up user -->
login = database.cursor("select id,firstname,lastname,def_category,acl from user where "+
"active='Y' and login='"+escQuote(request.username)+
"' and password='"+escQuote(request.password)+"'");
firstname = null;
lastname = null;
user_found = false;
<!-- assumes login/password pairs are unique -->
request.uid=0;
if (login.next()) {
client.id = login.id;
request.uid= client.id;
firstname = login.firstname;
lastname = login.lastname;
client.username = login.username;
client.fullname = login.fullname;
client.def_category=login.def_category;
client.acl = login.acl;
client.def_project = login.def_project;
client.objeto="";
client.trans=false;
setLoggedIn();
user_found = true;
}
login.close();
<!-- set cookies -->
client.username = request.username;
client.fullname = firstname+" "+lastname;
LoadParametros();
<!-- if user not found, go back to login form, else go to main screen -->
if (!user_found)
redirect("initial.html?ipw=1");
else {
<!-- load frames: button bar and hours entry screen -->
baseHtml="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
redirect("ctasapagar.html?"+baseHtml);
}
</SERVER>
</P>
</BODY>
</HTML>

75
logout.html Normal file
View File

@ -0,0 +1,75 @@
<HEAD>
<!-- application: Ctas a Pagar -->
<!-- version: 1.0 -->
<!-- company name: AdmiSys -->
<!-- filename: logout.html -->
<!-- description: destroy user's identifying cookies and return -->
<!-- to login screen -->
<server>
/*
*/
</server>
<server>
setLoggedOut();
client.id = null;
client.username = null;
client.prevPage = null;
client.fullname = null;
client.def_category = null;
client.def_project = null;
client.acl=null;
client.FrameType=null;
client.expiration(0);
client.prevPage = "logout.tml";
client.es_inicio=0;
client.ViewFkey = null;
client.MsgScroll = null;
client.objeto = ""
client.trans=null;
UnLoadParametros();
<!-- this doesn't seem to do anything! -->
<!-- client.destroy(); -->
if(database.connected)
database.disconnect();
//if (request.bb) {
// write("<SCRIPT LANGUAGE='JavaScript'>top.close();</SCRIPT>")
// redirect("go_page.html?page=initial.html?ipw=1");
// from button bar, already cleared frames
// chk_login();
// redirect("logged_out.html");
//<!-- redirect("initial.html"); -->
//}
//else {
// redirect("logged_out.html");
//}
</server>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SERVER>
<!--
writeln("<SCRIPT LANGUAGE='JavaScript'>")
writeln("function Go_Location() {")
if (request.alert)
writeln('parent.location.href=entorno.DirBase+"/logged_out.html?alert='+request.alert+'"');
else
writeln('parent.location.href=entorno.DirBase+"/logged_out.html"')
writeln('top.close()');
writeln("}")
writeln("</SCRIPT>")
//-->
</SERVER>
</HEAD>
<BODY ONLOAD="Go_Location()" >
</BODY>
</HEAD>
</HTML>

784
o_albaran.html Normal file
View File

@ -0,0 +1,784 @@
<TITLE>Albarán Interno</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>albaranes</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Albaranes Internos">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT SRC="albaran.js">
</SCRIPT>
<SERVER>
// Variables para el Server
var HOY=new Date();
var entorno = new entObj(0);
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var IFDF=""; // para columnas en SQL según DBDATE
// Algunos formatos para nros.
var NF2=""
var NF3=""
var NF4=""
var NF5=""
var NF6=""
var NF7=""
var NF8=""
var NF9=""
var NF10=""
var NF11=""
var NF12=""
var baseHtml="";
dbAcl();
//if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
//if ((!request.waux && request.lock) || request.nvo )
SetParametros();
writeln('function MasLineas(obj) {');
writeln(' if (obj.name == "AlineasMas" ) { ');
writeln(' nro=parseInt(document.f_albaran.nrolineas.value);');
writeln(' document.f_albaran.nrolineas.value=nro+1;');
writeln(' } ');
writeln(' if (obj.name == "ActasMas" ) { ');
writeln(' nro=parseInt(document.f_albaran.nroctas.value);');
writeln(' document.f_albaran.nroctas.value=nro+1;');
writeln(' } ');
writeln(' FormPaint(obj);');
writeln('} ');
writeln('function FormPaint(obj) {');
writeln(' document.f_albaran.action=window.document.location.href+"&cookie=1&lock=true"');
writeln(' document.f_albaran.submit();'); writeln(' } ');
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_albaran;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.ab_nro_reg,"Albaranes","ab_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_albaran.length; i++ ) { ');
writeln(' if ( document.f_albaran.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_albaran.action=mainFrame.document.location.href+"&cookie=1&nro="+nl+"&lock=true"');
writeln(' document.f_albaran.submit();');
writeln('} ');
}
else {
writeln('function ScrollVer(obj) {');
writeln(' status_scroll=true; ');
writeln(' MESSAGE=" ¡¡¡ El Albarán ha cambiado usar el botón de \'Ver\' para "+ ');
writeln(' " actualizar los datos del la Base de Datos desde el Servidor !!! " ');
writeln(' scroll = new statusMessageObject(); ');
writeln(' scroller(); ');
writeln('} ');
writeln('function RePaint(obj) {');
writeln(' if (status_scroll != true ) ');
writeln(' ScrollVer(obj); ');
writeln('} ');
}
writeln('function Enfoca(obj) {')
writeln(' if (obj.name == "linCta" )');
if (request.nvo)
writeln(' document.f_albaran.ac_'+request.nroctas+'_cod_cta.focus();');
else
writeln(' document.f_albaran.ac_1_cod_cta.focus();');
writeln(' if (obj.name == "linAlb" )');
if (request.nvo)
writeln(' document.f_albaran.al_'+request.nrolineas+'_referencia.focus();');
else
writeln(' document.f_albaran.al_1_referencia.focus();');
if ( request.nro ) {
writeln(' document.f_albaran.elements['+request.nro+'].focus();');
}
writeln('}');
writeln(' function Chek_fields(obj) {');
if (request.waux || !request.lock)
writeln(' return true;');
else {
writeln(' if ( emptyField(obj.ab_nro_reg) == true ) { ');
writeln(' alert("!!! Es necesario rellenar el Código de albaran !!!->"+obj.ab_nro_reg.value+"<-");');
writeln(' return false;');
writeln(' } ');
writeln(' if ( emptyField(obj.ab_fecha_emision) == true ) { ');
writeln(' alert("!!! Es necesario rellenar la Fecha de Emisión del Albarán !!!->"+obj.ab_fecha_emision.value+"<-");');
writeln(' return false;');
writeln(' }');
writeln(' if ( emptyField(obj.ab_nif) == true ) { ');
writeln(' alert("!!! Es necesario rellenar el NIF del albarán !!!->"+obj.ab_nif.value+"<-");');
writeln(' return false;');
writeln(' }');
}
writeln(' }');
writeln(' function SumaCtas(obj) {');
writeln(' var SumaDebe=0;');
writeln(' var SumaHaber=0;');
writeln(' var nro=0;');
writeln(' var importe=0;');
writeln(' var Limite=0;');
writeln(' tipoApte="";');
writeln(' Limite=parseInt(document.f_albaran.nroctas.value);');
writeln(' for (var nl=1; nl <= Limite ; nl++) { ');
writeln(' eval("importe=NroUnformat(document.f_albaran.ac_"+nl+"_importe.value)");');
writeln(' nro=parseFloat(importe);');
//writeln(' alert(nro+" "+importe) ');
writeln(' eval("tipoApte=get_value(\'select\',document.f_albaran.ac_"+nl+"_tipo_apte);")');
writeln(' if (tipoApte == "D" ) ');
writeln(' SumaDebe=parseFloat(SumaDebe)+parseFloat(nro);');
writeln(' if (tipoApte == "H" ) ');
writeln(' SumaHaber=parseFloat(SumaHaber)+parseFloat(nro);');
writeln(' }');
//writeln(' alert(" Debe:"+SumaDebe+" Haber:"+SumaHaber)');
writeln(' document.f_albaran.ac_totaldebe.value=NroFormat(SumaDebe+" ",NF11);');
writeln(' document.f_albaran.ac_totalhaber.value=NroFormat(SumaHaber+" ",NF11);');
writeln(' }');
writeln(' function SumaLineas(obj) {');
writeln(' var SumaLineas=0;');
writeln(' var Limite=0;');
writeln(' var cantidad=0;');
writeln(' var precio=0;');
writeln(' var nro=0;');
writeln(' Limite=parseInt(document.f_albaran.nrolineas.value);');
writeln(' for (var nl=1; nl <= Limite ; nl++) { ');
writeln(' eval("cantidad=NroUnformat(document.f_albaran.al_"+nl+"_cantidad.value)");');
writeln(' eval("precio=NroUnformat(document.f_albaran.al_"+nl+"_precio_und.value)");');
writeln(' nro=parseFloat(cantidad)*parseFloat(precio); ');
writeln(' eval("document.f_albaran.al_"+nl+"_total.value=NroFormat(nro+\' \',NF9);");');
writeln(' SumaLineas=parseFloat(SumaLineas)+parseFloat(nro); ');
writeln(' }');
writeln(' document.f_albaran.al_total.value=NroFormat(SumaLineas+" ",NF9);');
writeln(' }');
writeln(' function CalculaLinea(nl) {');
//writeln(' eval("alert(document.f_albaran.al_1_precio_und.value)") ');
writeln(' var nro=0;');
writeln(' eval("nro=Math.round(parseFloat(NroUnformat(document.f_albaran.al_"+nl+"_cantidad.value))*parseFloat(NroUnformat(document.f_albaran.al_"+nl+"_precio_und.value)))");');
writeln(' eval("document.f_albaran.al_"+nl+"_total.value=NroFormat(nro+\' \',NF11);")');
writeln(' SumaLineas(document.f_albaran); ');
writeln(' }');
writeln(' function GoNextField(obj) {');
writeln(' var pos=0; ');
writeln(' pos=pos_form(document.f_albaran,obj.name); ');
writeln(' if ( pos+1 >= 0 && pos+1 <= document.f_albaran.elements.length) ');
writeln(' document.f_albaran.elements[pos+1].focus();');
writeln(' }');
writeln(' function ChkLinCta(icta) {');
writeln(' var f=document.f_albaran;');
writeln(' var paso=true; ');
writeln(' var valor="";');
writeln(' var nro=0;');
writeln(' eval("if ( f.ac_"+icta+"_cod_cta.value.length < 2 || f.ac_"+icta+"_cod_cta.value == \'\') { paso=false }")');
writeln(' if ( paso == false ) ');
writeln(' return; ');
writeln(' eval("valor=f.ac_"+icta+"_clave.value;")');
writeln(' eval("if ( valor.length < 2 || valor == \'\' || !valor ) { scanClaveCta("+icta+");}")');
writeln(' eval("nro=parseInt(NroUnformat(f.ac_"+icta+"_importe.value));")');
writeln(' eval("valor=f.ac_"+icta+"_concepto.value;")');
writeln(' if ( valor.length == 0 ) { ');
writeln(' if ( nro < 0 ) { '),
writeln(' eval("f.ac_"+icta+"_concepto.value=\'A\'");');
writeln(' }');
writeln(' if ( nro > 0 ) { ');
writeln(' eval("f.ac_"+icta+"_concepto.value=\' \'"); ');
writeln(' }');
writeln(' };');
writeln(' }');
writeln(' function GoField() {');
writeln(' var f=document.f_albaran; ');
writeln(' var nregy=""; ');
writeln(' var nregn=""; ');
writeln(' if ( f.ab_is_locked.value == "S" ) {');
writeln(' if ( f.ab_fra_reg.value.length > 0 ) {');
writeln(' nregy=f.ab_fra_reg.value.substring(0,4); ');
writeln(' nregn=f.ab_fra_reg.value.substring(4,10); ');
writeln(' alert("\\r El Albarán está bloqueado.\\r Fra. Nro. Reg. "+nregn+"/"+nregy); ');
writeln(' } else ');
writeln(' alert("\\r¡¡¡ El Albarán está bloqueado !!!"); ');
writeln(' } ');
if ( request.prt) {
// writeln('w_auxiliar(\'factura\',\'Reg_'+request.prt+'\',\'fa_nro_reg\',\''+StringClip(true,request.prt)+'\');');
// writeln(' alert("\\rNro. Regisro: '+nregn+'/'+nregy+' creado. ");');
}
if (request.exec=="add" || request.exec == "upd" )
writeln(' f.submit(); ');
writeln(' if ( f.ab_t_razon_social.value == "NO EXISTE" ) {');
writeln(' alert("!!! El NIF del Proveedor no Existe !!!->"+f.ab_nif.value+"<-");');
writeln(' return; ');
writeln(' }' );
writeln(' if (f.ab_cond_pago.value+"" == pa_cp_lock+"" ) {');
writeln(' alert("!!! El Proveedor está Bloqueado !!!->"+f.ab_cond_pago.value+"<-");');
writeln(' }' );
if (request.Alb || request.exec == "lin" )
writeln(' Enfoca("linAlb");');
if (request.Act || request.exec == "cta")
writeln(' Enfoca("linCta");');
if (!request.Act && !request.Alb)
writeln(' f.ab_nro_reg.focus();');
writeln(' }');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons();GoField();SumaCtas(this);SumaLineas(this)"');
else
writeln('<BODY OnLoad="GoField();SumaCtas(this);SumaLineas(this)" ');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from albaranes where nro_reg=\'"+StringClip(true,request.ab_nro_reg)+"\'") == true ){
redirect(addClient('error.html?alert=2'));
}
else {
client.is_trans=true;
database.beginTransaction();
status=database.execute("INSERT INTO albaranes(" +
" nro_reg," +
" is_locked," +
" fra_reg," +
" fecha_emision," +
" nif," +
" cod_centro," +
" por_reten," +
" importe_reten," +
" nro_pedido," +
" vto_jefe_obra," +
" vto_jefe_grupo," +
" vto_proveedor," +
" observaciones) VALUES ('" + StringClip(true,request.ab_nro_reg) + "','" +
request.ab_is_locked + "','"+
request.ab_fra_reg + "','"+
DateFormat(request.ab_fecha_emision,NLDF) + "','"+
StringClip(true,request.ab_nif) + "','"+
StringClip(true,request.ab_cod_centro) + "','"+
NroUnformat(request.ab_por_reten) + "','"+
NroUnformat(request.ab_importe_reten) + "','"+
StringClip(true,request.ab_nro_pedido) + "','"+
StringClip(true,request.ab_vto_jefe_obra) + "','"+
StringClip(true,request.ab_vto_jefe_grupo) + "','"+
StringClip(true,request.ab_vto_proveedor) + "','"+
StringClip(true,request.ab_observaciones) + "')");
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=8'));
}
DbsError(true,status);
InsAlbLins();
database.commitTransaction();
client.is_trans=false;
}
redirect(addClient("o_albaran.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.ab_nro_reg) {
// if (request.lock)
// client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE albaranes SET "+
" is_locked='" + request.ab_is_locked + "',"+
" fra_reg='" + request.ab_fra_reg + "',"+
" fecha_emision='" + DateFormat(request.ab_fecha_emision,NLDF) + "',"+
" nif='" + StringClip(true,request.ab_nif) + "',"+
" cod_centro='" + StringClip(true,request.ab_cod_centro) + "',"+
" por_reten='" + NroUnformat(request.ab_por_reten) + "',"+
" importe_reten='" + NroUnformat(request.ab_importe_reten) + "',"+
" nro_pedido='" + StringClip(true,request.ab_nro_pedido) + "',"+
" vto_jefe_obra='" + StringClip(true,request.ab_vto_jefe_obra) + "',"+
" vto_jefe_grupo='" + StringClip(true,request.ab_vto_jefe_grupo) + "',"+
" vto_proveedor='" + StringClip(true,request.ab_vto_proveedor) + "',"+
" observaciones='" + StringClip(true,request.ab_observaciones) + "'"+
" WHERE nro_reg = '" + request.ab_nro_reg + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=9'));
}
DbsError(true,status);
DelAlbLins();
InsAlbLins();
database.commitTransaction();
client.is_trans=false;
redirect(addClient("g_albaran.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
client.is_trans=true;
database.beginTransaction();
status=database.execute("DELETE FROM albaranes WHERE nro_reg = \'" + request.ab_nro_reg + "\'");
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=10'));
}
DbsError(true,status);
DelAlbLins();
database.commitTransaction();
client.is_trans=false;
redirect(addClient("g_albaran.html?"+baseHtml));
}
if (request.ab_nro_reg && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock) {
client.is_trans=true;
database.beginTransaction();
CursorTabla("ab","nro_reg","=\'"+request.ab_nro_reg+"\'",true,true);
}
else
CursorTabla("ab","nro_reg","=\'"+request.ab_nro_reg+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.ab_nro_reg=StringClip(true,c_albaranes.nro_reg);
request.ab_is_locked=c_albaranes.is_locked;
request.ab_fra_reg=StringClip(true,c_albaranes.fra_reg);
request.ab_fecha_emision=datetoString(c_albaranes.fecha_emision);
request.ab_nif=StringClip(true,c_albaranes.nif);
request.ab_cod_centro=StringClip(false,c_albaranes.cod_centro);
request.ab_por_reten=c_albaranes.por_reten;
request.ab_importe_reten=NroFormat(c_albaranes.importe_reten,NF9);
request.ab_nro_pedido=StringClip(true,c_albaranes.nro_pedido);
request.ab_vto_jefe_obra=StringClip(true,c_albaranes.vto_jefe_obra);
request.ab_vto_jefe_grupo=StringClip(true,c_albaranes.vto_jefe_grupo);
request.ab_vto_proveedor=StringClip(true,c_albaranes.vto_proveedor);
request.ab_observaciones=StringClip(true,c_albaranes.observaciones);
request.ab_is_locked=StringClip(true,c_albaranes.is_locked);
if (request.lock)
c_albaranes.close();
if (request.ab_is_locked == "S" )
request.waux=8;
if (request.ab_nif && request.ab_nif != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.ab_nif)+"\'",false,false);
request.ab_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.ab_t_razon_social == " " ) {
request.ab_t_razon_social="NO EXISTE";
request.ab_cta_contable="";
request.ab_cond_pago="";
} else {
request.ab_cta_contable=StringClip(false,c_proveedores.cta_contable);
request.ab_cond_pago=c_proveedores.cond_pago;
}
c_proveedores.close();
}
else {
request.ab_t_razon_social="";
request.ab_cta_contable="";
request.ab_cond_pago="";
}
if (request.ab_cod_centro && request.ab_cod_centro != null) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.ab_cod_centro)+"\'",false,false);
request.ab_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.ab_t_des_centro="";
if (request.ab_nro_pedido && request.ab_nro_pedido != null) {
CursorTabla("pe","nro_pedido","=\'"+StringClip(true,request.ab_nro_pedido)+"\'",false,false);
request.ab_t_des_pedido=c_pedidos.descripcion;
c_pedidos.close();
}
else
request.ab_t_des_pedido="";
if (request.lock)
CursorTabla("al","nro_reg","=\'"+request.ab_nro_reg+"\'",false,true);
else
CursorTabla("al","nro_reg","=\'"+request.ab_nro_reg+"\'",false,"");
var SumaLineas=0;
request.nrolineas=1;
nl=0;
while (c_albalineas.next()) {
request.nrolineas++; nl++;
eval("request.al_"+nl+"_nro_lin=request.c_albalineas.nro_lin");
eval("request.al_"+nl+"_nro_reg=StringClip(true,c_albalineas.nro_reg)");
eval("request.al_"+nl+"_cantidad=NroFormat(c_albalineas.cantidad,NF5)");
eval("request.al_"+nl+"_referencia=StringClip(true,c_albalineas.referencia)");
eval("request.al_"+nl+"_descripcion=StringClip(true,c_albalineas.descripcion)");
eval("request.al_"+nl+"_precio_und=NroFormat(c_albalineas.precio_und,NF8)");
eval("request.al_"+nl+"_total=NroFormat(c_albalineas.cantidad*c_albalineas.precio_und,NF9)");
SumaLineas=SumaLineas+(c_albalineas.cantidad*c_albalineas.precio_und);
}
c_albalineas.close()
request.al_total=NroFormat(SumaLineas,NF9);
if (request.lock)
CursorTabla("ac","nro_reg","=\'"+request.ab_nro_reg+"\'",false,true);
else
CursorTabla("ac","nro_reg","=\'"+request.ab_nro_reg+"\'",false,"");
var SumaDebe=0;
var SumaHaber=0;
request.nroctas=0;
nl=0;
while (c_aptecuentas.next()) {
request.nroctas++; nl++;
eval("request.ac_"+nl+"_nro_lin=c_aptecuentas.nro_lin");
eval("request.ac_"+nl+"_nro_reg=StringClip(true,c_aptecuentas.nro_reg)");
eval("request.ac_"+nl+"_tipolin=StringClip(true,c_aptecuentas.tipolin)");
eval("request.ac_"+nl+"_cod_cta=StringClip(true,c_aptecuentas.cod_cta)");
eval("request.ac_"+nl+"_concepto=StringClip(true,c_aptecuentas.concepto)");
eval("request.ac_"+nl+"_clave=StringClip(true,c_aptecuentas.clave)");
eval("request.ac_"+nl+"_importe=NroFormat(c_aptecuentas.importe,NF9);");
eval("request.ac_"+nl+"_tipo_apte=StringClip(true,c_aptecuentas.tipo_apte)");
eval("request.ac_"+nl+"_fecha=c_aptecuentas.fecha");
if ( c_aptecuentas.tipo_apte == "D" )
SumaDebe=SumaDebe+c_aptecuentas.importe;
if ( c_aptecuentas.tipo_apte == "H" )
SumaHaber=SumaHaber+c_aptecuentas.importe;
}
request.ac_totaldebe=NroFormat(SumaDebe,NF11);
request.ac_totalhaber=NroFormat(SumaHaber,NF11);
if (request.nroctas ==0 )
request.nroctas=1;
c_aptecuentas.close()
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("ab_");
request.lock=true;
request.nroctas=2;
request.nrolineas=1;
request.ac_totalhaber=0;
request.ac_totaldebe=0;
request.al_total=0;
request.ab_t_razon_social="";
request.ab_cta_contable="";
request.ab_t_des_pedido="";
request.ab_t_des_centro="";
request.ab_cond_pago="";
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.ab_nro_reg && request.ab_nro_reg != null ) {
if ( entriesExist(" from albaranes where nro_reg=\'"+StringClip(true,request.ab_nro_reg)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
if (request.ab_nif && request.ab_nif != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.ab_nif)+"\'",false,false);
request.ab_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.ab_t_razon_social == " " ) {
request.ab_t_razon_social="NO EXISTE";
request.ab_cta_contable="";
request.ab_cond_pago="";
} else {
request.ab_cta_contable=StringClip(false,c_proveedores.cta_contable);
request.ab_cond_pago=c_proveedores.cond_pago;
}
c_proveedores.close();
}
else {
request.ab_t_razon_social="";
request.ab_cta_contable="";
request.ab_cond_pago="";
}
if (request.ab_cod_centro && request.ab_cod_centro != null) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.ab_cod_centro)+"\'",false,false);
request.ab_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.ab_t_des_centro="";
if (request.ab_nro_pedido && request.ab_nro_pedido != null) {
CursorTabla("pe","nro_pedido","=\'"+StringClip(true,request.ab_nro_pedido)+"\'",false,false);
request.ab_t_des_pedido=c_pedidos.descripcion;
c_pedidos.close();
}
else
request.ab_t_des_pedido="";
}
writeln('<FORM NAME="f_albaran" METHOD="post"');
if (request.ab_nro_reg && !request.nvo)
htmlpath="o_albaran.html?ab_nro_reg="+escape(request.ab_nro_reg)+"&"+baseHtml;
else
htmlpath="o_albaran.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.ab_nro_reg,"Albarán","ab_");
write('<CENTER><TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Código " ONCLICK="w_auxiliar(\'nro_reg\',\'nro_reg\',\'ab_nro_reg\',\''+request.ab_nro_reg+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> Nro.Reg.: </B>');
//}
if (request.ab_nro_reg && !request.nvo)
writeln('<FONT COLOR="#800040"><B>'+request.ab_nro_reg+'</B></FONT><INPUT type="hidden" name="ab_nro_reg" VALUE="'+request.ab_nro_reg+'"></TD></FONT>');
else
writeln('<INPUT TYPE="text" NAME="ab_nro_reg" VALUE="'+request.ab_nro_reg+'" SIZE=10 OnChange="//RePaint(this)"></TD>');
if (request.waux || !request.lock) {
if ( request.ab_fra_reg.length > 2 )
writeln('<FONT COLOR="#800040">Nro.Reg.Fra.:<B>'+request.ab_fra_reg+'</FONT>');
if ( request.ab_is_locked == "S" )
writeln('<FONT COLOR="#800040">Bloqueado<B></FONT></TR>');
}
writeln('<INPUT type="hidden" name="ab_is_locked" VALUE="'+request.ab_is_locked+'">');
writeln('<INPUT type="hidden" name="ab_fra_reg" VALUE="'+request.ab_fra_reg+'"></TD>');
writeln('<TD ALIGN=RIGHT><B>Fecha Emisión:</B>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.ab_fecha_emision+'</FONT><INPUT type="hidden" name="ab_fecha_emision" VALUE="'+request.ab_fecha_emision+'" size=8 maxlength=8></TD></FONT></TR>');
else
writeln('<INPUT type="text" name="ab_fecha_emision" VALUE="'+request.ab_fecha_emision+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
if (!request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+StringClip(true,request.ab_nif)+'\')">');
else
writeln('<TR><TD ALIGN=RIGHT><B> N.I.F. </B>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.ab_nif+'</B></FONT><INPUT type="hidden" name="ab_nif" VALUE="'+request.ab_nif+'"></TD>');
else
writeln('<INPUT TYPE="text" NAME="ab_nif" VALUE="'+request.ab_nif+'" SIZE=12 OnChange="this.value=this.value.toUpperCase();RePaint(this)" ></TD>');
if (request.ab_t_razon_social == "NO EXISTE")
writeln('<TD ALIGN=LEFT><BLINK><FONT COLOR="#800040">'+request.ab_t_razon_social+'</FONT></BLINK></TD></TR>');
else
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.ab_t_razon_social+'</FONT></TD></TR>');
writeln('<INPUT type="hidden" name="ab_t_razon_social" VALUE="'+request.ab_t_razon_social+'">');
writeln('<INPUT type="hidden" name="ab_cta_contable" VALUE="'+request.ab_cta_contable+'">');
writeln('<INPUT type="hidden" name="ab_cond_pago" VALUE="'+request.ab_cond_pago+'">');
if (!request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Centro" ONCLICK="w_auxiliar(\'centro\',\'Centros\',\'ce_cod_centro\',\''+StringClip(true,request.ab_cod_centro)+'\')">');
else
writeln('<TR><TD ALIGN=RIGHT><B>Centro</B>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.ab_cod_centro+'</B></FONT><INPUT TYPE="hidden" NAME="ab_con_centro" VALUE="'+request.ab_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
else
writeln('<INPUT TYPE="text" NAME="ab_cod_centro" VALUE="'+request.ab_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.ab_t_des_centro+'</FONT></TD>');
if (!request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Pedido" ONCLICK="w_auxiliar(\'pedido\',\'Pedidos\',\'pe_nro_pedido\',\''+StringClip(true,request.ab_nro_pedido)+'\')">');
else
writeln('<TR><TD ALIGN=RIGHT><B>Pedido</B>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.ab_nro_pedido+'</B></FONT><INPUT TYPE="hidden" NAME="ab_nro_pedio" VALUE="'+request.ab_nro_pedido+'" SIZE=12 maxlength=20 OnChange="RePaint(this)"> </TD>');
else
writeln('<INPUT TYPE="text" NAME="ab_nro_pedido" VALUE="'+request.ab_nro_pedido+'" SIZE=12 MAXLENGTH=20 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.ab_t_des_pedido+'</FONT></TD>');
writeln('<TR><TD ALIGN=RIGHT><B>Retenciones:</B>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.ab_por_reten+'</FONT><INPUT type="hidden" name="ab_por_reten" VALUE="'+request.ab_por_reten+'" size=2 maxlength=2></TD></FONT></TD>');
else
writeln('<INPUT type="text" name="ab_por_reten" VALUE="'+request.ab_por_reten+'" onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" size=2 maxlength=2></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ab_importe_reten+'</FONT><INPUT type="hidden" name="ab_importe_reten" VALUE="'+request.ab_importe_reten+'" size=10 maxlength=10></TD></FONT></TR>');
else
writeln('<TD><INPUT type="text" name="ab_importe_reten" VALUE="'+request.ab_importe_reten+'" onBlur="NroToString(this,NF9)" onFocus="StringToNro(this,NF9)" size=11 maxlength=11></TD></TR>');
writeln('</TABLE>');
writeln('<A NAME="lin-ctas"><CENTER><H2><FONT COLOR="#800040"> Cuentas de Gastos </FONT></H2></CENTER><A>');
writeln('<INPUT TYPE="hidden" NAME="nroctas" VALUE="'+request.nroctas+'" SIZE=2 >');
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
writeln('<TD><INPUT TYPE="button" VALUE="Cuenta Cont." ');
writeln(' ONCLICK="w_auxiliar(\'ctascont\',\'Cuentas_Contables\',\'ct_cta_contable\',\'\')"></TD>');
writeln('<TD ALIGN=CENTER><B>T&iacute;tulo Cuenta</B></TD>');
writeln('<TD ALIGN=CENTER><B>Importe</B> </TD>');
writeln('<TD ALIGN=CENTER><B>Tipo Ap.</B> </TD>');
writeln('<TD><B>Clave</B></TD>');
writeln('<TD ALIGN=CENTER><B>Concepto</B> </TD>');
for (var nl=1; nl <= request.nroctas ; nl++) {
eval('if (!request.ac_'+nl+'_nro_lin) { request.ac_'+nl+'_nro_lin='+nl+'}');
eval('if (!request.ac_'+nl+'_tipolin) { request.ac_'+nl+'_tipolin="G"};');
eval('if (!request.ac_'+nl+'_cod_cta) { request.ac_'+nl+'_cod_cta=""; request.ac_'+nl+'_t_cta_contable=""};');
eval('if (!request.ac_'+nl+'_clave){ request.ac_'+nl+'_clave=""};');
eval('if (!request.ac_'+nl+'_concepto){ request.ac_'+nl+'_concepto=""};');
eval('if (!request.ac_'+nl+'_tipo_apte){ request.ac_'+nl+'_tipo_apte=""};');
eval('if (!request.ac_'+nl+'_importe) { request.ac_'+nl+'_importe=0};');
eval('writeln(\'<TR><TD><FONT COLOR="#800040"><B>\'+request.ac_'+nl+'_nro_lin+\'</B></FONT><INPUT TYPE="hidden" NAME="ac_'+nl+'_nro_lin" VALUE="\'+request.ac_'+nl+'_nro_lin+\'" SIZE=2 ></TD> \');');
eval('writeln(\'<INPUT TYPE="hidden" NAME="ac_'+nl+'_tipolin" VALUE="\'+request.ac_'+nl+'_tipolin+\'" SIZE=1 ></TD>\');');
if (request.waux || !request.lock)
eval('writeln(\'<TD ALIGN=CENTER>\'+request.ac_'+nl+'_cod_cta+\'<FONT COLOR="#800040"><B><INPUT TYPE="hidden" NAME="ac_'+nl+'_cod_cta" VALUE="\'+request.ac_'+nl+'_cod_cta+\'" SIZE=12 ></TD>\');');
else
eval('writeln(\'<TD ALIGN=CENTER><INPUT TYPE="text" NAME="ac_'+nl+'_cod_cta" VALUE="\'+request.ac_'+nl+'_cod_cta+\'" OnChange="CtaNroPad(this);RePaint(this)" SIZE='+client.pa_longcta+' ></TD>\');');
eval('valor=request.ac_'+nl+'_cod_cta;');
if (valor != " " && valor != "" && valor != "null" ) {
CursorTabla("ct","cta_contable","=\'"+StringClip(true,valor)+"\'",false,false);
texto=c_ctas_contables.descripcion;
c_ctas_contables.close();
}
else {
texto=" "
}
eval('request.ac_'+nl+'_t_cta_contable=texto;');
eval('writeln(\'<TD><FONT COLOR="#800040">\'+request.ac_'+nl+'_t_cta_contable+\'</FONT></TD>\');');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.ac_'+nl+'_importe+\'</B></FONT><INPUT TYPE="hidden" NAME="ac_'+nl+'_importe" VALUE="\'+request.ac_'+nl+'_importe+\'" SIZE=11 ></TD>\');');
else
eval('writeln(\'<TD><INPUT TYPE="text" NAME="ac_'+nl+'_importe" VALUE="\'+request.ac_'+nl+'_importe+\'" OnChange="ChkLinCta('+nl+');SumaCtas(this)" onBlur="NroToString(this,NF9)" onFocus="StringToNro(this,NF9)" SIZE=11 ></TD>\');');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.ac_'+nl+'_tipo_apte+\'</B></FONT><INPUT TYPE="hidden" NAME="ac_'+nl+'_tipo_apte" VALUE="\'+request.ac_'+nl+'_tipo_apte+\'" SIZE=1 ></TD>\');'); else
eval('if (request.ac_'+nl+'_tipo_apte == "H") {writeln(\'<TD><SELECT NAME="ac_'+nl+'_tipo_apte" OnChange="ChkLinCta('+nl+');SumaCtas(this)" SIZE=1><OPTION VALUE="H" SELECTED>Haber<OPTION VALUE="D">Debe</SELECT></TD>\');}else{writeln(\'<TD><SELECT NAME="ac_'+nl+'_tipo_apte" SIZE=1><OPTION VALUE="D" SELECTED>Debe<OPTION VALUE="H">Haber</SELECT></TD>\');}');
if (request.waux || !request.lock)
eval('writeln(\'<TD ALIGN=CENTER>\'+request.ac_'+nl+'_clave+\'<FONT COLOR="#800040"><B><INPUT TYPE="hidden" NAME="ac_'+nl+'_clave" VALUE="\'+request.ac_'+nl+'_clave+\'" OnFocus="ChkLinCta('+nl+');//RePaint(this)" SIZE=3 ></TD>\');');
else
eval('writeln(\'<TD ALIGN=CENTER><INPUT TYPE="text" NAME="ac_'+nl+'_clave" VALUE="\'+request.ac_'+nl+'_clave+\'" OnChange="//RePaint(this)" SIZE=3 ></TD>\');');
if (request.waux || !request.lock)
eval('writeln(\'<TD ALIGN=CENTER>\'+request.ac_'+nl+'_concepto+\'<FONT COLOR="#800040"><B><INPUT TYPE="hidden" NAME="ac_'+nl+'_concepto" VALUE="\'+request.ac_'+nl+'_concepto+\'" SIZE=12 maxlength=35 ></TD>\');');
else
eval('writeln(\'<TD ALIGN=CENTER><INPUT TYPE="text" NAME="ac_'+nl+'_concepto" VALUE="\'+request.ac_'+nl+'_concepto+\'" OnChange="//RePaint(this)" SIZE=12 maxlength=35 ></TD>\');');
writeln("</TR>");
}
writeln('</TABLE>');
if (!request.waux && request.lock) {
writeln('<TABLE ALIGN="CENTER" BORDER="0" CELLSPACING="2" CELLPADDING="0" WIDTH="100%"><TR>');
writeln('<TD ALIGN=LEFT><INPUT type="button" name="Ver" value="Ver" onClick="FormPaint(this)"></TD>');
writeln('<TD ALIGN=RIGHT><INPUT type="button" name="ActasMas" value="Más Líneas" onClick="MasLineas(this)"></TD>');
writeln('</TR></TABLE>');
}
writeln('<TABLE BORDER=1 ALIGN=CENTER><TR>');
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>Total Debe</B></FONT></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ac_totaldebe+'<INPUT TYPE="hidden" NAME="ac_totaldebe" VALUE="'+request.ac_totaldebe+'" SIZE=14 ></FONT></TD>');
else
writeln('<TD><FONT COLOR="#800040"><B><INPUT TYPE="text" NAME="ac_totaldebe" VALUE="'+request.ac_totaldebe+'" OnFocus="SumaCtas(this);//GoNextField(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></FONT></TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>Total Haber</B></FONT></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ac_totalhaber+'<INPUT TYPE="hidden" NAME="ac_totalhaber" VALUE="'+request.ac_totalhaber+'" SIZE=14 ></FONT></TD>');
else
writeln('<TD><FONT COLOR="#800040"><B><INPUT TYPE="text" NAME="ac_totalhaber" VALUE="'+request.ac_totalhaber+'" OnFocus="SumaCtas(this);//GoNextField(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></FONT></TD>');
writeln('</TR></TABLE>');
writeln('<A NAME="lin-albaran"><CENTER><H2><FONT COLOR="#800040"> Líneas del Albarán </FONT></H2></CENTER></A>');
writeln('<INPUT TYPE="hidden" NAME="nrolineas" VALUE="'+request.nrolineas+'" SIZE=2 >');
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
writeln('<TR><TD><B>Nro.</B> </TD>');
writeln('<TD><B>Referencia</B></TD>');
writeln('<TD><B>Cant.</B> </TD>');
writeln('<TD><B>D e s c r i p c i &oacute; n</B> </TD>');
writeln('<TD><B>P. Unidad</B></TD>');
writeln('<TD><B>T O T A L</B> </TD></TR>');
for (var nl=1; nl <= request.nrolineas; nl++) {
eval('if (!request.al_'+nl+'_nro_lin) { request.al_'+nl+'_nro_lin='+nl+'};');
eval('if (!request.al_'+nl+'_referencia) { request.al_'+nl+'_referencia=" "};');
eval('if (!request.al_'+nl+'_cantidad) { request.al_'+nl+'_cantidad=0};');
eval('if (!request.al_'+nl+'_descripcion) { request.al_'+nl+'_descripcion=" "};');
eval('if (!request.al_'+nl+'_precio_und) { request.al_'+nl+'_precio_und=0};');
eval('if (!request.al_'+nl+'_total) { request.al_'+nl+'_total=0};');
eval('writeln(\'<TR><TD><FONT COLOR="#800040"><B>\'+request.al_'+nl+'_nro_lin+\'</B></FONT><INPUT TYPE="hidden" NAME="al_'+nl+'_nro_lin" VALUE="\'+request.al_'+nl+'_nro_lin+\'" SIZE=2 ></TD> \');');
// eval('writeln(\' OnFocus="AlValor('+nl+')"></TD>\');');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.al_'+nl+'_referencia+\'</B></FONT><INPUT TYPE="hidden" NAME="al_'+nl+'_referencia" VALUE="\'+request.al_'+nl+'_referencia+\'" SIZE=8 maxlength=12 ></TD>\')');
else
eval('writeln(\'<TD><INPUT TYPE="text" NAME="al_'+nl+'_referencia" VALUE="\'+request.al_'+nl+'_referencia+\'" SIZE=8 maxlength=12 ></TD>\')');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.al_'+nl+'_cantidad+\'</B></FONT><INPUT TYPE="hidden" NAME="al_'+nl+'_cantidad" VALUE="\'+request.al_'+nl+'_cantidad+\'" SIZE=6 ></TD>\')');
else
eval('writeln(\'<TD><INPUT TYPE="text" NAME="al_'+nl+'_cantidad" VALUE="\'+request.al_'+nl+'_cantidad+\'" OnChange="CalculaLinea('+nl+')" onBlur="NroToString(this,NF5)" onFocus="StringToNro(this,NF5)" SIZE=6 ></TD>\')');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.al_'+nl+'_descripcion+\'</B></FONT><INPUT TYPE="hidden" NAME="al_'+nl+'_descripcion" VALUE="\'+request.al_'+nl+'_descripcion+\'" SIZE=25 maxlength=40></TD>\');');
else
eval('writeln(\'<TD><INPUT TYPE="text" NAME="al_'+nl+'_descripcion" VALUE="\'+request.al_'+nl+'_descripcion+\'" SIZE=25 maxlength=40></TD>\');');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.al_'+nl+'_precio_und+\'</B></FONT><INPUT TYPE="hidden" NAME="al_'+nl+'_precio_und" VALUE="\'+request.al_'+nl+'_precio_und+\'" SIZE=10 ></TD>\');');
else
eval('writeln(\'<TD><INPUT TYPE="text" NAME="al_'+nl+'_precio_und" VALUE="\'+request.al_'+nl+'_precio_und+\'" OnChange="CalculaLinea('+nl+')" onBlur="NroToString(this,NF8)" onFocus="StringToNro(this,NF8)" SIZE=10 ></TD>\');');
eval('request.al_'+nl+'_total=request.al_'+nl+'_cantidad*request.al_'+nl+'_precio_und;');
if (request.waux || !request.lock)
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.al_'+nl+'_total+\'</B></FONT><INPUT TYPE="hidden" NAME="al_'+nl+'_total" VALUE="\'+request.al_'+nl+'_total+ \'" SIZE=15 ></TD></TR>\');');
else
eval('writeln(\'<TD><INPUT TYPE="text" NAME="al_'+nl+'_total" VALUE="\'+request.al_'+nl+'_total+ \'" OnFocus="CalculaLinea('+nl+');//GoNextField(this)" onBlur="NroToString(this,NF9)" onFocus="StringToNro(this,NF9)" SIZE=11 ></TD></TR>\');');
}
writeln('<TR><TD></TD>');
writeln('<TD></TD><TD></TD>');
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>S u m a T o t a l ...... </B></FONT></TD>');
writeln('<TD></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.al_total+'<INPUT TYPE="hidden" NAME="al_total" VALUE="'+request.ac_total+'" SIZE=11 ></FONT></TD>');
else
writeln('<TD><INPUT TYPE="text" NAME="al_total" VALUE="'+request.al_total+'" OnFocus="SumaLineas(this);//GoNextField(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF9)" SIZE=11 ></TD>');
writeln('<TR></TABLE>');
if (!request.waux && request.lock) {
writeln('<TABLE ALIGN="CENTER" BORDER="0" CELLSPACING="2" CELLPADDING="0" WIDTH="100%"><TR>');
writeln('<TD ALIGN=LEFT><INPUT type="button" name="Ver" value="Ver" onClick="FormPaint(this)"></TD>');
writeln('<TD ALIGN=RIGHT><INPUT type="button" name="AlineasMas" value="Más Líneas" onClick="MasLineas(this)"></TD>');
writeln('</TR></TABLE>');
}
writeln('<A NAME="pie-albaran"><CENTER><H2><FONT COLOR="#800040"> Notas </FONT></H2></CENTER></A>');
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B></TD>');
writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="ab_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.ab_observaciones+'</TEXTAREA> </TD> </TR>');
writeln('<TD ALIGN=RIGHT><B>Vto. Jefe Obra:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.ab_vto_jefe_obra+'</B></FONT><INPUT type="hidden" name="ab_vto_jefe_obra" VALUE="'+request.ab_vto_jefe_obra+'" size=1 maxlength=1></TD></TR>');
else {
if ( request.ab_vto_jefe_obra == "S" ) {
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="ab_vto_jefe_obra" VALUE="S" CHECKED>Si');
writeln('<INPUT TYPE="radio" NAME="ab_vto_jefe_obra" VALUE="N" >No </TD></TR>');
}
else {
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="ab_vto_jefe_obra" VALUE="S" >Si');
writeln('<INPUT TYPE="radio" NAME="ab_vto_jefe_obra" VALUE="N" CHECKED>No </TD></TR>');
}
}
writeln('<TR><TD ALIGN=RIGHT><B>Vto. Jefe Grupo Obra:</B>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.ab_vto_jefe_grupo+'</B></FONT><INPUT type="hidden" name="ab_vto_jefe_grupo" VALUE="'+request.ab_vto_jefe_grupo+'" size=1 maxlength=1></TD></TR>');
else {
if ( request.ab_vto_jefe_grupo == "S" ) {
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="ab_vto_jefe_grupo" VALUE="S" CHECKED>Si');
writeln('<INPUT TYPE="radio" NAME="ab_vto_jefe_grupo" VALUE="N" >No </TD></TR>');
}
else {
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="ab_vto_jefe_grupo" VALUE="S" >Si');
writeln('<INPUT TYPE="radio" NAME="ab_vto_jefe_grupo" VALUE="N" CHECKED>No </TD></TR>');
}
}
writeln('<TD ALIGN=RIGHT><B>Conforme Proveedor:</B>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.ab_vto_proveedor+'</B></FONT><INPUT type="hidden" name="ab_vto_proveedor" VALUE="'+request.ab_vto_proveedor+'" size=1 maxlength=1></TD></TR>');
else {
if ( request.ab_vto_proveedor == "S" ) {
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="ab_vto_proveedor" VALUE="S" CHECKED>Si');
writeln('<INPUT TYPE="radio" NAME="ab_vto_proveedor" VALUE="N" >No </TD></TR>');
}
else {
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="ab_vto_proveedor" VALUE="S" >Si');
writeln('<INPUT TYPE="radio" NAME="ab_vto_proveedor" VALUE="N" CHECKED>No </TD></TR>');
}
}
writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ab_expediente+'</B></FONT><INPUT type="hidden" name="ab_expediente" VALUE="'+request.ab_expediente+'" size=35 maxlength=40></TD></TR>');
else
writeln('<TD><INPUT type="text" name="ab_expediente" VALUE="'+request.ab_expediente+'" size=35 maxlength=40></TD>');
writeln('</TR></TABLE></CENTER>');
writeln('</FORM></FONT>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

445
o_apunte.html Normal file
View File

@ -0,0 +1,445 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Apuntes Contables</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/4.0b1 (Win95; I) [Netscape]">
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#C0C0C0" LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000" BACKGROUND="images/backgrnd.gif">
<P><!--
Autor : Jesús Pérez Lorenzo
Copyright : 1996 , AdmiSys S.L.
--></P>
<FORM>
<CENTER>
<TABLE ALIGN=CENTER BORDER=6>
<TR>
<TD><A HREF="logout.html?bb=1" target="_top"><IMG SRC="images/bb_logout.gif" ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>
<TD><INPUT type="submit" value="Confirmar"></TD>
<!--
<TD BGCOLOR="#DFDFDF"><A HREF="cursorback" target="_back"><IMG SRC="images/l_arrowg.gif" ALT="AnteriorFila" BORDER=0 ></A>
-->
</TD>
</TD>
<TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">APUNTES CONTABLES</FONT><FONT COLOR="#FF00FF">&nbsp;</FONT></FONT></H1></TD>
<!--
<TD BGCOLOR="#DFDFDF"><A HREF="cursornext" target="_next"><IMG SRC="images/r_arrowg.gif" ALT="SiguieteFila" BORDER=0 ></A>
</TD>
-->
<TD ALIGN=RIGHT><INPUT type="reset" value="Deshacer"></TD>
<TD><A HREF="help.html" onClick="NetHelp('intro')">
<IMG SRC="images/bb_help.gif" ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A>
</TD>
<!-->
</TR>
</TABLE></CENTER>
<CENTER><HR SIZE=3 WIDTH="100%">
<TABLE BORDER=2 >
<CAPTION></CAPTION>
<TR>
<TH ALIGN=LEFT>
<DT><A HREF="http://ctasapagar"><IMG SRC="images/SGRP.jpg" BORDER=0 HEIGHT=76 WIDTH=86></A>&nbsp;</DT>
</TH>
<TD>
<DT><I><FONT COLOR="#FF0080"><FONT SIZE=+2><B><A HREF="http://ctasapagar/Ctas_a_Pagar">Dpto.
Cuentas a Pagar</A></B>&nbsp;</FONT></FONT></I></DT>
</TD>
<TD>
<DT><B>C&oacute;digo:</B>&nbsp;<INPUT TYPE="text" NAME="NroAlbaran" VALUE="" SIZE=8 ><INPUT TYPE="button" VALUE=" ? " ONCLICK="setNow(this.form.since)"></DT>
</TD>
<TD>
<DT><B>Fecha:</B>&nbsp;<INPUT TYPE="text" NAME="FechaAlbaran" VALUE="" SIZE=8 ><INPUT TYPE="button" VALUE="Hoy" ONCLICK="setNow(this.form.since)"></DT>
</TD>
</TR>
</TABLE>
<DT>&nbsp;</DT>
<TABLE BORDER=3 >
<TR>
<TD>
<DT><B><I><FONT COLOR="#008080">Importe Debe</FONT></I></B></DT>
</TD>
<TD>
<DT><B><I><FONT COLOR="#008080">C&oacute;digo Debe</FONT></I></B></DT>
</TD>
<TD>
<DT><B><I><FONT COLOR="#008080">Cuenta Contable Debe</FONT></I></B></DT>
</TD>
<TD>
<DT><B><I><FONT COLOR="#800040">Cuenta Contable Haber</FONT></I></B></DT>
</TD>
<TD>
<DT><B><I><FONT COLOR="#800040">C&oacute;digo Haber</FONT></I></B></DT>
</TD>
<TD>
<DT><B><I><FONT COLOR="#800040">Importe Haber</FONT></I></B></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin1" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin1" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin1" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin1" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin1" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin1" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin2" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin2" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin2" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin2" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin2" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin2" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin3" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin3" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin3" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin3" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin3" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin3" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin4" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin4" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin4" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin4" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin4" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin4" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin5" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin5" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin5" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin5" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin5" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin5" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin6" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin6" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin61" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin6" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin6" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin6" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin7" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin7" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin7" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin7" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin7" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin7" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin8 VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin8" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin8" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin8" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin8" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin8" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin9" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin9" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin9" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin9" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin9" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin9" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
<TR>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin10" VALUE="" SIZE=10 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin10" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin10" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberDesc-lin10" VALUE="" SIZE=20 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberCta-lin10" VALUE="" SIZE=12 ></DT>
</TD>
<TD>
<DT><INPUT TYPE="text" NAME="HaberImp-lin10" VALUE="" SIZE=10 ></DT>
</TD>
</TR>
</TABLE>
<DT>&nbsp;</DT>
<TABLE BORDER=3 >
<TR>
<TD>
<DT><B><I><FONT COLOR="#008080">TOTAL DEBE :</FONT></I></B>&nbsp;<INPUT TYPE="text" NAME="DebeTotal" VALUE="" SIZE=22 ></DT>
</TD>
<TD>
<DT><B><I><FONT COLOR="#800000">TOTAL HABER:</FONT></I></B>&nbsp;<INPUT TYPE="text" NAME="HaberTotal" VALUE="" SIZE=22 ></DT>
</TD>
</TR>
</TABLE>
<P><!--
<TABLE ALIGN=LEFT BORDER=2 >
<TR>
<TH ALIGN=LEFT></TH>
<TD><B>Cuenta Gasto</B> </TD>
<TD><B>Importe</B> </TD>
</TR>
<TR>
<TH ALIGN=LEFT></TH>
<TD><INPUT TYPE="text" NAME="Cta-lin1" VALUE="" SIZE=12 ></TD>
<TD><INPUT TYPE="text" NAME="Importe-lin1" VALUE="" SIZE=16 ></TD>
</TR>
<TR>
<TH ALIGN=LEFT></TH>
<TD><INPUT TYPE="text" NAME="Cta-lin2" VALUE="" SIZE=12 ></TD>
<TD><INPUT TYPE="text" NAME="Importe-lin2" VALUE="" SIZE=16 ></TD>
</TR>
<TR>
<TH ALIGN=LEFT></TH>
<TD><INPUT TYPE="text" NAME="Cta-lin3" VALUE="" SIZE=12 ></TD>
<TD><INPUT TYPE="text" NAME="Importe-lin3" VALUE="" SIZE=16 ></TD>
</TR>
<TR>
<TH ALIGN=LEFT></TH>
<TD><INPUT TYPE="text" NAME="Cta-lin4" VALUE="" SIZE=12 ></TD>
<TD><INPUT TYPE="text" NAME="Importe-lin4" VALUE="" SIZE=16 ></TD>
</TR>
<TR>
<TH ALIGN=LEFT></TH>
<TD><INPUT TYPE="text" NAME="Cta-lin5" VALUE="" SIZE=12 ></TD>
<TD><INPUT TYPE="text" NAME="Importe-lin5" VALUE="" SIZE=16 ></TD>
</TR>
</TABLE>
--></P>
<P><ALIGN=CENTER><TEXTAREA NAME="Observaciones" ROWS=10 COLS=40 WRAP="virtual"></TEXTAREA></P>
<TABLE BORDER=2 >
<TR>
<TD>
<DT><B>Vto. Jefe de Obra:</B>&nbsp;<INPUT TYPE="radio" NAME="VtoJefeObra" VALUE="S"CHECKED>Si&nbsp;<INPUT TYPE="radio" NAME="VtoJefeObra" VALUE="N" >No&nbsp;</DT>
</TD>
<TD>
<DT><B>Vto. Jefe Grupo de Obra:</B>&nbsp;<INPUT TYPE="radio" NAME="VtoJefeGrupoObra" VALUE="S" CHECKED>Si&nbsp;<INPUT TYPE="radio" NAME="VtoJefeGrupoObra" VALUE="N" >No&nbsp;</DT>
</TD>
<TD>
<DT><B>Conforme Proveedor:</B>&nbsp;<INPUT TYPE="radio" NAME="ConformeProveedor" VALUE="S" CHECKED>Si&nbsp;<INPUT TYPE="radio" NAME="ConformeProveedor" VALUE="N" >No&nbsp;</DT>
</TD>
</TR>
</TABLE>
<HR SIZE=3 WIDTH="100%">
<BASE target="contents"><FONT SIZE=-1><B>Contactar con</B>: <ctasapagar></FONT><FONT SIZE=+1><A HREF="mailto:%3Cctasapagar%3Esando_malaga@admisys.com">Departamento
de Cuentas a Pagar<BR>
</A></FONT><FONT SIZE=-1>Copyright &copy; 1997 </FONT><A HREF="mailto:%20%3Cinfo%3Esando_malaga@admisys.com">Construcciones
SANDO SA</A> <FONT SIZE=-1>&amp; </FONT><A HREF="mailto:info@admisys.com">AdmiSys
SL</A><FONT SIZE=-1> <BR>
Rev. 1.0 </FONT><A HREF="mailto:webteam@admisys.com">webteam@admisys.com</A><FONT SIZE=-1> <BR>
</BODY>
</HTML>

506
o_banco.html Normal file
View File

@ -0,0 +1,506 @@
<TITLE>Bancos</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>cod_banco</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Condiciones de Pago">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_banco.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_banco.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.ba_cod_banco) == true ) {
alert("!!! Es necesario rellenar el Código de Banco !!!->"+obj.ba_cod_banco.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_banco;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.ba_cod_banco,"Bancos","ba_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"top");');
writeln(' for ( var i=0; i < document.f_banco.length; i++ ) { ');
writeln(' if ( document.f_banco.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_banco.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_banco.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_banco.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln('<BODY "');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from bancos where cod_banco=\'"+StringClip(true,request.ba_cod_banco)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO bancos(" +
" cod_banco," +
" nombre," +
" acronimo," +
" domicilio," +
" localidad," +
" cod_postal," +
" entidad," +
" sucursal," +
" cod_control," +
" nro_cc," +
" is_locked," +
" nro_lins," +
" l_importe," +
" c_importe," +
" l_paguese," +
" c_paguese," +
" l1_nroletra," +
" c1_nroletra," +
" l2_nroletra," +
" c2_nroletra," +
" l_fecha," +
" c_fecha," +
" c_mes," +
" c_anno," +
" l1_firmado," +
" c1_firmado," +
" l2_firmado," +
" c2_firmado," +
" t1_firmado," +
" t2_firmado) VALUES ('" + StringClip(true,request.ba_cod_banco) + "','" +
StringClip(true,request.ba_nombre) + "','"+
StringClip(true,request.ba_acronimo) + "','"+
StringClip(true,request.ba_domicilio) + "','" +
StringClip(true,request.ba_localidad) + "','" +
StringClip(true,request.ba_cod_postal) + "','" +
StringClip(true,request.ba_entidad) + "','" +
StringClip(true,request.ba_sucursal) + "','" +
StringClip(true,request.ba_cod_control) + "','" +
StringClip(true,request.ba_nro_cc) + "','" +
request.ba_is_locked + "','" +
parseInt(request.ba_nro_lins)+ "','" +
parseInt(request.ba_l_importe)+ "','" +
parseInt(request.ba_c_importe)+ "','" +
parseInt(request.ba_l_paguese)+ "','" +
parseInt(request.ba_c_paguese)+ "','" +
parseInt(request.ba_l1_nroletra)+ "','" +
parseInt(request.ba_c1_nroletra)+ "','" +
parseInt(request.ba_l2_nroletra)+ "','" +
parseInt(request.ba_c2_nroletra)+ "','" +
parseInt(request.ba_l_fecha)+ "','" +
parseInt(request.ba_c_fecha)+ "','" +
parseInt(request.ba_c_mes)+ "','" +
parseInt(request.ba_c_anno)+ "','" +
parseInt(request.ba_l1_firmado)+ "','" +
parseInt(request.ba_c1_firmado)+ "','" +
parseInt(request.ba_l2_firmado)+ "','" +
parseInt(request.ba_c2_firmado)+ "','"+
StringClip(true,request.ba_t1_firmado)+ "','" +
StringClip(true,request.ba_t2_firmado) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_banco.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.ba_cod_banco) {
// if (request.lock)
// c_bancos.close();
status=database.execute("UPDATE bancos SET "+
" nombre='" + StringClip(true,request.ba_nombre) + "',"+
" acronimo='" + StringClip(true,request.ba_acronimo) + "',"+
" domicilio='" + StringClip(true,request.ba_domicilio) + "'," +
" localidad='" + StringClip(true,request.ba_localidad) + "'," +
" cod_postal='" + StringClip(true,request.ba_cod_postal) + "'," +
" entidad='" + StringClip(true,request.ba_entidad) + "'," +
" sucursal='" + StringClip(true,request.ba_sucursal) + "'," +
" cod_control='" + StringClip(true,request.ba_cod_control) + "'," +
" nro_cc='" + StringClip(true,request.ba_nro_cc) + "'," +
" is_locked='" + request.ba_is_locked + "'," +
" nro_lins='" + parseInt(request.ba_nro_lins) + "'," +
" l_importe='" + parseInt(request.ba_l_importe)+ "'," +
" c_importe='" + parseInt(request.ba_c_importe)+ "'," +
" l_paguese='" + parseInt(request.ba_l_paguese)+ "'," +
" c_paguese='" + parseInt(request.ba_c_paguese)+ "'," +
" l1_nroletra='" + parseInt(request.ba_l1_nroletra)+ "'," +
" c1_nroletra='" + parseInt(request.ba_c1_nroletra)+ "'," +
" l2_nroletra='" + parseInt(request.ba_l2_nroletra)+ "'," +
" c2_nroletra='" + parseInt(request.ba_c2_nroletra)+ "'," +
" l_fecha='" + parseInt(request.ba_l_fecha)+ "'," +
" c_fecha='" + parseInt(request.ba_c_fecha)+ "'," +
" c_mes='" + parseInt(request.ba_c_mes)+ "'," +
" c_anno='" + parseInt(request.ba_c_anno)+ "'," +
" l1_firmado='" + parseInt(request.ba_l1_firmado)+ "'," +
" c1_firmado='" + parseInt(request.ba_c1_firmado)+ "'," +
" l2_firmado='" + parseInt(request.ba_l2_firmado)+ "'," +
" c2_firmado='" + parseInt(request.ba_c2_firmado)+ "'," +
" t1_firmado='" + StringClip(true,request.ba_t1_firmado)+ "'," +
" t2_firmado='" + StringClip(true,request.ba_t2_firmado) + "'" +
" WHERE cod_banco = '" + request.ba_cod_banco + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_banco.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM bancos WHERE cod_banco = \'" + request.ba_cod_banco + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_banco.html?"+baseHtml));
}
if (request.ba_cod_banco && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("ba","cod_banco","=\'"+request.ba_cod_banco+"\'",true,true);
else
CursorTabla("ba","cod_banco","=\'"+request.ba_cod_banco+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.ba_cod_banco=StringClip(false,c_bancos.cod_banco);
request.ba_nombre=StringClip(false,c_bancos.nombre);
request.ba_acronimo=StringClip(false,c_bancos.acronimo);
request.ba_domicilio=StringClip(false,c_bancos.domicilio);
request.ba_localidad=StringClip(false,c_bancos.localidad);
request.ba_cod_postal=StringClip(false,c_bancos.cod_postal);
request.ba_entidad=StringClip(false,c_bancos.entidad);
request.ba_sucursal=StringClip(false,c_bancos.sucursal);
request.ba_cod_control=StringClip(false,c_bancos.cod_control);
request.ba_nro_cc=StringClip(false,c_bancos.nro_cc);
request.ba_is_locked=StringClip(false,c_bancos.is_locked);
request.ba_nro_lins=parseInt(c_bancos.nro_lins);
request.ba_l_importe=parseInt(c_bancos.l_importe);
request.ba_c_importe=parseInt(c_bancos.c_importe);
request.ba_l_paguese=parseInt(c_bancos.l_paguese);
request.ba_c_paguese=parseInt(c_bancos.c_paguese);
request.ba_l1_nroletra=parseInt(c_bancos.l1_nroletra);
request.ba_c1_nroletra=parseInt(c_bancos.c1_nroletra);
request.ba_l2_nroletra=parseInt(c_bancos.l2_nroletra);
request.ba_c2_nroletra=parseInt(c_bancos.c2_nroletra);
request.ba_l_fecha=parseInt(c_bancos.l_fecha);
request.ba_c_fecha=parseInt(c_bancos.c_fecha);
request.ba_c_mes=parseInt(c_bancos.c_mes);
request.ba_c_anno=parseInt(c_bancos.c_anno);
request.ba_l1_firmado=parseInt(c_bancos.l1_firmado);
request.ba_c1_firmado=parseInt(c_bancos.c1_firmado);
request.ba_l2_firmado=parseInt(c_bancos.l2_firmado);
request.ba_c2_firmado=parseInt(c_bancos.c2_firmado);
request.ba_t1_firmado=StringClip(true,c_bancos.t1_firmado);
request.ba_t2_firmado=StringClip(true,c_bancos.t2_firmado);
if (!request.lock)
c_bancos.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("ba_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.ba_cod_banco && request.ba_cod_banco != null ) {
if ( entriesExist(" from bancos where cod_banco=\'"+StringClip(true,request.ba_cod_banco)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_banco" METHOD="post"');
if (request.ba_cod_banco && !request.nvo )
htmlpath="o_banco.html?ba_cod_banco="+escape(request.ba_cod_banco)+"&"+baseHtml;
else
htmlpath="o_banco.html?nvo=1&"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.ba_cod_banco,"Bancos","ba_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Código " ONCLICK="w_auxiliar(\'cod_banco\',\'cod_banco\',\'ba_cod_banco\',\''+request.ba_cod_banco+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> C&oacute;digo: </B>');
//}
if (request.ba_cod_banco && !request.nvo)
writeln('<FONT COLOR="#800040"><B>'+request.ba_cod_banco+'</B></FONT><INPUT type="hidden" name="ba_cod_banco" VALUE="'+request.ba_cod_banco+'"></TD>');
else
writeln('<INPUT TYPE="text" NAME="ba_cod_banco" VALUE="'+request.ba_cod_banco+'" SIZE=4 OnChange="RePaint(this)"></TD>');
writeln('<TD ALIGN=RIGTH>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.ba_nombre+'</FONT></B><INPUT type="hidden" NAME="ba_nombre" VALUE="'+request.ba_nombre+'" SIZE=40 maxlength=40 ></TD></TR>');
else
writeln('<INPUT TYPE="text" NAME="ba_nombre" VALUE="'+request.ba_nombre+'" SIZE=40 maxlength=40 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Acrónimo:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_acronimo+'</FONT></B><INPUT type="hidden" NAME="ba_acronimo" VALUE="'+request.ba_acronimo+'" SIZE=40 maxlength=40 ></TD></TR>');
else
writeln('<TD><INPUT TYPE="text" NAME="ba_acronimo" VALUE="'+request.ba_acronimo+'" SIZE=40 maxlength=40 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Domicilio:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_domicilio+'</FONT><INPUT type="hidden" name="ba_domicilio" VALUE="'+request.ba_domicilio+'" size=40 maxlength=40></TD></TR>');
else
writeln('<TD><INPUT type="text" name="ba_domicilio" VALUE="'+request.ba_domicilio+'" size=40 maxlength=40></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Localidad:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_localidad+'</FONT><INPUT type="hidden" name="ba_localidad" VALUE="'+request.ba_localidad+'" size=25 maxlength=25></TD></TR>');
else
writeln('<TD><INPUT type="text" name="ba_localidad" VALUE="'+request.ba_localidad+'" size=25 maxlength=25></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Cod.Postal:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.ba_cod_postal+'</FONT><INPUT type="hidden" name="ba_cod_postal" VALUE="'+request.ba_cod_postal+'" size=7 maxlength=7></TD><TR>');
else
writeln('<TD ALIGN=LEFT><INPUT type="text" name="ba_cod_postal" VALUE="'+request.ba_cod_postal+'" size=7 maxlength=7></TD><TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Entidad:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.ba_entidad+'</FONT><INPUT type="hidden" name="ba_entidad" VALUE="'+request.ba_entidad+'" size=4 ></TD><TR>');
else
writeln('<TD ALIGN=LEFT><INPUT type="text" name="ba_entidad" VALUE="'+request.ba_entidad+'" size=4 ></TD><TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Sucursal:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_sucursal+'</FONT><INPUT type="hidden" name="ba_sucursal" VALUE="'+request.ba_sucursal+'" size=4 maxlength=4></TD></TR>');
else
writeln('<TD><INPUT type="text" name="ba_sucursal" VALUE="'+request.ba_sucursal+'" size=4 maxlength=4></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Cod. Control:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_cod_control+'</FONT><INPUT type="hidden" name="ba_cod_control" VALUE="'+request.ba_cod_control+'" size=2 maxlength=2></TD></TR>');
else
writeln('<TD><INPUT type="text" name="ba_cod_control" VALUE="'+request.ba_cod_control+'" size=2 maxlength=2></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT> <B>Nro. Cuenta:</B> ');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_nro_cc+'<B></FONT><INPUT TYPE="hidden" NAME="ba_nro_cc" VALUE="'+request.ba_nro_cc+'"></TD>');
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_nro_cc" size=10 VALUE="'+request.ba_nro_cc+'"');
writeln(' onFocus="setStatus(\'\')"');
writeln(' SIZE=3 </TD></TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>Bloqueado:</B> ');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_is_locked+'<B></FONT><INPUT TYPE="hidden" NAME="ba_id_locked" VALUE="'+request.ba_is_locked+'"></TD>');
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_is_locked" size=2 VALUE="'+request.ba_is_locked+'"');
writeln(' onFocus="setStatus(\'\')"');
writeln(' SIZE=3 </TD></TR>');
}
writeln('</TABLE>');
writeln('<CENTER><H3><B>Formato de Talón</H3></B> ');
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
writeln('<TR><TD ALIGN=CENTER><B>Nro. Líns. Talón:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_nro_lins+'<B></FONT><INPUT TYPE="hidden" NAME="ba_nro_lins" VALUE="'+request.ba_nro_lins+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_nro_lins" VALUE="'+request.ba_nro_lins+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2 >');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>Lín. y Col. Importe:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l_importe+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l_importe" VALUE="'+request.ba_l_importe+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c_importe+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c_importe" VALUE="'+request.ba_c_importe+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l_importe" VALUE="'+request.ba_l_importe+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2 >');
writeln('<INPUT TYPE="text" NAME="ba_c_importe" VALUE="'+request.ba_c_importe+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2 ></TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>Lín. y Col. Páguese:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l_paguese+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l_paguese" VALUE="'+request.ba_l_paguese+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c_paguese+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c_paguese" VALUE="'+request.ba_c_paguese+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l_paguese" VALUE="'+request.ba_l_paguese+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2>');
writeln('<INPUT TYPE="text" NAME="ba_c_paguese" VALUE="'+request.ba_c_paguese+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2></TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>1.- Lín. y Col. Nro. Letra:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l1_nroletra+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l1_nroletra" VALUE="'+request.ba_l1_nroletra+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c1_nroletra+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c1_nroletra" VALUE="'+request.ba_c1_nroletra+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l1_nroletra" VALUE="'+request.ba_l1_nroletra+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> ');
writeln('<INPUT TYPE="text" NAME="ba_c1_nroletra" VALUE="'+request.ba_c1_nroletra+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>2.- Lín. y Col. Nro. Letra:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l2_nroletra+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l2_nroletra" VALUE="'+request.ba_l2_nroletra+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c2_nroletra+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c2_nroletra" VALUE="'+request.ba_c2_nroletra+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l2_nroletra" VALUE="'+request.ba_l2_nroletra+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> ');
writeln('<INPUT TYPE="text" NAME="ba_c2_nroletra" VALUE="'+request.ba_c2_nroletra+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>Fecha:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l_fecha+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l_fecha" VALUE="'+request.ba_l_fecha+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c_fecha+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c_fecha" VALUE="'+request.ba_c_fecha+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l_fecha" VALUE="'+request.ba_l_fecha+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> ');
writeln('<INPUT TYPE="text" NAME="ba_c_fecha" VALUE="'+request.ba_c_fecha+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>Mes:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l_fecha+'<B></FONT>');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c_mes+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c_mes" VALUE="'+request.ba_c_mes+'">');
writeln('</TD>');
}
else {
writeln('<TD>---');
writeln(' <INPUT TYPE="text" NAME="ba_c_mes" VALUE="'+request.ba_c_mes+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>Año:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l_fecha+'<B></FONT>');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c_anno+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c_anno" VALUE="'+request.ba_c_anno+'">');
writeln('</TD>');
}
else {
writeln('<TD>---');
writeln('<INPUT TYPE="text" NAME="ba_c_anno" VALUE="'+request.ba_c_anno+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>1.- Firmado:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l1_firmado+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l1_firmado" VALUE="'+request.ba_l1_firmado+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c1_firmado+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c1_firmado" VALUE="'+request.ba_c1_firmado+'"></TD>');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l1_firmado" VALUE="'+request.ba_l1_firmado+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2>');
writeln('<INPUT TYPE="text" NAME="ba_c1_firmado" VALUE="'+request.ba_c1_firmado+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2></TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>1.- Texto Firmado:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_t1_firmado+'<B></FONT><INPUT TYPE="hidden" NAME="ba_t1_firmado" VALUE="'+request.ba_t1_firmado+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_t1_firmado" VALUE="'+request.ba_t1_firmado+'"');
writeln(' SIZE=40 maxlength=40> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>2.- Firmado:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_l2_firmado+'<B></FONT><INPUT TYPE="hidden" NAME="ba_l2_firmado" VALUE="'+request.ba_l2_firmado+'">');
writeln('<FONT COLOR="#800040"><B>'+request.ba_c2_firmado+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c2_firmado" VALUE="'+request.ba_c2_firmado+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_l2_firmado" VALUE="'+request.ba_l2_firmado+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2>');
writeln('<INPUT TYPE="text" NAME="ba_c2_firmado" VALUE="'+request.ba_c2_firmado+'"');
writeln(' onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2> </TD>');
writeln(' </TR>');
}
writeln('<TR><TD ALIGN=RIGHT> <B>2.- Texto Firmado:</B> ');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.ba_t2_firmado+'<B></FONT><INPUT TYPE="hidden" NAME="ba_c2_firmado" VALUE="'+request.ba_t2_firmado+'">');
writeln('</TD>');
}
else {
writeln('<TD> <INPUT TYPE="text" NAME="ba_t2_firmado" VALUE="'+request.ba_t2_firmado+'"');
writeln(' SIZE=40 maxlength=40> </TD>');
writeln(' </TR>');
}
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

205
o_centro.html Normal file
View File

@ -0,0 +1,205 @@
<TITLE>centros</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Centros</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Centros">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_centro.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_centro.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.ce_cod_centro) == true ) {
alert("!!! Es necesario rellenar el Código de centro !!!->"+obj.ce_cod_centro.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_centro;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.ce_cod_centro,"Centros","ce_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_centro.length; i++ ) { ');
writeln(' if ( document.f_centro.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_centro.action=top.main.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_centro.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_centro.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln('<BODY "');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from centros where cod_centro=\'"+StringClip(true,request.ce_cod_centro)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO centros(" +
" cod_centro," +
" cod_departamento," +
" descripcion) VALUES ('" + StringClip(true,request.ce_cod_centro) + "','" +
StringClip(true,request.ce_cod_departamento) + "','"+
StringClip(true,request.ce_descripcion) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_centro.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.ce_cod_centro) {
// if (request.lock)
// c_centros.close();
status=database.execute("UPDATE centros SET "+
" cod_departamento='" + StringClip(true,request.ce_cod_departamento) + "',"+
" descripcion='" + StringClip(true,request.ce_descripcion) + "'"+
" WHERE cod_centro = '" + request.ce_cod_centro + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_centro.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM centros WHERE cod_centro = \'" + request.ce_cod_centro + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_centro.html?"+baseHtml));
}
if (request.ce_cod_centro && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("ce","cod_centro","=\'"+request.ce_cod_centro+"\'",true,true);
else
CursorTabla("ce","cod_centro","=\'"+request.ce_cod_centro+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.ce_cod_centro=StringClip(false,c_centros.cod_centro);
request.ce_cod_departamento=StringClip(false,c_centros.cod_departamento);
request.ce_descripcion=StringClip(false,c_centros.descripcion);
if (request.lock)
c_centros.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("ce_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.ce_cod_centro && request.ce_cod_centro != null ) {
if ( entriesExist(" from centros where cod_centro=\'"+StringClip(true,request.ce_cod_centro)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_centro" METHOD="post"');
if (request.ce_cod_centro && !request.nvo)
htmlpath="o_centro.html?ce_cod_centro="+escape(request.ce_cod_centro)+"&"+baseHtml;
else
htmlpath="o_centro.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.ce_cod_centro,"Centros","ce_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Código " ONCLICK="w_auxiliar(\'cod_centro\',\'cod_centro\',\'ce_cod_centro\',\''+request.ce_cod_centro+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> C&oacute;digo: </B></TD>');
//}
if (request.ce_cod_centro && !request.nvo)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ce_cod_centro+'</B></FONT><INPUT type="hidden" name="ce_cod_centro" VALUE="'+request.ce_cod_centro+'"></TD></FONT>');
else
writeln('<TD><INPUT TYPE="text" NAME="ce_cod_centro" VALUE="'+request.ce_cod_centro+'" SIZE=5 OnChange="RePaint(this)"></TD>');
writeln('<TR><TD ALIGN=RIGHT><B>Departamento:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ce_cod_departamento+'</FONT><INPUT type="hidden" name="ce_cod_departamento" VALUE="'+request.ce_cod_departamento+'" size=12 maxlength=12></TD></FONT></TR>');
else
writeln('<TD><INPUT type="text" name="ce_cod_departamento" VALUE="'+request.ce_cod_departamento+'" size=12 maxlength=12></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Descripción:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.ce_descripcion+'</FONT><INPUT type="hidden" name="ce_descripcion" VALUE="'+request.ce_descripcion+'" size=40 maxlength=40></TD></FONT></TR>');
else
writeln('<TD><INPUT type="text" name="ce_descripcion" VALUE="'+request.ce_descripcion+'" size=40 maxlength=40></TD></TR>');
// writeln(' onFocus="setStatus(\'\')"');
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

186
o_clave.html Normal file
View File

@ -0,0 +1,186 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>cod_clave</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Claves Contables">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_clave.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_clave.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.cv_cod_clave) == true ) {
alert("!!! Es necesario rellenar el Código de Claves a Contables !!!->"+obj.cv_cod_clave.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_clave;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.cv_cod_clave,"Claves","cv_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_clave.length; i++ ) { ');
writeln(' if ( document.f_clave.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_clave.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_clave.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_clave.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln(' <BODY');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from claves where cod_clave=\'"+StringClip(true,request.cv_cod_clave)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO claves (" +
" cod_clave," +
" descripcion ) VALUES ('" + StringClip(true,request.cv_cod_clave) + "','" +
StringClip(true,request.cv_descripcion) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_clave.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.cv_cod_clave) {
// if (request.lock)
// c_claves.close();
status=database.execute("UPDATE claves SET "+
" descripcion='" + StringClip(true,request.cv_descripcion) + "'"+
" WHERE cod_clave = '" + request.cv_cod_clave + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_clave.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM claves WHERE cod_clave = \'" + request.cv_cod_clave + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_clave.html?"+baseHtml));
}
if (request.cv_cod_clave && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("cv","cod_clave","=\'"+request.cv_cod_clave+"\'",true,true);
else
CursorTabla("cv","cod_clave","=\'"+request.cv_cod_clave+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.cv_cod_clave=StringClip(false,c_claves.cod_clave);
request.cv_descripcion=StringClip(false,c_claves.descripcion);
if (!request.lock)
c_claves.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("cv_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.cv_cod_clave && request.cv_cod_clave != null ) {
if ( entriesExist(" from claves where cod_clave=\'"+StringClip(true,request.cv_cod_clave)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_clave" METHOD="post"');
if (request.cv_cod_clave && !request.nvo )
htmlpath="o_clave.html?cv_cod_clave="+escape(request.cv_cod_clave)+"&"+baseHtml;
else
htmlpath="o_clave.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.cv_cod_clave,"Claves","cv_");
writeln('<CENTER>');
writeln('<TABLE BORDER=1 ALIGN=CENTER><TR>');
writeln('<TR><TD ALIGN=RIGHT><B> Código Clave: </B></TD>');
if (request.cv_cod_clave && !request.nvo)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.cv_cod_clave+'</B></FONT><INPUT type="hidden" name="cv_cod_clave" VALUE="'+request.cv_cod_clave+'"></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="cv_cod_clave" VALUE="'+request.cv_cod_clave+'" SIZE=3 OnChange="RePaint(this)"></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Descripción: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.cv_descripcion+'</FONT></B><INPUT type="hidden" NAME="cv_descripcion" VALUE="'+request.cv_descripcion+'" SIZE=30 maxlength=30 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="cv_descripcion" VALUE="'+request.cv_descripcion+'" SIZE=30 maxlength=30 ></TD></TR>');
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

207
o_condpago.html Normal file
View File

@ -0,0 +1,207 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>cond_pago</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Condiciones de Pago">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_condpago.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_condpago.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.cp_cond_pago) == true ) {
alert("!!! Es necesario rellenar el Código de Forma de Pago !!!->"+obj.cp_cond_pago.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_condpago;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.cp_cond_pago,"Condiciones Pago","cp_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_condpago.length; i++ ) { ');
writeln(' if ( document.f_condpago.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_condpago.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_condpago.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_condpago.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln('<BODY "');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from cond_pago where cond_pago=\'"+StringClip(true,request.cp_cond_pago)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO cond_pago(" +
" cond_pago," +
" descripcion," +
" vencimiento) VALUES ('" + StringClip(true,request.cp_cond_pago) + "','" +
StringClip(true,request.cp_descripcion) + "','"+
parseInt(request.cp_vencimiento) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_condpago.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.cp_cond_pago) {
// if (request.lock)
// c_cond_pago.close();
status=database.execute("UPDATE cond_pago SET "+
" descripcion='" + StringClip(true,request.cp_descripcion) + "',"+
" vencimiento='" + parseInt(request.cp_vencimiento) + "',"+
" cond_pago='" + StringClip(true,request.cp_cond_pago) + "'" +
" WHERE cond_pago = '" + request.cp_cond_pago + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_condpago.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM cond_pago WHERE cond_pago = \'" + request.cp_cond_pago + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_condpago.html?"+baseHtml));
}
if (request.cp_cond_pago && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("cp","cond_pago","=\'"+request.cp_cond_pago+"\'",true,true);
else
CursorTabla("cp","cond_pago","=\'"+request.cp_cond_pago+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.cp_cond_pago=StringClip(false,c_cond_pago.cond_pago);
request.cp_descripcion=StringClip(false,c_cond_pago.descripcion);
request.cp_vencimiento=c_cond_pago.vencimiento+" ";
if (!request.lock)
c_cond_pago.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("cp_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.cp_cond_pago && request.cp_cond_pago != null ) {
if ( entriesExist(" from cond_pago where cond_pago=\'"+StringClip(true,request.cp_cond_pago)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_condpago" METHOD="post" ');
if (request.cp_cond_pago && !request.nvo )
htmlpath="o_condpago.html?cp_cond_pago="+escape(request.cp_cond_pago)+"&"+baseHtml;
else
htmlpath="o_condpago.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.cp_cond_pago,"Condiciones Pago","cp_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'cond_pago\',\'cond_pago\',\'cp_cond_pago\',\''+request.cp_cond_pago+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> Código: </B>');
//}
if (request.cp_cond_pago && !request.nvo)
writeln('<FONT COLOR="#800040"><B>'+request.cp_cond_pago+'</B></FONT><INPUT type="hidden" name="cp_cond_pago" VALUE="'+request.cp_cond_pago+'"></FONT></TD>');
else
writeln('<INPUT TYPE="text" NAME="cp_cond_pago" VALUE="'+request.cp_cond_pago+'" SIZE=2 OnChange="RePaint(this)"></TD>');
writeln('<TD ALIGN=RIGTH>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.cp_descripcion+'</FONT></B><INPUT type="hidden" NAME="cp_descripcion" VALUE="'+request.cp_descripcion+'" SIZE=40 maxlength=40 ></FONT></TD></TR>');
else
writeln('<INPUT TYPE="text" NAME="cp_descripcion" VALUE="'+request.cp_descripcion+'" SIZE=20 maxlength=20 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT> <B>Vencimiento:</B> ');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.cp_vencimiento+'<B></FONT></TD>');
else {
writeln('<TD> <INPUT TYPE="text" NAME="cp_vencimiento" VALUE="'+request.cp_vencimiento+'")');
writeln(' onFocus="setStatus(\'\')"');
writeln(' SIZE=3 </TD></TR>');
}
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

212
o_ctascont.html Normal file
View File

@ -0,0 +1,212 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>cta_contable</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Cuentas Contables">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_ctascont.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_ctascont.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.ct_cta_contable) == true ) {
alert("!!! Es necesario rellenar el Código de Cuentas a Contables !!!->"+obj.ct_cta_contable.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ((!request.waux && request.lock) || request.nvo )
SetParametros();
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_ctascont;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.ct_cta_contable,"Cuentas Contables","ct_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_ctascont.length; i++ ) { ');
writeln(' if ( document.f_centro.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_centro.action=top.main.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_centro.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_ctascont.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln('<BODY "');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from ctas_contables where cta_contable=\'"+StringClip(true,request.ct_cta_contable)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO ctas_contables (" +
" cta_contable," +
" descripcion," +
" es_nueva) VALUES ('" + StringClip(true,request.ct_cta_contable) + "','" +
StringClip(true,request.ct_descripcion) + "','"+
StringClip(true,request.ct_es_nueva) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_ctascont.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.ct_cta_contable) {
// if (request.lock)
// c_ctas_contables.close();
status=database.execute("UPDATE ctas_contables SET "+
" descripcion='" + StringClip(true,request.ct_descripcion) + "',"+
" es_nueva='" + StringClip(true,request.ct_es_nueva) + "'"+
" WHERE cta_contable = '" + request.ct_cta_contable + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_ctascont.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM ctas_contables WHERE cta_contable = \'" + request.ct_cta_contable + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_ctascont.html?"+baseHtml));
}
if (request.ct_cta_contable && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("ct","cta_contable","=\'"+request.ct_cta_contable+"\'",true,true);
else
CursorTabla("ct","cta_contable","=\'"+request.ct_cta_contable+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.ct_cta_contable=StringClip(false,c_ctas_contables.cta_contable);
request.ct_descripcion=StringClip(false,c_ctas_contables.descripcion);
request.ct_es_nueva=StringClip(false,c_ctas_contables.es_nueva);
if (!request.lock)
c_ctas_contables.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("ct_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.ct_cta_contable && request.ct_cta_contable != null ) {
if ( entriesExist(" from ctas_contables where cta_contable=\'"+StringClip(true,request.ct_cta_contable)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_ctascont" METHOD="post"');
if (request.ct_cta_contable && !request.nvo )
htmlpath="o_ctascont.html?ct_cta_contable="+escape(request.ct_cta_contable)+"&"+baseHtml;
else
htmlpath="o_ctascont.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.ct_cta_contable,"Cuentas Contables","ct_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'cta_contable\',\'cta_contable\',\'ct_cta_contable\',\''+request.ct_cta_contable+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> Código Cuenta: </B></TD>');
//}
if (request.ct_cta_contable && !request.nvo)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.ct_cta_contable+'</B></FONT><INPUT type="hidden" name="ct_cta_contable" VALUE="'+request.ct_cta_contable+'" OnChange="CtaNroPad(this)"></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="ct_cta_contable" VALUE="'+request.ct_cta_contable+'" SIZE='+client.pa_longcta+' OnChange="CtaNroPad(this);RePaint(this)"></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Descripción: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.ct_descripcion+'</FONT></B><INPUT type="hidden" NAME="ct_descripcion" VALUE="'+request.ct_descripcion+'" SIZE=40 maxlength=40 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="ct_descripcion" VALUE="'+request.ct_descripcion+'" SIZE=40 maxlength=40 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT> <B>Es Nueva Cuenta:</B></TD> ');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.ct_es_nueva+'<B></FONT></TD><INPUT type="hidden" NAME="ct_es_nueva" VALUE="'+request.ct_es_nueva+'" SIZE=1 ></FONT></TD></TR>');
else {
writeln('<TD ALIGN=RIGTH><SELECT name="ct_es_nueva" size=2>');
if (request.ct_es_nueva == "S")
writeln('<OPTION value="S" selected>Si&nbsp;<OPTION value="N">No&nbsp;');
else
writeln('<OPTION value="S">Si&nbsp;<OPTION value="N" selected>No&nbsp;');
writeln('</SELECT></TD>');
}
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

2034
o_factura.html Normal file
View File

File diff suppressed because it is too large Load Diff

186
o_localidad.html Normal file
View File

@ -0,0 +1,186 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>cod_localidad</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de localidades Contables">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_localidad.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_localidad.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.lo_cod_localidad) == true ) {
alert("!!! Es necesario rellenar el Código de localidad !!!->"+obj.lo_cod_localidad.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,localidad,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_localidad;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.lo_cod_localidad,"localidades","lo_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_localidad.length; i++ ) { ');
writeln(' if ( document.f_localidad.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_localidad.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_localidad.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_localidad.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln(' <BODY');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from localidades where cod_localidad=\'"+StringClip(true,request.lo_cod_localidad)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO localidades (" +
" cod_localidad," +
" descripcion ) VALUES ('" + StringClip(true,request.lo_cod_localidad) + "','" +
StringClip(true,request.lo_descripcion) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_localidad.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.lo_cod_localidad) {
// if (request.lock)
// c_localidades.close();
status=database.execute("UPDATE localidades SET "+
" descripcion='" + StringClip(true,request.lo_descripcion) + "'"+
" WHERE cod_localidad = '" + request.lo_cod_localidad + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_localidad.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM localidades WHERE cod_localidad = \'" + request.lo_cod_localidad + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_localidad.html?"+baseHtml));
}
if (request.lo_cod_localidad && !request.upd && !request.add ) {
// Si hay localidad de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la localidad primaria de la relación
if (request.lock)
CursorTabla("lo","cod_localidad","=\'"+request.lo_cod_localidad+"\'",true,true);
else
CursorTabla("lo","cod_localidad","=\'"+request.lo_cod_localidad+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.lo_cod_localidad=StringClip(false,c_localidades.cod_localidad);
request.lo_descripcion=StringClip(false,c_localidades.descripcion);
if (!request.lock)
c_localidades.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("lo_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las localidades foráneas de la tabla.
if (request.nvo && request.lo_cod_localidad && request.lo_cod_localidad != null ) {
if ( entriesExist(" from localidades where cod_localidad=\'"+StringClip(true,request.lo_cod_localidad)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_localidad" METHOD="post"');
if (request.lo_cod_localidad && !request.nvo )
htmlpath="o_localidad.html?lo_cod_localidad="+escape(request.lo_cod_localidad)+"&"+baseHtml;
else
htmlpath="o_localidad.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.lo_cod_localidad,"localidades","lo_");
writeln('<CENTER>');
writeln('<TABLE BORDER=1 ALIGN=CENTER><TR>');
writeln('<TR><TD ALIGN=RIGHT><B> Código localidad: </B></TD>');
if (request.lo_cod_localidad && !request.nvo)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.lo_cod_localidad+'</B></FONT><INPUT type="hidden" name="lo_cod_localidad" VALUE="'+request.lo_cod_localidad+'"></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="lo_cod_localidad" VALUE="'+request.lo_cod_localidad+'" SIZE=3 OnChange="RePaint(this)"></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Descripción: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.lo_descripcion+'</FONT></B><INPUT type="hidden" NAME="lo_descripcion" VALUE="'+request.lo_descripcion+'" SIZE=30 maxlength=30 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="lo_descripcion" VALUE="'+request.lo_descripcion+'" SIZE=30 maxlength=30 ></TD></TR>');
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

473
o_parame.html Normal file
View File

@ -0,0 +1,473 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>id</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Parámetors">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_parametros.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_parametros.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.pa_id) == true ) {
alert("!!! Es necesario rellenar el Código de parametros a Contables !!!->"+obj.pa_id.value+"<-");
return false;
}
return true;
}
function Check_dia_1(obj) {
var mainFrame=find_frame(top,"main");
var f_frame=mainFrame.document.f_parametros;
nro=parseInt(obj.value);
if (nro <1 || nro > 31 ) {
alert("¡¡¡ Nro. de día debe estar entre 1 y 31 !!!")
obj.focus();
}
if (nro > parseInt(f_frame.pa_dia_pago_2.value)) {
alert("¡¡¡ Nro. de día pago 1 no puede ser mayor que el día pago 2 !!!")
obj.focus();
}
}
function Check_dia_2(obj) {
var mainFrame=find_frame(top,"main");
var f_frame=mainFrame.document.f_parametros;
nro=parseInt(obj.value);
if (nro <1 || nro > 31 ) {
alert("¡¡¡ Nro. de día debe estar entre 1 y 31 !!!")
obj.focus();
}
if (nro < parseInt(f_frame.pa_dia_pago_1.value)) {
alert("¡¡¡ Nro. de día pago 2 no puede ser menor que el día pago 1 !!!")
obj.focus();
}
}
</SCRIPT>
<SERVER>
// Variables para el Server
var HOY=new Date();
var entorno = new entObj(0);
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var IFDF=""; // para columnas en SQL según DBDATE
var baseHtml="";
dbAcl();
if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ((!request.waux && request.lock) || request.nvo )
SetParametros();
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,parametros,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_parametros;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.pa_id,"parametros","pa_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_parametros.length; i++ ) { ');
writeln(' if ( document.f_parametros.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_parametros.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_parametros.submit();');
writeln('} ');
}
else {
writeln('function RePaint(obj) {');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_parametros.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln(' <BODY');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from parametros where id=\'"+StringClip(true,request.pa_id)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO parametros (" +
" nro_reg," +
" ultimo_actual," +
" nro_remesa," +
" iva_1," +
" iva_2," +
" iva_3," +
" reten_1," +
" cta_reten_1," +
" clave_reten_1," +
" reten_2," +
" cta_reten_2," +
" clave_reten_2," +
" dia_pago_1," +
" dia_pago_2," +
" ex_dia_pago," +
" longcta," +
" cta_iva," +
" clave_iva," +
" cta_cont," +
" clave_cont," +
" cta_comp," +
" clave_comp," +
" cta_coniva," +
" clave_coniva," +
" cta_siniva," +
" clave_siniva," +
" cta_dev," +
" clave_dev,"+
" cp_lock ) VALUES ('" +
StringClip(true,request.pa_nro_reg) + "','" +
DateFormat(request.pa_ultimo_actual,NLDF) + "','"+
StringClip(true,request.pa_nro_remesa) + "','" +
request.pa_iva_1 + "','" +
request.pa_iva_2 + "','" +
request.pa_iva_3 + "','" +
request.pa_reten_1 + "','" +
StringClip(true,request.pa_cta_reten_1) + "','" +
StringClip(true,request.pa_clave_reten_1) + "','" +
request.pa_reten_2 + "','" +
StringClip(true,request.pa_cta_reten_2) + "','" +
StringClip(true,request.pa_clave_reten_2) + "','" +
request.pa_dia_pago_1 + "','" +
request.pa_dia_pago_2 + "','" +
StringClip(true,request.pa_ex_dia_pago) + "','" +
request.pa_longcta + "','" +
StringClip(true,request.pa_cta_iva) + "','" +
StringClip(true,request.pa_clave_iva) + "','" +
StringClip(true,request.pa_cta_cont) + "','" +
StringClip(true,request.pa_clave_cont) + "','" +
StringClip(true,request.pa_cta_comp) + "','" +
StringClip(true,request.pa_clave_comp) + "','" +
StringClip(true,request.pa_cta_coniva) + "','" +
StringClip(true,request.pa_clave_coniva) + "','" +
StringClip(true,request.pa_cta_siniva) + "','" +
StringClip(true,request.pa_clave_siniva) + "','" +
StringClip(true,request.pa_cta_dev) + "','" +
StringClip(true,request.pa_clave_dev) + "','" +
StringClip(true,request.pa_cp_lock) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_parame.html?pa_id=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.pa_id) {
// if (request.lock)
// c_parametros.close();
status=database.execute("UPDATE parametros SET "+
" nro_reg='" + StringClip(true,request.pa_nro_reg) + "',"+
" ultimo_actual='" + DateFormat(request.pa_ultimo_actual,NLDF) + "',"+
" nro_remesa='" + StringClip(true,request.pa_nro_remesa) + "',"+
" iva_1='" + request.pa_iva_1 + "',"+
" iva_2='" + request.pa_iva_2 + "',"+
" iva_3='" + request.pa_iva_3 + "',"+
" reten_1='" + request.pa_reten_1 + "',"+
" cta_reten_1='" + StringClip(true,request.pa_cta_reten_1) + "',"+
" clave_reten_1='" + StringClip(true,request.pa_clave_reten_1) + "',"+
" reten_2='" + request.pa_reten_2 + "',"+
" cta_reten_2='" + StringClip(true,request.pa_cta_reten_2) + "',"+
" clave_reten_2='" + StringClip(true,request.pa_clave_reten_2) + "',"+
" dia_pago_1='" + request.pa_dia_pago_1 + "',"+
" dia_pago_2='" + request.pa_dia_pago_2 + "',"+
" ex_dia_pago='" + StringClip(true,request.pa_ex_dia_pago) + "',"+
" longcta='" + request.pa_longcta + "',"+
" cta_iva='" + StringClip(true,request.pa_cta_iva) + "',"+
" clave_iva='" + StringClip(true,request.pa_clave_iva) + "',"+
" cta_cont='" + StringClip(true,request.pa_cta_cont) + "',"+
" clave_cont='" + StringClip(true,request.pa_clave_cont) + "',"+
" cta_comp='" + StringClip(true,request.pa_cta_comp) + "',"+
" clave_comp='" + StringClip(true,request.pa_clave_comp) + "',"+
" cta_coniva='" + StringClip(true,request.pa_cta_coniva) + "',"+
" clave_coniva='" + StringClip(true,request.pa_clave_coniva) + "',"+
" cta_siniva='" + StringClip(true,request.pa_cta_siniva) + "',"+
" clave_siniva='" + request.pa_clave_siniva + "',"+
" cta_dev='" + request.pa_cta_dev + "',"+
" clave_dev='" + request.pa_clave_dev + "',"+
" cp_lock='" + request.pa_cp_lock + "'"+
" WHERE id = '" + request.pa_id + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("o_parame.html?pa_id=1&"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
// status=database.execute("DELETE FROM parametros WHERE id = \'" + request.pa_id + "\'");
// if ( status != 0 )
// redirect(addClient('error.html?alert=7'));
//
// DbsError(true,status);
redirect(addClient("o_parame.html?pa_id=1&"+baseHtml));
}
if (request.pa_id && !request.upd && !request.add ) {
// Si hay parametros de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la parametros primaria de la relación
if (request.lock)
CursorTabla("pa","id","=\'"+request.pa_id+"\'",true,true);
else
CursorTabla("pa","id","=\'"+request.pa_id+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.pa_ultimo_actual=datetoString(c_parametros.ultimo_actual);
request.pa_nro_reg = StringClip(false,c_parametros.nro_reg);
request.pa_nro_remesa = StringClip(false,c_parametros.nro_remesa);
request.pa_longcta = c_parametros.longcta;
request.pa_dia_pago_1 = c_parametros.dia_pago_1;
request.pa_dia_pago_2 = c_parametros.dia_pago_2;
request.pa_ex_dia_pago = c_parametros.ex_dia_pago;
request.pa_iva_1 = c_parametros.iva_1;
request.pa_iva_2 = c_parametros.iva_2;
request.pa_iva_3 = c_parametros.iva_3;
request.pa_reten_1 = c_parametros.reten_1;
request.pa_cta_reten_1 = StringClip(false,c_parametros.cta_reten_1);
request.pa_clave_reten_1 = StringClip(false,c_parametros.clave_reten_1);
request.pa_reten_2 = c_parametros.reten_2;
request.pa_cta_reten_2 = StringClip(false,c_parametros.cta_reten_2);
request.pa_clave_reten_2 = StringClip(false,c_parametros.clave_reten_2);
request.pa_cta_iva = StringClip(false,c_parametros.cta_iva);
request.pa_clave_iva = StringClip(false,c_parametros.clave_iva);
request.pa_cta_cont = StringClip(false,c_parametros.cta_cont);
request.pa_clave_cont = StringClip(false,c_parametros.clave_cont);
request.pa_cta_comp = StringClip(false,c_parametros.cta_comp);
request.pa_clave_comp = StringClip(false,c_parametros.clave_comp);
request.pa_cta_coniva = StringClip(false,c_parametros.cta_coniva);
request.pa_clave_coniva = StringClip(false,c_parametros.clave_coniva);
request.pa_cta_siniva = StringClip(false,c_parametros.cta_siniva);
request.pa_clave_siniva = StringClip(false,c_parametros.clave_siniva);
request.pa_cta_dev = StringClip(false,c_parametros.cta_dev);
request.pa_clave_dev = StringClip(false,c_parametros.clave_dev);
request.pa_cp_lock = StringClip(false,c_parametros.cp_lock);
if (!request.lock)
c_parametros.close();
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("pa_");
request.lock=true;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las parametros foráneas de la tabla.
if (request.nvo && request.pa_id && request.pa_id != null ) {
if ( entriesExist(" from parametros where id=\'"+StringClip(true,request.pa_id)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
}
writeln('<FORM NAME="f_parametros" METHOD="post"');
if (request.pa_id && !request.nvo )
htmlpath="o_parame.html?pa_id="+request.pa_id+"&"+baseHtml;
else
htmlpath="o_parame.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.pa_id,"parametros","pa_");
writeln('<CENTER>');
writeln('<TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> Código parametros: </B></TD>');
//}
if (request.pa_id && !request.nvo)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_id+'</B></FONT><INPUT type="hidden" name="pa_id" VALUE="'+request.pa_id+'"></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_id" VALUE="'+request.pa_id+'" SIZE=3 OnChange="RePaint(this)"></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Nro.Registro Facturas: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_nro_reg+'</FONT></B><INPUT type="hidden" NAME="pa_nro_reg" VALUE="'+request.pa_nro_reg+'" SIZE=10 maxlength=10 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_nro_reg" VALUE="'+request.pa_nro_reg+'" SIZE=10 maxlength=10 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Fecha Ult.Modificación: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_ultimo_actual+'</FONT></B><INPUT type="hidden" NAME="pa_ultimo_actual" VALUE="'+request.pa_ultimo_actual+'" SIZE=10 maxlength=10 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_ultimo_actual" VALUE="'+request.pa_ultimo_actual+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" SIZE=10 maxlength=10 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Nro.Remesa Vtos.: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_nro_remesa+'</FONT></B><INPUT type="hidden" NAME="pa_nro_remesa" VALUE="'+request.pa_nro_remesa+'" SIZE=10 maxlength=10 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_nro_remesa" VALUE="'+request.pa_nro_remesa+'" SIZE=10 maxlength=10 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> % I.V.A. Tipo Uno: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_iva_1+'</FONT></B><INPUT type="hidden" NAME="pa_iva_1" VALUE="'+request.pa_iva_1+'" SIZE=2 maxlength=2 >%</FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_iva_1" VALUE="'+request.pa_iva_1+'" OnChange="isNroThis(this)" SIZE=2 maxlength=2 >%</TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> % I.V.A. Tipo Dos: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_iva_2+'</FONT></B><INPUT type="hidden" NAME="pa_iva_2" VALUE="'+request.pa_iva_2+'" SIZE=2 maxlength=2 >%</FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_iva_2" VALUE="'+request.pa_iva_2+'" OnChange="isNroThis(this)" SIZE=2 maxlength=2 >%</TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> % I.V.A. Tipo Tres: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_iva_3+'</FONT></B><INPUT type="hidden" NAME="pa_iva_3" VALUE="'+request.pa_iva_3+'" SIZE=2 maxlength=2 >%</FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_iva_3" VALUE="'+request.pa_iva_3+'" OnChange="isNroThis(this)" SIZE=2 maxlength=2 >%</TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> % I.R.P.F.: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_reten_1+'</FONT></B><INPUT type="hidden" NAME="pa_reten_1" VALUE="'+request.pa_reten_1+'" SIZE=2 maxlength=2 >%</FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_reten_1" VALUE="'+request.pa_reten_1+'" OnChange="isNroThis(this)" SIZE=2 maxlength=2 >%</TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Cta. para Retenciones I.R.P.F.: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_reten_1+'</FONT></B><INPUT type="hidden" NAME="pa_cta_reten_1" VALUE="'+request.pa_cta_reten_1+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_reten_1+'</FONT></B><INPUT type="hidden" NAME="pa_clave_reten_1" VALUE="'+request.pa_clave_reten_1+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_reten_1" VALUE="'+request.pa_cta_reten_1+'" OnChange="CtaNroPad(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_reten_1" VALUE="'+request.pa_clave_reten_1+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> % Garantía: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_reten_2+'</FONT></B><INPUT type="hidden" NAME="pa_reten_2" VALUE="'+request.pa_por_reten+'" SIZE=2 maxlength=2 >%</FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_reten_2" VALUE="'+request.pa_reten_2+'" OnChange="isNroThis(this)" SIZE=2 maxlength=2 >%</TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Cta. para Garantía: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_reten_2+'</FONT></B><INPUT type="hidden" NAME="pa_cta_reten_2" VALUE="'+request.pa_cta_reten_2+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_reten_2+'</FONT></B><INPUT type="hidden" NAME="pa_clave_reten_2" VALUE="'+request.pa_clave_reten_2+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_reten_2" VALUE="'+request.pa_cta_reten_2+'" OnChange="CtaNroPad(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_reten_2" VALUE="'+request.pa_clave_reten_2+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Nro. Día de Pago Uno del Mes: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_dia_pago_1+'</FONT></B><INPUT type="hidden" NAME="pa_dia_pago_1" VALUE="'+request.pa_dia_pago_1+'" SIZE=2 maxlength=2 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_dia_pago_1" VALUE="'+request.pa_dia_pago_1+'" OnChange="Check_dia_1(this)" SIZE=2 maxlength=2 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Nro. Día de Pago Dos del Mes: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_dia_pago_2+'</FONT></B><INPUT type="hidden" NAME="pa_dia_pago_2" VALUE="'+request.pa_dia_pago_2+'" SIZE=2 maxlength=2 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_dia_pago_2" VALUE="'+request.pa_dia_pago_2+'" OnChange="Check_dia_2(this)" SIZE=2 maxlength=2 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Días a excluir de Pago: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_ex_dia_pago+'</FONT></B><INPUT type="hidden" NAME="pa_ex_dia_pago" VALUE="'+request.pa_ex_dia_pago+'" SIZE=12 maxlength=12 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_ex_dia_pago" VALUE="'+request.pa_ex_dia_pago+'" SIZE=12 maxlength=12 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Longitud de Cuentas Plan Contable: </B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_longcta+'</FONT></B><INPUT type="hidden" NAME="pa_longcta" VALUE="'+request.pa_longcta+'" SIZE=2 maxlength=2 ></FONT></TD></TR>');
else
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_longcta" VALUE="'+request.pa_longcta+'" SIZE=2 maxlength=2 ></TD></TR>');
writeln('<TR><TD ALIGN=RIGTH><B> Cta. Contable Empieza por: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_cont+'</FONT></B><INPUT type="hidden" NAME="pa_cta_cont" VALUE="'+request.pa_cta_cont+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_cont+'</FONT></B><INPUT type="hidden" NAME="pa_clave_cont" VALUE="'+request.pa_clave_cont+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_cont" VALUE="'+request.pa_cta_cont+'" OnChange="isNroThis(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_cont" VALUE="'+request.pa_clave_cont+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Cuenta de I.V.A. : </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_iva+'</FONT></B><INPUT type="hidden" NAME="pa_cta_iva" VALUE="'+request.pa_cta_iva+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_iva+'</FONT></B><INPUT type="hidden" NAME="pa_clave_iva" VALUE="'+request.pa_clave_iva+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_iva" VALUE="'+request.pa_cta_iva+'" OnChange="CtaNroPad(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_iva" VALUE="'+request.pa_clave_iva+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Cta. para Gastos de Compensación: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_comp+'</FONT></B><INPUT type="hidden" NAME="pa_cta_comp" VALUE="'+request.pa_cta_comp+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_comp+'</FONT></B><INPUT type="hidden" NAME="pa_clave_comp" VALUE="'+request.pa_clave_comp+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_comp" VALUE="'+request.pa_cta_comp+'" OnChange="CtaNroPad(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_comp" VALUE="'+request.pa_clave_comp+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Cta. para Gastos con I.V.A.: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_coniva+'</FONT></B><INPUT type="hidden" NAME="pa_cta_coniva" VALUE="'+request.pa_cta_coniva+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_coniva+'</FONT></B><INPUT type="hidden" NAME="pa_clave_coniva" VALUE="'+request.pa_clave_coniva+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_coniva" VALUE="'+request.pa_cta_coniva+'" OnChange="CtaNroPad(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_coniva" VALUE="'+request.pa_clave_coniva+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Cta. para Gastos sin I.V.A.: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_siniva+'</FONT></B><INPUT type="hidden" NAME="pa_cta_siniva" VALUE="'+request.pa_cta_siniva+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_siniva+'</FONT></B><INPUT type="hidden" NAME="pa_clave_siniva" VALUE="'+request.pa_clave_siniva+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_siniva" VALUE="'+request.pa_cta_siniva+'" OnChange="CtaNroPad(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_siniva" VALUE="'+request.pa_clave_siniva+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Cta. Para Gastos Devolucion: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cta_dev+'</FONT></B><INPUT type="hidden" NAME="pa_cta_dev" VALUE="'+request.pa_cta_dev+'" SIZE=12 maxlength=12 ></FONT></TD>');
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_clave_dev+'</FONT></B><INPUT type="hidden" NAME="pa_clave_dev" VALUE="'+request.pa_clave_dev+'" SIZE=3 maxlength=3 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cta_dev" VALUE="'+request.pa_cta_dev+'" OnChange="isNroThis(this);//RePaint(this)" SIZE=12 maxlength=12 ></TD>');
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_clave_dev" VALUE="'+request.pa_clave_dev+'" SIZE=3 maxlength=3 ></TD></TR>');
}
writeln('<TR><TD ALIGN=RIGTH><B> Condición de Pago Bloqueado: </B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=RIGTH><FONT COLOR="#800040"><B>'+request.pa_cp_lock+'</FONT></B><INPUT type="hidden" NAME="pa_cp_lock" VALUE="'+request.pa_cp_lock+'" SIZE=4 maxlength=4 ></FONT></TD></TR>');
}
else {
writeln('<TD ALIGN=RIGTH><INPUT TYPE="text" NAME="pa_cp_lock" VALUE="'+request.pa_cp_lock+'" SIZE=4 maxlength=3 ></TD></TR>');
}
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

358
o_pedido.html Normal file
View File

@ -0,0 +1,358 @@
<TITLE>pedidos</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>pedidos</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de pedidos">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_pedido.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_pedido.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.pe_nro_pedido) == true ) {
alert("!!! Es necesario rellenar el Código de pedido !!!->"+obj.pe_nro_pedido.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
// Variables para el Server
var HOY=new Date();
var entorno = new entObj(0);
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var IFDF=""; // para columnas en SQL según DBDATE
// Algunos formatos para nros.
var NF2=""
var NF3=""
var NF4=""
var NF5=""
var NF6=""
var NF7=""
var NF8=""
var NF9=""
var NF10=""
var NF11=""
var NF12=""
var baseHtml="";
dbAcl();
if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ((!request.waux && request.lock) || request.nvo )
SetParametros();
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_pedido;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.pe_nro_pedido,"Pedidos","pe_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_pedido.length; i++ ) { ');
writeln(' if ( document.f_pedido.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_pedido.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_pedido.submit();');
writeln('} ');
}
else {
writeln('function ScrollVer(obj) {');
writeln(' status_scroll=true; ');
writeln(' MESSAGE=" ¡¡¡ Los Datos del Pedido han cambiado usar el botón de \'Ver\' para "+ ');
writeln(' " actualizar las referencias de la Base de Datos desde el Servidor !!! " ');
writeln(' scroll = new statusMessageObject(); ');
writeln(' scroller(); ');
writeln('} ');
writeln('function RePaint(obj) {');
writeln(' if (status_scroll != true ) ');
writeln(' ScrollVer(obj); ');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_pedido.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln('<BODY "');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from pedidos where nro_pedido=\'"+StringClip(true,request.pe_nro_pedido)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO pedidos(" +
" nro_pedido," +
" descripcion," +
" nif_proveedor," +
" cod_centro," +
" cond_pago," +
" fecha_pedido," +
" fecha_entrega," +
" importe," +
" observaciones) VALUES ('" + StringClip(true,request.pe_nro_pedido) + "','" +
StringClip(true,request.pe_descripcion) + "','"+
StringClip(true,request.pe_nif_proveedor) + "','"+
StringClip(true,request.pe_cod_centro) + "','"+
StringClip(true,request.pe_cond_pago) + "','"+
DateFormat(request.pe_fecha_pedido,NLDF) + "','"+
DateFormat(request.pe_fecha_entrega,NLDF) + "','"+
NroUnformat(request.pe_importe) + "','"+
StringClip(true,request.pe_observaciones) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("o_pedido.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.pe_nro_pedido) {
// if (request.lock)
// c_pedidos.close();
status=database.execute("UPDATE pedidos SET "+
" descripcion='" + StringClip(true,request.pe_descripcion) + "',"+
" nif_proveedor='" + StringClip(true,request.pe_nif_proveedor) + "',"+
" cod_centro='" + StringClip(true,request.pe_cod_centro) + "',"+
" cond_pago='" + StringClip(true,request.pe_cond_pago) + "',"+
" fecha_pedido='" + DateFormat(request.pe_fecha_pedido,NLDF) + "',"+
" fecha_entrega='" + DateFormat(request.pe_fecha_entrega,NLDF) + "',"+
" importe='" + NroUnformat(request.pe_importe) + "',"+
" observaciones='" + StringClip(true,request.pe_observaciones) + "'"+
" WHERE nro_pedido = '" + request.pe_nro_pedido + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_pedido.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM pedidos WHERE nro_pedido = \'" + request.pe_nro_pedido + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_pedido.html?"+baseHtml));
}
if (request.pe_nro_pedido && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("pe","nro_pedido","=\'"+request.pe_nro_pedido+"\'",true,true);
else
CursorTabla("pe","nro_pedido","=\'"+request.pe_nro_pedido+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.pe_nro_pedido=StringClip(false,c_pedidos.nro_pedido);
request.pe_descripcion=StringClip(false,c_pedidos.descripcion);
request.pe_nif_proveedor=StringClip(false,c_pedidos.nif_proveedor);
request.pe_cod_centro=StringClip(false,c_pedidos.cod_centro);
request.pe_cond_pago=StringClip(false,c_pedidos.cond_pago);
request.pe_fecha_pedido=datetoString(c_pedidos.fecha_pedido);
request.pe_fecha_entrega=datetoString(c_pedidos.fecha_entrega);
request.pe_importe=NroFormat(c_pedidos.importe,NF9);
request.pe_observaciones=StringClip(false,c_pedidos.observaciones);
if (!request.lock)
c_pedidos.close();
if (request.pe_nif_proveedor && request.pe_nif_proveedor != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.pe_nif_proveedor)+"\'",false,false);
request.pe_t_razon_social=c_proveedores.razon_social;
c_proveedores.close();
}
else
request.pe_t_razon_social="";
if (request.pe_cod_centro && request.pe_cod_centro != null ) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.pe_cod_centro)+"\'",false,false);
request.pe_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.pe_t_des_centro="";
if (request.pe_cond_pago && request.pe_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pe_cond_pago)+"\'",false,false);
request.pe_t_des_condpago=c_cond_pago.descripcion;
c_cond_pago.close();
}
else
request.pe_t_des_condpago="";
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("pe_");
request.lock=true;
request.pe_t_razon_social="";
request.pe_t_des_centro="";
request.pe_t_des_condpago="";
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.pe_nro_pedido && request.pe_nro_pedido != null ) {
if ( entriesExist(" from pedidos where nro_pedido=\'"+StringClip(true,request.pe_nro_pedido)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
if (request.pe_nif_proveedor && request.pe_nif_proveedor != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.pe_nif_proveedor)+"\'",false,false);
request.pe_t_razon_social=c_proveedores.razon_social;
c_proveedores.close();
}
else
request.pe_t_razon_social="";
if (request.pe_cod_centro && request.pe_cod_centro != null ) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.pe_cod_centro)+"\'",false,false);
request.pe_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.pe_t_des_centro="";
if (request.pe_cond_pago && request.pe_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pe_cond_pago)+"\'",false,false);
request.pe_t_des_condpago=c_cond_pago.descripcion;
c_cond_pago.close();
}
else
request.pe_t_des_condpago="";
}
writeln('<FORM NAME="f_pedido" METHOD="post"');
if (request.pe_nro_pedido && !request.nvo )
htmlpath="o_pedido.html?pe_nro_pedido="+escape(request.pe_nro_pedido)+"&"+baseHtml;
else
htmlpath="o_pedido.html?"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.pe_nro_pedido,"Pedidos","pe_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Código " ONCLICK="w_auxiliar(\'nro_pedido\',\'nro_pedido\',\'pe_nro_pedido\',\''+request.pe_nro_pedido+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> N&uacute;mero: </B></TD>');
//}
if (request.pe_nro_pedido && !request.nvo)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_nro_pedido+'</B></FONT><INPUT type="hidden" size=20 name="pe_nro_pedido" VALUE="'+request.pe_nro_pedido+'"></TD>');
else
writeln('<TD><INPUT TYPE="text" NAME="pe_nro_pedido" VALUE="'+request.pe_nro_pedido+'" SIZE=20 OnChange="RePaint(this)"></TD>');
writeln('<TR><TD ALIGN=RIGHT><B>Descripción:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_descripcion+'</FONT><INPUT type="hidden" name="pe_descripcion" VALUE="'+request.pe_descripcion+'" size=40 maxlength=40></TD></TR>');
else
writeln('<TD><INPUT type="text" name="pe_descripcion" VALUE="'+request.pe_descripcion+'" size=40 maxlength=40></TD></TR>');
// writeln(' onFocus="setStatus(\'\')"');
if (!request.waux || !request.lock)
writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+StringClip(true,request.pe_nif_proveedor)+'\')">');
else {
// if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> N.I.F. </B>');
}
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pe_nif_proveedor+'</B></FONT><INPUT type="hidden" name="pr_nif" VALUE="'+request.pe_nif_proveedor+'"></TD>');
else
writeln('<INPUT TYPE="text" NAME="pe_nif_proveedor" VALUE="'+request.pe_nif_proveedor+'" SIZE=12 OnChange="this.value=this.value.toUpperCase();RePaint(this)"></TD>');
writeln('<TD ALIGN=LEFT>');
writeln('<FONT COLOR="#800040">'+request.pe_t_razon_social+'</FONT></TD></TR>');
if (request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT><B>Centro</B>');
else {
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Centro" ');
writeln(' ONCLICK="w_auxiliar(\'centro\',\'+Centros\',\'ce_cod_centro\',\''+StringClip(true,request.pe_cod_centro)+'\')">');
}
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pe_cod_centro+'</B></FONT><INPUT TYPE="hidden" NAME="pe_con_centro" VALUE="'+request.pe_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
else
writeln('<INPUT TYPE="text" NAME="pe_cod_centro" VALUE="'+request.pe_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.pe_t_des_centro+'</FONT></TD>');
if (request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT><B>C.Pago</B>');
else {
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="C.Pago" ');
writeln(' ONCLICK="w_auxiliar(\'condpago\',\'Condiciones_Pago\',\'cp_cond_pago\',\''+StringClip(true,request.pe_cond_pago)+'\')">');
}
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pe_cond_pago+'</B></FONT><INPUT TYPE="hidden" NAME="pe_cond_pago" VALUE="'+request.pe_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
else
writeln('<INPUT TYPE="text" NAME="pe_cond_pago" VALUE="'+request.pe_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFTT><FONT COLOR="#800040">'+request.pe_t_des_condpago+'</FONT></TD>');
writeln('<TR><TD><B>Fecha de Pedido:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_fecha_pedido+'</B></FONT><INPUT TYPE="hidden" NAME="pe_fecha_pedido" VALUE="'+request.pe_fecha_pedido+'" SIZE=10> </TD></TR>');
else
writeln('<TD> <INPUT TYPE="text" NAME="pe_fecha_pedido" VALUE="'+request.pe_fecha_pedido+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" SIZE=10> </TD></TR>');
writeln('<TR><TD><B>Fecha de Entrega:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_fecha_entrega+'</B></FONT><INPUT TYPE="hidden" NAME="pe_fecha_pedido" VALUE="'+request.pe_fecha_entrega+'" SIZE=10> </TD></TR>');
else
writeln('<TD> <INPUT TYPE="text" NAME="pe_fecha_entrega" VALUE="'+request.pe_fecha_entrega+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" SIZE=10> </TD></TR>');
writeln('<TR><TD><B>Importe:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_importe+'</B></FONT><INPUT TYPE="hidden" NAME="pe_fecha_pedido" VALUE="'+request.pe_importe+'" SIZE=15> </TD></TR>');
else
writeln('<TD> <INPUT TYPE="text" NAME="pe_importe" VALUE="'+request.pe_importe+'" onBlur="NroToString(this,NF9)" onFocus="StringToNro(this,NF9)" SIZE=15> </TD></TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B> </TD>');
writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="pe_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.pe_observaciones+'</TEXTAREA></FONT> </TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_expediente+'</B></FONT><INPUT type="hidden" name="pe_expediente" VALUE="'+request.pr_expediente+'" size=35 maxlength=40></TD></TR>');
}else
writeln('<TD><INPUT type="text" name="pe_expediente" VALUE="'+request.pe_expediente+'" size=35 maxlength=40></TD></TR>');
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

406
o_proveedor.html Normal file
View File

@ -0,0 +1,406 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Proveedores</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/4.0b1 (Win95; I) [Netscape]">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Proveedores">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_proveedor.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_proveedor.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.pr_nif) == true ) {
alert("!!! Es necesario rellenar el NIF !!!->"+obj.pr_nif.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ((!request.waux && request.lock) || request.nvo )
SetParametros();
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_frame=mainFrame.document.f_proveedor;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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;');
ObjButtons(request.pr_nif,"Proveedores","pr_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_proveedor.length; i++ ) { ');
writeln(' if ( document.f_proveedor.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_proveedor.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_proveedor.submit();');
writeln('} ');
}
else {
writeln('function ScrollVer(obj) {');
writeln(' status_scroll=true; ');
writeln(' MESSAGE=" ¡¡¡ Los Datos del Proveedor han cambiado usar el botón de \'Ver\' para "+ ');
writeln(' " actualizar las referencias de la Base de Datos desde el Servidor !!! " ');
writeln(' scroll = new statusMessageObject(); ');
writeln(' scroller(); ');
writeln('} ');
writeln('function RePaint(obj) {');
writeln(' if (status_scroll != true ) ');
writeln(' ScrollVer(obj); ');
writeln('} ');
}
writeln('function Enfoca(obj) {')
if ( request.nro ) {
writeln('document.f_proveedor.elements['+request.nro+'].focus();');
}
writeln('}');
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons()"');
else
writeln(' <BODY');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
if ( entriesExist(" from proveedores where nif=\'"+StringClip(true,request.pr_nif)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO proveedores(" +
" nif," +
" razon_social," +
" cta_contable," +
" cond_pago," +
" domicilio," +
" localidad," +
" cod_postal," +
" attn_envio," +
" direccion_envio," +
" localidad_envio," +
" cod_postal_envio," +
" telefono_1," +
" telefono_2," +
" fax," +
" e_mail," +
" observaciones) VALUES ('" + StringClip(true,request.pr_nif) + "','" +
StringClip(true,request.pr_razon_social) + "','"+
StringClip(true,request.pr_cta_contable) + "','"+
StringClip(true,request.pr_cond_pago) + "','"+
StringClip(true,request.pr_domicilio) + "','"+
StringClip(true,request.pr_localidad) + "','"+
StringClip(true,request.pr_cod_postal) + "','"+
StringClip(true,request.pr_attn_envio) + "','"+
StringClip(true,request.pr_direccion_envio) + "','"+
StringClip(true,request.pr_localidad_envio) + "','"+
StringClip(true,request.pr_cod_postal_envio) + "','"+
StringClip(true,request.pr_telefono_1) + "','"+
StringClip(true,request.pr_telefono_2) + "','"+
StringClip(true,request.pr_fax) + "','"+
StringClip(true,request.pr_e_mail) + "','"+
StringClip(true,request.pr_observaciones) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("g_proveedor.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.pr_nif) {
// if (request.lock)
// c_proveedores.close();
status=database.execute("UPDATE proveedores SET "+
" razon_social='" + StringClip(true,request.pr_razon_social) + "',"+
" cta_contable='" + StringClip(true,request.pr_cta_contable) + "',"+
" cond_pago='" + StringClip(true,request.pr_cond_pago) + "',"+
" domicilio='" + StringClip(true,request.pr_domicilio) + "',"+
" localidad='" + StringClip(true,request.pr_localidad) + "',"+
" cod_postal='" + StringClip(true,request.pr_cod_postal) + "',"+
" attn_envio='" + StringClip(true,request.pr_attn_envio) + "',"+
" direccion_envio='" + StringClip(true,request.pr_direccion_envio) + "',"+
" localidad_envio='" + StringClip(true,request.pr_localidad_envio) + "',"+
" cod_postal_envio='" + StringClip(true,request.pr_cod_postal_envio)+"',"+
" telefono_1='" + StringClip(true,request.pr_telefono_1) + "',"+
" telefono_2='" + StringClip(true,request.pr_telefono_2) + "',"+
" fax='" + StringClip(true,request.pr_fax) + "',"+
" e_mail='" + StringClip(true,request.pr_e_mail) + "',"+
" observaciones ='" + StringClip(true,request.pr_observaciones) + "'"+
" WHERE nif = '" + request.pr_nif + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_proveedor.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM proveedores WHERE nif = \'" + request.pr_nif + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_proveedor.html?"+baseHtml));
}
if (request.pr_nif && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock)
CursorTabla("pr","nif","=\'"+request.pr_nif+"\'",true,true);
else
CursorTabla("pr","nif","=\'"+request.pr_nif+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.pr_nif=StringClip(false,c_proveedores.nif);
request.pr_razon_social=StringClip(false,c_proveedores.razon_social);
request.pr_cta_contable=StringClip(false,c_proveedores.cta_contable);
request.pr_cond_pago=StringClip(false,c_proveedores.cond_pago);
request.pr_domicilio=StringClip(false,c_proveedores.domicilio);
request.pr_localidad=StringClip(false,c_proveedores.localidad);
request.pr_cod_postal=StringClip(false,c_proveedores.cod_postal);
request.pr_attn_envio=StringClip(false,c_proveedores.attn_envio);
request.pr_direccion_envio=StringClip(false,c_proveedores.direccion_envio);
request.pr_localidad_envio=StringClip(false,c_proveedores.localidad_envio);
request.pr_cod_postal_envio=StringClip(false,c_proveedores.cod_postal_envio);
request.pr_telefono_1=StringClip(false,c_proveedores.telefono_1);
request.pr_telefono_2=StringClip(false,c_proveedores.telefono_2);
request.pr_fax=StringClip(false,c_proveedores.fax);
request.pr_e_mail=StringClip(false,c_proveedores.e_mail);
request.pr_observaciones=StringClip(false,c_proveedores.observaciones);
// request.pr_expediente=StringClip(false,c_proveedores.expediente);
if (!request.lock)
c_proveedores.close();
if (request.pr_cta_contable && request.pr_cta_contable != null ) {
CursorTabla("ct","cta_contable","=\'"+StringClip(true,request.pr_cta_contable)+"\'",false,false);
request.pr_t_cta_contable=c_ctas_contables.descripcion;
c_ctas_contables.close();
}
else
request.pr_t_cta_contable="";
if (request.pr_cond_pago && request.pr_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pr_cond_pago)+"\'",false,false);
request.pr_t_condpago=c_cond_pago.descripcion;
c_cond_pago.close();
}
else
request.pr_t_condpago="";
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("pr_");
request.lock=true;
request.pr_t_cta_contable="";
request.pr_t_condpago="";
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.nvo && request.pr_nif && request.pr_nif != null ) {
if ( entriesExist(" from proveedores where nif=\'"+StringClip(true,request.pr_nif)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
if (request.pr_cta_contable && request.pr_cta_contable != null ) {
CursorTabla("ct","cta_contable","=\'"+StringClip(true,request.pr_cta_contable)+"\'",false,false);
request.pr_t_cta_contable=c_ctas_contables.descripcion;
c_ctas_contables.close();
}
else
request.pr_t_cta_contable="";
if (request.pr_cond_pago && request.pr_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pr_cond_pago)+"\'",false,false);
request.pr_t_condpago=c_cond_pago.descripcion;
c_cond_pago.close();
}
else
request.pr_t_condpago="";
}
writeln('<FORM NAME="f_proveedor" METHOD="post"');
if (request.pr_nif && !request.nvo )
htmlpath="o_proveedor.html?pr_nif="+escape(request.pr_nif)+"&"+baseHtml;
else
htmlpath="o_proveedor.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.pr_nif,"Proveedores","pr_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+request.pr_nif+'\')">');
//else {
//if (request.waux == 2)
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B> N.I.F. </B>');
//}
if (request.pr_nif && !request.nvo)
writeln('<FONT COLOR="#800040"><B>'+request.pr_nif+'</B></FONT><INPUT type="hidden" name="pr_nif" VALUE="'+request.pr_nif+'"></TD>');
else
writeln('<INPUT TYPE="text" NAME="pr_nif" VALUE="'+request.pr_nif+'" SIZE=12 OnChange="this.value=this.value.toUpperCase();RePaint(this)"></TD>');
writeln('<TD ALIGN=RIGTH>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pr_razon_social+'</FONT></B><INPUT type="hidden" NAME="pr_razon_social" VALUE="'+request.pr_razon_social+'" SIZE=40 maxlength=40 ></TD></TR>');
else
writeln('<INPUT TYPE="text" NAME="pr_razon_social" VALUE="'+request.pr_razon_social+'" SIZE=40 maxlength=40 ></TD></TR>');
if (request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT> <B>Cta Contable</B></TD> ');
else {
writeln('<TR><TD ALIGN=RIGHT> <INPUT TYPE="button" VALUE="Cta Contable" ');
writeln(' ONCLICK="w_auxiliar(\'ctascont\',\'Cuentas_Contables\',\'ct_cta_contable\',\''+StringClip(true,request.pr_cta_contable)+'\')"></TD>');
}
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_cta_contable+'<B></FONT> <INPUT TYPE="hidden" NAME="pr_cta_contable" VALUE="'+request.pr_cta_contable+'")</TD></TR>');
else {
writeln('<TD> <INPUT TYPE="text" NAME="pr_cta_contable" VALUE="'+request.pr_cta_contable+'")');
writeln(' onFocus="setStatus(\'Código de Cta. Contable\')"');
writeln(' SIZE='+client.pa_longcta+' OnChange="CtaNroPad(this);RePaint(this)"> </TD></TR>');
}
writeln('<TR><TD ALIGN=RIGHT><B>T&iacute;tulo Cuenta</B></TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.pr_t_cta_contable+'</FONT></TD></TR>');
if (request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT><B>C.Pago</B>');
else {
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="C.Pago" ');
writeln(' ONCLICK="w_auxiliar(\'condpago\',\'Condiciones_Pago\',\'cp_cond_pago\',\''+StringClip(true,request.pr_cond_pago)+'\')">');
}
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pr_cond_pago+'</B></FONT><INPUT TYPE="hidden" NAME="pr_cond_pago" VALUE="'+request.pr_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
else
writeln('<INPUT TYPE="text" NAME="pr_cond_pago" VALUE="'+request.pr_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
writeln('<TD><FONT COLOR="#800040">'+request.pr_t_condpago+'</FONT></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT ><B>Domicilio:</I></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_domicilio+'</B><INPUT type="hidden" name="pr_domicilio" value="'+request.pr_domicilio+'" size=40 maxlength=40> </TD>');
else
writeln('<TD><INPUT type="text" name="pr_domicilio" value="'+request.pr_domicilio+'" size=40 maxlength=40> </TD>');
writeln('</TR><TR><TD ALIGN=RIGHT><B>Localidad:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_localidad+'</B></FONT><INPUT TYPE="hidden" NAME="pr_localidad" VALUE="'+request.pr_localidad+'" SIZE=30></TD></TR>');
else
writeln('<TD><INPUT TYPE="text" NAME="pr_localidad" VALUE="'+request.pr_localidad+'" SIZE=30></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Cod.Postal:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.pr_cod_postal+'</B></FONT><INPUT type="hidden" name="pr_cod_postal" VALUE="'+request.pr_cod_postal+'" size=7 maxlength=7></TD> </TR>');
else
writeln('<TD ALIGN=LEFT><INPUT type="text" name="pr_cod_postal" VALUE="'+request.pr_cod_postal+'" size=7 maxlength=7></TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT> <B>Attn .Envio:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT> <FONT COLOR="#800040"><B>'+request.pr_attn_envio+'</B></FONT><INPUT type="hidden" name="pr_attn_envio" VALUE="'+request.pr_attn_envio+'" size=30 maxlength=40> </TD> </TR>');
else
writeln('<TD ALIGN=LEFT> <INPUT type="text" name="pr_attn_envio" VALUE="'+request.pr_attn_envio+'" size=30 maxlength=40> </TD> </TR>');
writeln('<TR> <TD ALIGN=RIGHT> <B>Direci&oacute;n Envio:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_direccion_envio+'</B></FONT><INPUT type="hidden" name="pr_direccion_envio" VALUE="'+request.pr_direccion_envio+'" size=40 maxlength=40> </TD> </TR>');
else
writeln('<TD> <INPUT type="text" name="pr_direccion_envio" VALUE="'+request.pr_direccion_envio+'" size=40 maxlength=40> </TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Localidad de Envio:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_localidad_envio+'</B></FONT><INPUT TYPE="hidden" NAME="pr_localidad_envio" VALUE="'+request.pr_localidad_envio+'" SIZE=30> </TD></TR>');
else
writeln('<TD> <INPUT TYPE="text" NAME="pr_localidad_envio" VALUE="'+request.pr_localidad_envio+'" SIZE=30> </TD></TR>');
writeln('<TR> <TD ALIGN=RIGHT> <B>Cod.Postal Envio:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.pr_cod_postal_envio+'</B></FONT><INPUT type="hidden" name="pr_cod_postal_envio" VALUE="'+request.pr_cod_postal_envio+'" size=7 maxlength=7></TD></TR>');
else
writeln('<TD ALIGN=LEFT> <INPUT type="text" name="pr_cod_postal_envio" VALUE="'+request.pr_cod_postal_envio+'" size=7 maxlength=7> </TD> </TR>');
writeln('<TR ALIGN=RIGHT><TD> <B>Tel&eacute;fonos:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.pr_telefono_1+'</B></FONT><INPUT type="hidden" name="pr_telefono_1" VALUE="'+request.pr_telefono_1+'" size=14 maxlength=14>');
else
writeln('<TD ALIGN=LEFT> <INPUT type="text" name="pr_telefono_1" VALUE="'+request.pr_telefono_1+'" size=14 maxlength=14>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pr_telefono_2+'</B></FONT><INPUT type="hidden" name="pr_telefono_2" VALUE="'+request.pr_telefono_2+'" size=14 maxlength=14> </TD> </TR>');
else
writeln('<INPUT type="text" name="pr_telefono_2" VALUE="'+request.pr_telefono_2+'" size=14 maxlength=14> </TD> </TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Nro. Fax:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_fax+'</B></FONT><INPUT type="hidden" name="pr_fax" VALUE="'+request.pr_fax+'" size=14 maxlength=14> </TD> </TR>');
else
writeln('<TD><INPUT type="text" name="pr_fax" VALUE="'+request.pr_fax+'" size=14 maxlength=14> </TD> </TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Correo Electr&oacute;nico:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_e_mail+'</B></FONT><INPUT type="hidden" name="pr_e_mail" VALUE="'+request.pr_e_mail+'" size=30 maxlength=30> </TD></TR>');
else
writeln('<TD> <INPUT type="text" name="pr_e_mail" VALUE="'+request.pr_e_mail+'" size=30 maxlength=30> </TD></TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B> </TD>');
writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="pr_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.pr_observaciones+' </TEXTAREA> </TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_expediente+'</B></FONT><INPUT type="hidden" name="pr_expediente" VALUE="'+request.pr_expediente+'" size=35 maxlength=40></TD></TR>');
}else
writeln('<TD><INPUT type="text" name="pr_expediente" VALUE="'+request.pr_expediente+'" size=35 maxlength=40></TD></TR>');
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

404
o_unlockfra.html Normal file
View File

@ -0,0 +1,404 @@
<!---
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>

492
o_vto.html Normal file
View File

@ -0,0 +1,492 @@
<TITLE>Factura</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>facturas</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de facturas Internos">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SERVER>
// Variables para el Server
var HOY=new Date();
var entorno = new entObj(0);
var NF11=""
var baseHtml="";
var whitespace="";
dbAcl();
//if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
//if ((!request.waux && request.lock) || request.nvo )
SetParametros();
writeln(' function setNroReg(obj) {');
writeln(' document.f_factura.fa_nro_remesa.value=StringClip(true,document.f_factura.fa_nro_remesay.value)+StringClip(true,document.f_factura.fa_nro_remesan.value);');
writeln(' }');
writeln(' function chkYearNroReg(obj) {');
writeln(' var nro=0;');
writeln(' nro=parseInt(obj.value); ');
writeln(' obj.value=nro; ');
writeln(' if ( HOY.getFullYear() != nro ) ');
writeln(' alert("¡¡ El Año del Nro. de Registro no es el actual !! ");');
writeln(' }');
writeln('function FormPaint(obj) {');
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&lock=true"');
writeln(' document.f_factura.submit();');
writeln(' } ');
writeln(' function GoField() {');
writeln(' var f=document.f_factura; ');
if ( request.prt) {
var nremesay=""+request.prt.substring(0,4);
var nremesan=""+request.prt.substring(4,10);
writeln(' alert("\\rNro. Registro Vto: '+nremesan+'/'+nremesay+' Actualizado.\\r"); ');
}
if (request.exec=="add" || request.exec == "upd" )
writeln(' f.submit(); ');
writeln(' f.fa_nro_doc_pago.focus();');
writeln(' }');
writeln(' function Chek_fields(obj) {');
if (request.waux || !request.lock)
writeln(' return true;');
else {
writeln(' if ( emptyField(obj.fa_nro_doc_pago) == true ) { ');
writeln(' alert("!!! Es necesario rellenar el Nro. de documento de Pago !!!->"+obj.fa_nro_doc_pago.value+"<-");');
writeln(' return false;');
writeln(' };');
writeln(' return true;');
}
writeln(' }');
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_form=mainFrame.document.f_factura;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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=document.f_factura.htmlBaseRef.value;');
ObjButtons(request.fa_nro_reg,"Facturas","fa_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' for ( var i=0; i < document.f_factura.length; i++ ) { ');
writeln(' if ( document.f_factura.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&nro="+nl+"&lock=true"');
writeln(' document.f_factura.submit();');
writeln('} ');
}
else {
writeln('function ScrollVer(obj) {');
writeln(' status_scroll=true; ');
writeln(' MESSAGE=" ¡¡¡ Usar el botón de \'Ver\' para "+ ');
writeln(' " actualizar los valores de la Base de Datos desde el Servidor !!! " ');
writeln(' scroll = new statusMessageObject(); ');
writeln(' scroller(); ');
writeln('} ');
writeln('function RePaint(obj) {');
writeln(' if (status_scroll != true ) ');
writeln(' ScrollVer(obj); ');
writeln('} ');
}
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons(); GoField();//SumaLineas(this)"');
else
writeln('<BODY OnLoad="GoField();//SumaLineas(this)" ');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add && request.fa_nro_doc_pago.length > 1 && request.fa_nro_remesa) {
client.is_trans=true;
database.beginTransaction();
if ( request.fa_nro_remesan == "+" ) {
c_parametros=database.cursor("SELECT nro_remesa FROM parametros WHERE id='1'");
status=c_parametros.next();
var nro_remesa=StringClip(false,c_parametros.nro_remesa);
var lon=nro_remesa.length;
if ( lon > 4 ) {
var updParams=true;
var nroremesan=parseFloat(c_parametros.nro_remesa.substring(4,lon))+1;
request.nro_remesan=NroFormat(nroremesan,"00000");
request.nro_remesay=c_parametros.nro_remesa.substring(0,4);
}
else {
var updParams=true;
request.nro_remesay="";
request.nroremesan=parseInt(nro_remesa)+1;
request.nro_remesan=NroFormat(request.nroremesan,"00000");
}
project.lock();
}
else {
var updParams=false;
request.nro_remesan=request.fa_nro_remesan;
request.nro_remesay=request.fa_nro_remesay;
}
request.fa_nro_remesa=request.nro_remesay+request.nro_remesan;
status=database.execute("UPDATE facturas SET "+
" nro_reg_vto='" + StringClip(true,request.fa_nro_remesa) + "'"+
" WHERE nro_doc_pago = '" + request.fa_nro_doc_pago + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
project.unlock();
redirect(addClient('error.html?alert=8'));
}
DbsError(true,status);
if ( updParams == true ) {
status=database.execute("UPDATE parametros SET "+
" nro_remesa='" +request.fa_nro_remesa + "'"+
" WHERE id = '1'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html'));
}
}
database.commitTransaction();
client.is_trans=false;
if ( updParams == true )
project.unlock();
redirect(addClient("o_vto.html?nvo=1&prt="+request.fa_nro_remesa+"&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.fa_nro_doc_pago.length > 1 ) {
if (request.lock)
client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE facturas SET "+
" nro_reg_vto='" + StringClip(true,request.fa_nro_remesa) + "'"+
" WHERE nro_doc_pago = '" + request.fa_nro_doc_pago + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=9'));
}
DbsError(true,status);
DelFraLins();
InsFraLins();
database.commitTransaction();
client.is_trans=false;
redirect(addClient("g_vto.html?prt="+request.fa_nro_remesa+"&"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del && request.fa_nro_doc_pago.length > 1 ) {
client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE facturas SET "+
" nro_reg_vto=''"+
" WHERE nro_doc_pago = '" + request.fa_nro_doc_pago + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=10'));
}
DbsError(true,status);
DelFraLins();
database.commitTransaction();
client.is_trans=false;
redirect(addClient("g_vto.html?"+baseHtml));
}
if (request.fa_nro_reg && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock) {
client.is_trans=true;
database.beginTransaction();
CursorTabla("fa","nro_reg","=\'"+request.fa_nro_reg+"\'",true,true);
}
else
CursorTabla("fa","nro_reg","=\'"+request.fa_nro_reg+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.fa_nro_remesa=StringClip(false,c_facturas.nro_reg_vto);
if ( request.fa_nro_remesa.length > 2 ) {
var lon=request.fa_nro_remesa.length;
request.fa_nro_remesan=request.fa_nro_remesa.substring(4,lon);
request.fa_nro_remesay=request.fa_nro_remesa.substring(0,4);
} else {
var n = HOY.getYear();
if ( n >= 0 && n <= 70 )
n += 2000;
else
n += 1900;
request.fa_nro_remesan="+";
request.fa_nro_remesay=n;
request.fa_nro_remesa="+"+n
}
request.fa_nro_remesa=StringClip(false,c_facturas.nro_reg_vto);
var lon=request.fa_nro_remesa.length;
request.fa_nro_remesan=request.fa_nro_remesa.substring(4,lon);
request.fa_nro_remesay=request.fa_nro_remesa.substring(0,4);
request.fa_nro_reg=StringClip(false,c_facturas.nro_reg);
var lon=request.fa_nro_reg.length;
request.fa_nro_regn=request.fa_nro_reg.substring(4,lon);
request.fa_nro_regy=request.fa_nro_reg.substring(0,4);
request.fa_nro_fra=StringClip(false,c_facturas.nro_fra);
request.fa_nif=StringClip(false,c_facturas.nif);
request.fa_cod_centro=StringClip(false,c_facturas.cod_centro);
request.fa_nro_doc_pago=StringClip(true,c_facturas.nro_doc_pago);
request.fa_f_emision_pago=datetoString(c_facturas.f_emision_pago);
request.fa_cod_localidad=StringClip(false,c_facturas.cod_localidad);
request.fa_cod_banco=StringClip(true,c_facturas.cod_banco);
request.fa_importe_total=NroFormat(c_facturas.importe_total,NF11);
request.fa_nro_reg_vto=StringClip(false,c_facturas.nro_reg_vto);
request.fa_vto_pago=datetoString(c_facturas.vto_pago);
request.fa_is_locked=StringClip(false,c_facturas.is_locked);
c_facturas.close();
// if (request.fa_is_locked == "S" )
// request.waux=8;
if (request.fa_cod_centro && request.fa_cod_centro != null ) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.fa_cod_centro)+"\'",false,false);
request.fa_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.fa_t_des_centro="";
if (request.fa_nif && request.fa_nif != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
request.fa_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.fa_t_razon_social == " " ) {
request.fa_t_razon_social="NO EXISTE";
request.fa_cta_contable="";
}
else {
request.fa_cta_contable=StringClip(false,c_proveedores.cta_contable);
}
c_proveedores.close();
}
else {
request.fa_t_razon_social="";
request.fa_cta_contable="";
}
if (request.fa_cod_banco && request.fa_cod_banco != null ) {
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.fa_cod_banco)+"\'",false,false);
request.fa_t_nombre_banco=c_bancos.nombre;
c_bancos.close();
}
else
request.fa_t_nombre_banco="";
if (request.fa_nro_doc_pago != "" )
clave=request.fa_nro_doc_pago;
else
clave="=";
CursorTabla("fa","nro_doc_pago","=\'"+clave+"\'",true,"");
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("fa_");
var n = HOY.getYear();
if ( n >= 0 && n <= 70 )
n += 2000;
else
n += 1900;
request.fa_nro_remesan="+";
request.fa_nro_remesay=n;
request.fa_nro_remesa="+"+n
request.fa_nro_reg="";
request.lock=true;
request.fa_t_razon_social="";
request.fa_cta_contable="";
request.fa_t_des_centro="";
request.fa_t_nombre_banco="";
request.fa_t_condpago="";
request.fa_cp_vto=0;
request.fa_importe_total=0;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.fa_nro_doc_pago != "" && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
clave=request.fa_nro_doc_pago;
} else {
clave="=";
}
CursorTabla("fa","nro_doc_pago","=\'"+clave+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.fa_nro_remesa=StringClip(false,c_facturas.nro_reg_vto);
if ( request.fa_nro_remesa.length > 2 ) {
var lon=request.fa_nro_remesa.length;
request.fa_nro_remesan=request.fa_nro_remesa.substring(4,lon);
request.fa_nro_remesay=request.fa_nro_remesa.substring(0,4);
} else {
var n = HOY.getYear();
if ( n >= 0 && n <= 70 )
n += 2000;
else
n += 1900;
request.fa_nro_remesan="+";
request.fa_nro_remesay=n;
request.fa_nro_remesa="+"+n
}
request.fa_nro_reg=StringClip(false,c_facturas.nro_reg);
var lon=request.fa_nro_reg.length;
request.fa_nro_regn=request.fa_nro_reg.substring(4,lon);
request.fa_nro_regy=request.fa_nro_reg.substring(0,4);
request.fa_nro_fra=StringClip(false,c_facturas.nro_fra);
request.fa_nif=StringClip(false,c_facturas.nif);
request.fa_cod_centro=StringClip(false,c_facturas.cod_centro);
request.fa_nro_doc_pago=StringClip(true,c_facturas.nro_doc_pago);
request.fa_f_emision_pago=datetoString(c_facturas.f_emision_pago);
request.fa_cod_localidad=StringClip(false,c_facturas.cod_localidad);
request.fa_cod_banco=StringClip(true,c_facturas.cod_banco);
request.fa_importe_total=NroFormat(c_facturas.importe_total,NF11);
request.fa_nro_reg_vto=StringClip(false,c_facturas.nro_reg_vto);
request.fa_vto_pago=datetoString(c_facturas.vto_pago);
request.fa_is_locked=StringClip(false,c_facturas.is_locked);
if (request.fa_cod_centro && request.fa_cod_centro != null && clave != "=") {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.fa_cod_centro)+"\'",false,false);
request.fa_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.fa_t_des_centro="";
if (request.fa_cod_banco && request.fa_cod_banco != null && clave != "=") {
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.fa_cod_banco)+"\'",false,false);
request.fa_t_nombre_banco=c_bancos.nombre;
c_bancos.close();
}
else
request.fa_t_nombre_banco="";
if (request.fa_nif && request.fa_nif != null && clave != "=") {
CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
request.fa_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.fa_t_razon_social == " " ) {
request.fa_t_razon_social="NO EXISTE";
request.fa_cta_contable="";
}
else {
request.fa_cta_contable=StringClip(false,c_proveedores.cta_contable);
}
c_proveedores.close();
}
else {
request.fa_t_razon_social="";
request.fa_cta_contable="";
}
}
writeln('<FORM NAME="f_factura" METHOD="post"');
if (request.fa_nro_reg && !request.nvo)
htmlpath="o_vto.html?fa_nro_reg="+escape(request.fa_nro_reg)+"&"+baseHtml;
else if (request.fa_nro_reg && request.nvo)
htmlpath="o_vto.html?nvo=1&"+baseHtml;
else
htmlpath="o_vto.html?nvo=1&cookie=1&lock=true&"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.fa_nro_reg,"Vencimientos","vt_");
writeln('<FONT SIZE=2>');
writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER><TR>');
if (request.fa_nro_reg && request.fa_nro_reg.length > 1 ) {
writeln('<TR><TD ALIGN=LEFT><B>Remesa.Vto.</B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_remesan+'/'+request.fa_nro_remesay+'</B></FONT><INPUT type="hidden" name="fa_nro_remesa" VALUE="'+request.fa_nro_remesa+'"></TD></FONT>');
writeln('<INPUT type="hidden" name="fa_nro_remesan" VALUE="'+request.fa_nro_remesan+'">');
writeln('<INPUT type="hidden" name="fa_nro_remesay" VALUE="'+request.fa_nro_remesay+'">');
} else {
writeln('<TD ALIGN=RIGHT><INPUT TYPE="text" NAME="fa_nro_remesan" VALUE="'+request.fa_nro_remesan+'" SIZE=5 OnChange="setNroReg(this)">');
writeln('<INPUT TYPE="text" NAME="fa_nro_remesay" VALUE="'+request.fa_nro_remesay+'" SIZE=4 OnChange="chkYearNroReg(this);setNroReg(this)">');
writeln('<INPUT type="hidden" NAME="fa_nro_remesa" VALUE="'+request.fa_nro_remesa+'"></TD></FONT>');
}
}
writeln('<TR><TD ALIGN=LEFT><B>Nro. Doc. Pago</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_doc_pago+'</FONT><INPUT type="hidden" name="fa_nro_doc_pago" VALUE="'+request.fa_nro_doc_pago+'" size=8 maxlength=8></FONT></TD></TR>');
else {
writeln('<TD ALIGN=RIGHT><INPUT type="text" name="fa_nro_doc_pago" VALUE="'+request.fa_nro_doc_pago+'" size=12 maxlength=12></TD>');
// writeln('<TD><INPUT TYPE="button" VALUE="Ver" NAME="ver" ONCLICK="FormPaint(this)"></TD>');
}
writeln('</TR></TABLE></CENTER>');
if (request.fa_nro_reg && request.fa_nro_reg.length > 1 ) {
writeln('<CENTER><TABLE BORDER=1 ALIGN=CENTER><TR>');
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+StringClip(true,request.fa_nif)+'\')">');
writeln('<FONT COLOR="#800040"><B>'+request.fa_nif+'</B></FONT><INPUT type="hidden" name="fa_nif" VALUE="'+request.fa_nif+'"></TD>');
if (request.fa_t_razon_social == "NO EXISTE")
writeln('<TD ALIGN=LEFT><BLINK><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT></BLINK>');
else
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT>');
writeln('<INPUT type="hidden" name="fa_t_razon_social" VALUE="'+request.fa_t_razon_social+'">');
writeln('<INPUT type="hidden" name="fa_cta_contable" VALUE="'+request.fa_cta_contable+'"></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Centro" ONCLICK="w_auxiliar(\'centro\',\'Centros\',\'ce_cod_centro\',\''+StringClip(true,request.fa_cod_centro)+'\')">');
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_centro+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cod_centro" VALUE="'+request.fa_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_centro+'</FONT></TD>');
writeln('<TR><TD ALIGN=RIGHT><B> Banco: </B>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_banco+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cod_banco" VALUE="'+request.fa_cod_banco+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_nombre_banco+'</FONT></TD>');
writeln('<TR><TD ALIGN=RIGHT><B>Localidad:</B></TD><TD>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_localidad+'</FONT><INPUT type="hidden" name="fa_cod_localidad" VALUE="'+request.fa_cod_localidad+'" size=12 maxlength=12></FONT></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Fecha Emisión:</B></TD><TD>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision_pago+'</FONT><INPUT type="hidden" name="fa_f_emision_pago" VALUE="'+request.fa_f_emision_pago+'" size=8 maxlength=8></TD></FONT></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Vencimiento:</B></TD><TD>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_vto_pago+'</FONT><INPUT type="hidden" name="fa_vto_pago" VALUE="'+request.fa_vto_pago+'" size=8 maxlength=8></TD></FONT></TR>');
writeln('</TR></TABLE></CENTER>');
writeln('<CENTER><TABLE BORDER=1 ALIGN=CENTER><TR>');
// Sumamos las facturas ...
writeln("<TR><TD>Nro. Reg. </TD><TD ALIGN=CENTER>" +
"Nro.Fra</TD><TD ALIGN=CENTER>Importe" +
"</A><BR></TD></TR>");
request.SumaTotal=0;
while (true && c_facturas.nro_reg.length > 0) {
writeln("<TR><TD>"+
"<INPUT TYPE='button' VALUE='"+c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
c_facturas.nro_reg.substring(0,4)+"' ONCLICK='w_auxiliar(\"factura\",\"Facturas\",\"fa_nro_reg\",\""+StringClip(true,c_facturas.nro_reg)+"\")' >" +
"</TD><TD ALIGN=RIGHT>" +
StringClip(true,c_facturas.nro_fra) + "</TD><TD ALIGN=RIGHT>" +
NroFormat(c_facturas.importe_total,NF11) +
"</A><BR></TD></TR>");
request.SumaTotal=parseFloat(c_facturas.importe_total)+parseFloat(request.SumaTotal)
if (!c_facturas.next())
break;
}
c_facturas.close();
writeln("<TR><TD><FONT COLOR='#800040'><B>TOTAL .... </TD></FONT><TD ALIGN=RIGHT><FONT COLOR='#800040'><B>" +
"................. </FONT></TD><TD ALIGN=RIGHT><FONT COLOR='#800040'><B>" +
NroFormat(request.SumaTotal,NF11) +
"<FONT><BR></TD></TR>");
writeln('</TR></TABLE></CENTER>');
}
</SERVER>
</FORM></FONT>
<SERVER>
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

459
o_vtos.html Normal file
View File

@ -0,0 +1,459 @@
<TITLE>Factura</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>facturas</TITLE>
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de facturas Internos">
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<SERVER>
// Variables para el Server
var HOY=new Date();
var entorno = new entObj(0);
var NF11=""
var baseHtml="";
var whitespace="";
dbAcl();
//if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
//if ((!request.waux && request.lock) || request.nvo )
SetParametros();
writeln(' function setNroReg(obj) {');
writeln(' document.f_factura.fa_nro_remesa.value=StringClip(true,document.f_factura.fa_nro_remesay.value)+StringClip(true,document.f_factura.fa_nro_remesan.value);');
writeln(' }');
writeln(' function chkYearNroReg(obj) {');
writeln(' var nro=0;');
writeln(' nro=parseInt(obj.value); ');
writeln(' obj.value=nro; ');
writeln(' if ( HOY.getFullYear() != nro ) ');
writeln(' alert("¡¡ El Año del Nro. de Registro no es el actual !! ");');
writeln(' }');
writeln('function FormPaint(obj) {');
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&lock=true"');
writeln(' document.f_factura.submit();');
writeln(' } ');
writeln(' function GoField() {');
writeln(' var f=document.f_factura; ');
if ( request.prt) {
var nremesay=""+request.prt.substring(0,4);
var nremesan=""+request.prt.substring(4,10);
writeln(' alert("\\rNro. Registro Vto: '+nremesan+'/'+nremesay+' Actualizado.\\r"); ');
}
if (request.exec=="add" || request.exec == "upd" )
writeln(' f.submit(); ');
writeln(' f.fa_nro_doc_pago.focus();');
writeln(' }');
writeln(' function Chek_fields(obj) {');
if (request.waux || !request.lock)
writeln(' return true;');
else {
writeln(' if ( emptyField(obj.fa_nro_doc_pago) == true ) { ');
writeln(' alert("!!! Es necesario rellenar el Nro. de documento de Pago !!!->"+obj.fa_nro_doc_pago.value+"<-");');
writeln(' return false;');
writeln(' };');
writeln(' return true;');
}
writeln(' }');
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln('function RunFunction(obj,valor,clave,f_nro) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' var f_form=mainFrame.document.f_factura;');
writeln(' if ( obj == "Ayuda" ) {');
writeln(' NetHelp(valor);');
writeln(' }');
writeln(' history.back();');
writeln('}');
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=document.f_factura.htmlBaseRef.value;');
ObjButtons(request.fa_nro_reg,"Facturas","fa_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' for ( var i=0; i < document.f_factura.length; i++ ) { ');
writeln(' if ( document.f_factura.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&nro="+nl+"&lock=true"');
writeln(' document.f_factura.submit();');
writeln('} ');
}
else {
writeln('function ScrollVer(obj) {');
writeln(' status_scroll=true; ');
writeln(' MESSAGE=" ¡¡¡ Usar el botón de \'Ver\' para "+ ');
writeln(' " actualizar los valores de la Base de Datos desde el Servidor !!! " ');
writeln(' scroll = new statusMessageObject(); ');
writeln(' scroller(); ');
writeln('} ');
writeln('function RePaint(obj) {');
writeln(' if (status_scroll != true ) ');
writeln(' ScrollVer(obj); ');
writeln('} ');
}
writeln("</SCRIPT>");
if (request.gofunc)
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
else {
if ( request.FrameType == "F" || request.FrameType == "T" )
writeln(' <BODY OnLoad="WriteFrameButtons(); GoField();//SumaLineas(this)"');
else
writeln('<BODY OnLoad="GoField();//SumaLineas(this)" ');
}
writeln(' BACKGROUND="images/backgrnd.gif">');
if (request.gofunc) {
writeln(' </BODY>');
writeln(' </HTML>');
writeln(' <!--');
}
if (!request.cookie && !request.gofunc) {
dbConnect();
// Vemos que tarea hay que ejecutar:
if (request.add) {
client.is_trans=true;
database.beginTransaction();
if ( request.fa_nro_remesan == "+" ) {
c_parametros=database.cursor("SELECT nro_remesa FROM parametros WHERE id='1'");
status=c_parametros.next();
var nro_remesa=StringClip(false,c_parametros.nro_remesa);
var lon=nro_remesa.length;
if ( lon > 4 ) {
var updParams=true;
var nroremesan=parseFloat(c_parametros.nro_remesa.substring(4,lon))+1;
request.nro_remesan=NroFormat(nroremesan,"00000");
request.nro_remesay=c_parametros.nro_remesa.substring(0,4);
}
else {
var updParams=true;
request.nro_remesay="";
request.nroremesan=parseInt(nro_remesa)+1;
request.nro_remesan=NroFormat(request.nroremesan,"00000");
}
project.lock();
}
else {
var updParams=false;
request.nro_remesan=request.fa_nro_remesan;
request.nro_remesay=request.fa_nro_remesay;
}
request.fa_nro_remesa=request.nro_remesay+request.nro_remesan;
status=database.execute("UPDATE parametros SET "+
" nro_remesa='" +request.fa_nro_remesa + "'"+
" WHERE id = '1'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
project.unlock();
redirect(addClient('error.html?alert=8'));
}
DbsError(true,status);
if ( updParams == true ) {
status=database.execute("UPDATE facturas SET "+
" nro_reg_vto='" + StringClip(true,request.fa_nro_remesa) + "'"+
" WHERE nro_doc_pago = '" + request.fa_nro_doc_pago + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html'));
}
}
database.commitTransaction();
client.is_trans=false;
if ( updParams == true )
project.unlock();
redirect(addClient("o_vtos.html?nvo=1&prt="+request.fa_nro_remesa+"&"+baseHtml+"&treq="+escape(textoReqs)));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.fa_nro_reg) {
if (request.lock)
client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE facturas SET "+
" nro_reg_vto='" + StringClip(true,request.fa_nro_remesa) + "'"+
" WHERE nro_doc_pago = '" + request.fa_nro_doc_pago + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=9'));
}
DbsError(true,status);
DelFraLins();
InsFraLins();
database.commitTransaction();
client.is_trans=false;
redirect(addClient("g_vtos.html?prt="+request.fa_nro_remesa+"&"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
client.is_trans=true;
database.beginTransaction();
status=database.execute("UPDATE facturas SET "+
" nro_reg_vto=''"+
" WHERE nro_doc_pago = '" + request.fa_nro_doc_pago + "'" );
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect(addClient('error.html?alert=10'));
}
DbsError(true,status);
DelFraLins();
database.commitTransaction();
client.is_trans=false;
redirect(addClient("g_vtos.html?"+baseHtml));
}
if (request.fa_nro_reg && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
if (request.lock) {
client.is_trans=true;
database.beginTransaction();
CursorTabla("fa","nro_reg","=\'"+request.fa_nro_reg+"\'",true,true);
}
else
CursorTabla("fa","nro_reg","=\'"+request.fa_nro_reg+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.fa_nro_remesa=StringClip(false,c_facturas.nro_reg_vto);
var lon=request.fa_nro_remesa.length;
request.fa_nro_remesan=request.fa_nro_remesa.substring(4,lon);
request.fa_nro_remesay=request.fa_nro_remesa.substring(0,4);
request.fa_nro_reg=StringClip(false,c_facturas.nro_reg);
var lon=request.fa_nro_reg.length;
request.fa_nro_regn=request.fa_nro_reg.substring(4,lon);
request.fa_nro_regy=request.fa_nro_reg.substring(0,4);
request.fa_nro_fra=StringClip(false,c_facturas.nro_fra);
request.fa_nif=StringClip(false,c_facturas.nif);
request.fa_cod_centro=StringClip(false,c_facturas.cod_centro);
request.fa_nro_doc_pago=StringClip(true,c_facturas.nro_doc_pago);
request.fa_f_emision_pago=datetoString(c_facturas.f_emision_pago);
request.fa_cod_localidad=StringClip(false,c_facturas.cod_localidad);
request.fa_cod_banco=StringClip(true,c_facturas.cod_banco);
request.fa_importe_total=NroFormat(c_facturas.importe_total,NF11);
request.fa_nro_reg_vto=StringClip(false,c_facturas.nro_reg_vto);
request.fa_vto_pago=datetoString(c_facturas.vto_pago);
request.fa_is_locked=StringClip(false,c_facturas.is_locked);
if (request.lock)
c_facturas.close();
// if (request.fa_is_locked == "S" )
// request.waux=8;
if (request.fa_cod_centro && request.fa_cod_centro != null) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.fa_cod_centro)+"\'",false,false);
request.fa_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.fa_t_des_centro="";
if (request.fa_nif && request.fa_nif != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
request.fa_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.fa_t_razon_social == " " ) {
request.fa_t_razon_social="NO EXISTE";
request.fa_cta_contable="";
}
else {
request.fa_cta_contable=StringClip(false,c_proveedores.cta_contable);
}
c_proveedores.close();
}
else {
request.fa_t_razon_social="";
request.fa_cta_contable="";
}
if (request.fa_cod_banco && request.fa_cod_banco != null) {
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.fa_cod_banco)+"\'",false,false);
request.fa_t_nombre_banco=c_bancos.nombre;
c_bancos.close();
}
else
request.fa_t_nombre_banco="";
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("fa_");
var n = HOY.getYear();
if ( n >= 0 && n <= 70 )
n += 2000;
else
n += 1900;
request.fa_nro_remesan="+";
request.fa_nro_remesay=n;
request.fa_nro_remesa="+"+n
request.fa_nro_reg="";
request.lock=true;
request.fa_t_razon_social="";
request.fa_cta_contable="";
request.fa_t_des_centro="";
request.fa_t_nombre_banco="";
request.fa_t_condpago="";
request.fa_cp_vto=0;
request.fa_importe_total=0;
}
}
else if (!request.gofunc) {
// Se entiende que request contiene todas las columnas necesarias para el form.
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
if (request.fa_nro_doc_pago && !request.upd && !request.add ) {
// Si hay Clave de la tabla seleccionamos los datos ....
//Si se busca la fila ... usando la clave primaria de la relación
CursorTabla("fa","nro_doc_pago","=\'"+request.fa_nro_doc_pago+"\'",true,"");
}
// Asignamos a request todas las columnas necesarias para el form.
request.fa_nro_remesa=StringClip(false,c_facturas.nro_reg_vto);
var lon=request.fa_nro_remesa.length;
request.fa_nro_remesan=request.fa_nro_remesa.substring(4,lon);
request.fa_nro_remesay=request.fa_nro_remesa.substring(0,4);
request.fa_nro_reg=StringClip(false,c_facturas.nro_reg);
var lon=request.fa_nro_reg.length;
request.fa_nro_regn=request.fa_nro_reg.substring(4,lon);
request.fa_nro_regy=request.fa_nro_reg.substring(0,4);
request.fa_nro_fra=StringClip(false,c_facturas.nro_fra);
request.fa_nif=StringClip(false,c_facturas.nif);
request.fa_cod_centro=StringClip(false,c_facturas.cod_centro);
request.fa_nro_doc_pago=StringClip(true,c_facturas.nro_doc_pago);
request.fa_f_emision_pago=datetoString(c_facturas.f_emision_pago);
request.fa_cod_localidad=StringClip(false,c_facturas.cod_localidad);
request.fa_cod_banco=StringClip(true,c_facturas.cod_banco);
request.fa_importe_total=NroFormat(c_facturas.importe_total,NF11);
request.fa_nro_reg_vto=StringClip(false,c_facturas.nro_reg_vto);
request.fa_vto_pago=datetoString(c_facturas.vto_pago);
request.fa_is_locked=StringClip(false,c_facturas.is_locked);
if (request.fa_cod_centro && request.fa_cod_centro != null) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.fa_cod_centro)+"\'",false,false);
request.fa_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.fa_t_des_centro="";
if (request.fa_cod_banco && request.fa_cod_banco != null) {
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.fa_cod_banco)+"\'",false,false);
request.fa_t_nombre_banco=c_bancos.nombre;
c_bancos.close();
}
else
request.fa_t_nombre_banco="";
if (request.fa_nif && request.fa_nif != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
request.fa_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.fa_t_razon_social == " " ) {
request.fa_t_razon_social="NO EXISTE";
request.fa_cta_contable="";
}
else {
request.fa_cta_contable=StringClip(false,c_proveedores.cta_contable);
}
c_proveedores.close();
}
else {
request.fa_t_razon_social="";
request.fa_cta_contable="";
}
}
writeln('<FORM NAME="f_factura" METHOD="post"');
if (request.fa_nro_reg && !request.nvo)
htmlpath="o_vtos.html?fa_nro_reg="+escape(request.fa_nro_reg)+"&"+baseHtml;
else
htmlpath="o_vtos.html?nvo=1&"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.fa_nro_reg,"Vencimientos","vt_");
writeln('<FONT SIZE=2>');
writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER><TR>');
writeln('<TR><TD ALIGN=LEFT><B>Remesa.Vto.</B></TD>');
if (request.waux || !request.lock) {
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_remesan+'/'+request.fa_nro_remesay+'</B></FONT><INPUT type="hidden" name="fa_nro_remesa" VALUE="'+request.fa_nro_remesa+'"></TD></FONT>');
writeln('<INPUT type="hidden" name="fa_nro_remesan" VALUE="'+request.fa_nro_remesan+'">');
writeln('<INPUT type="hidden" name="fa_nro_remesay" VALUE="'+request.fa_nro_remesay+'">');
}
else {
writeln('<TD ALIGN=RIGHT><INPUT TYPE="text" NAME="fa_nro_remesan" VALUE="'+request.fa_nro_remesan+'" SIZE=5 OnChange="setNroReg(this)">');
writeln('<INPUT TYPE="text" NAME="fa_nro_remesay" VALUE="'+request.fa_nro_remesay+'" SIZE=4 OnChange="chkYearNroReg(this);setNroReg(this)">');
writeln('<INPUT type="hidden" NAME="fa_nro_remesa" VALUE="'+request.fa_nro_remesa+'"></TD></FONT>');
}
writeln('<TR><TD ALIGN=LEFT><B>Nro. Doc. Pago</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_doc_pago+'</FONT><INPUT type="hidden" name="fa_nro_doc_pago" VALUE="'+request.fa_nro_doc_pago+'" size=8 maxlength=8></FONT></TD></TR>');
else {
writeln('<TD ALIGN=RIGHT><INPUT type="text" name="fa_nro_doc_pago" VALUE="'+request.fa_nro_doc_pago+'" size=12 maxlength=12></TD>');
writeln('<TD><INPUT TYPE="button" VALUE="Ver" NAME="ver" ONCLICK="FormPaint(this)"></TD>');
}
writeln('</TR></TABLE></CENTER>');
if (request.fa_nro_reg ) {
writeln('<CENTER><TABLE BORDER=1 ALIGN=CENTER><TR>');
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+StringClip(true,request.fa_nif)+'\')">');
writeln('<FONT COLOR="#800040"><B>'+request.fa_nif+'</B></FONT><INPUT type="hidden" name="fa_nif" VALUE="'+request.fa_nif+'"></TD>');
if (request.fa_t_razon_social == "NO EXISTE")
writeln('<TD ALIGN=LEFT><BLINK><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT></BLINK>');
else
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT>');
writeln('<INPUT type="hidden" name="fa_t_razon_social" VALUE="'+request.fa_t_razon_social+'">');
writeln('<INPUT type="hidden" name="fa_cta_contable" VALUE="'+request.fa_cta_contable+'"></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Centro" ONCLICK="w_auxiliar(\'centro\',\'Centros\',\'ce_cod_centro\',\''+StringClip(true,request.fa_cod_centro)+'\')">');
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_centro+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cod_centro" VALUE="'+request.fa_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_centro+'</FONT></TD>');
writeln('<TR><TD ALIGN=RIGHT><B> Banco: </B>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_banco+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cod_banco" VALUE="'+request.fa_cod_banco+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_nombre_banco+'</FONT></TD>');
writeln('<TR><TD ALIGN=RIGHT><B>Localidad:</B></TD><TD>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_localidad+'</FONT><INPUT type="hidden" name="fa_cod_localidad" VALUE="'+request.fa_cod_localidad+'" size=12 maxlength=12></FONT></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Fecha Emisión:</B></TD><TD>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision_pago+'</FONT><INPUT type="hidden" name="fa_f_emision_pago" VALUE="'+request.fa_f_emision_pago+'" size=8 maxlength=8></TD></FONT></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Vencimiento:</B></TD><TD>');
writeln('<FONT COLOR="#800040"><B>'+request.fa_vto_pago+'</FONT><INPUT type="hidden" name="fa_vto_pago" VALUE="'+request.fa_vto_pago+'" size=8 maxlength=8></TD></FONT></TR>');
writeln('</TR></TABLE></CENTER>');
writeln('<CENTER><TABLE BORDER=1 ALIGN=CENTER><TR>');
// Sumamos las facturas ...
writeln("<TR><TD>Nro. Reg. </TD><TD ALIGN=CENTER>" +
"Nro.Fra</TD><TD ALIGN=CENTER>Importe" +
"</A><BR></TD></TR>");
request.SumaTotal=0;
while (true && c_facturas.nro_reg.length > 0) {
writeln("<TR><TD>"+
"<INPUT TYPE='button' VALUE='"+c_facturas.nro_reg.substring(4,c_facturas.nro_reg.length) + "/" +
c_facturas.nro_reg.substring(0,4)+"' ONCLICK='w_auxiliar(\"factura\",\"Facturas\",\"fa_nro_reg\",\""+StringClip(true,request.fa_nro_reg)+"\")' >" +
"</TD><TD ALIGN=RIGHT>" +
StringClip(true,c_facturas.nro_fra) + "</TD><TD ALIGN=RIGHT>" +
NroFormat(c_facturas.importe_total,NF11) +
"</A><BR></TD></TR>");
request.SumaTotal=parseFloat(c_facturas.importe_total)+parseFloat(request.SumaTotal)
if (!c_facturas.next())
break;
}
c_facturas.close();
writeln("<TR><TD><FONT COLOR='#800040'><B>TOTAL .... </TD></FONT><TD ALIGN=RIGHT><FONT COLOR='#800040'><B>" +
"................. </FONT></TD><TD ALIGN=RIGHT><FONT COLOR='#800040'><B>" +
NroFormat(request.SumaTotal,NF11) +
"<FONT><BR></TD></TR>");
writeln('</TR></TABLE></CENTER>');
}
</SERVER>
</FORM></FONT>
<SERVER>
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>

19
obras.html Normal file
View File

@ -0,0 +1,19 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Página en Obras</TITLE>
<META NAME="Author" CONTENT="">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="images/backgrnd.gif">
<H1><IMG SRC="images/SGRP.jpg" BORDER=2 HEIGHT=76 WIDTH=86></H1>
<H1 ALIGN=CENTER><FONT COLOR="#FF0000"><FONT SIZE=+4>P&aacute;gina en Construcci&oacute;n
</FONT></FONT></H1>
<CENTER><P><A HREF="obras.html"></A>
<IMG SRC="images/obra.gif" HEIGHT=174 WIDTH=222></P></CENTER>
</BODY>
</HTML>

127
reinitial.html Normal file
View File

@ -0,0 +1,127 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Inicio</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/4.0b1 (Win95; I) [Netscape]">
<SCRIPT language="JavaScript">
function validate() {
if (!document.login.username.value) {
alert("Debe introducir un nombre de usuario y una clave de acceso!");
return false;
}
document.login.prevPage.value = "initial.html submit";
return true;
}
</SCRIPT>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
</HEAD>
<BODY BACKGROUND="images/BG.JPG">
<P><!-- application: Cuentas a Pagar -->
<!-- version: 1.0 -->
<!-- company name: AdmiSys -->
<!-- filename: initial.html -->
<!-- description: initial and default page of the application -->
<!-- application returns here whenever a non-database -->
<!-- error occurs. checks if user is logged in, -->
<!-- prompts for id and password if not, else goes to -->
<!-- main application screen. -->
<SERVER>
/*
$Log: initial.html,v $
*/
<!-- this is the only page where client.prevPage doesn't matter -->
client.prevPage = "rinitial.html";
client.es_inicio = 1;
dbConnect();
<!-- if we know who the user is already, go direct to enter hours -->
if (!request.ipw && client.username != "null" && client.username != null) {
// if (!loggedIn()) <!-- session expired -->
// redirect("logout.html");
// else
// if (request.err)
// redirect("multi_entry.html");
// else
redirect("ctasapagar.html?FrameType="+request.FrameType);
}
if (request.err)
redirect("logged_out.html");
</SERVER></P>
<DIV ALIGN=CENTER><TABLE BORDER=4 BGCOLOR="#FFFFFF" >
<TR><TD COLSPAN="3">
<DT><A HREF="http://ctasapagar"><IMG SRC="images/sand2new.gif"
ALT="Construcciones SANDO" BORDER=0 HEIGHT=117 WIDTH=424 ALIGN=RIGHT></A>
<A HREF="http://ctasapagar">&nbsp;</A></DT>
</TD></TR>
</TABLE>
<H1>
Departamento de Cuentas a Pagar
</A></H1>
<TABLE>
<CAPTION>
<P><!------ end nested table --></P></RIGHT>
</CAPTION>
<TR><TD><DT>&nbsp;</DT></TD>
<TD colspan=2 align=right><DT>
<FORM name="login"
method="post"
action="login.html"
onSubmit="return validate()">
</DT>
<P><!----- nested table -------></P>
<TR valign=baseline><TD><DT>
<SERVER>
<!-- if request.ipw is set, the user has entered an incorrect login -->
<!-- or password. -->
if (request.ipw) {
writeln("<td><b><i>El nombre de usuario o el password<br>es incorrecto.</i></b></td>");
}
</SERVER>
</DT>
</TD><DT></DT>
<TD align=right><H3>USER</H3></TD>
<TD><DT>
<SERVER>
if (request.username != "null" && request.username != null)
writeln(" <input name=\"username\" type=\"hidden\" size=\"15\" value=\""+request.username+"\">");
else
writeln(" <input name=\"username\" type=\"text\" size=\"15\">");
</SERVER>
</DT></TD></TR>
<TR valign=baseline><TD><DT>
<SERVER>
if (request.ipw)
writeln("<td><b><i>Por favor Intentar otra vez.</i></b></td>");
</SERVER>
</DT></TD>
<TD align=right><H3>PASSWORD</H3></TD>
<TD><DT><INPUT name="password" type="password" size="15"></DT></TD></TR>
<TR><TD><DT>
<SERVER>
if (request.ipw)
writeln("<td></td>");
</SERVER>
</DT></TD>
<TD><DT>&nbsp;</DT></TD>
<TD align=right><DT>
<INPUT name="Submit" type="submit" value="ENTER">
<INPUT name="prevPage" type="hidden"></DT>
</TD>
</TR>
</TABLE></DIV>
<SERVER>
writeln('<INPUT TYPE="hidden" NAME="FrameType" VALUE="'+request.FrameType+'" >');
writeln('<INPUT TYPE="hidden" NAME="ViewFkey" VALUE="'+request.ViewFkey+'" >');
writeln('<INPUT TYPE="hidden" NAME="MsgScroll" VALUE="'+request.MsgScroll+'" >');
</SERVER>
</FORM>
<SERVER>writeSignature(true);</SERVER>
<BR><CENTER>Last modified: 27/2/97&nbsp;</FONT></DT></CENTER>
</BODY>
</HTML>

35
w_auxiliar.html Normal file
View File

@ -0,0 +1,35 @@
<html>
<!-- application: Cuentas a Pagar -->
<!-- version: 1.0 -->
<!-- company name: AdmiSys -->
<!-- filename: help.html -->
<!-- description: frameset for online help facility -->
<SCRIPT SRC="global.js" >
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<head>
<SERVER>writeln('<title>Ventana Auxiliar de '+request.titulo+'</title>');</SERVER>
</head>
<script language="JavaScript">
topic = location.hash
</script>
<SERVER>
var baseHtml="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
if (!request.obj)
redirect("go_back.html")
if (request.clave && request.valor ) {
// redirect('o_'+ request.obj +'.html?waux=2&'+request.clave+'='+request.valor);
writeln("<frameset rows='52,*'>");
writeln("<frame src='w_auxnavbar.html?waux=2&obj="+request.obj+"&titulo="+request.titulo+"' scrolling=no marginwidth=0 marginheight=0 name='buttons'>");0
writeln('<frame src="o_'+ request.obj +'.html?waux=2&'+request.clave+'='+request.valor +'&'+baseHtml+'">');
}
else {
writeln("<frameset rows='52,*'>");
writeln("<frame src='w_auxnavbar.html?waux=1&obj="+request.obj+"&titulo="+request.titulo+"' scrolling=no marginwidth=0 marginheight=0 name='buttons'>");
writeln('<frame src="g_'+ request.obj +'.html?waux=1&'+baseHtml+'&name="'+ request.obj +'">');
}
</SERVER>
</frameset>
</html>

32
w_auxnavbar.html Normal file
View File

@ -0,0 +1,32 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<SCRIPT SRC="global.js">
</SCRIPT>
<SCRIPT SRC="ctasapagar.js">
</SCRIPT>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#003366" VLINK="#333399" ALINK="#FF0000" BACKGROUND="images/backgrnd.gif">
<TABLE WIDTH="100%" >
<SERVER>
writeln('<TR>');
if (request.waux == 1 ) {
writeln('<TD>')
writeln('<A HREF="javascript:parent.frames[1].history.go(-1)"><IMG SRC="images/back1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>');
writeln('<A HREF="javascript:parent.frames[1].history.go(1)"><IMG SRC="images/forward1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>');
writeln('</TD>');
writeln('<TD align="center">');
writeln('<H1><FONT SIZE=+3><FONT COLOR="#008000">'+request.titulo+'</FONT><BR></H1></TD>');
}
</SERVER>
<TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

24
wrongbrw.html Normal file
View File

@ -0,0 +1,24 @@
<HEAD>
<!-- application: Ctas a Pagar -->
<!-- version: 1.0 -->
<!-- company name: AdmiSys -->
<!-- filename: wrongbrw.html -->
<!-- description: Browser Incorrecto-->
<SCRIPT SRC="global.js">
</SCRIPT>
<!--
<SCRIPT LANGUAGE='JavaScript'>
//function Go_Location() {
alert("\\r ¡¡¡ No es posible utilizar las Páginas con otro Navegador\\r que no sea NETSCAPE NAVIGATOR 3 !!!\\r ");
top.close();
//}
//<BODY ONLOAD="Go_Location()" >
</SCRIPT>
//-->
</HEAD>
</BODY>
</HEAD>
</HTML>