Bom Dia, estou com um problema na leitura do arquivo de retorno do B.Brasil, para convênios com 6 dígitos.
Na procedure TACBrBancoBrasil.LerRetorno400Pos6(ARetorno: TStringList) temos
for ContLinha := 1 to ARetorno.Count - 2 do
begin
Linha := ARetorno[ContLinha] ;
if (Copy(Linha,1,1) <> '1') then
Continue;
...
Só que as informações do arquivo de remessa estão nos registros 7, que ele não lê Está correto isso ????
Já na procedure TACBrBancoBrasil.LerRetorno400Pos7(ARetorno: TStringList) temos
for ContLinha := 1 to ARetorno.Count - 2 do
begin
Linha := ARetorno[ContLinha] ;
if (Copy(Linha,1,1) <> '7') and (Copy(Linha,1,1) <> '1') then
Continue;
.....
Que já permite a leitura deste registro 7.
Acredito que poucos usem este tipo de convênio (com 6 dígitos) e que tenham se esquecido de corrigir ou estou esquecendo de passar mais algum parâmetro?