arquivo retorno Erro de Leitura de Arquivo de Retorno - Banrisul

[lukas1056]

Olá pessoal, sou iniciante no Delphi mas já estou utilizando o ACBr por ser muito prático, estava testando a leitura do arquivo de retorno do Banrisul e me deparei com a seguinte situação:

Ao ler o arquivo de retorno do Banco me aparece a mensagem dizendo que o CPF/CNPJ é inválido, bom estava verificando o motivo da mensagem e percebi que diferente da leitura feita no arquivo do banco do brasil que já havia visto antes, a leitura do banco do Banrisul busca não do Header do Arquivo mas do Header do Lote.

Código da Unit ACBrBancoBanrisul:

Obs : o arquivo de texto é salvo em uma StringList para ir verificando, sendo assim o ARetorno(StringList) na posição 1 seria a segunda linha do arquivo ou seja o Header do Lote.

Entretanto segundo a documentação do Banrisul no Header do Lote, o CPF/CNPJ ocupam 15 posições e no Header do Arquivo apenas 14, sendo assim quando for realizar o Copy ira buscar não corretamente  por pegar apenas as 14 posições das 15 pegando um possivel 0 no inicio e não buscando o ultimo digito do CPF/CNPJ, gerando assim  a mensagem de erro do 'CPF/CNPJ do Arquivo Inválido'.

Arquivo de Retorno :

Manual do Banco :

Site do manual : http://www.banrisul.com.br/bob/data/CobrancaEletronicaBanrisul_layout_pdr_Febraban240_vrs25102013.pdf?cache=9

Minha duvida é se esta certo pegar o CPF/CNPJ do arquivo pelo Header do Lote, e se for porque busca apenas 14 posições sendo que o tamanho nesse Header é 15 ? e outra coisa percebi que é feito uma formatação no caso do Banrisul ao comparar o valor lido com o valor do Cedente do boleto do componente, neste banco devo formatar antes de atribuir a lista de boletos o CPF/CNPJ de acordo com o tipo (Fisica ou Juridica) do Cedente ?

Bom sei que seria  a solução seria alterar apenas o indice do Stringlist para  0 para ler a primeira linha, mas como ainda sou iniciante posso estar deixando passar algo como uma configuração por exemplo, bom minha duvida seria essa.

Desde já agradeço a sua atenção.

 

Editado 4 Outubro, 2017 por lukas1056

[José M. S. Junior]

Bom dia, baseado na implementação de outros bancos deveria pegar do Header do Arquivo (posição 0). Fique a vontade para alterar e postar aqui... se possível anexe o arquivo de retorno para homologação, assim corrigimos e atualizamos os fontes...

[lukas1056]

Olá, realizei alterações com base no que foi visto no manual do banco e também com base no que é necessário se buscar do arquivo:

Alterações :

1 - Busca do CPF/CNPJ pelo Header do Arquivo ao invés do Header do Lote.

 

2 -  Realizado modificações para buscar de acordo com as posições do "Header do Arquivo", e alterações para buscar os dados de acordo com o tamanho máximo definido no componente, pois para verificar se o arquivo é valido é passado um valor para o componente que irá ler o arquivo e ver se são iguais, e como no componente tem um tamanho máximo se os dois dados tanto o lido como o passado não tiverem o mesmo tamanho eles nunca serão iguais, e realizar alterações no tamanho máximo poderia acredito eu comprometer a geração do Boleto.

 

 

 

3 -  Alterada a busca do Nosso numero que estava buscando 20 posições e atribuindo ao componente, mas como o componente tem tamanho máximo de nosso numero 8, apresentava erro ao tentar setar com o valor lido, olhando no manual do banco percebi que os dados retornados são apenas as 10 primeiras posições do nosso numero, sendo que o resto fica em branco e como os dois últimos dígitos são os números gerados pelo calculo e não o sequencial acredito que possa ser pego apenas os 8 dígitos que pertencem ao nosso numero e caso precise do número inteiro do  banco deve ser realizada a alteração do tamanho máximo, mas como pensei antes pode dar problema na geração do boleto, tendo isso em vista utilizando os 8 dígitos se necessário verificar com o nosso numero completo gerado pelo ACBr, poderia ser utilizado um comando SQL com "  Substring "( Firebird ) para realizar a comparação da 1 a  8 posição do nosso numero do banco de dados com relação ao lido no arquivo de retorno.

 

 

Bom estarei postando os arquivos com as mudanças e espero por uma resposta se eu estou completamente errado ou poderia ser dessa maneira ?

Desde já agradeço a atenção.

 

Arquivos: 

Banrisul Alterações.rar

ACBrBancoBanrisul Modificações.txt

Editado 5 Outubro, 2017 por lukas1056

[José M. S. Junior]

Vamos verificar assim que possível, se puder anexe o arquivo de retorno para testes. Obrigado!

[lukas1056]

Arquivo de retorno :

0210030536066_20171002_0.ret

Obs: esse arquivo foi criado internamente para teste, foi realizado o download do site do Banrisul de um titulo real e somente alterado com os dados para um titulo criado anteriormente (foi seguido os parâmetros do manual do Banrisul). 

[José M. S. Junior]

Ajustes no SVN. Favor atualizar os fontes.

[Henrique Sandri Zimermam]

Bom dia a todos,

 

Estou enfrentando problemas ao efetuar a leitura do arquivo de retorno. Ao realizar o procedimento, é retornado a mensagem 'Agencia\Conta do arquivo inválido'.

Ao verificar os fontes, identifiquei que a situação está ocorrendo devido a variavel rConta da classe ACBrBancoBanrisul estar sendo alimentada com valor divergente ao da ACBrBanco.ACBrBoleto.Cedente.Conta, consequentemente a execução cai no if da linha 753.

 

Para contornar o problema, precisei alterar a alimentação da variavel rConta, na linha 730, para iniciar a validação a partir da posição 64 do arquivo:

rConta         := trim(Copy(ARetorno.Strings[1], 64,  7));

 

Anexei o arquivo alterado para análise.

ACBrBancoBanrisul.pas

[José M. S. Junior]

Boa tarde, atualizado no Repositório...