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:
Si agrego el FoxyGetImage.prg al proyecto me sale el error "Error Interno".
Agradecería mucho si me pueden ayudar.
Myriam
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 64local llresultado, loinformellresultado = .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
0
