Retorno de Boleto (Status : Retorno, Remessa Processada, Remessa Processada Parcial, Remessa Rejeitada)

[EngSoftInformatica EngSoftInformatica]

Bom dia a todos,

estava analisando hoje(08/02/2019) o retorno de um arquivo da CEF e o componente ACBRBoleto apresenta a mensagem:"...Não é um arquivo de Retorno de cobrança com layout CNAB240."

o conteúdo desse arquivo é informando o cliente que a remessa foi processada, ou seja, Registro header de arquivo, posição: 143, tamanho: 1 informa código: 3 (Remessa Processada). Mas o componente apresenta a mensagem acima e não informa de forma correta(a meu ver) o que ocorre com esse determinado tipo de retorno. Analisando o código encontrei:

unit ACBrBoleto;

procedure TACBrBoleto.LerRetorno(AStream: TStream);
linha: 2813

     case Length(SlRetorno.Strings[0]) of
        240 :
          begin
            if Copy(SlRetorno.Strings[0],143,1) <> '2' then -----> Deveria ser alterado a forma de tratamento para informar ao operador do sistema a situação da remessa de acordo com a tabela abaixo.
              Raise Exception.Create( ACBrStr( NomeArq + sLineBreak + 'Não é um arquivo de Retorno de cobrança com layout CNAB240') );

            BancoRetorno  := Copy(SlRetorno.Strings[0],0,3);
            LayoutRemessa := c240 ;
          end;
...

Código Remessa / Retorno, código adotado pela FEBRABAN para qualificar o envio ou devolução de arquivo entre a Empresa Cliente
e o Banco prestador dos Serviços. Informar:
‘1’ = Remessa (Cliente -> Banco)
‘2’ = Retorno (Banco -> Cliente)
‘3’ = Remessa Processada (Banco -> Cliente - Pré-crítica)
‘4’ = Remessa Processada Parcial (Banco -> Cliente - Pré-crítica)
‘5’ = Remessa Rejeitada (Banco -> Cliente - Pré-crítica)

 

Desde já agradeço a atenção de todos e minhas humildes desculpas se falei alguma besteira.

[José M. S. Junior]

Boa tarde

Existe essa validação pois todos os arquivos de retorno tratados pelo componente são do tipo "2 - Retorno", realmente não trata a leitura de arquivos de Pré-Critica... 

[Antonio Gomes]

3 horas atrás, EngSoftInformatica EngSoftInformatica disse:

Bom dia a todos,

estava analisando hoje(08/02/2019) o retorno de um arquivo da CEF e o componente ACBRBoleto apresenta a mensagem:"...Não é um arquivo de Retorno de cobrança com layout CNAB240."

o conteúdo desse arquivo é informando o cliente que a remessa foi processada, ou seja, Registro header de arquivo, posição: 143, tamanho: 1 informa código: 3 (Remessa Processada). Mas o componente apresenta a mensagem acima e não informa de forma correta(a meu ver) o que ocorre com esse determinado tipo de retorno. Analisando o código encontrei:

unit ACBrBoleto;

procedure TACBrBoleto.LerRetorno(AStream: TStream);
linha: 2813

     case Length(SlRetorno.Strings[0]) of
        240 :
          begin
            if Copy(SlRetorno.Strings[0],143,1) <> '2' then -----> Deveria ser alterado a forma de tratamento para informar ao operador do sistema a situação da remessa de acordo com a tabela abaixo.
              Raise Exception.Create( ACBrStr( NomeArq + sLineBreak + 'Não é um arquivo de Retorno de cobrança com layout CNAB240') );

            BancoRetorno  := Copy(SlRetorno.Strings[0],0,3);
            LayoutRemessa := c240 ;
          end;
...

Código Remessa / Retorno, código adotado pela FEBRABAN para qualificar o envio ou devolução de arquivo entre a Empresa Cliente
e o Banco prestador dos Serviços. Informar:
‘1’ = Remessa (Cliente -> Banco)
‘2’ = Retorno (Banco -> Cliente)
‘3’ = Remessa Processada (Banco -> Cliente - Pré-crítica)
‘4’ = Remessa Processada Parcial (Banco -> Cliente - Pré-crítica)
‘5’ = Remessa Rejeitada (Banco -> Cliente - Pré-crítica)

 

Desde já agradeço a atenção de todos e minhas humildes desculpas se falei alguma besteira.

Passo por esse problema no banco itau, o retorno de pessoa fisica, vem completado com zeros antes, e o itau insiste em mandar como pessoa juridica, o que eu faço, é abrir o arquivo antes de mandar para o componente, e mudar, engando assim o componente para o que eu quero.

assim, eu sei que está certo, tem o cpf dentro do arquivo, e ainda assim vem o numero como se fosse cnpj (talvez o retorno seja feito apenas por cnpj no itau, nao sei...), então quando entra na funcao, o  componente aciona aquela funcao de validar o cpf, nisso passa liso.

Não que eu queira que faça algo errado, mas tem hora que tem que ser assim...

 

Detalhe: Se isso acontecer com vc, se for arquivo de critica, e mudar o arquivo, sugiro não fazer ação alguma no banco de dados, apenas mostrar em tela para o usuário...

[EngSoftInformatica EngSoftInformatica]

39 minutos atrás, Antonio Gomes disse:

Passo por esse problema no banco itau, o retorno de pessoa fisica, vem completado com zeros antes, e o itau insiste em mandar como pessoa juridica, o que eu faço, é abrir o arquivo antes de mandar para o componente, e mudar, engando assim o componente para o que eu quero.

assim, eu sei que está certo, tem o cpf dentro do arquivo, e ainda assim vem o numero como se fosse cnpj (talvez o retorno seja feito apenas por cnpj no itau, nao sei...), então quando entra na funcao, o  componente aciona aquela funcao de validar o cpf, nisso passa liso.

Não que eu queira que faça algo errado, mas tem hora que tem que ser assim...

 

Detalhe: Se isso acontecer com vc, se for arquivo de critica, e mudar o arquivo, sugiro não fazer ação alguma no banco de dados, apenas mostrar em tela para o usuário...

No meu caso é que são muito arquivos não tem como o cliente esta mudando isso..

2 horas atrás, José M. S. Junior disse:

Boa tarde

Existe essa validação pois todos os arquivos de retorno tratados pelo componente são do tipo "2 - Retorno", realmente não trata a leitura de arquivos de Pré-Critica... 

é de justamente o tratamento da pre-critica que estou falando.. porque em arquivos desse tipo causa até um falso erro em relação a mensagem que o sistema emite.

Vou tentar simular algumas situações com a CEF na pre critica e qualquer coisa comunico a vocês, até mesmo para uma possível implementação sobre tal.

Obrigado. 

[Antonio Gomes]

Não é o cliente, é vc...

Exemplo: 

 

Arquivo := IBDSPai.FieldByName('NOME_ARQUIVO_BOR').AsString;
      Arquivo := StringReplace(Arquivo, '"', '', [rfReplaceAll]);

      if not FileExists(Arquivo) then
      begin
        Aviso('Arquivo: ' + Arquivo + ' não encontrado.');
        Abort;
      end;
      // CONTEUDO DO ARQUIVO ARQUIVO_RETORNO_BOR
      LS.LoadFromFile(Arquivo);
      P := LS.Count - 1;

      if (IBDSPai.FieldByName('RETORNO_PAGFACIL_BOR').AsString = 'N') and
        (IBDSPai.FieldByName('RETORNO_PESSOA_FISICA_BOR').AsString = 'S') then
        MudarRetornoPosicao2_FisicaJuridica(LS);

      LS.SaveToStream(ArquivoDeRetorno);

 

 

funcao: 

procedure TFCadBorderoBancario.MudarRetornoPosicao2_FisicaJuridica(var ARetornoLido: TStrings);
var
  Linha: string;
  I    : Integer;
begin
  for I := 0 to ARetornoLido.Count - 1 do
  begin
    Linha := ARetornoLido;

    // Mexer nas linhas que correspondem a titulos apenas - iniciados com 1
    if (Copy(Linha, 1, 1) = '1') and (Copy(Linha, 2, 2) = '02') then
    begin
      Delete(Linha, 2, 2);
      Insert('01', Linha, 2);
      ARetornoLido := Linha;
    end;
  end;
end;
 

Voce pode tratar um arquivo temporario também, caso não queira mexer no do cliente...

[Juliana Tamizou]

Bom dia @ssouzaacbr

Evite postar tópicos que são dúvidas não relacionadas ao assunto original,  movi sua postagem conforme tópico a seguir

At.