Como exibir os dados de retorno no DBgrid ?

[joaolenosi]

Boa tarde, surgiu uma dúvida, após eu lê os dados de retorno, como faço para povoar o Dbgrid ?

O meu código tá mais ou menos assim

//... Código

    ACBrBoleto1.NomeArqRetorno := Auxiliar;

    Edit2.Text := OpenDialog1.FileName;  // ACBrBoleto1.NomeArqRetorno;

    ACBrBoleto1.LerRetorno;


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

    begin

        if ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido > 0 then

        begin

               //... Código


        end;

    end;

[Mark Apollo]

Eu utilizaria um ClientDataSet ou qualquer outro dataset que use memória geraria os campos manualmente e atribuiria os valores um a um. acredito que esta é a forma mais prática de fazer.

[joaolenosi]

Eu nunca utilizei esse componente não, poderia me da um exemplo de como você faria, utilizando o ClientDataSet

[joaolenosi]

Pessoal tava debugando o meu arquivo de retorno, e vi que ele nem se quer , ta passando da segunda linha. Alguém tem idéia do que possa tar acontecendo ?

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

    begin

        if ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido > 0 then

[Filipe Sortica]

Olá joaolenosi!

Sobre tu nunca teres utilizado o ClientDataSet, tu encontras muito material sobre este componente na Internet.

Um material que eu sugiro é: http://delphi.about.com/od/usedbvcl/a/tclientdataset.htm.

Espero que te seja útil.

Qualquer dúvida estamos aí.

[Juliana Tamizou]

Bom dia.

Você verificou se a lista de boleto não está vazia?

Att

[joaolenosi]

O print da tela em anexo, mostra que algumas proprieadas estão em branco, será esse o motivo dele não estar entrando no laço?

[joaolenosi]

Bom dia Juliana, quando estou debugando coloco o mouse em cima de ListadeBoletos.Count-1 ele mostra o seguinte

ListadeBoletos.Count-1 = 0

Agora a pergunta é, por que ele tá dizendo que é 0 se no meu arquivo de retorno tem um boleto ?

[Filipe Sortica]

Se "ListaDeBoletos.Count - 1" é igual a zero, então "ListaDeBoletos.Count" é igual a 1, ou seja, há um boleto.

[joaolenosi]

lipsort , ja tinha feito esse teste antes, quando eu coloco só ListadeBoletos.Count ele ainda continua sendo igual a 0 porem, passa para a próxima linha, o problema é que ele traz o valor do documento negativo.

mais eu peguei outro arquivo que tinha dois boletos e passou, agora a dúvida é como jogar os valor do retorno para os seguintes campos do dbgrid:

Empresa , Parcela, Cliente , Valor

[Filipe Sortica]

agora a dúvida é como jogar os valor do retorno para os [...] campos do dbgrid

Sobre tu nunca teres utilizado o ClientDataSet, tu encontras muito material sobre este componente na Internet.

Um material que eu sugiro é: http://delphi.about.com/od/usedbvcl/a/tclientdataset.htm.

Uma das explicações que tu encontras neste site é sobre como definir a estrutura do ClientDataSet utilizando o "FieldDefs".

Outra, é sobre como navegar num ClientDataSet e editá-lo.

Dá uma olhada... Qualquer dúvida estamos aí.

[joaolenosi]

Beleza então, valeu !!!