Windev21 Aulas,Estudos e Desenvolvimento: AULA 1240 WINDEV XML 012 ITENS

terça-feira, 15 de agosto de 2017

// ESTOU CRIANDO AS VARIAVEIS PARA PEGAR AS TAGS
// I AM CREATING THE VARIABLES TO TAG THE TAGS
// ESTOY CREANDO LAS VARIABLES PARA PEGAR LAS TAGS

EDT_RESULTADO=""

NItem is string=""
NItem_anterior is string=""

nome_tag is string=""
cProd is string=""
xProd is string=""
NCM is string=""
CFOP is string=""
uCom is string=""
vUnTrib is string=""
vProd is string=""
xPed is string=""
infAdProd is string=""
XMLDocument("XML",EDT_XML)
XMLFind("XML",Null,XMLContinue+XMLChildItem)
WHILE XMLFound("XML")
SWITCH XMLElementType("XML")
CASE XMLTag :
nome_tag = XMLElementName("XML")
SWITCH nome_tag
CASE "cProd" :
cProd = XMLData("XML")
CASE "xProd" :
xProd = XMLData("XML")

CASE "NCM" :
NCM = XMLData("XML")
CASE "CFOP" :
CFOP = XMLData("XML")
CASE "uCom" :
uCom = XMLData("XML")
CASE "vUnTrib" :
vUnTrib = XMLData("XML")
CASE "vProd" :
vProd = XMLData("XML")
CASE "xPed" :
xPed = XMLData("XML")
CASE "infAdProd" :
infAdProd = XMLData("XML")
END
CASE XMLAttribute
IF nome_tag="det" THEN
NItem = XMLData("XML")
IF NItem_anterior="" THEN
NItem_anterior=NItem
ELSE
mostra_xml()
END
END
END
XMLNext("XML")
END
mostra_xml()
XMLClose("XML")

INTERNAL PROCEDURE mostra_xml()

EDT_RESULTADO+=NItem+"|"+cProd+"|"+xProd+"|"+NCM+"|"+CFOP+"|"+uCom+"|"+vUnTrib+"|"+vProd+"|"+xPed+"|"+infAdProd+CR
END

sFile is string

// Opens the file picker
sFile = fSelect("", "", "Seleciona um Arquivo Xml Para Importar", "Xml" + TAB + "*.xml", "*.xml")
EDT_XML=fLoadText(sFile)