Foro - Perl en Español

por **Negrazo** » 2010-02-12 14:11 @633

Hola a todos:
Tengo una aplicación web en la que un operador debe hacer 3 pasos:

Leer con un escáner óptico un código telefónico que viene en código de barras (10 dígitos) y esto debe caer en el campo 1.
Teclear una fecha del movimiento (8 dígitos) y esto debe caer en el campo 2.
Teclear el importe respectivo para ese código telefónico (8 dígitos) y esto debe caer en el campo 3.

Ahora bien, para esto, el operador solo tiene un teclado numérico con los 10 dígitos, la tecla "ENTER" y nada más.

De tal forma que solo puede utilizar dicha tecla para moverse de un campo a otro y al darle el tercer "ENTER" el registro se grabe en mi base de datos (MySQL) y regresar a la misma pantalla para teclear otro código telefónico.

Actualmente lo hacen todo en Excel y pues no tienen problema al respecto, pero ya con esta aplicación, pues no he encontrado la manera de hacerlo.

¿¿¿¿Alguien ha hecho algo parecido a esto????
Cualquier tip es bienvenido.

Por cierto estoy usando Windows XP SP2, Firefox, Perl y MySQL.
Gracias por cualquier ayuda que me puedan proporcionar.

Negrazo.

<script>
 
window.onload=function() {
 
    var coll = document.forms[0].elements;
    for(i=0;i<coll.length;i++){
        if(document.all){
            coll[i].attachEvent("onkeypress",tabOnEnter);
        }else{
            coll[i].addEventListener("keypress",tabOnEnter,false);
        }
    }
}
 
function tabOnEnter(e){
    if(document.all){
        key=event.keyCode;
        inp=event.srcElement.name;
        idx=parseInt(event.srcElement.getAttribute("tabindex"));
    }else{
        key=e.which;
        inp=e.target.name;
        idx=parseInt(e.target.getAttribute("tabindex"));
    }
 
    if(key==13){
        if(document.all){
            event.cancelBubble=true;
        }else{
            e.stopPropagation();
        }
 
        var coll=document.forms[0].elements;
        for(i=0;i<coll.length;i++){
            if(idx!=""){
                if(parseInt(coll[i].getAttribute("tabindex"))==idx+1){
                    coll[i].focus();
                }
            }else{
                if(inp==coll[i].name){
                    nextel=i+1;
                    if(coll[nextel]){
                        coll[nextel].focus();
                    }
                }
            }
        }
        return false;
    }
}
</script>
 
<form method="post">
<input type="text" name="name" tabindex="3"><br>
<input type="text" name="address" tabindex="1"><br>
<input type="text" name="email" tabindex="2"><br>
<input type="text" name="phone" tabindex="4"><br>
</form>
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

(sacado de este hilo)

por **Negrazo** » 2010-02-12 20:11 @882

Gracias explorer:

Déjame entenderlo y luego ponerlo en práctica con mi problema.

Como siempre, con el consejo adecuado.

Saludos.

por **Negrazo** » 2010-02-14 22:34 @982

Hola, explorer.

Puse en practica la información del link que me diste y me está funcionando a medias; me explico: ya me puedo mover entre los campos con la tecla "Enter", pero al llegar al botón del submit (Enviar) y le doy Enter me está preguntando si quiero Guardar el archivo 'recolec04.pl' o si lo quiero abrir con el IDE de Perl (?)
De alguna forma no está reconociendo algo y me imagino que es en la instrucción del 'Submit'. Aquí pego la porción del código para ver si le encuentras algo raro o qué me haga falta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"<body onload='document.forms.form1.idtel.focus()'>";
print"<form action='recolec04.pl?fec=$dt&CGISESSID=$CGISESSID&fecha1=$fecha1&fecha2=$fecha2' ID='form1' onsubmit='return verificar();'>";

print"<B>Fecha Inicial...........................:   ";
print$fecha1;
print"<BR>";
print"<B>Fecha de Recoleccion.........:   ";
print$fecha2;
print"<BR>";
print"ID-Telefono......:   ";
print"<input type=text  name=idtel size=10 onkeypress='if(event.keyCode==13){document.forms.form1.imp.focus();return false;}'>";
print"<BR>";
print"Importe.............:   ";
print"<input type=text  name=imp size=10 onkeypress='if(event.keyCode==13){document.forms.form1.done.focus();return false;}'>";
print"<BR>";

print hidden('CGISESSID','$CGISESSID');
print hidden('fecha1','$fecha1');
print hidden('fecha2','$fecha2');
print submit(-name=>'done',-value=>'Enviar');
# fin de la forma del documento
print"</form>\n";
# fin del cuerpo del documento
print"</body>\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias por la ayuda.

Negrazo

por **explorer** » 2010-02-15 04:46 @240

No, el problema no es el botón de envío del formulario. El problema está en que estás llamando a la URL 'recolec04.pl?fec=$dt&CGISESSID=$CGISESSID&fecha1=$fecha1&fecha2=$fecha2'. Es decir: estás pidiendo al navegador que solicite el recurso llamado 'recolec04.pl' con una serie de argumentos. Entonces, el navegador va al servidor y éste le dice que sí que tiene un recurso llamado así, y se lo da TAL CUAL.

En otras palabras: el problema está en el lado del servidor, que no está considerando a recolec04.pl como un CGI, si no como un fichero normal.

Debes ajustar la posición del CGI para que funcione como tal. Para comprobar que está bien puesto, prueba a colocar la URL en el navegador, en la barra de dirección, de forma manual, y mira a ver qué es lo que te devuelve.

Si la solución es meterlo en la carpeta cgi-bin/ (por ejemplo), entonces ajustas el URL de llamada: 'cgi-bin/recolec04.pl?fec=$dt&CGISESSID=$CGISESSID&fecha1=$fecha1&fecha2=$fecha2'.

A propósito, curiosa la forma de mezclar código HTML con código generado por CGI.pm, en el código

Foro - Perl en Español

Aplicación web sin usar el ratón

Aplicación web sin usar el ratón

Publicidad

Re: Aplicación web sin usar el ratón

Re: Aplicación web sin usar el ratón

Re: Aplicación web sin usar el ratón

Re: Aplicación web sin usar el ratón

¿Quién está conectado?