Estimados amigos.
En febrero me dieron una ayuda con el código siguiente para hacer una vista previa de un reporte, el cual funciona muy bien.
El problema es que después de crear el exe. no funciona, me da un error: archivo no existe.
Y luego dice loPreview no es un objeto. ¿donde está el problema?
El programa sin embargo funciona bien en modo de diseño.
Uso VFP9 no tengo ningún SP instalado.
Este es el código utilizado:
SET REPORTBEHAVIOR 90
LOCAL loPreview
loPreview = NULL
DO (_REPORTPREVIEW) WITH loPreview
loPreview.CanvasCount = 2
loPreview.ZoomLevel = 2 && 25% ZoomLevel 4 es 75%
loPreview.Width = 800
loPreview.ToolbarIsVisible = .T.
loListener = CreateObject ( "ReportListener")
loListener.PreviewContainer = loPreview
lolistener.ListenerType = 1
IF RECCOUNT()>0
REPORT FORM "c:\administracion\reportes\facturas_pendientesxcobrar.frx" OBJECT loListener
ELSE
cMensaje=" No hay Facturas pendientes por cobrar" +;
CHR(13)+"Todos los Clientes han pagado"
MESSAGEBOX(cMensaje,0+64,"No hay Facturas pendientes por cobrar")
ENDIF
Muchas gracias por el apoyo que siempre me han brindado.
Saludos:
Elides Paredes.
Barquisimeto Venezuela