FiveTech Support Forums

Alfredo,

Muchas gracias!

No se puede esperar menos de un sr. como ud. amigo Alfredo,
gracias por sus aportes.

Dear Alfredo,
Perhaps from your generation of report we can add the other functions there are on ADHOC as
1. select the fields to index
2. set the header names
3. set the title ( 3 titles)
4. set totals
5. set data group ( from 1 to 6 max)
and save all these information data on GRP file

Adelante Silvio. El código está disponible y cualquier mejora es bienvenida.

Alfredo I sent you a old test ....

Encontre otra forma de crear archivos pdf usando un programa ImageMagick.

La sintaxis es la siguiente.

FUNCTION SavePDF(oDevice)

LOCAL aFiles:={}, cImgFileName

aFiles:=oDevice:aMeta
MsgInfo(GetEnv("Temp"))
cPdfFileName:="Temp\"+oDevice:cDocument+".Pdf"
FOR nI:=1 TO Len(aFiles) // Build the pages using the array of temp files
CursorWait()
cImgFilename:=aFiles[nI]
// MsgInfo("Imagen "+cImgFileName)
WaitRun( "nconvert -out jpeg " + " -D " + cImgFileName, 0 )
NEXT nI
WaitRun("G:\Util\ImageMagick6582\convert "+GetEnv("Temp")+"*.jpeg "+Alltrim(cPdfFileName),0)
CursorArrow()
IF !File(cPdfFileName)
MsgInfo("No se generó el archivo PDF.","Información!")
ELSE
ShellExecute(,"Open",cPdfFileName,"",".\",.T.)
ENDIF

Return Nil

Es todo

Atte
Manuel J. Morales Q.
Lima Peru

Despues de realizar pruebas logre mejorar la calidad de la imagen en el archivo pdf

Esta funcion se debe agregar a Tpreview igual que en el caso de image2pdf

FUNCTION SavePDF(oDevice)

LOCAL aFiles:={}, cImgFileName

aFiles:=oDevice:aMeta
cPdfFileName:="Temp\"+oDevice:cDocument+".Pdf"
WaitRun("convert "+GetEnv("Temp")+"*.emf "+Alltrim(cPdfFileName),0)
CursorArrow()
IF !File(cPdfFileName)
MsgInfo("No se generó el archivo PDF.","Información!")
ELSE
ShellExecute(,"Open",cPdfFileName,"",".\",.T.)
ENDIF

Return Nil