Criar arquivo pdf.

por **braz** » 06 Ago 2015 15:04

Ola gente,

Tenho um sistema de folha de pagamento e queria enviar os holerits em formato PDF para os funcionarios.

Alguem poderia me ajudar a criar esses arquivos via programa, pois hoje ja envio os holerits em formato .TXT

Obrigado.

att

por **paiva_dbdc** » 07 Ago 2015 09:07

BOm dia

eu uso assim

xrun = [\dbdc\dosprint /PDF ] + carq
xrun = [\dbdc\dosprint /FILE /PDF ] + xfile
MyRun(xrun)

para o preview ou gravar um arq.pdf

o ideal seria gerar diretamente.

sei que tem funcoes par afazer o problema que sao complicadas(rs)

Paiva

por **braz** » 07 Ago 2015 10:20

Obrigado Paiva por responder.
Voce não esclareceu essas duas variaveis: CARQ e XFILE e essa função myrun().

Realmente o melhor é fazer utilizando a lib pdflib.LIB que ja vi comentario aqui no forum, mas não sei onde encontro essa lib, rss
O pessoal não poe link para down e no google nao achei. :?

Precisaria que alguem q entende bem do assunto, fazer um passo a passo :{

abraços

por **Kapiaba** » 07 Ago 2015 10:48

http://www.fivetechsoft.com/files/utilities/pdflib.zip

http://gnuwin32.sourceforge.net/packages/pdflib.htm

http://www.pdflib.com/products/pdflib-family/

por **Kapiaba** » 07 Ago 2015 10:51

Function MYRUN( cComando )

   ***************************
   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

      TRY
         #IFDEF __XHARBOUR__
            oShell := CreateObject( "WScript.Shell" )
         #ELSE
            oShell := Win_OleCreateObject( "WScript.Shell" )
         #ENDIF

      CATCH

         lOk:=.F.

        END
   END

   IF lOk

      TRY

          //.F. = Nao espera a aplicacao fechar, .T. espera.
          oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

      CATCH

          lOk:=.F.

      END

      oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN lOk

// Essa função não é de minha autoria, mas foi disponibilizada no Fórum do Toledo, agradecimentos ao autor...

por **Kapiaba** » 07 Ago 2015 10:58

http://www.xharbour.org/index.asp?page=product/contributions

por **Toledo** » 07 Ago 2015 11:50

braz escreveu:Realmente o melhor é fazer utilizando a lib pdflib.LIB que ja vi comentario aqui no forum, mas não sei onde encontro essa lib, rss

Dependendo da versão do seu Harbour, as LIBs já estão disponíveis, procure na pasta C:\hb32\lib\win\mingw\ as LIB: libhbhpdf.a e liblibhpdf.a

Na compilação do programa, relacione as LIBs acima, para isto use:

-llibhpdf
-lhbhpdf

Veja um exemplo do uso destas LIBs na pasta: C:\hb32\contrib\hbhpdf\tests\harupdf.prg

Abraços,

por **braz** » 07 Ago 2015 15:14

Ola Pessoal,

Consegui criar a PDFLIB.LIB.
Eu uso o editor XEDIT que tambem ja compila em xharbour 1.0.0. Eu uso console, sem nenhum grafico.

Na minha rotina de envio de holerit para os funcionarios eu crio um arquivo .rtf e imeditamente ja envia.
E agora, como faço para que minha rotina de envio de holerit por email, envie os arquivos PDF ?

Estou progredindo, falta pouco, rss

abraços

por **paiva_dbdc** » 07 Ago 2015 17:24

Boa

são os arquivos txt (impressora direcionada para arquivo)

VC gerou o hollerit já em PDF ? simples assim ?

poderia disponibilizar a rotina de geração ?

neste caso especifico arq txt funcionam sem problema o complicado é se precisar de relatorios + complexo com Fontes/ cor Imagens

ai melhor gerar já em pdf

se vc já conseguiu assim TÂO rápido (rs) se puder mandar agradeço

Eu mando PDF por email tambem s´que existema VARIAS funçoes par aissoo

poderia pegar e te passar se quizeres

cpaivasistemas@gmail.com

Paiva

por **braz** » 10 Ago 2015 08:33

Oi Paiva, eu ainda não consegui gerar os PDFs.

Estou esperando alguem me ajudar, eu consegui foi criar a pdflib atraves dos PRGs que informaram acima.

abraços

por **Kapiaba** » 10 Ago 2015 11:43

Veja se ajuda:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=pdflib.zip&can=2&q=

por **Kapiaba** » 10 Ago 2015 11:56

Um exemplo simples:

Function criapdf()

   opdf := tpdf():new('c:\pdf\meupdf.pdf')

   opdf:Pdfnewpage("A4","P")

   opdf:Pdfatsay( "OLA MUNDO!!!!!!!!!!!",800,10,.t. )

   opdf:Pdfclosepage()

   opdf:pdfclose()

return .t.

function filesize(cfile)

   LOCAL nfiles := directory(cfile)

return nfiles[1,2]

por **braz** » 10 Ago 2015 13:39

Boa tarde Kapiava,

Quando compilo sua rotinha, da um erro:

Enlazando folha.exe...
Error: Unresolved external '_HB_FUN_TPDF' referenced from E:\OFICIAL\FOLHA\NOVAFO\OBJ\FOLHA.OBJ
0 Files, 0 Warnings, 1 Errors

Quando compilo pdfhbdocs.prg, da erro:
Compilando folha.prg...
folha.prg(29652) Error E0055 Misplaced Global declaration 'LLANDSCAPE'.
folha.prg(29653) Error E0004 STATIC declaration follows executable statement
folha.prg(29654) Error E0004 STATIC declaration follows executable statement
folha.prg(29655) Error E0004 STATIC declaration follows executable statement
folha.prg(29656) Error E0004 STATIC declaration follows executable statement
folha.prg(29657) Error E0004 STATIC declaration follows executable statement
folha.prg(29658) Error E0004 STATIC declaration follows executable statement
folha.prg(29659) Error E0004 STATIC declaration follows executable statement
folha.prg(29660) Error E0004 STATIC declaration follows executable statement
folha.prg(29661) Error E0004 STATIC declaration follows executable statement
folha.prg(29662) Error E0004 STATIC declaration follows executable statement
folha.prg(29663) Error E0004 STATIC declaration follows executable statement
folha.prg(29664) Error E0004 STATIC declaration follows executable statement
folha.prg(29665) Error E0004 STATIC declaration follows executable statement
folha.prg(29666) Error E0004 STATIC declaration follows executable statement
folha.prg(29667) Error E0004 STATIC declaration follows executable statement
folha.prg(29668) Error E0004 STATIC declaration follows executable statement
folha.prg(29669) Error E0004 STATIC declaration follows executable statement
folha.prg(29670) Error E0004 STATIC declaration follows executable statement
folha.prg(29671) Error E0004 STATIC declaration follows executable statement
folha.prg(29672) Error E0004 STATIC declaration follows executable statement
folha.prg(29673) Error E0004 STATIC declaration follows executable statement
folha.prg(29674) Error E0004 STATIC declaration follows executable statement
Enlazando folha.exe...
Fatal: Unable to open file 'FOLHA.OBJ'
1 Files, 0 Warnings, 24 Errors

abçs

por **Kapiaba** » 10 Ago 2015 13:54

voce incorporou a PDFLIB.LIB ou a Classe?

por **braz** » 11 Ago 2015 09:14

Nao sei te responder, mas criei a pdflib.lib atraves do link acima disponibilizado e coloquei na pasta c:\xedit\xharbour\lib

abçs

Quem está online