FoxPro/Visual FoxPro - Problema con FoxyPreviewer e Imagenes

 
Vista:

Problema con FoxyPreviewer e Imagenes

Publicado por Myriam (4 intervenciones) el 16/09/2020 23:29:16
Hola,
Estoy usando FoxyPreviewer con reportes que tienen imagenes. Si tengo el vfp9 instalado funciona bien pero cuando lo ejecuto en una pc que solo tiene las librerías, la imagen no sale.

Mi código es:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
parameters tcnombrefrx, tcnombrepdf
#define key_enter             chr(13)
#define msg_icono_error       16
#define msg_icono_informacion 64
 
local llresultado, loinforme
llresultado = .f.
 
LOCAL loinforme as "PreviewHelper" OF "FoxyPreviewer.App"
loinforme = createobject("PreviewHelper")
 
IF !EMPTY(PUBLI_FoxyPreview) AND vartype(loinforme) == "O" then
	WITH _Screen.oFoxyPreviewer
		.cLanguage = 'ESPAÑOL'
		.lPrinted = .T.
	ENDWITH
	set reportbehavior 90
 
	tcnombrefrx = alltrim(tcnombrefrx)
	tcnombrepdf = alltrim(tcnombrepdf)
	tcnombrepdf = tcnombrepdf + iif(right(tcnombrepdf, 4) <> ".PDF", ".PDF", "")
	try
		llresultado = .t.
		report form (tcnombrefrx) object type 10 to file (tcnombrepdf) preview
	catch
		llresultado = .f.
	endtry
 
ENDIF
loinforme = .null.
release loinforme

Si agrego el FoxyGetImage.prg al proyecto me sale el error "Error Interno".
Agradecería mucho si me pueden ayudar.

Myriam
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