Vista previa me da error, pero solo en modo ejecución

50 views
Skip to first unread message

Elides Paredes

unread,
Apr 11, 2016, 10:28:36 AM4/11/16
to Comunidad de Visual Foxpro en Español
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

francisco prieto

unread,
Apr 11, 2016, 10:49:44 AM4/11/16
to Comunidad de Visual Foxpro en Español
Elides,

Si haces

DO (_REPORTPREVIEW) WITH loPreview

ReportPreview.app tiene que estar en el path sino da error... Es decir probariá con poner este archivo en el directorio de la aplicacion en modo ejecucion.

Mira este link

https://msdn.microsoft.com/en-us/library/ms994246%28v=vs.80%29.aspx

Saludos
Pancho
Córdoba
Argentina

Elides Paredes

unread,
Apr 11, 2016, 11:06:38 AM4/11/16
to Comunidad de Visual Foxpro en Español
You are the Top,,,!!

Muchas Gracias,,Amigo Pancho...

 tenía 2 días investigando, no se porque mi internet no tiene esa información,, jajaja.. (no, es un chiste) debo aprender a buscar , por tus comentarios he visto que siempre 'enseñas a pescar' Dios te bendiga..! Es que me cambia hasta el humor para bien,,

Mil gracias de nuevo.
Reply all
Reply to author
Forward
0 new messages