quarta-feira, 6 de setembro de 2017

AULA 1256 XML 016 itens xml









PROCEDURE _AULA()
XMLDocument("XML",pXML)
XMLFind("XML",Null,XMLContinue+XMLChildItem)
s_ide_id_nota is string=XMLRead("XML","/mdfeProc/MDFe/infMDFe/@Id")
  //  VAI RETORNAR => MDFe43170800397887000101580010000000731000001825
s_ide_cUF is string=XMLRead("XML","/mdfeProc/MDFe/infMDFe/ide/cUF")
  //  VAI RETORNAR => 43
n_contador is int=0
s_infDoc_chNFe is string=""

LOOP
n_contador++
//mdfeProc/MDFe/infMDFe/infDoc/infMunDescarga/infNFe[1]/chNFe
//mdfeProc/MDFe/infMDFe/infDoc/infMunDescarga/infNFe[2]/chNFe
s_chNFe is string=XMLRead("XML","/mdfeProc/MDFe/infMDFe/infDoc/infMunDescarga/infNFe["+n_contador+"]/chNFe")

IF s_chNFe="" THEN
BREAK
    ELSE
   s_infDoc_chNFe+="CT-E  "+s_chNFe+CR
END

END
//RESULTADO
//43170912322526000177550010000036031000144120
//43170912322526000177550010000036031000144120
//43170912322526000177550010000036031000144120


XMLClose("xml")
















WinDev - Xml - 001/... Criar um Xml
WinDev - Xml - 002/... Ler Xml Aula 1/...
WinDev - Xml - 003/... Ler Xml Aula 2/...
WinDev - Xml - 004/... Ler Xml Aula 3
WinDev - Xml - 005/... XmlRead - Retirar Tag
WinDev - Xml - 006/... Sefaz Gratuito-Ler Xml Cliente/Gravar
WinDev - Xml - 007/... Utf8ToString
Ler Xml e Colocar Tabela - WinDev - Xml - 008/...
Ler Xml Nfe - WinDev - Xml 009
LER ITENS XML - DOCZIP MANIFESTACAO - XML 010 - AULA 1187
DESCOMPACTAR STRING - XML - MANIFESTACAO NOTA - XML 011 - AULA 1192
LER ITENS NFE XML - XML 12 - AULA 1240
RETIRAR ITEN XML - XML 15 - AULA 1255
RETIRAR ITEN XML PARTE 2 - XML 16 - AULA 1256
XML LER ITENS - XML 17 AULA 1307



Teste

Teste
teste