quarta-feira, 27 de novembro de 2013

Gerar arquivo PDF Datasul Progress



DEF VAR c-programa    AS CHAR INIT "".
DEF VAR c-file-exe    AS CHAR INIT "u:\datasul\ems204\interfac\pdf\txt2pdf.exe".
DEF VAR c-arq-entrada AS CHAR INIT "c:\datasul\work\pedido.txt".
DEF VAR c-arq-saida   AS CHAR INIT "c:\datasul\work\teste.pdf".
DEF VAR c-parametros  AS CHAR INIT "-oao -ptc0 -pfs6 -ptm30 -pbm30".


PROCEDURE WinExec EXTERNAL "kernel32.dll":
  DEF INPUT  PARAM prg_name                          AS CHARACTER.
  DEF INPUT  PARAM prg_style                         AS SHORT.
END PROCEDURE.

ASSIGN c-programa = c-file-exe + " " +
                    c-arq-entrada + " " +
                    c-arq-saida + " " +
                    c-parametros.

RUN winexec (INPUT c-programa, INPUT 1).

Nenhum comentário:

Postar um comentário