Windev21 Aulas,Estudos e Desenvolvimento: Aula 1067 - Windev - Xml 9/...

quinta-feira, 16 de fevereiro de 2017

Aula 1067 - Windev - Xml 9/... - Ler um Xml de Nota Fiscal Eletronica

Video no Youtube Se Gostou clique aqui para dar joinha

//Ler um Xml de Nota Fiscal Eletronica
//Pegar Numero da Nota e data emissao
//Pegar dados dos Itens dos Produtos

//Ler Xml, Colocar dados e Preencher tabela com Produtos
xml_nfe is a xmlDocument = XMLOpen (edT_xml,fromString)
Trace("Operacao:"+xml_nfe.NFe.infNFe.natOp) //Mostrar na Tela natOp
Trace("Emitente:"+xml_nfe.NFe.infNFe.emit.xNome)
Trace("infnfe Id:"+xml_nfe.NFe.infNFe..Attribut[1])
Trace("infnfe Versao:"+xml_nfe.NFe.infNFe..Attribut[2])
SAI_NumeroNota=xml_nfe.NFe.infNFe.ide.nNF
_data_string is string=xml_nfe.NFe.infNFe.ide.dhEmi
_data is Date=""
_data..Year=_data_string[[1 TO 4]]
_data..Month=_data_string[[6 TO 7]]
_data..Day=_data_string[[9 TO 10]]
SAI_data_emissao=_data
TableDeleteAll(TABLE_itens_nota) // Limpa Tabela
det is xmlNode
FOR EACH det OF xml_nfe.NFe.infNFe on det
    Trace("ocor"+det..Occurrence) // Quantos itens tem
    Trace("nItem"+det..Attribut[1]) // Mostrar o que tem nItem
    Trace("Imposto vTotTrib:"+det.imposto.vTotTrib)
    Trace("Produto:"+det.prod.xProd)
    TableAddLine(TABLE_itens_nota) // Adicionando a tabela
    n_ocorrencia is int= TABLE_itens_nota..Occurrence //vou ter o numero atual linha tabela
    TABLE_itens_nota.COL_Iten[n_ocorrencia]=det..Attribut[1]
    TABLE_itens_nota.COL_Produto[n_ocorrencia]=det.prod.xProd
    TABLE_itens_nota.COL_Valor_Tributo[n_ocorrencia]=det.imposto.vTotTrib
END