Modificações CEF SICOB e Banco do Brasil

[RogerMello]

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

[Juliana Tamizou]

Boa tarde.

Alterações disponíveis no svn.

Att.

[RogerMello]

Ola Juliana, muito obrigado...

Abraçoss