TACbrTitulo não carrega dados de retorno

[Magno Silva]

Boa tarde pessoal, Estou quebrando a cabeça desde ontem com esse problema, estou tentando capturar as informações de um arquivo de retorno, mas quando são dados que vem da classe TACBRTitulo os dados estão vindo em branco, já dados como cedente, banco ,sacado que são provenientes da classe TAcbrBoleto estão sendo carregados tranquilamente. Já fiz mil formas de tentar carregar e não consegui , já verifiquei o arquivo com o layout em mãos e o arquivo está correto. O que estou fazendo de errado para não dar certo ?

 

   try    
    i:=1;
       While FindResult = 0 do
        begin
            Titulo := TAcbrTitulo.create(boleto);
            GridRetorno.RowCount  := GridRetorno.RowCount + 1;

    

            Titulo.ACBrBoleto.DirArqRetorno  := DiretorioRaiz;
            Titulo.ACBrBoleto.NomeArqRetorno := SearchFile.Name; //Carrego o arquivo diretamente de uma pasta.
            Titulo.ACBrBoleto.LeCedenteRetorno := true;
            Titulo.acbrboleto.lerRetorno; 

            GridRetorno.Cells[4,i] := DateToStr(Boleto.ListadeBoletos.Objects[0].Vencimento);
            GridRetorno.Cells[5,i] := floattostr(Titulo.ValorRecebido);
            GridRetorno.Cells[6,i] := Titulo.NossoNumero;

            FindResult := FindNext(SearchFile);
        end;

   finally
            FindClose(SearchFile)
   end;

[lucasjrnany]

Boa Tarde,

 

Faz assim :

 try    
    i:=1;
       While FindResult = 0 do
        begin
             GridRetorno.RowCount  := GridRetorno.RowCount + 1;

            ACBrBoleto.DirArqRetorno  := ExtractFileDir(edtcaminho.text);
            ACBrBoleto.NomeArqRetorno := .ExtractFileName(edtcaminho.text);
            ACBrBoleto.LeCedenteRetorno := true;
            acbrboleto.lerRetorno; 

            for i := 0 to ACBrBoleto.ListadeBoletos.Count -1 do 

           begin

             GridRetorno.Cells[4,i] := acbrBoleto.ListadeBoletos.Objects.Vencimento;
             GridRetorno.Cells[5,i] := acbrBoleto.ListadeBoletos.Objects.ValorRecebido;
             GridRetorno.Cells[6,i] :=  acbrBoleto.ListadeBoletos.NossoNumero;

           end

     except

       mensagem sua de erro ;
     end;
   end;

 

mais menos assim qualquer duvida post ai que tentamos ajudar.

 

Att ...