PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Criar arquivo pdf.

https://pctoledo.org/viewtopic.php?t=16395

Página 1 de 3

Criar arquivo pdf.

Enviado: 06 Ago 2015 15:04
por 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

Criar arquivo pdf.

Enviado: 07 Ago 2015 09:07
por 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

Criar arquivo pdf.

Enviado: 07 Ago 2015 10:20
por 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

Criar arquivo pdf.

Enviado: 07 Ago 2015 10:48
por Kapiaba
http://www.fivetechsoft.com/files/utilities/pdflib.zip

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

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

Criar arquivo pdf.

Enviado: 07 Ago 2015 10:51
por 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...

Criar arquivo pdf.

Enviado: 07 Ago 2015 10:58
por Kapiaba
http://www.xharbour.org/index.asp?page= ... tributions

Criar arquivo pdf.

Enviado: 07 Ago 2015 11:50
por Toledo
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,

Criar arquivo pdf.

Enviado: 07 Ago 2015 15:14
por 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

Criar arquivo pdf.

Enviado: 07 Ago 2015 17:24
por 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

Criar arquivo pdf.

Enviado: 10 Ago 2015 08:33
por 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

Criar arquivo pdf.

Enviado: 10 Ago 2015 11:43
por Kapiaba
Veja se ajuda:

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

Criar arquivo pdf.

Enviado: 10 Ago 2015 11:56
por 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]

Criar arquivo pdf.

Enviado: 10 Ago 2015 13:39
por 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

Criar arquivo pdf.

Enviado: 10 Ago 2015 13:54
por Kapiaba
voce incorporou a PDFLIB.LIB ou a Classe?

Criar arquivo pdf.

Enviado: 11 Ago 2015 09:14
por 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
Todos os horários são UTC-03:00
Página 1 de 3

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB