Estimado Andres Rueda:
Use tu código para convertir un reporte de vfoxpro 9 en PDF, en mi PC correo Fenomenal,
Pero cuando lo instalad en un servidor y lo ejecutan desde una estacion la factura sale sin la imagen del Logo de la empresa, cosa que no pasa cuando lo ejectuo en mi PC.
Que puede ser....este es mi codigo:
SELECT xbolet52
IF SUBSTR(xdocu, 1, 1)="F"
SET ENGINEBEHAVIOR 90
REPORT FORM rptFactura_ELECTRONIA_NEGOTRAL NOCONSOLE PREVIEW
REPORT FORM rptFactura_ELECTRONIA_NEGOTRAL TO PRINTER PROMPT NOCONSOLE
DO FOXYPREVIEWER.APP
_Screen.oFoxyPreviewer.lRepeatInPage = .T.
&&Ejecuto el reporte para ser generado en pdf
REPORT FORM "rptFactura_ELECTRONIA_NEGOT2.frx" TO FILE ALLTRIM(XARCHIVO_PDF_A_CREAR) OBJECT TYPE 10
DO FOXYPREVIEWER.APP WITH "Release"
SET ENGINEBEHAVIOR 70
ELSE
SET ENGINEBEHAVIOR 90
REPORT FORM rptBoleta_ELECTRONIA_NEGOTRAL NOCONSOLE PREVIEW
REPORT FORM rptBoleta_ELECTRONIA_NEGOTRAL TO PRINTER PROMPT NOCONSOLE
DO FOXYPREVIEWER.APP
_Screen.oFoxyPreviewer.lRepeatInPage = .T.
&&Ejecuto el reporte para ser generado en pdf
REPORT FORM "rptBoleta_ELECTRONIA_NEGOTRAL.frx" TO FILE ALLTRIM(XARCHIVO_PDF_A_CREAR) OBJECT TYPE 10
DO FOXYPREVIEWER.APP WITH "Release"
SET ENGINEBEHAVIOR 70
ENDIF
thisform.cmdsalir.enabled = .T.
thisform.deshabilitatexto()
SELECT xbolet52
USE
SELECT venta1
Mi cel 966-806634, cualquier ayuda o comentario es de valor para mi.
gracias