Jump to content

dev botao
  • Este tópico foi criado há 2475 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Posted

Boa noite amigos,

Como faço para adicionar mais de um produto no XML usando o Det.Add.Prod ?

Seria só informar mais um Det.Add.Prod.nItem no código que o componente já entenderia e criaria mais uma TAG de produto dentro do XML?!

 

Agradeço desde já.

Posted

Bom dia,

Sim Juliomar, estou usando o exemplo "ACBRNFe Demo" que tem lá, mas no código dele só mostra fazendo 1 item apenas.

Algum outro exemplo específico lá que tenha o que preciso?

Ou se puder colar um trechinho de um código teu aqui.

  • Moderadores
Posted
13 minutos atrás, dmonteiro disse:

Bom dia,

Sim Juliomar, estou usando o exemplo "ACBRNFe Demo" que tem lá, mas no código dele só mostra fazendo 1 item apenas.

Algum outro exemplo específico lá que tenha o que preciso?

Ou se puder colar um trechinho de um código teu aqui.

sim tem o projeto do ACBrMonitorPLUS com uma unit só para NF-e e lá adiciona diversos produtos. ;)

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Solution
Posted
7 horas atrás, dmonteiro disse:

Ou se puder colar um trechinho de um código teu aqui.

Você deve ter uma estrutura de repetição para os produtos e o trecho ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add faz com que um novo grupo de produtos seja criado. Algo assim:

while not qr.Eof do
begin
  with ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add do
  begin
    Prod.cProd := qr.FieldByName('ID').AsString;
    Prod.xProd := qr.FieldByName('PRODUTO').AsString;
  
    // Demais campos necessários para a geração da NF-e
  end;

  qr.Next;
end;

 

  • Like 1
Posted
Em 04/05/2018 at 18:36, FSoftware disse:

Você deve ter uma estrutura de repetição para os produtos e o trecho ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add faz com que um novo grupo de produtos seja criado. Algo assim:


while not qr.Eof do
begin
  with ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add do
  begin
    Prod.cProd := qr.FieldByName('ID').AsString;
    Prod.xProd := qr.FieldByName('PRODUTO').AsString;
  
    // Demais campos necessários para a geração da NF-e
  end;

  qr.Next;
end;

 

Muitooo obrigado FSoftware, resposta simples e elucidativa.

O uso deste "Items[0]" era o que eu precisava aprender. Apliquei no meu código dentro de minha estrutura de repetição e BINGO, gerou os itens.

Vou avançar aqui no desenvolvimento e precisando posto de novo.

Obrigado tb Juliomar.

  • Like 1
  • Este tópico foi criado há 2475 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...