Windev21 Aulas,Estudos e Desenvolvimento: xml Ler

Mostrando postagens com marcador xml Ler. Mostrar todas as postagens

terça-feira, 5 de julho de 2016

Curso WinDev - Xml - 004 - Ler xml Aula 3/...

Nessa aula vou mostrar como ler um xml

This lesson will show how to read a xml

Cette leçon montre comment lire un 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

Tag Retirar - XmlRead - WinDev - Xml - 005/...
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
Sefaz Gratuito-Ler Xml Cliente/Gravar - WinDev - Xml - 006/...

//("xml","/nfeProc/protNFe/infProt/chNFe")
//("xml","/nfeProc/NFe/infNFe/ide/nNF")
//fazer a pesquisa e mostrar // do research and show // faire des recherches et spectacle

EDT_ChaveNota=pesquisa("chNFe",EDT_xml)
EDT_numero_nota=pesquisa("nNF",EDT_xml)

//vou fazer uma procedure interna pesquisa tag // i will make an internal tag search procedure
// je vais faire une procédure tag de recherche interne

    INTERNAL PROCEDURE pesquisa(_recebe_tag,_recebe_arquivo_xml)
       //vou criar string texto inicial e final //i will create string start and ent text
       //je vais créer début de chaîne et le texte final
       _texto_inicial is string="<"+_recebe_tag+">"
       _texto_final is string="</"+_recebe_tag+">"
       //criar uma posicao inicial e final //create an initital and final position //créer une position initiale et finale
       _posicao_inicial is int=0
       _posicao_final is int=0
       //vou pegar a posição inicial // i´ll get the startion position //je vais prendre la position de départ
       _posicao_inicial=PositionOccurrence(_recebe_arquivo_xml,_texto_inicial,firstRank,FromBeginning)+Length(_texto_inicial)
       //vou pegar a posição final // i´ll get the final position // je vais prendre la position finale
       _posicao_final=PositionOccurrence(_recebe_arquivo_xml,_texto_final,firstRank,FromBeginning)
       //vou verificar se posição final maior inicial // i will check if initial higher end position // je vais vérifieir si la position iniale de haut de gamme
       IF _posicao_final>_posicao_inicial THEN
                //vou pegar o conteudo da tag // i´ll take the content of the tag   //je vais prendrer le contenu de la balise
                RESULT Middle(_recebe_arquivo_xml,_posicao_inicial,_posicao_final-_posicao_inicial)
           ELSE
                RESULT ""
           END

    END

segunda-feira, 4 de julho de 2016

Curso WinDev - Xml - 003 - Ler xml Aula 2/...

Video youtube

Nessa aula, vou mostrar como ler xml com XmdDocument

In this lesson, I will show how to read XML with XmlDocument

Dans cette leçon, je vais vous montrer comment lire XML avec XmlDocument

http://doc.windev.com/en-US/?1000018782&name=TYPE_xmlDocument
http://doc.pcsoft.fr/fr-FR/?1000018782&name=xmldocument_type_variable

sDocumento is string=EDT_xml
//Vou abrir o xml // i Will open the xml // je vais ouvrir le xml
XMLDocument("xml",sDocumento)
XMLFind("xml",Null,XMLContinue+XMLChildItem)

//Acima exemplo do xml pegar chave nfe // Above example xml get key nfe // Au-dessus exemple xml obtenir nfe clé
EDT_ChaveNota=XMLRead("xml","/nfeProc/protNFe/infProt/chNFe")
//Vamos pegar numero nota fiscal // let-s take number invoice // prenons facture numéro
EDT_numero_nota=XMLRead("xml","/nfeProc/NFe/infNFe/ide/nNF")
//<?xml version="1.0" encoding="UTF-8"?>
//<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">
//<NFe xmlns="http://www.portalfiscal.inf.br/nfe">
//<infNFe Id="NFe43160689054050000165550010011405341015943286" versao="3.10">
//<ide>
//<cUF>43</cUF>
//<cNF>01594328</cNF>
//<natOp>VENDA MERCADORIAS SUBST. TRIBUTARIA</natOp>
//<indPag>1</indPag>
//<mod>55</mod>
//<serie>1</serie>
//<nNF>1140534</nNF>
//<dhEmi>2016-06-24T00:00:00-03:00</dhEmi>
//Vamos pegar a data emissao// let´s get the date issuance // obtenons i´émission de date
s_data_emissao is string=XMLRead("xml","/nfeProc/NFe/infNFe/ide/dhEmi")
//2016-06-24
//1234567890
//Vou transformar data string em data// i´ll turn string date date // je vais chaîne de date jour tourne
d_data_emissao is Date=""
d_data_emissao..Day=s_data_emissao[[9 TO 10]]
d_data_emissao..Month=s_data_emissao[[6 TO 7]]
d_data_emissao..Year=s_data_emissao[[1 TO 4]]
EDT_data_emissao=d_data_emissao
//vou fazer o mesmo para cnpj e numero nota fiscal //i will do the same for cnpj number and invoice
// je vais faire la meme chose pour le numéro de cnpj et la facture
EDT_cnpj_emitente=XMLRead("XML","/nfeProc/NFe/infNFe/emit/CNPJ")
EDT_cnpj_destinatario=XMLRead("XML","/nfeProc/NFe/infNFe/dest/CNPJ")
IF EDT_cnpj_destinatario="" THEN
EDT_cnpj_destinatario="CPF:"+XMLRead("XML","/nfeProc/NFe/infNFe/dest/CPF")
END
EDT_valor_nota_fiscal=XMLRead("XML","/nfeProc/NFe/infNFe/total/ICMSTot/vNF")

sexta-feira, 1 de julho de 2016

Curso WinDev - Xml - 002 - Ler xml Aula 1/...

Nessa aula vou comecar a ensinar como ler xml

In this lesson I will start to teach how to read xml

Dans cette leçon, je vais commencer à apprendre à lire xml

Video Youtube