consulta
Publicado por Fernando Pintasilgo (60 intervenciones) el 14/09/2013 03:58:12
Hola amigos. En un sistema de facturación en foxpro2.6 DOS, mi cliente me pide mejorar las consultas de artículos sin migrar a visual fox. La idea es escribir la clave a buscar en un campo y a medida que ingresan los caracteres, mostrar resultado filtrado contenido en el nombre del producto en un browse en forma simétrica, simultánea.
* Ej.
SELE PRODUCTOS.DBF
DEFI WIND w1 FROM 0,0 TO 24,79 FLOAT NOCLOSE SHADOW
ACTI WIND w1
@ 2,19 GET filtro1 SIZE 1,6 DEFA space(6) PICT '@!' when _ver()
READ CYCLE
DEAC WIND w1
FUNC _ver
BROWSE fiel nombre for UPPER(TRIM(FILTRO1)) $ UPPER(TRIM(nombre))
* EL PROBLEMA ES QUE NO PUEDO CONTROLAR EL CURSOR.
* DESEO ESCRIBIR LA CLAVE, LETRA POR LETRA Y EL RESULTADO O LA CONDICION SE MUESTRE, Y CUANDO PRESIONE ENTER EL CURSOR PASE A LA BASE ASI SELECCIONO ENTRE EL RESULTADO FILTRADO
MUCHAS GRACIAS
* Ej.
SELE PRODUCTOS.DBF
DEFI WIND w1 FROM 0,0 TO 24,79 FLOAT NOCLOSE SHADOW
ACTI WIND w1
@ 2,19 GET filtro1 SIZE 1,6 DEFA space(6) PICT '@!' when _ver()
READ CYCLE
DEAC WIND w1
FUNC _ver
BROWSE fiel nombre for UPPER(TRIM(FILTRO1)) $ UPPER(TRIM(nombre))
* EL PROBLEMA ES QUE NO PUEDO CONTROLAR EL CURSOR.
* DESEO ESCRIBIR LA CLAVE, LETRA POR LETRA Y EL RESULTADO O LA CONDICION SE MUESTRE, Y CUANDO PRESIONE ENTER EL CURSOR PASE A LA BASE ASI SELECCIONO ENTRE EL RESULTADO FILTRADO
MUCHAS GRACIAS
Valora esta pregunta


0