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

209 lines
7.5 KiB
HTML

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