No 25º episódio do Wandrey Descomplica sobre a DLL Unimake.DFe, aprendemos:

- Como ler e processar o XML da NFe de compras com a DLL Unimake.DFe para automatizar a entrada no ERP.

A seguir, apresento o código em WINDEV para realizar a tarefa descrita acima.

```
//Desserializando pelo arquivo XML
oNfeProc is Unimake.Business.DFe.XML.NFe.NfeProc
oNfeProc <- oNfeProc.LoadFromFile( "D:\testenfe\41220606117473000150550010000580071051443444-procnfe.xml" )

oInfNFe is Unimake.Business.DFe.XML.NFe.InfNFE
oInfNFe <- oNfeProc.NFe.getInfNFe(0)

//Desserializando pela string
//Primeiro vou resgatar a string do XML acima para usar na desserialização em um novo objeto
xmlString is string = oNfeProc.GerarXMLString()
EDT_RetornoWSString = "String do XML:" + CR + CR
EDT_RetornoWSString += xmlString + CR + CR

oNfeProc2 is Unimake.Business.DFe.XML.NFe.NfeProc
oNfeProc2 <- oNfeProc.LoadFromXML(xmlString)

oInfNFe2 is Unimake.Business.DFe.XML.NFe.InfNFE
oInfNFe2 <- oNfeProc.NFe.getInfNFe(0)

EDT_RetornoWSString += "Emissao: " + oInfNFe2.Ide.DhEmi + CR + CR
EDT_RetornoWSString += "Emitente: " + CR
EDT_RetornoWSString += oInfNFe2.Emit.XNome + CR
EDT_RetornoWSString += oInfNFe2.Emit.CNPJ + CR
EDT_RetornoWSString += oInfNFe2.Emit.EnderEmit.XLgr + CR
EDT_RetornoWSString += oInfNFe2.Emit.EnderEmit.CEP + CR
EDT_RetornoWSString += oInfNFe2.Emit.EnderEmit.XBairro + CR
EDT_RetornoWSString += oInfNFe2.Emit.EnderEmit.XMun + CR
EDT_RetornoWSString += oInfNFe2.Emit.EnderEmit.CMun + CR + CR

//Abrir um foreach na tag det, produtos da nota.
FOR EACH oDet OF oInfNFe2.Det
EDT_RetornoWSString += "Item: " + oDet.nItem + CR
EDT_RetornoWSString += "CProd: " + oDet.Prod.cProd + CR
EDT_RetornoWSString += "xProd: " + oDet.Prod.xProd + CR
EDT_RetornoWSString += "NCM: " + oDet.Prod.NCM + CR
EDT_RetornoWSString += "cEan: " + oDet.Prod.cEan + CR
EDT_RetornoWSString += "cBarra: " + oDet.Prod.cBarra + CR
EDT_RetornoWSString += "cProd: " + oDet.Prod.vProd + CR
EDT_RetornoWSString += "qCom: " + oDet.Prod.qCom + CR
EDT_RetornoWSString += CR

OrigInt is int = oDet.Imposto.ICMS.ICMSSN101.orig
EDT_RetornoWSString += "vTotTrib: " + oDet.Imposto.vTotTrib + CR
EDT_RetornoWSString += "orig: " + OrigInt + CR
EDT_RetornoWSString += "CSOSN: " + oDet.Imposto.ICMS.ICMSSN101.CSOSN + CR
EDT_RetornoWSString += "pCredSN: " + oDet.Imposto.ICMS.ICMSSN101.pCredSN + CR
EDT_RetornoWSString += "vCredICMSSN: " + oDet.Imposto.ICMS.ICMSSN101.vCredICMSSN + CR
EDT_RetornoWSString += CR
END

EDT_RetornoWSString += "vNF: " + oInfNFe2.Total.ICMSTot.vNF + CR
EDT_RetornoWSString += CR

EDT_RetornoWSString += "FATURA:" + CR + CR
EDT_RetornoWSString += "nFat: " + oInfNFe2.Cobr.Fat.NFat + CR
EDT_RetornoWSString += "vOrig: " + oInfNFe2.Cobr.Fat.VOrig + CR
EDT_RetornoWSString += "vDesc: " + oInfNFe2.Cobr.Fat.VDesc + CR
EDT_RetornoWSString += "vLiq: " + oInfNFe2.Cobr.Fat.VLiq + CR
EDT_RetornoWSString += CR

EDT_RetornoWSString += "DUPLICATAS:" + CR + CR
FOR EACH oDup OF oInfNFe2.Cobr.Dup
EDT_RetornoWSString += "nDup: " + oDup.NDup + CR
EDT_RetornoWSString += "dVenc: " + oDup.DVenc + CR
EDT_RetornoWSString += "vDup: " + oDup.vDup + CR
EDT_RetornoWSString += CR
END

```

Para uma explicação mais detalhada do conteúdo deste post, confira o vídeo no seguinte link:
https://www.youtube.com/watch?v=DpHcyspRn-U