FoxPro/Visual FoxPro - Lanzar informe con F10 desde cualqueir sitio.

   
Vista:

Lanzar informe con F10 desde cualqueir sitio.

Publicado por Juan Miguel Solis solis.juanmiguel@gmail.com (79 intervenciones) el 23/11/2013 12:52:31
Hola A todos

Avr si alguien puede echarme un amnao, proqu eesto nunlo he tenido que hacer :) :)

Tengo un aplicacion que he pasado a VFP 6 (estoy en proceso de pasarlo a VFP 9), el caso es que ahroa necesito con un tecla de funcion ejecutar un informe este en cualquier formulario..

Ya se que el el evento KeyPress puedo hacerlo, pero esto me obligaria a poner en cada KeyPress de cada formulario controlar en el Keypress el lanzar el listado con F10.

En mi prg pincipal, al final lanzo el menu...

DO C:\VFP6\GESTPV\menus\MENU.MPR
READ EVENTS

Bueno pues como puedo hacer para que pulsando F10, a partir de aqui en cualquier sitio se lanze un informe....

Gracias anticipadas.

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

Lanzar informe con F10 desde cualqueir sitio.

Publicado por Fidel José (558 intervenciones) el 24/11/2013 13:45:23
Puedes hacerlo con ON KEY LABEL
Te tiro un ejemplo de cómo funciona. No tengo idea de cómo surgen tus listados, pero ahí tenés cómo acceder a los formularios.
Si los listados surgen de métodos de formularios, desde el procedure prvf10 sería:
oform.MiMetodo()
Si quieres examinar a través de la ventana de comandos, debes declarar
PUBLIC OFORM
Abres el programa en modo interactivo, llamas a un formulario, luego [F10] y en la ventana de comandos escribes oform. y te mostrará todas las propiedades del form activo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ON KEY LABEL F10 DO PRVF10
DO C:\VFP6\GESTPV\menus\MENU.MPR
READ EVENTS
 
**************************
PROCEDURE PRVF10
**************************
LOCAL lcINfo
oform=Null
lcInfo="No hay Formulario Activo"
nforms=_Screen.FormCount
IF nForms>0
	oform=_screen.Forms[1]
	lcInfo="Formulario "+oform.name
ENDIF
MESSAGEBOX("Tecla F10 "+lcInfo)
ENDPROC
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