PROCEDURE ler_danfe_itens_impostos_xml() documento is string = EDT_Xml_nfe xml_nfe is a xmlDocument xml_nfe=XMLOpen(documento,fromString) det is xmlNode _sequencia is int=0 FOR EACH det OF xml_nfe.nfeProc.NFe.infNFe on det TableAddLine(TABLE_itens) // Adicionando a tabela n_ocorrencia is int= TABLE_itens..Occurrence //vou ter o numero atual linha tabela _sequencia++ TABLE_itens.COL_01_sequencia[n_ocorrencia]=_sequencia TABLE_itens.COL_02_id_nota_fiscal_iten[n_ocorrencia]=0 TABLE_itens.COL_03_cProd[n_ocorrencia]=det.prod.cProd TABLE_itens.COL_04_cEAN[n_ocorrencia]=det.prod.cEAN TABLE_itens.COL_18_ICMS_ICMSSN_orig[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].orig TABLE_itens.COL_19_ICMS_ICMSSN_CST_CSOSN[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].CST END //=================================
AULA 1307 WINDEV XML 017 - LER ITENS NOTA NFE
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1307-windev-xml-017-ler-itens-nota.html
https://www.yout |