Gerar/crear "PDF RICO"

[Yuri]

Olá amigos Coboleiros,

Necessito gerar um arquivo.pdf num servidor via linha de comando sem abrir a interface do usuário ou seja não pode ser usada uma impressora PDFCREATOR (por exemplo).

Quero integrar a minha aplicação COBOL com um servidor PHP que sempre buscará pelo arquivo.pdf em c:/apache/htdocs/sistema/arquivo.pdf.

Gostaria da indicação de vocês, pois preciso gerar um arquivo.pdf "rico" pois deverá conter bordas e imagens, trata-se de um formulário de ficha de cliente com foto.

Aguardo suas recomendações, desde já eu agradeço pela ajuda, muito obrigado.

Yuri Romanov
RM/Cobol Fujitsu Cobol
Porto Alegre/RS/Brasil

[Gusaiello]

Hola @Yuri.
Esto lo hago en ACU Cobol, espero te sirva.


*ESTO LO USO PARA IMPRIMIR UNA FACTURA.
*PDFCREATOR COMO DESDE LÍNEA DE COMANDOS.

SPECIAL-NAMES.
copy "Word.def".
copy "pdfcreator.def".
.

WORKING-STORAGE SECTION.
77 PDF-cre handle of CLSPDFCREATOR.
77 PDF-OPT handle of CLSPDFCREATOROPTIONS.


PROCEDURE DIVISION.
IF CHOSEN-PRINTER = "PDFCreator"

*ARMO UN NOMBRE DE ARCHIVO CON LOS DATOS DE LA FACTURA

STRING NOMBRE-CLI DELIMITED BY " "
"-"
LETFAC-CRE
"-"
SUCFAC-CRE
"-"
NUMFAC-CRE
".PDF" DELIMITED BY SIZE INTO NOMBRE-ARCHIVO
END-STRING

*EL PDF SE GUARDA EN UNA CARPETA (SI NO EXISTE LA CREO EN ESTE MOMENTO)
MOVE 1 TO COPIAS
MOVE SPACES TO CARPETA-FACTURAS
STRING UNIDIR
CLIDIR
"FACTURAS" DELIMITED BY SIZE INTO CARPETA-FACTURAS
CALL "C$MAKEDIR" USING CARPETA-FACTURAS

*CONFIGURO PDFCREATOR PARA AUTOGUARDADO CON LOS DATOS : NOMBRE DE ARCHIVO Y CARPETA

create @CLSPDFCREATOR OF PDFCREATOR handle in PDF-cre
create @CLSPDFCREATOROPTIONS OF PDFCREATOR
handle in PDF-OPT
MODIFY PDF-cre, cSTART("NoprocessingAtStartup",0)
modify pdf-CRE, @cOption("Useautosave",1)

MOVE SPACES TO ADJUNTO
STRING CARPETA-FACTURAS DELIMITED BY SPACE
""
NOMBRE-ARCHIVO DELIMITED BY SIZE INTO ADJUNTO

modify pdf-CRE, @cOption("autosavedirectory",
CARPETA-FACTURAS)
modify pdf-CRE, @cOption("autosaveFilename",
NOMBRE-ARCHIVO)
modify pdf-CRE, @cOption("autosaveFormat",0)
modify pdf-CRE, @cOption("AutosaveStartStandardProgram",0)

modify pdf-CRE, @cClearCache()
END-IF.

* A partir de aca la impresión se maneja normalmente como si fuera una impresora cualquiera
* y al finalizar la impresión cierro PDFCreator y aviso al usuario.

IF CHOSEN-PRINTER = "PDFCreator"
DISPLAY MESSAGE "La factura ha sido guardada en la carpet"
"a : " CARPETA-FACTURAS H"0A"
"Con el nombre : " NOMBRE-ARCHIVO
END-IF.



** La variable ADJUNTO se usa si el .pdf se quiere enviar por correo.