PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → DICAS 2079 - WINDEV_XML_22_LER_DUPLICATAS_NOTAS
DICAS 2079 - WINDEV_XML_22_LER_DUPLICATAS_NOTAS
Started by amarildo, Apr., 19 2019 8:21 PM - No answer
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on April, 19 2019 - 8:21 PM
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.


DICAS 2079 - WINDEV_XML_22_LER_DUPLICATAS_NOTAS


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



  
    
      
        
          001
          2019-02-12
          20.26
        

        
          002
          2019-03-14
          20.23
        

  


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…
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/…
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

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

https://groups.google.com/forum/…

https://doc.windev.com/en-US/…