Clipper On Line • Ver Tópico - Usando PDFLIB.LIB do xHarbour

Usando PDFLIB.LIB do xHarbour

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Usando PDFLIB.LIB do xHarbour

Mensagempor Kapiaba » 27 Ago 2015 12:59

#include "FiveWin.ch"
#include "PdfHbDoc.ch"

Static oWnd, n

Function Main()

   Local oMenu

   MENU oMenu
      MENUITEM "My First Pdf" ACTION creapdfcc()
      MENUITEM "Exit" ACTION oWnd:End
   ENDMENU

   DEFINE WINDOW oWnd MENU oMenu
   ACTIVATE WINDOW oWnd MAXIMIZED

Return Nil

function creapdfcc()

   local dresult // :=  DEHASTA()
   local cImpdos
   local oprn
   local nsaldo := 0
   local nvalor := 0
   local z := 0
   local cPath := "C:\PDF\MEUPDF.pdf"
   local oPdf
   local ntotal := 0

   n  := 2.9

   opdf := tpdf():new(cPath)

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

   opdf:Pdfimage(".\QRCODE.jpg", cm2dpi(2.5), 0,85,66)

   opdf:Pdfatsay("QUÍMICA MEGA SA",cm2dpi( .7 ),100,.T.)

   oPdf:Pdfatsay("Matanza 1456/58",cm2dpi( 1.2 ),100,.T.)

   oPdf:Pdfatsay("Avellaneda-Pcia Bs As",cm2dpi( 1.6 ),100,.T.)

   oPdf:Pdfatsay("T.E.: 4289-2700(Rotativas)",cm2dpi( 2.0 ),100,.T.)

   oPdf:Pdfatsay(replicate("_",115),cm2dpi( 2.5 ),10,.T.)

   opdf:Pdfclosepage()
   opdf:pdfclose()

   msginfo("Archivo creado con éxito","Aviso del sistema")

   /*
   if !empty(cmail)
      correo(cMail,,("Enviamos resumen de cuenta desde " + transform(dresult[1],"@d") + " hasta " +  transform(dresult[1],"@d") ),"Resumen de cuenta", alltrim(cPath ) )
   endif
   */

   ShellExecute( oWnd:hWnd, "open", "c:\pdf\meupdf.pdf" )

return .t.

/*******************************************************************************/

function cm2dpi( nCM, page, lHeight )

   Local nHeight,nDpi := 72
   Local nRes

   if empty( lHeight )
      lHeight := .T.
   endif

   if lHeight
      nHeight := 842.0
      nRes := nHeight - ( nCM * nDpi / 2.54 )
   else
      nRes := ( nCM * nDpi / 2.54 )
   endif

return nRes


Imagem
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor lugab » 27 Ago 2015 15:22

Oi Kapiaba,

Gostei da contribuição e tenho 4 dúvidas....

1) Pra imprimir os vários campos que compoem uma linha com campos de dados usa-se também o Pdfatsay() ??
2) Se sim, como é feita a junção desses campos dentro dessa função ?
3) Qual o significado dos parametros "cm2dpi( 1.6 )" de ",100" e de ",.T.)?
     oPdf:Pdfatsay("Avellaneda-Pcia Bs As",cm2dpi( 1.6 ),100,.T.)

4) Sabe onde tem algum manual da PDFLIB ?

Parabéns e Obrigado
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor Kapiaba » 27 Ago 2015 16:37

Boa tarde Lugab, veja se te ajuda na realidade eu só estava ajudando um novato a gerar .PDF, eu uso a FLEXDOCS para gerar os meus.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=21745

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31192

Geralmente em FiveWin, cm2dpi = Centimentros.

Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor sasquast » 19 Fev 2020 12:01

Boa tarde a todos,

Onde consigo esses INCLUDES ?

#include "FiveWin.ch"
#include "PdfHbDoc.ch"

Andei baixando eles de lugares aleatórios e tem momentos que pede até protheus.ch !!!

Obrigado.
sasquast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 18
Data de registro: 31 Jul 2019 16:47
Cidade/Estado: Volta Redonda / RJ
Curtiu: 26 vezes
Mens.Curtidas: 0 vez

Usando PDFLIB.LIB do xHarbour

Mensagempor Kapiaba » 19 Fev 2020 15:09

Pasta de C:\xHarbour\lib

23/04/2005 10:52 19.111 PDFHBDOC.C
26/07/2004 05:32 959 PDFHBDOC.CH
20/11/2005 23:44 46.312 PDFHBDOC.PRG

Já o FiveWin.ch, somente comparando o FiveWin. Informações em: www.fivewin.com.br

Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor sasquast » 19 Fev 2020 15:19

Entendi. Obrigado.
sasquast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 18
Data de registro: 31 Jul 2019 16:47
Cidade/Estado: Volta Redonda / RJ
Curtiu: 26 vezes
Mens.Curtidas: 0 vez

Usando PDFLIB.LIB do xHarbour

Mensagempor Kapiaba » 19 Fev 2020 15:20

Sorry. Eu quis dizer: comprando(Fivewin é pago). Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor sasquast » 19 Fev 2020 15:54

Eu entendi o que você quis dizer, obrigado pela atenção.

Aproveitando. Sabe se tem alguma outra forma de gerar um PDF no xHarbour sem utilizar includes pagos ? A idéia é fazer rodar e caso não haja alternativas, adquirir o produto necessário.

Obrigado.
sasquast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 18
Data de registro: 31 Jul 2019 16:47
Cidade/Estado: Volta Redonda / RJ
Curtiu: 26 vezes
Mens.Curtidas: 0 vez

Usando PDFLIB.LIB do xHarbour

Mensagempor rubens » 20 Fev 2020 11:09

Bom dia...
a Harupdf não roda no Fivewin ?

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1523
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 75 vezes
Mens.Curtidas: 100 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor Kapiaba » 20 Fev 2020 14:26

Funciona sim Rubens. Veja alguns exemplos, com e sem Fivewin. Download anexo.

Abs.
Anexos
HARUPDF.rar
Exemplos de uso da HARUPDF
(2.95 MiB) Baixado 187 vezes
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1560
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 296 vezes
Mens.Curtidas: 99 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor rubens » 20 Fev 2020 17:55

Obrigado Kapiaba... :{
Eu já uso harupdf em harbour/minigui.

Eu tava respondendo ao sasquast
Sabe se tem alguma outra forma de gerar um PDF no xHarbour sem utilizar includes pagos ?

Eu só não sabia se o fivewin roda a harupd..

abçs...
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1523
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 75 vezes
Mens.Curtidas: 100 vezes

Usando PDFLIB.LIB do xHarbour

Mensagempor sasquast » 05 Mar 2020 11:52

Muito obrigado a todos, vou fazer uns testes e retorno.
sasquast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 18
Data de registro: 31 Jul 2019 16:47
Cidade/Estado: Volta Redonda / RJ
Curtiu: 26 vezes
Mens.Curtidas: 0 vez

Usando PDFLIB.LIB do xHarbour

Mensagempor sasquast » 12 Mar 2020 16:27

Pessoal,

Graças a ajuda de vocês eu estou conseguindo gerar o PDF agora, nativamente, porem estou apanhando demais com os comandos, coisas simples como, centralizar o texto, alinhar a direita, o simples fato de pular pra linha de baixo está dando trabalho quando isso está dentro de um loop onde eu não tenho como fixar a linha onde vou escrever o texto.
sasquast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 18
Data de registro: 31 Jul 2019 16:47
Cidade/Estado: Volta Redonda / RJ
Curtiu: 26 vezes
Mens.Curtidas: 0 vez




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro