Problema Ao Ler Data De Vencimento, Arquivo Retorno Banrisul

[Denise Lima]

Boa tarde,

 

Estou a implementar a leitura de arquivos retorno com o uso da ACbrBoleto, acredito que possa haver um equivoco no seguinte comando da leitura de arquivos retorno do Banrisul:

 

if (StrToIntDef(Copy(Linha,247,6),0) <> 0) then

        Vencimento := StringToDateTimeDef( Copy(Linha,247,2)+'/'+

                                           Copy(Linha,249,2)+'/'+

                                           Copy(Linha,251,2),0, 'DD/MM/YY' );

 

A data de vencimento retorna sempre em branco;

Revendo o manual do banco e ao ajustar para:

 

if (StrToIntDef(Copy(Linha,147,6),0) <> 0) then

        Vencimento := StringToDateTimeDef( Copy(Linha,147,2)+'/'+

                                           Copy(Linha,149,2)+'/'+

                                           Copy(Linha,151,2),0, 'DD/MM/YY' );

 

A leitura da data fica correta. Podem por gentileza avaliar esta alteração? 

Estou enviando em anexo a unit modificada.

 

Att.,

Denise Lima

 

 

ACBrBancoBanrisul.pas

[Agnaldo Prates]

Faz sentido e acredito ser pertinente tal alteração, todavia é importante frisar que, caso a cobrança seja sem registro há necessidade de um tratamento especial pois, o campo em questão traz o seguinte texto, "SEMREG".

 

Vide página 22 do manual disponível em:https://www.banrisul.com.br/bob/data/CobrancaEletronicaBanrisul_layout_pdr_Febraban400_vrs09022009.pdf

 

Att.

[Denise Lima]

Certo Agnaldo, estou ciente desta verificação, porém para esta funcione, eu preciso que o componente da ACBr esteja lendo o Vencimento corretamente.

 

Acredito que seja útil disponibilizar esta alteração no svn.

 

Att.,

Denise Lima

[Juliomar Marchetti]

Bom dia

Correção disponibilizada no svn!

Favor atualizar!

 

Obrigado pela contribuição @Denise!