Post
by andyglezl » Sat Dec 01, 2012 7:15 pm
Hola de nuevo
Estoy tratando de generar archivos a PDF.
Con este codigo, me despliega los siguientes mensajes de error:
--------------------------------------------------------------------
Hello again
I am trying to generate PDF files.
With this code, I displayed the following error messages:
--------------------------------------------------------------------
FUNCTION GenPDFCte( cCte, cNomCte )
LOCAL lSuccess := .f. ; cLB := chr( 10 )
SELECT HPDFDOC cCte+" Edo.Cta.pdf" TO lSuccess papersize HPDF_PAPER_LETTER
SET HPDFDOC COMPRESS ALL
SET HPDFDOC PERMISSION TO READ <--------------- Si comento estas 2 lineas - If I comment these 2 lines
SET HPDFDOC PERMISSION TO PRINT <--------------- no aparecen los mensaje... - message does not appear ...
*SET HPDFDOC PAGEMODE TO OUTLINE
SET HPDFINFO AUTHOR TO "AGL"
SET HPDFINFO CREATOR TO "CADES"
SET HPDFINFO TITLE TO "Estado de Cuenta del Cliente: "+cCte
SET HPDFINFO SUBJECT TO "Estado de Cuenta desde el Sistema CADES"
SET HPDFINFO KEYWORDS TO "Estado, Cuenta, CADES, LibHaru, Harbour, MiniGUI"
SET HPDFINFO DATECREATED TO date() TIME time()
IF lSuccess
START HPDFDOC
<--------------- Los mismos mensajes si lo pongo aqui... - The same messages if I put it here ...
START HPDFPAGE
Print_HeaderBox( cCte, cNomCte )
@ 235,200 HPDFPRINT "This is right aligned text" FONT "Courier-Bold" SIZE 14 RIGHT
@ 245,010 HPDFPRINT '@ 250, 105 HPDFPRINT "This is center aligned text" COLOR { 255, 0, 0 } CENTER'
@ 250,105 HPDFPRINT "This is center aligned text" COLOR { 255, 0, 0 } CENTER
@ 260,010 HPDFPRINT '@ 270, 105 HPDFPRINT "This is text in bigger font size" SIZE 30 COLOR { 255, 0, 0 } '
@ 270,010 HPDFPRINT "This is text in bigger font size" SIZE 30 COLOR { 100, 0, 0 }
END HPDFPAGE
<------- Si los pongo aqui, no genera el archivo PDF... - If I put them here, does not generate the PDF ...
END HPDFDOC
ENDIF
SHELLEXECUTE( 0, "open" , cCte+"-Edo.Cta.pdf")
RETURN( Nil )
Alguna pista ? Gracias.
Any hints? Thank you.
-
Attachments
-

- Error de PDF.jpg (26.53 KiB) Viewed 13515 times
Andrés González López
Desde Guadalajara, Jalisco. México.