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

507 lines
26 KiB
HTML

<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>