Controles de informes en tiempo de ejecución.

Prueba esta funcion, solo debes pasarle el nombre del report ...

******* Inicio funcion **********
PARAMETERS cReport
*
LOCAL sysmenuprevio
sysmenuprevio = SET("Sysmenu")
*
ON KEY LABEL ESC do Salida
*
zoom window screen max
_screen.visible = .T.
*
if int(version(5)/100) < 7
Set Sysmenu To _mfile,_medit,_mvi_toolb
else
set sysmenu TO _msm_file, _msm_edit, _msm_view, _msm_text
ENDIF
*
set sysmenu on
*
modi report &cReport
*
_screen.visible = .F.
*
SET SYSMENU TO defa
SET SYSMENU &sysmenuprevio
*
ON KEY LABEL ESC

PROCEDURE Salida
return
****** fin funcion ******

Espero que te sirva.
José A. Blasco
-
Zaragoza - España


"Gustavo" escribió en el mensaje
news:

Hola:

Cuando el programa es corriendo le pongo un boton con modi repor
pero no me sale la bara de controles de informes. Una ayudita.

Gracias


__________ Información de ESET NOD32 Antivirus, versión de la base de
firmas de virus 5101 (20100510) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com