Erro Ao Ler Retorno Do Banco Sicredi

[guilhermeservice]

Olá estou com problemas  com o arquivo de retorno to bando sicredi, o sistema acusa estar faltando uma data no arquivo tem como analisarem e me dar uma resposta.

Ele da erro na unit ACBrBancoSicredi;

Linha 441 : DataCredito:= StringToDateTimeDef( Copy(Linha,335,2)+'/'+

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

                                                                              Copy(Linha,329,4),0, 'DD/MM/YYYY' );

aparece data invalida.

 

estarei anexando o arquivo de remessa que estou testando.

 

Obrigado Desde Já! 

 

92515313.txt

92515313.txt

[Juliana Tamizou]

Bom dia.

 

O erro ocorre quando vc manda efetuar a leitura do arquivo retorno?

Anexe também o arquivo retorno.

 

 

Att.

[guilhermeservice]

Juliana o arquivo ja esta anexado o formato orginial é .crt mais coloquei como txt para anexar.

vou anexar novamente.

Obrigado desde Já.

92515313.txt

[andersonh]

Guilherme tem 3 retornos que não possuem a Data do Credito dentro do arquivo,faça o seguinte:

 

if StrToIntDef(Copy(Linha,329,8),0) <> 0 then

        DataCredito:= StringToDateTimeDef( Copy(Linha,335,2)+'/'+

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

                                          Copy(Linha,329,4),0, 'DD/MM/YYYY' );

 

Ja fiz essa alteração só não sei se o pessoal ja publicou no SVN. Esperimente atualizar antes!

[guilhermeservice]

Galera gostaria de Saber após a leitura do arquivo de retorno... como sei o seu tipo de ocorrencia, por exemplo se é uma remessa de erro, uma remessa que consta que os boletos foram pagos... esses tipos de occorencia.

Obrigado desde Já.

Editado 3 Junho, 2013 por guilhermeservice

[andersonh]

Guilherme através do código da ocorrência, e através do código do motivo:

 

codOcorrencia := StrToInt(acbrBoleto.ListadeBoletos[contTitulos].OcorrenciaOriginal.CodigoBanco);

codMotivo     := Trim(acbrBoleto.ListadeBoletos[contTitulos].MotivoRejeicaoComando.Text);

 

Era essa sua dúvida?

[guilhermeservice]

obrigado

Editado 13 Junho, 2013 por guilhermeservice

[Juliana Tamizou]

Boa tarde.

 

Se suas dúvidas foram completamente atendidas, por favor marque o tópico como resolvido.