BOLETO DO 001-BANCO DO BRASIL - ARQUIVO DE RETORNO - CNAB400 NÃO PROCESSANDO CONVENIO 7

[Victor H. Gonzales - Panda]

Boa tarde,

Estou com um arquivo de retorno do Branco do Brasil convenio 7 posições, e ao utilizar o parametro leCedenteRetorno o sistema não está identificando o convenio e está caindo no processamento de 6 posições e não está realizando o processamento do retorno;

Na unit ACBrBancoBrasil na procedure TACBrBancoBrasil.LerRetorno400(ARetorno: TStringList) realizei algumas modificações que submeto a moderação avaliar;

procedure TACBrBancoBrasil.LerRetorno400(ARetorno: TStringList);
var
 TamConvenioMaior6: Boolean;
 rConvenioLider : String;
begin

 if ACBrBanco.ACBrBoleto.LeCedenteRetorno then
 begin
   if NaoEstaZerado(StrToInt64Def(Copy(ARetorno[0],41,6),0)) then
     rConvenioLider := Trim(Copy(ARetorno[0],41,6))//CBR643 convenio 6 posicoes
   else
     rConvenioLider := Copy(ARetorno[0],150,7); //CBR643 convenio 7 posicoes
   ACBrBanco.ACBrBoleto.Cedente.Convenio := rConvenioLider;
 end;
 TamConvenioMaior6:= Length(trim(ACBrBanco.ACBrBoleto.Cedente.Convenio)) > 6;
 if TamConvenioMaior6 then
    LerRetorno400Pos7(ARetorno)
 else
    LerRetorno400Pos6(ARetorno);
end;

 

 

Desde já muito obrigado;

ACBrBancoBrasil.pas

[José M. S. Junior]

Boa tarde

Suas sugestões foram disponibilizadas nos fontes do Projeto ACBr. 

Obrigado pela contribuição!