Exemplo em Harbour Boleto

jfaguiar · March 4, 2015

Olá Amigos.

Alguém tem um exemplo de harbour boleto?

Baixei em dicas, mas estou bem perdido.

Eu vou precisar exclusivamente da parte que imprime o boleto. As demais opções, como geração do CNAB, baixa do pagamento pelo arquivo de retorno, tudo isso eu já tenho pronto.

Se alguém, souber qual fonte tenho que acrescentar ao meu projeto e se tiver algum exemplo, vai me ser muito útil.

Desde já agradeço

kapiaba · March 4, 2015

http://fivewin.com.br/index.php?/topic/20614-mrboleto-boleto-bancario-em-harbour-hbhpdf-e-hb/

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=11383

http://fivewin.com.br/index.php?/topic/21266-emissao-de-boletos/

http://sourceforge.net/directory/language:xbaseclipper/os:windows/freshness:recently-updated/

https://br.groups.yahoo.com/neo/groups/hwguibr/search/messages?advance=true&am=CONTAINS&at=email:ronmes@&dm=IS_ANY&fs=false&count=10

jfaguiar · March 12, 2015

Olá Kapiaba.

Poxa cara esse mrboleto é show mas nem sequer consegui compilá-lo junto com meu sistema em Fivewin 13.07 + xHarbour.

Já o harbourboleto, eu consegui compilar, mas simplesmente não imprime nada.

Você não teria algun exemplo da mrboleto ou harbour boleto rodando em xharbour?

Obrigado

kapiaba · March 12, 2015

Olá João, infelizmente não tenho não. Mas se você quiser, ZIP o projeto em xHarbour e me envie no joao@pleno.com.br que eu tento compilar aqui com FWH13.06, para ver se entendo os erros.

abs.

jfaguiar · March 13, 2015

Obrigado João.

Estou te enviando.

kapiaba · March 13, 2015

João... BABA!!! KKKKKKKKKKKKKKKK, Vê se tá bom pra você:

abs.

kapiaba · March 13, 2015

LIBS que devem se incluidas no projeto:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26078&p=142922&hilit=HARUPDF#p142922

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

abs.

kapiaba · March 13, 2015

Notei que a imagem do Código de Barras, não aparece no boleto, falta alguma cousa?



   //*-------------------------------------------------------------------------*

   // IMAGEM DO CÓDIGO DE BARRAS

   //*-------------------------------------------------------------------------*

   ::hZebra_______ := hb_zebra_create_itf( ::Cod_Barras___, HB_ZEBRA_FLAG_WIDE2_5 )

   IF ( ::hZebra_______ != NIL )


      IF hb_zebra_geterror( ::hZebra_______ ) == 0

         ::Draw_Zebra( aPos[ Page_Left_____ ] + ( ::Page_Width___ * 0.010 ), ( ::Page_Height__ * 0.060 ), 0.40, -( ::Page_Height__ * 0.045 ) )

      ELSE

         ? "Error em Mrboleto.prg linha 1142: ", hb_zebra_geterror( ::hZebra_______ )

      ENDIF


   ENDIF

abs

kapiaba · March 13, 2015

Eu fiquei na dúvida, se o MRBOLETO é para xHarbour. Quem sabe me dizer?

https://github.com/MRonaldo/MR-Tools/downloads

Abs

kapiaba · March 13, 2015

A imagem do banco ele já pega, mas o código de barras, nada.

abs

HASA · March 14, 2015

Bom dia, Kapi volta lá http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=13472&start=45

HASA

Rogerio Figueira · March 16, 2015

João, MrBoleto roda com xHarbour sim.

Estou usando ele, tranquilo.

[]´s

kapiaba · March 16, 2015

João, MrBoleto roda com xHarbour sim.

Estou usando ele, tranquilo.

[]´s

Rogério, compilar, compila e roda de boa, mas como é que você faz para GERAR O CÓDIGO DE BARRAS com xHarbour, conforme o HASA, em HARBOUR gera de boa, mas com xHarbour, ele não conseguiu e não quero usar HARBOUR. abs.

marcioe · March 16, 2015

Uma dúvida pessoal, e quanto ao arquivo de remessa.

Tem que gerar no braço...

Rogerio Figueira · March 16, 2015

João, veja aqui a solução:

http://fivewin.com.b...e-2#entry263917

[]´s

Rogerio Figueira · March 16, 2015

Marcio, o arquivo remessa fiz no braço para itau, bradesco e santander.

É fácil, tem que pegar os manuais e ir seguindo.

Como depende do banco de de dados de cada um e das preferencias de cada usuário, acho melhor fazer no braço e personalizado.

[]´s

marcioe · March 16, 2015

Esse parece ser simples de implementar. é bom ter mais de uma opção.

kapiaba · March 16, 2015

Rogério, gera erro aqui:



   //*-------------------------------------------------------------------------*

   // IMAGEM DO CÓDIGO DE BARRAS

   //*-------------------------------------------------------------------------*

   ::hZebra_______ := hb_zebra_create_itf( ::Cod_Barras___, HB_ZEBRA_FLAG_WIDE2_5 )

   IF ( ::hZebra_______ != NIL )


      IF hb_zebra_geterror( ::hZebra_______ ) == 0

     //  ::Draw_Zebra( aPos[ Page_Left_____ ] + ( ::Page_Width___ * 0.010 ), ( ::Page_Height__ * 0.060 ), 0.40, -( ::Page_Height__ * 0.045 ) )

         ::Draw_Zebra( aPos[ Page_Left_____ ] + ( ::Page_Width___ * 0.010 ), ( ::Page_Height__ * 0.160 ), 0.40, -( ::Page_Height__ * 0.045 ) )

      ELSE

         ? "Error", hb_zebra_geterror( ::hZebra_______ )  // gera erro aqui

      ENDIF


   ENDIF

Obg. Abs

Rogerio Figueira · March 16, 2015

Eu mandei a classe que uso no seu e-mail

Tente com ela.

Se ainda tiver erro, deve ser ref. alguma lib.

[]´s

aferra · March 16, 2015

é no method mestre, linha 1650, funcionou perfeitamente. Obrigado Rogerio



Method Draw_Zebra() Class MR_Boleto


   IF hb_zebra_GetError( ::hZebra_______ ) != 0

      RETURN HB_ZEBRA_ERROR_INVALIDZEBRA

   ENDIF


   hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, 30, 10, 0.4, 40   )

//hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, )


   HPDF_Page_Fill( ::oPage )


   Return NIL

kapiaba · March 16, 2015

Rogério, estou usando a sua Classe, só mudei o local dos .CH



#include "hbclass.ch"

#include "C:\MRBOLETO\harupdf.ch"

#include "C:\MRBOLETO\hbzebra.ch"



//Method Draw_Zebra( ... ) Class MR_Boleto

Method Draw_Zebra() Class MR_Boleto



   IF hb_zebra_GetError( ::hZebra_______ ) != 0

      RETURN HB_ZEBRA_ERROR_INVALIDZEBRA

   ENDIF


   //hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, ... )

 //hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, 50, 10, 0.4, 40   )

   // Rogerio Figueira enviou em: 16/03/2015

   hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, 30, 10, 0.4, 40   )


   HPDF_Page_Fill( ::oPage )


   Return NIL

Mostre as LIBS que você usa para eu comparar com as minhas.

Obg. abs.

Rogerio Figueira · March 16, 2015

Estou usando tudo isto:

LIBFILES = E:\FWH13\lib\Fivehx.lib \
E:\FWH13\lib\FiveHC.lib  \
E:\XHARBOUR13\lib\rtl.lib \
E:\XHARBOUR13\lib\vm.lib \
E:\XHARBOUR13\lib\gtgui.lib \
E:\XHARBOUR13\lib\lang.lib \
E:\XHARBOUR13\lib\macro.lib \
E:\XHARBOUR13\lib\rdd.lib \
E:\XHARBOUR13\lib\dbfntx.lib \
E:\XHARBOUR13\lib\dbfcdx.lib \
E:\XHARBOUR13\lib\dbffpt.lib \
E:\XHARBOUR13\lib\hbsix.lib \
E:\XHARBOUR13\lib\debug.lib \
E:\XHARBOUR13\lib\common.lib \
E:\XHARBOUR13\lib\pp.lib \
E:\XHARBOUR13\lib\pcrepos.lib \
E:\XHARBOUR13\lib\ct.lib \
E:\XHARBOUR13\lib\zlib.lib \
E:\XHARBOUR13\lib\hbzip.lib \
E:\XHARBOUR13\lib\haru\hbhpdf.lib \
E:\xHARBOUR13\lib\haru\hbzebra.lib \
E:\xHARBOUR13\lib\haru\libharu.lib \
e:\xHarbour13\lib\tip.lib \
E:\XHARBOUR13\lib\haru\png.lib \
E:\BORLAND\bcc582\lib\cw32.lib \
E:\BORLAND\bcc582\lib\import32.lib \
E:\BORLAND\bcc582\lib\uuid.lib \
E:\BORLAND\bcc582\lib\psdk\odbc32.lib \
E:\BORLAND\bcc582\lib\psdk\rasapi32.lib \
E:\BORLAND\bcc582\lib\psdk\nddeapi.lib \
E:\BORLAND\bcc582\lib\psdk\msimg32.lib \
E:\BORLAND\bcc582\lib\psdk\psapi.lib \
E:\BORLAND\bcc582\lib\psdk\iphlpapi.lib \
E:\BORLAND\bcc582\lib\psdk\wininet.lib

kapiaba · March 16, 2015

Não me falta nenhuma LIB, somente o código não gera, da ERROR 1.



C:\bcc582\lib\c0w32.Obj              +

TesteMrboleto.obj                    +

imprimemrb.obj                       +

mrboleto.obj,                        +

TesteMrboleto.Exe,                   +

TesteMrboleto.Map,                   +

C:\FWH1306\lib\FiveHX.Lib            +

C:\FWH1306\lib\FiveHC.Lib            +

C:\XHB010315\lib\hbzip.Lib           +

C:\XHB010315\lib\zlib.Lib            +

C:\XHB010315\lib\rtl.Lib             +

C:\XHB010315\lib\vm.Lib              +

C:\XHB010315\lib\gtgui.Lib           +

C:\XHB010315\lib\lang.Lib            +

C:\XHB010315\lib\macro.Lib           +

C:\XHB010315\lib\rdd.Lib             +

C:\XHB010315\lib\dbfntx.Lib          +

C:\XHB010315\lib\dbfcdx.Lib          +

C:\XHB010315\lib\dbffpt.Lib          +

C:\XHB010315\lib\debug.Lib           +

C:\XHB010315\lib\common.Lib          +

C:\XHB010315\lib\tip.Lib             +

C:\XHB010315\lib\pp.Lib              +

c:\XHB010315\lib\hbsix.lib           +

C:\XHB010315\lib\codepage.Lib        +

c:\XHB010315\lib\libmisc.lib         +

C:\XHB010315\lib\PcRepos.Lib         +

C:\XHB010315\Lib\ct.Lib              +

C:\XHB010315\Lib\hbhpdf.lib          +

C:\XHB010315\Lib\hbzebra.Lib         +

C:\XHB010315\Lib\libharu.lib         +

C:\XHB010315\Lib\png.Lib             +

C:\Bcc582\lib\cw32.Lib               +

c:\bcc582\lib\uuid.lib               +

c:\bcc582\lib\ws2_32.lib             +

C:\Bcc582\lib\psdk\msimg32.Lib       +

C:\Bcc582\lib\psdk\odbc32.Lib        +

C:\Bcc582\lib\psdk\rasapi32.Lib      +

C:\Bcc582\lib\psdk\nddeapi.Lib       +

C:\Bcc582\lib\psdk\psapi.Lib         +

c:\bcc582\lib\psdk\gdiplus.lib       +

C:\Bcc582\lib\psdk\iphlpapi.Lib      +

c:\bcc582\lib\psdk\shell32.lib       +

C:\bcc582\lib\psdk\wininet.lib       +

C:\Bcc582\lib\import32.Lib

Obg. abs.

Rogerio Figueira · March 16, 2015

Atualize as libs haru, estou usando estas

http://stonesoft.com.br/hb/Harupdf.zip

kapiaba · March 16, 2015

Atualize as libs haru, estou usando estas

http://stonesoft.com.br/hb/Harupdf.zip

Rogério, este trem sismou com a minha cara... kkkkkkkkkkkkkk

usando a sua:

#include "hbclass.ch"
#include "C:\HARUPDF\harupdf.ch"
#include "C:\HARUPDF\hbzebra.ch"

C:\HARUPDF\hbhpdf.lib                +
C:\HARUPDF\hbzebra.Lib               +
C:\HARUPDF\libharu.lib               +

Lembrando, que estou usando a última versão xHarbour de 06/03/2015 bcc582 e as minhas libs, são mais modernas que as sua.

Trem dificil sô...

Obg. abs.

Exemplo em Harbour Boleto

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

jfaguiar

jfaguiar

jfaguiar

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation