Xml dos itens Nfe

---

Duvidas tiradas no Forum

Não estou conseguindo gerar a TAG <det nItem = XX> da NF-e dentro do loop dos itens da nota.
Eu tenho 5 itens na nota porem grava apenas o ultimo no XML.
Alguem, por favor, pode me fornecer um pedaço de codigo com esta rotina?

http://www.windevbrasil.com.br/index.php/topic,1736.0.html

---

AGORA SIM !!!

nContador = 1
FOR EACH ArqNotas ON RegistroSeq WHERE "Registro = " + CadNotas.Registro 
   HReadSeek(CadProdutos,Produto,ArqNotas.Produto)
  
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/@nItem",NoSpace(NumToString(nContador,"2d"))) 
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/cProd", NoSpace(NumToString(ArqNotas.Produto,"13d")))
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/cEAN", NoSpace(CadProdutos.EAN))
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/xProd", CadProdutos.Descricao)
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/CFOP", ArqNotas.Operacao[[1 TO 4]])
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/uCom", CadProdutos.Medida)
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/qCom", NoSpace(NumToString(ArqNotas.Quantidade,"10d")))
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/vUnCom", NoSpace(NumToString(ArqNotas.Produto,"12.4f")))
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/cEANTrib", "")
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/uTrib", CadProdutos.Medida)
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/qTrib", NoSpace(NumToString(ArqNotas.Quantidade,"10d")))
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/vUnTrib", NoSpace(NumToString(ArqNotas.Produto,"12.4f"))) 
   XMLWrite("XML","/NFe/infNFe/det[" + nContador + "]/prod/indTot", "1")
   nContador++
END

Grato pelo precioso tempo de todos que ajudaram.
Eu poderia ter feito com XMLAddChild() e XMLAddAttribute(), porem, optei pelo XMLWrite() porque o codigo fica mais "enxuto".

---

---

---