terça-feira, 9 de janeiro de 2018

WINDEV DESENVOLVIMENTO VIVO 1611 DANF INFADPROD/WINDEV











VIDEO DESENVOLVIMENTO VIVO DANF VIDEO 1611 WINDEV




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_05_xProd[n_ocorrencia]=det.prod.xProd
IF det.infAdProd<>"" THEN
TABLE_itens.COL_05_xProd[n_ocorrencia]+=" "+det.infAdProd
END
TABLE_itens.COL_06_NCM[n_ocorrencia]=det.prod.NCM
TABLE_itens.COL_07_CFOP[n_ocorrencia]=det.prod.CFOP
TABLE_itens.COL_08_uCom[n_ocorrencia]=det.prod.uCom
TABLE_itens.COL_09_qCom[n_ocorrencia]=det.prod.qCom
TABLE_itens.COL_10_vUnCom[n_ocorrencia]=det.prod.vUnCom
TABLE_itens.COL_11_vProd[n_ocorrencia]=det.prod.vProd
TABLE_itens.COL_12_cEANTrib[n_ocorrencia]=det.prod.cEANTrib
TABLE_itens.COL_13_uTrib[n_ocorrencia]=det.prod.uTrib
TABLE_itens.COL_14_qTrib[n_ocorrencia]=det.prod.qTrib
TABLE_itens.COL_15_vUnTrib[n_ocorrencia]=det.vUnTrib
TABLE_itens.COL_16_indTot[n_ocorrencia]=det.indTot
TABLE_itens.COL_17_vTotTrib[n_ocorrencia]=det.imposto.vTotTrib   
TABLE_itens.COL_18_ICMS_ICMSSN_orig[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].orig
s_cst_csosn is string=""
s_cst_csosn=det.imposto.ICMS..ChildNode[1].CST
TABLE_itens.COL_19_ICMS_ICMSSN_CST_CSOSN[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].CST
IF s_cst_csosn="" THEN
TABLE_itens.COL_19_ICMS_ICMSSN_CST_CSOSN[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].CSOSN
END
TABLE_itens.COL_20_ICMS_ICMSSN_pCred[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].pCred
TABLE_itens.COL_21_ICMS_ICMSSN_vCred[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].vCred
TABLE_itens.COL_22_IPI_cEnq[n_ocorrencia]=det.imposto.IPI.cEnq
TABLE_itens.COL_23_IPI_IPITrib_CST[n_ocorrencia]=det.imposto.IPI.IPITrib.CST

TABLE_itens.COL_24_IPI_IPITrib_vBC[n_ocorrencia]=det.imposto.IPI.IPITrib.vBC
TABLE_itens.COL_25_IPI_IPITrib_pIPI[n_ocorrencia]=det.imposto.IPI.IPITrib.pIPI
TABLE_itens.COL_26_IPI_IPITrib_vIPI[n_ocorrencia]=det.imposto.IPI.IPITrib.vIPI
TABLE_itens.COL_27_PIS_PISNT_CST[n_ocorrencia]=det.imposto.PIS..ChildNode[1].CST
TABLE_itens.COL_28_COFINS_COFINSNT_CST[n_ocorrencia]=det.imposto.COFINS..ChildNode[1].CST
TABLE_itens.COL_29_ICMS_ICMSSN_vBC[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].vBC
TABLE_itens.COL_30_Percentual_icm_picms[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].pICMS
TABLE_itens.COL_31_Valor_icm_vicms[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].vICMS
TABLE_itens.COL_32_valor_Desc[n_ocorrencia]=det.prod.vDesc
valorProd is numeric = TABLE_itens.COL_11_vProd[n_ocorrencia]
valorDesc is numeric = TABLE_itens.COL_32_valor_Desc[n_ocorrencia]
IF valorProd>0 THEN
_percentual_Desconto is currency=(valorDesc*100)/(valorProd)

TABLE_itens.COL_33_percentual_desc[n_ocorrencia]=_percentual_Desconto
END


END




ROTINA PARA LER XML PARA DANF








Nenhum comentário:

Postar um comentário

Teste

Teste
teste