Banco Safra - 240 - Retorno

[Guess]

Boa Tarde, 

Homologamos a remessa do banco safra cnab 240 posições, porem ao fazer a leitura do arquivo do retorno o acbr informou que a rotina não esta implementada.
porem existe a procedure lerretorno240 dentro do Acbr.
gostaria que verificasse por favor.
 

anexo, o arquivo de retorno utilizado.

RETORNO_500JJEMPREE0055822843.txt

[José M. S. Junior]

Bom dia @Guess,

Aparentemente o arquivo de retorno está válido... Está selecionando o CNAB240 na propriedade "LayoutRemessa" do componente ACBrBoleto?

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Guess]

O Layout remessa esta 240, inclusive como citei a remessa já foi homologada também no 240.

Identifiquei o seguinte no código-fonte, 

existem 2 tipos de layout para o banco safra.

são eles: cobbancosafra(estou usando esse) e cobsafrabradesco.
porem ao ler o retorno, esta entrando na rotina do cobsafrabradesco.

sendo que esta configurado em meu sistema cobbancosafra

unction TACBrBoleto.GetTipoCobranca(NumeroBanco: Integer; Carteira: String = ''): TACBrTipoCobranca;
begin
  case NumeroBanco of
    001: Result := cobBancoDoBrasil;
    003: Result := cobBancoDaAmazonia;
    004: Result := cobBancoDoNordeste;
    008,033,353: Result := cobSantander;RETORNO_500JJEMPREE0055822843.txt
    021: Result := cobBanestes;
    041: Result := cobBanrisul;
    070: Result := cobBRB;
    091: Result := cobUnicredRS;
    097: Result := cobCrediSIS;
    099: Result := cobUniprime;
    104: Result := cobCaixaEconomica;
    136: Result := cobUnicredES;
    237: Result := cobBradesco;
    341: Result := cobItau;
    389: Result := cobBancoMercantil;
    748: Result := cobSicred;
    756: Result := cobBancoob;
    399: Result := cobHSBC;
    422: Result := cobSafraBradesco;
    085: Result := cobBancoCECRED;
    047: Result := cobBanese;
    745: Result := cobCitiBank;
    246: Result := cobBancoABCBrasil;
    707: Result := cobDaycoval;
    084: Result := cobUniprimeNortePR;
    643: begin
          if StrToInt(Carteira) = 9 then
             Result := cobBancoPineBradesco
           else
             Result := cobBancoPine;
         end;
  else
    raise Exception.Create('Erro ao configurar o tipo de cobrança.'+
      sLineBreak+'Número do Banco inválido: '+IntToStr(NumeroBanco));
  end;

 

 

como devo proceder?

 

[José M. S. Junior]

Bom dia @Guess,

Creio que essa chamada da função GetTipoCobranca possa ser alterada para cobBancoSafra até mesmo porque aparentemente correspondente SafraBradesco não está sendo mais homologado.

Mas note pelo código, que essa rotina é chamada apenas quando o código do banco especificado no componente não é o mesmo do arquivo Retorno. Realizando um teste com seu arquivo aqui, leu normalmente na classe correta: BancoSafra, basta setar antes no componente o Banco correto.

ex:

ACBrBoleto1.Banco.TipoCobranca:= cobBancoSafra;

[Guess]

Fiz a troca da chamada para cobbancosafra e funcionou.
então esta incorreto no arquivo.
faço o commit ou envio aqui a alteracao?

foi basicamente a alteracao q voce solicitou.
 

[José M. S. Junior]

32 minutos atrás, Guess disse:

Fiz a troca da chamada para cobbancosafra e funcionou.
então esta incorreto no arquivo.
faço o commit ou envio aqui a alteracao?

foi basicamente a alteracao q voce solicitou.
 

Favor anexar a Unit alterada para validação e atualização no SVN.