Olá Amigos ,
Estou com um problema para ler o arquivo de retorno do Banco Sicoob quando chamado ACBrBoleto1.LerRetorno ele da um erro
erro: 00/00/00 is not valid date and time , alguém pode me ajudar a resolver, segue também o arquivo de retorno.
Segue o código:
with ACBrBoleto1.Banco do
begin
Digito := 0;
Nome := 'SICOOB';
Numero := 756;
TipoCobranca := cobBancoob;
end;
(*DADOS DO CEDENTE*)
ACBrBoleto1.Cedente.Nome := Qconf.FieldByName('cedentenome').AsString;
ACBrBoleto1.Cedente.CNPJCPF := Qconf.FieldByName('cedentecnpj').AsString;
ACBrBoleto1.Cedente.CodigoCedente := Qconf.FieldByName('cedentecodigo').AsString;
ACBrBoleto1.Cedente.Agencia := Qconf.FieldByName('cedenteagencia').AsString;
ACBrBoleto1.Cedente.AgenciaDigito := Qconf.FieldByName('cedenteagenciadigito').AsString;
ACBrBoleto1.Cedente.Conta := Qconf.FieldByName('cedenteconta').AsString;
ACBrBoleto1.Cedente.ContaDigito := Qconf.FieldByName('cedentecontadigito').AsString;
ACBrBoleto1.Cedente.Modalidade := Qconf.FieldByName('cedentemodalidade').AsString;
ACBrBoleto1.NomeArqRetorno := ExtractFileName(OpenDialog1.FileName);
ACBrBoleto1.DirArqRetorno := ExtractFilePath(OpenDialog1.FileName);
ACBrBoleto1.LeCedenteRetorno := true;
ACBrBoleto1.LerRetorno;
CB050200.zip