terça-feira, 15 de agosto de 2017

AULA 1240 WINDEV XML 012 ITENS










https://doc.windev.com/en-US/?1000019281&name=XMLDocument_R


https://www.youtube.com/watch?v=wfN6c0WxsWY




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






















// 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)










WinDev - 13:30 - Desenvolvimento Diversos - Erp



TESTETESTETESTETESSETETSETSETSETEST

WINDEV - 07:00 - TABELA ICM - REAJUSTAR



TESTETESTETESTETESSETETSETSETSETEST

WinDev - 05:00 Diversas Alterações - Programação -



TESTETESTETESTETESSETETSETSETSETEST

Teste

Teste
teste