Acbrboleto1.lerretorno

[Hetosoft Sistemas]

Eu usando

 

cobCaixaEconomica

c240

 

ACBrBoleto1.LerRetorno;

 

 

da erro neste lugar, erro de data falalndo que 00/00/00 nao data valida,

significa que tem alguma configuracao que eu nao fis no ACBrBoleto1 ?

 

procedure TACBrCaixaEconomica.LerRetorno240(ARetorno: TStringList);

 

 

e como faço para colocar o que leu em um Memo1,

 

obrigado pela atencao.

 

 

[Hetosoft Sistemas]

procedure TfrmDemo.Button8Click(Sender: TObject);
Var
 i: integer;
 Titulo : TACBrTitulo;
begin


   ACBrBoleto1.LerRetorno;



   try
       For I := 0 to ACBrBoleto1.ListadeBoletos.Count - 1 do
       begin
        Titulo := ACBrBoleto1.ListadeBoletos.Objects;

        Memo1.Lines.Add('Numero do Documento = ' + Titulo.NumeroDocumento);
        Memo1.Lines.Add('Valor Recebido      = ' + FloatToStr(Titulo.ValorRecebido));
        Memo1.Lines.Add('Nosso Numero        = ' + Titulo.NossoNumero);
        Memo1.Lines.Add('Nome do Cliente     = ' + Titulo.ACBrBoleto.Name);
       end;
   finally


   end;



end;