MRBoleto pronto para o uso.
Moderador: Moderadores
- Alexandre Silva
- Usuário Nível 3

- Mensagens: 376
- Registrado em: 26 Mar 2007 00:16
- Localização: Itapema - SC
MRBoleto pronto para o uso.
Uso o Mr Boleto BB, Bradesco , Itau, Santander
Fiz pequenas mudanças para acrescentar aqueles termos:
Beneficiário: antigo Cedente
Pagador: antigo Sacado
Agencia\Codigo do Beneficiário: antigo Agencia\Codigo do Cedente
Também 'tentei' alinhar os valores a direita, nao ficou 100% mas passou no Itau...
No Santander a linha campo_livre, nao tinha a carteria embora eu use só a 101
::Campo_Livre__ := '9' + ::Prefixo______ + ::Prefixo_DV___ + ::NossoNumero__ + + ::NossoNumer_DV + '0'+ ::Carteira_____
Fiz pequenas mudanças para acrescentar aqueles termos:
Beneficiário: antigo Cedente
Pagador: antigo Sacado
Agencia\Codigo do Beneficiário: antigo Agencia\Codigo do Cedente
Também 'tentei' alinhar os valores a direita, nao ficou 100% mas passou no Itau...
No Santander a linha campo_livre, nao tinha a carteria embora eu use só a 101
::Campo_Livre__ := '9' + ::Prefixo______ + ::Prefixo_DV___ + ::NossoNumero__ + + ::NossoNumer_DV + '0'+ ::Carteira_____
- Anexos
-
MRBOLETO.PRG- (98.18 KiB) Baixado 280 vezes
* Clipper 5.2e/Gaspro 4.0 /CDX/Blinker 7.0 Harbour 3.2 Console Hbmk2
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
No caso do boleto Bradesco, enviei pra análise e a resposta foi esta:
No Itaú não existe essa sequência.
Não é a sequência numérica dos registros, é numerar no próprio arquivo cada arquivo.
Se mandou um arquivo com numero 1, o próximo tem que ser 2, não pode ser 3.
Talvez precise de algo pra deixar alterar esse número depois, refazendo o arquivo de remessa.
Nota: o dígito de controle do cnab é calculado pela minha rotina e não pelo mr boleto, é minha rotina que não bate.
O arquivo CNAB ainda tem duas pendências, vou revisar:Boletos analisados e validados.
Porém se faz necessário estes ajustes:
Campo local de pagamento, mencionar: “Pagável preferencialmente na Rede Bradesco ou Bradesco Expresso”.
Campo espécie documento,de acordo com o ramo de atividade, poderá ser utilizada uma das siglas: DM-Duplicata Mercantil, NP-Nota Promissória, NS-Nota de Seguro, CS-Cobrança Seriada, REC-Recibo, ND-Nota de Débito, DS-Duplicata de Serviços, OU-Outros.
Mas como eu disse, o trabalhoso vai ser controlar o número de remessa, porque segundo o manual o Bradesco não deixa pular.Registro Header
Posição - 109 a 110 - gravar MX
Registro de Transação
Posição - 082 a 082 - digito verificador do nosso numero esta sendo calculado erroneamente, para o registro 000002
Registro Trailler
OK
No Itaú não existe essa sequência.
Não é a sequência numérica dos registros, é numerar no próprio arquivo cada arquivo.
Se mandou um arquivo com numero 1, o próximo tem que ser 2, não pode ser 3.
Talvez precise de algo pra deixar alterar esse número depois, refazendo o arquivo de remessa.
Nota: o dígito de controle do cnab é calculado pela minha rotina e não pelo mr boleto, é minha rotina que não bate.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
Não tinha reparado em uma coisa:
Imprimi aqui, e na impressão corta o último dígito da linha digitável.
Impressora HP Laser Color CP1215.
Não sei quanto ao código de barras, porque quando tinha feito o meu, fui obrigado a alterar a resolução da parte do código de barras pra poder funcionar, e no mrboleto usa a mesma resolução pra tudo.
Imprimi aqui, e na impressão corta o último dígito da linha digitável.
Impressora HP Laser Color CP1215.
Não sei quanto ao código de barras, porque quando tinha feito o meu, fui obrigado a alterar a resolução da parte do código de barras pra poder funcionar, e no mrboleto usa a mesma resolução pra tudo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
Até agora ainda com problemas no Bradesco, e agora é com o que é impresso em nosso número.
Tentar simplificar as rotinas.
Só pra explicar:
O nosso número, quando emitido pelo banco sai um, e quando emitido pelo Mr Boleto sai outro.
O cliente pagar pelo boleto não tem problema.
Mas a taxa cobrada pelo banco acaba sendo o dobro do preço ao usar o boleto do mr. boleto, só por causa desse número diferente, que não bate com o número gerado pelo banco.
É algo como 99/00/999999 e o mr boleto imprime 99/9999/999999 (4 números ao invés de 2 zeros, na parte interna).
Tentar simplificar as rotinas.
Só pra explicar:
O nosso número, quando emitido pelo banco sai um, e quando emitido pelo Mr Boleto sai outro.
O cliente pagar pelo boleto não tem problema.
Mas a taxa cobrada pelo banco acaba sendo o dobro do preço ao usar o boleto do mr. boleto, só por causa desse número diferente, que não bate com o número gerado pelo banco.
É algo como 99/00/999999 e o mr boleto imprime 99/9999/999999 (4 números ao invés de 2 zeros, na parte interna).
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
Algumas modificações de gosto pessoal.
1) Redução do fonte LARGE pra linha digitável sair sem cortes na impressão
2) aPos[ PAGE_LEFT ], aPos[ PAGE_LINE_SIZE ], aPos[ PAGE_POS_SAA ], aPos[ PAGE_POS_SBB ], aPos[ PAGE_POS_VERT ] e Apos[ PAGE_POS_ZZZ ]
alterados pra nPageLeft, nPageLineSize, nPagePosSAA, nPagePosSBB, nPagePosVert e nPagePosZZZ ( e eliminado array aPos de 20 elementos)
3) Eliminado uso de cAux
cAux := variável
Draw_Text( ...., cAux, ...)
para Draw_Text( ..., variável, ...)
4) Definido tamanho default na rotina Draw_text como ::oFontVariavel e BOLETO_FONTE_NORMAL
Como isso é o mais usado no boleto, muitos Draw_Text() foram reduzidos
5) Nosso número do Bradesco agora igual no Bradesco
6) Alteração do post anterior, ref. Banco Santander
7) Uma alteração pessoal foi no número de documento do Bradesco, acrescentando uma barra "/" pra separar o último dígito, que no meu caso indica a parcela.
Em anexo também a rotina quebra galho intermediária ao MrBoleto, que gera CNAB Bradesco.
Nota: o nome ZZ_mrboleto é pra quando listar fontes em ordem alfabética, LIBs ficarem juntas no final, só isso.
NOTA:
Fontes atualizados depois do post original, porque o que postei antes dava erro
Nomes internos alterados pra eu não precisar mais converter na classe do cnab
Cuidado, porque isso deixa incompatível com a mrboleto original, já os nomes de variáveis foram alterados.
1) Redução do fonte LARGE pra linha digitável sair sem cortes na impressão
2) aPos[ PAGE_LEFT ], aPos[ PAGE_LINE_SIZE ], aPos[ PAGE_POS_SAA ], aPos[ PAGE_POS_SBB ], aPos[ PAGE_POS_VERT ] e Apos[ PAGE_POS_ZZZ ]
alterados pra nPageLeft, nPageLineSize, nPagePosSAA, nPagePosSBB, nPagePosVert e nPagePosZZZ ( e eliminado array aPos de 20 elementos)
3) Eliminado uso de cAux
cAux := variável
Draw_Text( ...., cAux, ...)
para Draw_Text( ..., variável, ...)
4) Definido tamanho default na rotina Draw_text como ::oFontVariavel e BOLETO_FONTE_NORMAL
Como isso é o mais usado no boleto, muitos Draw_Text() foram reduzidos
5) Nosso número do Bradesco agora igual no Bradesco
6) Alteração do post anterior, ref. Banco Santander
7) Uma alteração pessoal foi no número de documento do Bradesco, acrescentando uma barra "/" pra separar o último dígito, que no meu caso indica a parcela.
Em anexo também a rotina quebra galho intermediária ao MrBoleto, que gera CNAB Bradesco.
Nota: o nome ZZ_mrboleto é pra quando listar fontes em ordem alfabética, LIBs ficarem juntas no final, só isso.
NOTA:
Fontes atualizados depois do post original, porque o que postei antes dava erro
Nomes internos alterados pra eu não precisar mais converter na classe do cnab
Cuidado, porque isso deixa incompatível com a mrboleto original, já os nomes de variáveis foram alterados.
- Anexos
-
NFEBOL.PRG- (11.06 KiB) Baixado 204 vezes
Editado pela última vez por Toledo em 29 Out 2014 06:48, em um total de 1 vez.
Razão: Mensagem editada para excluir arquivo fonte (PRG) do MRBoleto, por solicitação do autor.
Razão: Mensagem editada para excluir arquivo fonte (PRG) do MRBoleto, por solicitação do autor.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- Alexandre Silva
- Usuário Nível 3

- Mensagens: 376
- Registrado em: 26 Mar 2007 00:16
- Localização: Itapema - SC
MRBoleto pronto para o uso.
Para o Banco 085 - TranspoCred.. imagino que nao está configurado..
tenho o manual.. se alguem quiser...
tenho o manual.. se alguem quiser...
* Clipper 5.2e/Gaspro 4.0 /CDX/Blinker 7.0 Harbour 3.2 Console Hbmk2
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
No meu caso estou mexendo porque precisei pro Bradesco, e para o cnab Bradesco.
O próximo será Itaú, sendo que já gero cnabs de 3 carteiras diferentes enviados ao banco mas não imprimo.
Em todo caso, poste o manual, vai que sobra um tempinho...
O próximo será Itaú, sendo que já gero cnabs de 3 carteiras diferentes enviados ao banco mas não imprimo.
Em todo caso, poste o manual, vai que sobra um tempinho...
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- Alexandre Silva
- Usuário Nível 3

- Mensagens: 376
- Registrado em: 26 Mar 2007 00:16
- Localização: Itapema - SC
MRBoleto pronto para o uso.
ta ai...
- Anexos
-
modelo arquivo banco 085_cecred.rar- (1.41 MiB) Baixado 194 vezes
* Clipper 5.2e/Gaspro 4.0 /CDX/Blinker 7.0 Harbour 3.2 Console Hbmk2
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
Reduzir fonte virou mania, não consigo me controlar....
Como o formulário é A4, os tamanhos são sempre os mesmos, então deixei fixos como variáveis, incluindo margem e largura de linha.
Em toda Draw_Text() passa como parâmetro a margem + coluna
Então coloquei pra somar a margem direto em Draw_Text() e retirei de todas as chamadas.
O bloco da linha digitável é utilizado nos 3 boletos, exatamente igual, então movi pra um método e coloquei chamadas.
Pena que o restante do boleto é diferente em cada via, senão daria pra reduzir mais o fonte.
Aquela alteração do número do documento mostrando parcela que fiz pro meu uso, reparei que estava fazendo isso só em uma das vias.
Então igual tem no nosso número, uma variável só pra formatar impressão, fiz o mesmo para o número do documento.
E pra preencher esse campo, alterei no método Update().
Ficam aí as dicas pro Mr Boleto, pelo menos referente à margem/Draw_Text() é interessante.
Como o formulário é A4, os tamanhos são sempre os mesmos, então deixei fixos como variáveis, incluindo margem e largura de linha.
Em toda Draw_Text() passa como parâmetro a margem + coluna
Então coloquei pra somar a margem direto em Draw_Text() e retirei de todas as chamadas.
O bloco da linha digitável é utilizado nos 3 boletos, exatamente igual, então movi pra um método e coloquei chamadas.
Pena que o restante do boleto é diferente em cada via, senão daria pra reduzir mais o fonte.
Aquela alteração do número do documento mostrando parcela que fiz pro meu uso, reparei que estava fazendo isso só em uma das vias.
Então igual tem no nosso número, uma variável só pra formatar impressão, fiz o mesmo para o número do documento.
E pra preencher esse campo, alterei no método Update().
Ficam aí as dicas pro Mr Boleto, pelo menos referente à margem/Draw_Text() é interessante.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
Mais outra dica:
Em todas as chamadas Draw_Line() usa a margem esquerda, então menos fonte se já considerar margem esquerda dentro de Draw_Line()
Algo como alterar de:
para:
Em todas as chamadas Draw_Line() usa a margem esquerda, então menos fonte se já considerar margem esquerda dentro de Draw_Line()
Algo como alterar de:
Código: Selecionar todos
Draw_Line( Margem + algo, ... )
Draw_Line( Margem + algo, ... )
Draw_Line( Margem + algo, ... )
Draw_Line( Margem, ... )
METHOD Draw_Line( x, ... )
Código: Selecionar todos
Draw_Line( algo, ... )
Draw_Line( algo, ... )
Draw_Line( algo, ... )
Draw_Line( 0, ... )
METHOD Draw_Line( x, ... )
x = x + Margem
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
MRBoleto pronto para o uso.
Ao administrador do fórum:
Peço remover os fontes que postei aqui, do Mr Boleto alterado, porque não consta o autor original do Mr Boleto.
Peço remover os fontes que postei aqui, do Mr Boleto alterado, porque não consta o autor original do Mr Boleto.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- momente
- Usuário Nível 3

- Mensagens: 496
- Registrado em: 03 Mar 2005 11:53
- Localização: São Carlos-SP
- Contato:
MRBoleto pronto para o uso.
Amigos,
Primeiramente, Feliz Ano Novo pra todos deste grupo que muito já me ajudou, com muita saúde e paz!
Estou iniciando com MR.Boleto, porém não encontrei nada sobre o SICOOB, existe alguma programação ou jeito de gerar boleto pra este banco?
Eu precisaria de um norte em relação a isto, estou precisando muito!
Obrigado!
Primeiramente, Feliz Ano Novo pra todos deste grupo que muito já me ajudou, com muita saúde e paz!
Estou iniciando com MR.Boleto, porém não encontrei nada sobre o SICOOB, existe alguma programação ou jeito de gerar boleto pra este banco?
Eu precisaria de um norte em relação a isto, estou precisando muito!
Obrigado!
Rogerio L. Momenté
Nada é tão perfeito que não possamos melhorar.
Nunca se explique. Seus amigos não precisam e seus inimigos não vão acreditar.
www.looksystem.com.br
Nada é tão perfeito que não possamos melhorar.
Nunca se explique. Seus amigos não precisam e seus inimigos não vão acreditar.
www.looksystem.com.br
- momente
- Usuário Nível 3

- Mensagens: 496
- Registrado em: 03 Mar 2005 11:53
- Localização: São Carlos-SP
- Contato:
MRBoleto pronto para o uso.
Boa tarde!
Alguém tem alguma informação à respeito do SICOOB no MR. Boleto?
Me ajudaria muito. Obrigado!
Alguém tem alguma informação à respeito do SICOOB no MR. Boleto?
Me ajudaria muito. Obrigado!
Rogerio L. Momenté
Nada é tão perfeito que não possamos melhorar.
Nunca se explique. Seus amigos não precisam e seus inimigos não vão acreditar.
www.looksystem.com.br
Nada é tão perfeito que não possamos melhorar.
Nunca se explique. Seus amigos não precisam e seus inimigos não vão acreditar.
www.looksystem.com.br
MRBoleto pronto para o uso.
- Bom dia, algum colega teria a formula de calculo do NOSSO NÚMERO para cobrança SICCOB?
HASA
HASA
-
alxsts
- Colaborador

- Mensagens: 3092
- Registrado em: 12 Ago 2008 15:50
- Localização: São Paulo-SP-Brasil
MRBoleto pronto para o uso.
Olá!
É só baixar o manual no site do Banco. Tem tudo lá.
É só baixar o manual no site do Banco. Tem tudo lá.
[]´s
Alexandre Santos (AlxSts)
Alexandre Santos (AlxSts)