Protohistory/ctasapagar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
master
ctasapagar/o_vto.html
JesusPerez 170557d88c chore: html pages
2021-10-01 20:28:38 +01:00

493 lines
23 KiB
HTML
Raw Permalink Blame History

<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>
Reference in New Issue View Git Blame Copy Permalink