Ola, seguem as units com algumas modificaçoes efetuadas, por gentileza, peço aos moderadores atençao para analise e se possivel adicionar ao SVN.
*ACBrBancoBrasil.pas
Linha 810: Modificado rotina para capturar Data do arquivo de retorno:
ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],144,2)+'/'+
Copy(ARetorno[0],146,2)+'/'+
Copy(ARetorno[0],148,4),0,'DD/MM/YYYY');
Linha 814: Modificado rotina para capturar o Número do arquivo de retorno:
ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],158,6),0);
Linha 910: Modificado rotina para alimentar stringlist DescricaoMotivoRejeicaoComando (Sugestao do nosso amigo lipsort):
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;
Linha 1040: Atualizado os codigos d rejeiçao dos registros detalhes da funçao CodMotivoRejeicaoToDescricao d acordo com manual CNAB 240 BB.v.8.4
*ACBrCaixaEconomicaSICOB.pas
Linha 797: Modificado rotina para capturar o Número do arquivo de retorno:
ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],158,6),0);
Linha 864: Modificado rotina para alimentar stringlist DescricaoMotivoRejeicaoComando (baseado na mesma sugestao do nosso amigo lipsort):
if (Trim(Copy(Linha,214,2)) <> '00') then
begin
MotivoRejeicaoComando.Add(copy(Linha,214,2));
DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(OcorrenciaOriginal.Tipo,StrToIntDef(Copy(Linha,214,2),0)));
end;
Obrigado...
ACBrBancoBrasil.pas
ACBrCaixaEconomicaSICOB.pas