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".
