Correção Diversas Units Erro StrToInt - Arq. Retorno

[Hetosoft Sistemas]

  Bom dia!!!

 

      @Juliana Tamizou, Encontrei um Erro nessas Units:

      Fontes\ACBrBoleto\ACBrBancoBradesco.pas

     Fontes\ACBrBoleto\ACBrBancoBradescoSICOOB.pas 

     Fontes\ACBrBoleto\ACBrBancoCaixaSICOB.pas

     Fontes\ACBrBoleto\ACBrBancoCecred.pas

     Fontes\ACBrBoleto\ACBrBancoSicredi.pas.

  

   Na Seguinte Linha:

 

    CodOcorrencia := StrToInt(IfThen(copy(Linha,109,2) = '00','00',copy(Linha,109,2)));

 

  essa linha contem em todas essas units.

  O q esta acontecendo q em certa situacao o banco me retornou um Arquivo de Retorno com essa string do copy(Linha,109,2) = '  ' (vazio).

 

  A correçao é bem simples, trocar para StrToIntDef, igual esta na linha acima :

 

  OcorrenciaOriginal.Tipo     := CodOcorrenciaToTipo(StrToIntDef(
                                        copy(Linha,109,2),0));

 

  Teria como me ajudar? para mim nao precisar modificar meu fonte.

 

  Aguardo seu Retorno.

 

  

[José M. S. Junior]

Bom dia,

Será atualizado junto as demais contribuições... Obrigado.

[José M. S. Junior]

Favor atualizar os fontes para testes...