sexta-feira, 19 de abril de 2019

DICAS 2079 - WINDEV_XML_22_LER_DUPLICATAS_NOTAS














VIDEO DICAS 2079 - WINDEV_XML_22_LER_DUPLICATAS_NOTAS






ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
https://groups.google.com/forum/#!forum/amarildowindev
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

https://windevdesenvolvimento.blogspot.com/2019/04/dicas-2079-windevxml22lerduplicatasnotas.html

https://doc.windev.com/en-US/?3081025&name=XMLFind

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

BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 19 04 2019. DICA 2079 . VOU MOSTRAR COMO MOSTRAR AS DUPLICATAS DE UM XML NFE.

BON MATIN, BIENVENUE À PLUS DE VIDÉO AULA. CETTE CLASSE EST ENREGISTRÉE LE JOUR 19 04 2019. CONSEIL 2079. Je vais montrer comment montrer les doublons d'un XML NFE.

Buenos días, es bienvenido a otro vídeo AULA. ESTA CLASE ESTA SENDO GRABADA EN EL DÍA 19 04 2019. SUGERENCIA 2079. VUELO MOSTRAR COMO MOSTRAR LAS DOSIFICACIONES DE UN XML NFE.

BON MATIN, BIENVENUE À PLUS DE VIDÉO AULA. CETTE CLASSE EST ENREGISTRÉE LE JOUR 19 04 2019. CONSEIL 2079. Je vais montrer comment montrer les doublons d'un XML NFE.


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

// lendo xml
// DICAS 2079 - WINDEV_XML_22_LER_DUPLICATAS_NOTAS

EDT_XML=fLoadText(EDT_procura_xml)// estou lendo o conteudo do xml, que encontramos
XMLDocument("xml_notas",EDT_XML)
EDT_RESULTADO="NATUREZA OPERACAO:"+XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/natOp")+CR
EDT_RESULTADO+="Emitente:"+XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/xNome")+CR
EDT_RESULTADO+="Destinatario:"+XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/xNome")+CR
EDT_RESULTADO+="Total Nota:"+XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vNF")+CR
// ler itens
xml_nfe is a xmlDocument
xml_nfe=XMLOpen(EDT_XML,fromString)
det is xmlNode
// vamos agora percorrer os itens / det
FOR EACH det OF xml_nfe.nfeProc.NFe.infNFe ON det
TableAddLine(TABLE_itens) // adicionando iten na tabela
nN_OCORRENCIA is int=TABLE_itens..Occurrence // VOU TER O NUMERO ATUAL DA LINHA DA TABELA
TABLE_itens.COL_01_cProd[nN_OCORRENCIA]=det.prod.cProd
TABLE_itens.COL_02_xProd[nN_OCORRENCIA]=det.prod.xProd
TABLE_itens.COL_03_NCM[nN_OCORRENCIA]=det.prod.NCM
TABLE_itens.COL_04_qCom[nN_OCORRENCIA]=det.prod.qCom
TABLE_itens.COL_05_vUnCom[nN_OCORRENCIA]=det.prod.vUnCom
TABLE_itens.COL_06_vProd[nN_OCORRENCIA]=det.prod.vProd
END

// DUPLICATA
XMLFind("xml_notas",Null,XMLContinue+XMLChildItem)
TableDeleteAll(TABLE_DUPLICATA)
nome_tag is string=""
sNumero_duplicata is string=""
sData_vencimento is string=""
sValor_duplicata is string=""

WHILE XMLFound("xml_notas") 
SWITCH XMLElementType("xml_notas")
CASE XMLTag :
nome_tag = XMLElementName("xml_notas")
SWITCH nome_tag
CASE "nDup"
sNumero_duplicata=(XMLData("xml_notas"))
CASE "dVenc"
sData_vencimento=(XMLData("xml_notas"))
CASE "vDup"
sValor_duplicata=(XMLData("xml_notas"))
OTHER CASE
END
IF sValor_duplicata<>"" THEN
TableAddLine(TABLE_DUPLICATA,sNumero_duplicata,sData_vencimento,sValor_duplicata)
sNumero_duplicata=""
sData_vencimento=""
sValor_duplicata=""
END
END
XMLNext("xml_notas")

END
















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

Teste

Teste
teste