FoxPro/Visual FoxPro - SUCESO CLICK BOTÓN BUSCAR REGISTRO

   
Vista:

SUCESO CLICK BOTÓN BUSCAR REGISTRO

Publicado por Fran (10 intervenciones) el 13/02/2012 13:30:45
Hola buenos días. Me gustaría saber si alguien me puede informar el código que tengo que poner
en el botón de comando para que me busque registros en una tabla. Se agradecería que se pusiera el código completo. Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

SUCESO CLICK BOTÓN BUSCAR REGISTRO

Publicado por alberto (399 intervenciones) el 15/02/2012 13:35:57
propiedad interactivechange del cuadro de texto a buscar

LOCAL lc, lnRecno
SELECT Articulo
if THISFORM.optiongroup1.option1.value= 1
set order to codint
endif
if THISFORM.optiongroup1.option2.value= 1
set order to desartic
endif

*SET ORDER TO DESARTIC
lc = ALLT(THIS.VALUE)
* IF NOT EMPTY(ORDER()) && busqueda con indice
* if ISDIGIT(lc)
* set order to codart
* endif
set near on
SEEK lc
* ENDIF
THISFORM.grdarticulo.SETFOCUS && el nombre del TextBox
THISFORM.text1.SETFOCUS && el nombre del Grid
RETURN
*--- END InteractiveChange ---
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

SUCESO CLICK BOTÓN BUSCAR REGISTRO

Publicado por Fran (10 intervenciones) el 16/02/2012 10:48:39
Muchas gracias por la respuesta, me ha sido de gran ayuda. Otra cosa quería preguntar, cuando listo un reporte la barra no se queda arriba del todo, toca hacer doble click para que se quede arriba. ¿Hay alguna instrucción para que quede arriba por defecto?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

SUCESO CLICK BOTÓN BUSCAR REGISTRO

Publicado por alberto (399 intervenciones) el 17/02/2012 19:15:06
mira este ejemplo
DEFINE WINDOW lw_Report FROM 0,0 TO SROWS(), ;
SCOLS() In SCREEN TITLE "Reporte Histórico de ventas " ;
SYSTEM CLOSE NAME oPreview
ZOOM WINDOW lw_Report MAX
KEYBOARD '{CTRL+F10}' PLAIN CLEAR
REPORT FORM \INFORMES\HISTORIA PREVIEW NOEJECT NOCONSOLE WINDOW lw_Report
DEACTIVATE WINDOWS lw_Report
RELEASE WINDOWS lw_Report

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

SUCESO CLICK BOTÓN BUSCAR REGISTRO

Publicado por Fran (10 intervenciones) el 20/02/2012 09:04:05
Hola Alberto buenos días, muchas gracias por tu pronta respuesta. Soy nuevo en esto y "pico" un poquito de aquí, un poquito de allí y así voy construyendo la aplicación. Te paso el código que tengo en el suceso click del formulario, y si eres tan amable "me lo encajas" ¿vale?.

SELECT Transitario.transitari, Transitario.fobalicant,;
Transitario.fobvalenci, Transitario.notas;
FROM ;
transitario;
WHERE Transitario.transitari = thisform.combo1.Value;
ORDER BY Transitario.transitari;
INTO CURSOR consultafob
SELECT consultafob
IF consultafob.fobalicant = 0 AND consultafob.fobvalenci = 0 THEN
= messagebox("No hay datos con los registros indicados","Mensaje del programa")
ELSE
REPORT FORM "f:\usuarios\fran.navarro\documents\fran\naviera\fobtransitario.frx" TO PRINTER PROMPT NODIALOG PREVIEW
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar