Harupdf e boleto

[asimoes]

Caros autores do projeto,

Notei que na mensagem de instrução só é possível a impressão de uma mensagem:

Código: Selecionar todos

      i++
      ::DrawText( i,  11, oBoleto:cInstrucao, ::nFontSizeNormal)

Fiz uma modificação de teste para aceitar mais de uma linha de instrução que pode ser um vetor de mensagens.

Código: Selecionar todos

      i++
      n:=1
     FOR J:=I TO I+Len(aInstrucoes) 
         IF J < I+Len(aInstrucoes) 
            ::DrawText( j,  11, aInstrucoes[n], ::nFontSizeNormal)
            n++
         ENDIF
      NEXT

Por favor avaliem a possiblidade.

Att.

Alexandre

[JoséQuintas]

Depois que funcionou já apareceu até projeto pronto.
Não sei o que pensar.

Talvez o novo autor se lembre dos usuários Clipper do fórum, e crie um módulo que funcione independente, pra eles.

[jairfab]

Alguém conseguiu compilar com xharbour e tem as lib harupdf e hbzebra para xharbour ou seria as mesmas libs do harbour.

[HASA]

)
Bom dia, amigos anexo um pequeno pacote com as libs + CHs necessárias para compilar o projeto com xHarbour a partir da versão 1.2.0, apesar de se chamar HaruPdf a lib mesmo está com o nome de hbhpdf.lib apenas o arquivo CH tem o nome de HaruPdf.ch ok. Inclui a HbZebra e seu include.

Agora vai,
:xau

[Cristovam]

Olha! baixei as libs e chs e tentei compilar para xharbour, mas ainda tenho um erro:

Error: unresolved external '_dv_mempcy' referenced from C:\xHarbour\lib\hbZebra.lib|itf

e ai HASA vc pode me dá uma dica?

[HASA]

:-O
Bom dia, Cristovam eu uso essas libs com

xHarbour Compiler build 1.2.3 (SimpLex) (Rev. 9739)
Copyright 1999-2012, http://www.xharbour.org http://www.harbour-project.org/

Sem problemas, tente atualizar seu xHarbour para essa versão aparentemente o problema é a versão do xHarbour ok, não tenho maiores detalhes para te passar, mas... se eu estiver falando besteira algum colega logo me corrige ok.
:xau
Hasa

[Cristovam]

HASA,

Grato pela atenção:

Na verdade o problema não é bem na compilação do xHarbour, é ao linkar ocorre o erro Error: External " _dv_mempcy " aparentemente na hbzebra.lib
dando a variável ou função _dv_memcpy como externa

[HASA]

:%

Não faço mesmo ideia do que possa ser, como aqui foi tudo bem desde a primeira compilação, mas... post o erro nos foruns de xHarbour quem sabe alguem conhece o problema.
:(Neg

[Cristovam]

HASA

Eu consegui compilar com o xHarbour, mas, sempre tem um mas, não aparece o código de barra. Quando utilizo o seu demo.exe aparece mas quando compilo o demo não aparece. Será o que está acontecendo. o meu código é o seguinte:
Procedure Boleto(vReg)
Local oBoleto,oCbx,mBanco,vNdoc,vItem:=1,vBanc,vAge,cFilePdf:="MR_Boleto.PDF"
********************************************************************************
//MsgInfo("Modulo em desenvolvimento","Boleto")
//Return
oBoleto := MR_Boleto():New(cFilePdf)
If vItem==1

/*--------------------------------------------------------------------------*
BANCO DO BRASIL
*-------------------------------------------------------------------------*/
oBoleto:Banco________ := '001'
oBoleto:Banco_Agencia := '3482'
oBoleto:Banco_Ag_Dv__ := '7'
oBoleto:Banco_Ag_Un_A := ''
oBoleto:Conta________ := '90090'
oBoleto:Conta_DV_____ := '7'
oBoleto:Conta_OP_____ := ''
oBoleto:Carteira_____ := '18'
oBoleto:Carteira_Tipo := ''
oBoleto:NossoNumero__ := '62160101'
oBoleto:Doc_Origem___ := 'NFe'
oBoleto:Prefixo______ := '153454'
oBoleto:Prefixo_DV___ := '9'
oBoleto:Doc_Numero___ := '00001234'
oBoleto:Doc_Aceite___ := 'N'
oBoleto:Doc_Especie__ := 'R$'
oBoleto:Doc_Data_____ := Date()
oBoleto:Vencimento___ := Date()+29
oBoleto:Valor________ := ( 13.37 * 1 )
oBoleto:Multa_Auto___ := 2
oBoleto:Juros_Mes____ := 2
oBoleto:Numero_Vias__ := 2
oBoleto:Local_Pagamen := { "Pague em qualquer banco até o limite da data de vencimento" }
oBoleto:Instrucoes___ := { "Desconto de 5% se pago até o dia " + Tran( Date()+10, '@E' ),;
"Não receber após 30 dias da data de vencimento" }
oBoleto:Demonstrativo := { "Vetor: pode a exemplo ser utilizado para se demonstrar o rateio de despesas para condominios", '', 'Utiliza Fonte com espaçamento de tamanho fixo ( Courier ), o que permite geração de demostrativos financeiros flexiveis.', '', 'O limite é sua criatividade ', '', "Exiba detalhes importantes para o usuario", '', 'Valores em cobrança', '', 'Contratos', '', 'Informações úteis', '', 'Etc...' }
oBoleto:Cedente______ := { "Cedente: CNPJ", "Cedente: Nome", "Cedente: Endereço ( Opcional )" }
oBoleto:Sacado_______ := { "Sacado: CNPJ", "Sacado: Nome", "Sacado: Endereço Completo" }
oBoleto:Avalista_____ := { "Avalista: CNPJ", "Avalista: Nome", "Avalista: Endereço ( Opcional )" }

oBoleto:AddPage()
Endif
oBoleto:Finish()

IF FILE( cFilePdf )

Winexec("Explorer.exe " + cFilePdf )

ELSE

ALERT( 'ERRO NA GERACAO DO ARQUIVO...;;' + cFilePdf )

ENDIF
********************************************************************************
Return //Fim do proc Boleto()
********************************************************************************

[Kapiaba]

Senhores, boa tarde, compilei o DEMO do MRBOLETO, com xHarbour e FiveWin, gera o .PDF sem problemas, mas o único incoveniente, é que não aparece o Código de Barras.

O que me falta?



Obg. abs.

[HASA]

)
Olá vamos tentar novamente anexo fontes + exe + pdf + brmake.ini + boleto.mlk compilado com BRMAKE e Harbour 3.2.0dev (r1502111748).
:)Pos
HASA

[aferra]

Ola Hasa, o problema é que compilando com harbour vai de boa. com xHarbour não vai o codigo de barras.

tentei agora compilar com o harbour 3.2 e não foi então conferi as lib´s e não tenho essas

lib=PDFLIB.LIB
lib=hbvpdf.lib
lib=BosTaurus.LIB <- não sei se é necessário para o caso, porem....

se puder enviar essas lib´s agradecido.

ISSO PARA O HARBOUR, AGORA SERÁ QUE DÁ PARA COMPILAR COM O XHARBOUR?

[HASA]

)
Ok, para Harbour desconsidere as libs: PDFLIB.LIB. hbvpdf.lib, BosTaurus.LIB são para Minigui. anexei um BRMAKE.INI enxutão acerter apenas o path da instalação de seu harbour.
Infelizmente não consegui compilar com xHARBOUR deu varios erros de lib´s, o ideal para você e tentar falar com o autor do Mrboleto mesmo ok
Agora vai,
:|<
HASA

[jairfab]

Amigo eu também tive este problema com xharbour depois desistir e decidir fazer uma dll com harbour pra utilizar no xharbour, haja visto que a dll pode ser utilizada em vários sistemas diferente.

[Kapiaba]

Hasa, comparando as libs, as minhas estão mais recentes, mesmoa asim, não funciona, veja:

Forum Toledo:

Código: Selecionar todos

Pasta de C:\DOWNLOAD\Harupdf

10/10/2012  17:53            35.840 hbhpdf.lib
10/10/2012  17:53            53.248 hbzebra.lib
18/05/2011  17:42           692.736 libharu.lib
10/10/2012  17:52           153.088 png.lib

As minhas:

Código: Selecionar todos

Pasta de C:\XHB010315\lib

06/03/2015  15:04            40.960 hbhpdf.lib
06/03/2015  15:04            53.248 hbzebra.lib
06/03/2015  15:04           699.904 libharu.lib
06/03/2015  15:01           153.088 png.lib

Obg. abs.