jfaguiar Posted March 4, 2015 Report Share Posted 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 Ronaldbuch 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 4, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted March 12, 2015 Author Report Share Posted 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 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 12, 2015 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted March 13, 2015 Author Report Share Posted March 13, 2015 Obrigado João. Estou te enviando. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2015 Report Share Posted March 13, 2015 João... BABA!!! KKKKKKKKKKKKKKKK, Vê se tá bom pra você: abs. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2015 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2015 Report Share Posted March 13, 2015 A imagem do banco ele já pega, mas o código de barras, nada. abs Quote Link to comment Share on other sites More sharing options...
HASA Posted March 14, 2015 Report Share Posted March 14, 2015 Bom dia, Kapi volta lá http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=13472&start=45 HASA Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted March 16, 2015 Report Share Posted March 16, 2015 João, MrBoleto roda com xHarbour sim. Estou usando ele, tranquilo. []´s Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 16, 2015 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 16, 2015 Report Share Posted March 16, 2015 Uma dúvida pessoal, e quanto ao arquivo de remessa. Tem que gerar no braço... Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted March 16, 2015 Report Share Posted March 16, 2015 João, veja aqui a solução: http://fivewin.com.b...e-2#entry263917 []´s Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted March 16, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 16, 2015 Report Share Posted March 16, 2015 Esse parece ser simples de implementar. é bom ter mais de uma opção. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 16, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted March 16, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
aferra Posted March 16, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 16, 2015 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted March 16, 2015 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 16, 2015 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted March 16, 2015 Report Share Posted March 16, 2015 Atualize as libs haru, estou usando estas http://stonesoft.com.br/hb/Harupdf.zip Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 16, 2015 Report Share Posted 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. jfaguiar 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.