segunda-feira, 4 de setembro de 2017

AULA 1255 XML 015 RETIRAR ITENS XML





=================================================



VOU ENSINAR COMO RETIRAR ITENS DO XML



=================================================



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++

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

//mdfeProc/MDFe/infMDFe/infDoc/infMunDescarga/infNFe/chNFe[1]

//mdfeProc/MDFe/infMDFe/infDoc/infMunDescarga/infNFe/chNFe[2]

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









Teste

Teste
teste