Emitir vários Produtos na Nfe

[laurovinicius]

Caros Colegas, estou começando em Nfe,e no XML...então gostaria da ajuda de vocês se possível...

no exemplo demo, que vem no componente acbr, Nfe esta somente com 1 produto...estou com dificuldades de lançar vários produtos na mesma nota..no meu aplicativo(feito em Delphi) eu lançei a nota(de saida) assinei a mesma e mandei gerar o xml...ate ai sem problemas, porem, eles repete o mesmo produto..gostaria q olhassem meu código e verificassem onde estou errando

trecho do codigo.txt

[peterson161]

Olhando seu código não vi nada de anormal.

Acho que está repetindo porque você está passando os mesmos valores para cada "Add" ao invés de buscá-los da tabela. Será que não é isso ?

Pelo que eu vi, você adiciona assim:

Prod.cEAN := '1234567890123';

Prod.xProd := vDescricaoProduto;

Prod.NCM := '12345678'; // Tabela NCM disponível em...

Não deveria ser assim?

Prod.cEAN := ZroItens.CampoEAN;

Prod.xProd := ZroItens.CampoDescricaoProduto;

Prod.NCM := ZroItens.CampoCodigoNCM; ...

[flavioti]

Seu código parece estar correto, eu uso assim também, conforme exemplo.

Tenta assim (Não testei)

ACBrNFe1.NotasFiscais.Add; // Adiciona uma nota fiscal (Indice 0)

ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add; // Adiciona produto (Indice 0)

ACBrNFe1.NotasFiscais.Items[0].NFe.Det[0].Prod.xProd := ''; // Define nome no produto (Indice 0)

ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add; // Adiciona produto (Indice 1)

ACBrNFe1.NotasFiscais.Items[0].NFe.Det[1].Prod.xProd := ''; // Define nome no produto (Indice 1)

[laurovinicius]

peterson Valeu pela dica Cara!!! realmente Funcionou..estava errado meu codigo!

Valeu mesmo!

flavioti...valeu também pela força!