Correção do Retorno do BB CNAB 240

[Mario Inacio]

Boa tarde.

O retorno do Banco do Brasil CNAB240 não estava setando corretamente o tamanho do nosso número de retorno, pois o número do convênio que na remessa era 17, no retorno estava com apenas 07 (posição 58/1).

Corrigi esse trecho incluindo a carteira 07 no IF para que o fosse selecionado para tamanho 5.

 

ACBrBancoBrasil.pas

[Juliana Tamizou]

Boa tarde.

Obrigada pelo interesse em colaborar.

Esta alteração afeta também a remessa, por favor anexe o manual que indica que esta alteração é necessária.

Att.

[Mario Inacio]

Ola.

O que retorna no arquivo não é o '17', mas sim, o wTipoCarteira setado na remessa, que no caso é o '7'.

A função alterada serve para remessa e retorno, mas como no retorno não voltará a carteira 17 (ele lê a posição 58 do CNAB240), a função CalcularTamMaximoNossoNumero quando da remessa Resulta em 5 e quando retorno, não entrará nesse IF, retornando sempre 11.

 

[Juliana Tamizou]

Bom dia.

Obrigada novamente, mas no manual temos essa mesma explicação? Nosso questionamento é para que possamos analisar com base nele e desta forma evitar situações onde podem afetar outras carteiras.

Att.

[Mario Inacio]

Bom dia.

Não há no manual isso, entendo que o convênio lá no banco determina a carteira como 17.

Nesse trecho da imagem acima, vimos que no arquivo de remessa não vai o número da carteira, mas sim o tipo de carteira, nesse caso '7'.

A função CalcularTamMaximoNossoNumero  faz a análise do tamanho pela variavel "carteira", que na remessa está como '17'.

No retorno, na função LerRetorno240, (imagem em anexo) linha 1253, a variável Carteira recebe apenas um caractere, que é justamente o '7', enviado na remessa como sendo o tipo de cobrança.      "Carteira := copy(Linha, 58, 1);"

Então, ao passar novamente na função CalcularTamMaximoNossoNumero no retorno, a variável Carteira possui o código '7', portanto, resultará na entrada no outro IF.

Estou anexando também um arquivo de retorno nessa situação.

 

IEDCBR42611504202012727.ret

[Juliana Tamizou]

Bom dia.

Obrigada pelas informações, faremos a análise com calma e retornaremos no tópico.

Att.

[Juliana Tamizou]

Boa tarde.

Você chegou a testar com sucesso essa alteração? Note que na leitura do retorno CNAB240 o método chamado é o NossoNumeroSemFormatacaoLerRetorno()..

De qualquer forma essa função precisa ser ajustada para tratar corretamente os retornos quando CNAB400 e CNAB240.

Att.

[Mario Inacio]

Boa tarde.

Sim, testei com vários retornos do CNAB240.

[Juliana Tamizou]

Realmente, está fazendo uso da função ao setar o nosso número, mas precisaremos rever com cuidado, pois como citei, notei que precisa ser ajustado para checar corretamente cada um dos CNABs.

Att.

[José M. S. Junior]

Boa tarde, se possível anexe o manual que a sua agencia está utilizando para que possamos analisar melhor. Pois na verdade o campo que setá sendo preenchido no retorno não se trata da Carteira e sim o Tipo de Cobrança.

[Mario Inacio]

Boa tarde José.

Acho que já corrigiram o componente, pois a procedure TACBrBancoBrasil.LerRetorno240, agora monta a leitura do nosso número com outra função, a NossoNumeroSemFormatacaoLerRetorno.

         if copy(Linha, 14, 1) = 'T' then
          begin
            SeuNumero := copy(Linha, 106, 25);
            NumeroDocumento := copy(Linha, 59, 15);
            Carteira := copy(Linha, 58, 1);

            TempData := copy(Linha, 74, 2) + '/'+copy(Linha, 76, 2)+'/'+copy(Linha, 78, 4);
            if TempData<>'00/00/0000' then
              Vencimento := StringToDateTimeDef(TempData, 0, 'DDMMYY');

            ValorDocumento := StrToFloatDef(copy(Linha, 82, 15), 0) / 100;

            NossoNumero := NossoNumeroSemFormatacaoLerRetorno(ACBrBoleto.Cedente.Convenio, Carteira, Linha);

            ValorDespesaCobranca := StrToFloatDef(copy(Linha, 199, 15), 0) / 100;

            OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha, 16, 2), 0));

            IdxMotivo := 214;

            while (IdxMotivo < 223) do
            begin
               if (trim(Copy(Linha, IdxMotivo, 2)) <> '') then
               begin
                  MotivoRejeicaoComando.Add(Copy(Linha, IdxMotivo, 2));
                  DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(OcorrenciaOriginal.Tipo, StrToIntDef(Copy(Linha, IdxMotivo, 2), 0)));
               end;
               Inc(IdxMotivo, 2);
            end;

          end

 

 

[ajmsistemas]

 

Vou aproveitar o post do colega para reportar que no mesmo arquivo e modelo não está capturando o código do motivo da ocorrência ao ler pelo retorno CNAB240

C - Códigos de liquidação / baixa de '01' a '15' associados aos códigos de movimento '06', '09' e '17' (Descrição C044)

ver mensagem retorno do banco em anexo. 

fonte: https://cmsportal.febraban.org.br/Arquivos/documentos/PDF/Layout%20padrao%20CNAB240%20%20V%2010%2006%20-%2016_03_20.pdf. página 156

imagem do arquivo retorno

 

Modificação realizada

 

 

ACBrBancoBrasil.pas

[José M. S. Junior]

Em 30/06/2020 at 15:44, ajmsistemas disse:

Vou aproveitar o post do colega para reportar que no mesmo arquivo e modelo não está capturando o código do motivo da ocorrência ao ler pelo retorno CNAB240

Atualizado no SVN. Obrigado!