Inserir produtos na NFE

[Mauricio]

Boa noite, meu primeiro post, tenho meu sistema de vendas funcionando, consigo gerar a nfe com os dados da venda, ou quase, minha logica para inserir os produtos não funciona, ele até insere a quantidade de itens, porém sempre o primeiro item do dataset. Exemplo se vendo um carro um barco e um avião e um helicoptero, ele lança 4 carros na nfe.

for Produto := 1 to TotalItens do

  begin

      with Det.Add do


       begin

         Prod.nItem    := Produto; 

         Prod.cProd    := DM.CDS.FieldByName('PRODUTO').Value;

Não quero o codigo, somente entender esta logica, pois pego o total de itens da venda por um comando recordcount que me traz o toal de itens da nota numero tal. Jogo nesse for, porém não sei como na segunda volta do loop ele enviar o segundo item do dataset. Espero que entendam minha duvida.

[peterson161]

- Mande o dataset ir para o primeiro registro e zere a variável "Produto":

=====================================================

DM.CDS.First;

Produto := 0;

=====================================================

- Substitua o "for" por um "while not DM.CDS.Eof"

=====================================================

while not DM.CDS.Eof do // for Produto := 1 to TotalItens do

begin

with Det.Add do

begin

Produto := Produto + 1; // Ou inc(Produto)

Prod.nItem := Produto;

Prod.cProd := DM.CDS.FieldByName('PRODUTO').Value;

=====================================================

- Linha imprescindível para evitar um "Loop eterno"

=====================================================

DM.CDS.Next;

=====================================================

- Código "Completo"

=====================================================

DM.CDS.First;

Produto := 0;

while not DM.CDS.Eof do

begin

with Det.Add do

begin

Produto := Produto + 1;

Prod.nItem := Produto;

Prod.cProd := DM.CDS.FieldByName('PRODUTO').Value;

end; // with Det.Add do

DM.CDS.Next;

end; // while not DM.CDS.Eof

[Mauricio]

Bah nem sei como agradecer, funcionou perfeitamente !!!