Boletos BANRISUL

[ademar-datalan]

Bom dia,

Já há algum tempo usamos o AcBr para impressão de boletos e geração dos arquivos do CNAB 240 para o Banrisul, e temos alguns problemas, na unit ACBrBancoBanrisul, que gostaríamos de ver se tem como corrigir.

Sempre que é feita uma atualização do projeto AcBr, temos que ajustar manualmente ou salvar a nossa versão do arquivo para restaurar após a atualização.

Estou enviando em anexo uma planilha onde estão mostradas as diferenças do arquivo original e o arquivo que nós ajustamos, se for possível incorporar estas alterações no projeto original seria bem importante para nós e acredito que para todos os usuários que tenham necessidade de usar boletos do Banrisul.

Obrigado.

Diferenças ACBrBancoBanrisul.xlsx

[adelmo]

Em 01/08/2019 at 09:19, ademar-datalan disse:

Bom dia,

Já há algum tempo usamos o AcBr para impressão de boletos e geração dos arquivos do CNAB 240 para o Banrisul, e temos alguns problemas, na unit ACBrBancoBanrisul, que gostaríamos de ver se tem como corrigir.

Sempre que é feita uma atualização do projeto AcBr, temos que ajustar manualmente ou salvar a nossa versão do arquivo para restaurar após a atualização.

Estou enviando em anexo uma planilha onde estão mostradas as diferenças do arquivo original e o arquivo que nós ajustamos, se for possível incorporar estas alterações no projeto original seria bem importante para nós e acredito que para todos os usuários que tenham necessidade de usar boletos do Banrisul.

Obrigado.

Diferenças ACBrBancoBanrisul.xlsx 12 kB · 5 downloads

Olá, bom dia 

estamos enfrentando um problema com a o banrisul  na posicao conta (cnab240) 

Sendo o padrão 000EECCCCCCCD

onde:

000 - campos zeros 

EE - tipo da conta - Juridica por exemplo: 26 

CCCCCCC - Conta com 7 digitos - 0112530

D - Digito 8

tambem existe uma diferença em relação ao campo Digito da agencia

que é para sempre enviar 1 caracter BRANCO. (vide layout)

 

mas na unit do banrisul nao esta neste padrao segue original :  

  fpTamanhoConta          := 7; AQUI DEVE SER   fpTamanhoConta          := 12;

Header 240 

PadLeft(OnlyNumber(Agencia), 4, '0') +             //  54 -  57   Agência (Não considerado)
 ===> ok        Space(1) +                                         //  58 -  58   Dígito agência (Não considerado)
 ===> 12              PadLeft(OnlyNumber(Conta), 12, '0') +              //  59 -  70   Número da conta (Não considerado)
               ContaDigito +                                      //  71 -  71   Dígito da conta (Não considerado)
               Space(1) +                                         //  72 -  72   Dígito verificador da agência/conta (Não considerado)
               PadRight(Nome, 30) +                               //  73 - 102   Nome do cedente
               PadRight(UpperCase(ACBrBanco.Nome), 30) +  

Header de Lote 240 

                       PadLeft(OnlyNumber(Agencia), 5, '0') +                //  54 -  58   Agência
===ERRO    AgenciaDigito +                                    //  59 -  59   Dígito da agência  /////
sempre branco como o header (Conforme contato com o BANRISUL)

                       PadLeft(OnlyNumber(Conta), 12, '0') +                 //  60 -  71   Número da conta
                      ContaDigito +   

 

segue imagem do layout.

grato

Adelmo

 

[Juliana Tamizou]

Bom dia.

Você chegou a aplicar alguma alteração  e obteve retorno positivo do banco?

Att.

 

[ademar-datalan]

1 hora atrás, Juliana Tamizou disse:

Bom dia.

Você chegou a aplicar alguma alteração  e obteve retorno positivo do banco?

Att.

 

Bom dia,

Nós tivemos que ajustar no código, conforme foi enviado,  para poder passar na homologação.

Att,

[Juliana Tamizou]

Bom dia.

Por favor anexe a  unit alterada para validação.

Att.

[ademar-datalan]

Bom dia,

Conforme solicitado segue anexo.

ACBrBancoBanrisul.pas

[adelmo]

ola,

isso mesmo, passamos pela homologacao (tambem) com os código acima... caso queiram posso enviar o meu tb ajustado. 

 

[Juliana Tamizou]

Boa tarde.

11 minutos atrás, adelmo disse:

caso queiram posso enviar o meu tb ajustado

Foi feita alguma outra alteração no código do colega acima?

Att.

[adelmo]

segue os ajustes para homologação 

pois o tamanho da conta é 12 e não 8

a informação do digito da agencia, no manual, é em branco... e não o digito como esta no .pas acima. 

Desta forma fomos homologados

 

ACBrBancoBanrisul.pas

[Juliana Tamizou]

Bom dia.

Informando que a contribuição já está na fila para análise, obrigada.

Att.

[José M. S. Junior]

Bom dia @ademar-datalan

Seu código ficou com divergências ao realizar o Merge, favor atualizar e postar o seu .pas atualizado.

Segundo manual a Conta pode conter 12 dígitos, acho que o correto seria implementar com essa possibilidade...

<<<<<<< .mine
  rConta         := trim(Copy(ARetorno.Strings[1], 60, 12));
||||||| .r17492
  rConta         := trim(Copy(ARetorno.Strings[1], 64,  7));
=======
  rConta         := trim(Copy(ARetorno.Strings[1], 65,  7));
>>>>>>> .r17814

 

[ademar-datalan]

Bom dia,

Fiz ajuste.

ACBrBancoBanrisul.pas

[José M. S. Junior]

Bom dia

Atualizado no SVN, favor realizar os testes. Obrigado!