Criar arquivo pdf.

[braz]

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

[paiva_dbdc]

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

[braz]

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

[Kapiaba]

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

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

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

[Kapiaba]

Código: Selecionar todos

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...

[Kapiaba]

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

[Toledo]

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,

[braz]

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

[paiva_dbdc]

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

[braz]

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

[Kapiaba]

Veja se ajuda:

https://code.google.com/p/fivewin-contr ... p&can=2&q=

[Kapiaba]

Um exemplo simples:

Código: Selecionar todos

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]

[braz]

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

[Kapiaba]

voce incorporou a PDFLIB.LIB ou a Classe?

[braz]

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

abçs