Erro e possível correção ao extrair data do retorno da caixa econômica federal e valor for zerado

[jun_pdv]

Bom dia a todos!

Sou novo por aqui, como muitos abandonei a CobrebemX devido ao aumento exorbitante de valor e há alguns dias passei a utilizar componentes da acbr, e só tenho elogios, é um ótimo componente.

Porém ao efetuar o retorno da caixa econômica federal pelo cobCaixaEconomica, cnab 240, me apresentou o seguinte erro ao ler uma taxa "econvert error with message '00/00/0000' is not valid data and time", ok, foi um erro de conversão devido a data estar zerada, para corrigir, fui até a unit do banco em questão cobCaixaEconomica, e inseri um if para verificar se data estava zerada, antes de buscar as datas e fazer a conversão,exemplos abaixo:

if StrToIntDef(Copy(Linha,192,6),0) <> 0 then
      ACBrBanco.ACBrBoleto.DataArquivo   := StringToDateTimeDef(Copy(ARetorno[1],192,2)+'/'+
                                                             Copy(ARetorno[1],194,2)+'/'+
                                                             Copy(ARetorno[1],198,2),0, 'DD/MM/YY' );

 

[...]

if StrToIntDef(Copy(Linha,74,6),0) <> 0 then
               Vencimento := StringToDateTimeDef( Copy(Linha,74,2)+'/'+
                                               Copy(Linha,76,2)+'/'+
                                               Copy(Linha,80,2),0, 'DD/MM/YY' );

 

Efetuei essa alteração em todas as datas do retorno cnab240 e cnab400 que ainda não tinham essa verificação, gostaria de saber isso é correto? e se sim, se vocês podem corrigir isso no SVN, de qualquer forma deixo a unit anexada aqui, caso tenha alguma duvida.

ACBrBancoCaixa.rar

[Antonio Gomes]

10 horas atrás, jun_pdv disse:

Bom dia a todos!

Sou novo por aqui, como muitos abandonei a CobrebemX devido ao aumento exorbitante de valor e há alguns dias passei a utilizar componentes da acbr, e só tenho elogios, é um ótimo componente.

Porém ao efetuar o retorno da caixa econômica federal pelo cobCaixaEconomica, cnab 240, me apresentou o seguinte erro ao ler uma taxa "econvert error with message '00/00/0000' is not valid data and time", ok, foi um erro de conversão devido a data estar zerada, para corrigir, fui até a unit do banco em questão cobCaixaEconomica, e inseri um if para verificar se data estava zerada, antes de buscar as datas e fazer a conversão,exemplos abaixo:

if StrToIntDef(Copy(Linha,192,6),0) <> 0 then
      ACBrBanco.ACBrBoleto.DataArquivo   := StringToDateTimeDef(Copy(ARetorno[1],192,2)+'/'+
                                                             Copy(ARetorno[1],194,2)+'/'+
                                                             Copy(ARetorno[1],198,2),0, 'DD/MM/YY' );

 

[...]

if StrToIntDef(Copy(Linha,74,6),0) <> 0 then
               Vencimento := StringToDateTimeDef( Copy(Linha,74,2)+'/'+
                                               Copy(Linha,76,2)+'/'+
                                               Copy(Linha,80,2),0, 'DD/MM/YY' );

 

Efetuei essa alteração em todas as datas do retorno cnab240 e cnab400 que ainda não tinham essa verificação, gostaria de saber isso é correto? e se sim, se vocês podem corrigir isso no SVN, de qualquer forma deixo a unit anexada aqui, caso tenha alguma duvida.

ACBrBancoCaixa.rar

Engraçado, essa posicao que mexeu, nao seria para arquivo de remessa? é sigcb que voce seguiu?

Editado 22 Março, 2017 por Antonio Gomes
faltou

[jun_pdv]

Não, foi na função específica para retorno cnab 240 e retorno cnab 400 do banco cobcaixaeconomica.

Fazendo essa correção que mencionei acima, resolveu o meu problema, pois no retorno tinha uma taxa e ela tinha data de vencimento zerada.

[Graziele Rocha Serafim]

Boa tarde @jun_pdv, alteração encontra-se disponível no SVN.

Att.