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

- Como instalar a DLL Unimake.DFe e vincular ao projeto no WINDEV
- Como gerar e enviar o XML da NFCe para SEFAZ no modo síncrono, sem desserialização de XML
- Como gerar e enviar o XML da NFCe para SEFAZ no modo síncrono, com desserialização do XML
- Dicar sobre como acessar os manuais da DLL Unimake.DFe e repositório do fonte

A seguir, apresento o código em WINDEV para realizar as tarefas descritas acima.

Envio da NFCe sem desserialização do XML:

```
//Criar as configurações mínimas necessárias para consumir o serviço
oConfiguracao is Unimake.Business.DFe.Servicos.Configuracao()
oConfiguracao.TipoDFe = TipoDFe.NFCe //###
oConfiguracao.TipoEmissao = TipoEmissao.Normal
oConfiguracao.TipoAmbiente = TipoAmbiente.Homologacao
oConfiguracao.CertificadoArquivo = "C:\Projetos\certificados\UnimakePV.pfx"
oConfiguracao.CertificadoSenha = "12345678"
oConfiguracao.CSC = "HCJBIRTWGCQ3HVQN7DCA0ZY0P2NYT6FVLPJG" //###
oConfiguracao.CSCIDToken = 2 //###

//Criar o XML

//Criar tag <enviNFe>
oEnviNFe is Unimake.Business.DFe.XML.NFe.EnviNFe()
oEnviNFe.Versao = "4.00"
oEnviNFe.IdLote = "000000000000001"
oEnviNFe.IndSinc = SimNao.Sim //###

//Criar a tag <NFe>
oNfe is Unimake.Business.DFe.XML.NFe.NFe()

// Criar tag <infNfe>
oInfNFe is Unimake.Business.DFe.XML.NFe.InfNFe()
oInfNFe.Versao = "4.00"

//Criar tag <ide>
oIde is Unimake.Business.DFe.XML.NFe.Ide()
oIde.CUF = UFBrasil.PR
oIde.NatOp = "VENDA PRODUC.DO ESTABELEC"
oIde.Mod = ModeloDFe.NFCe //###
oIde.Serie = 30
oIde.NNF = 3
oIde.DhEmi = SysDateTime()
oIde.DhSaiEnt = SysDateTime()
oIde.TpNF = TipoOperacao.Saida //###
oIde.IdDest = DestinoOperacao.OperacaoInterna //###
oIde.CMunFG = 4118402
oIde.TpImp = FormatoImpressaoDANFE.NFCe //###
oIde.TpEmis = TipoEmissao.Normal
oIde.TpAmb = TipoAmbiente.Homologacao
oIde.FinNFe = FinalidadeNFe.Normal
oIde.IndFinal = SimNao.Sim //###
oIde.IndPres = IndicadorPresenca.OperacaoPresencial
oIde.ProcEmi = ProcessoEmissao.AplicativoContribuinte
oIde.VerProc = "TESTE 2.00"

//Adicionar a tag Ide dentro da tag InfNFe
oInfNFe.Ide = oIde

//Criar tag Emit
oEmit is Unimake.Business.DFe.XML.NFe.Emit()
oEmit.CNPJ = "06117473000150"
oEmit.XNome = "UNIMAKE SOLUCOES CORPORATIVAS LTDA"
oEmit.XFant = "UNIMAKE - PARANAVAI"
oEmit.IE = "9032000301"
oEmit.IM = "14018"
oEmit.CNAE = "6202300"
oEmit.CRT = 1 //CRT.SimplesNacional

oEnderEmit is Unimake.Business.DFe.XML.NFe.EnderEmit()
oEnderEmit.XLgr = "RUA PAULO ANTONIO COSTA"
oEnderEmit.Nro = "575"
oEnderEmit.XBairro = "CENTRO"
oEnderEmit.CMun = 4118402
oEnderEmit.XMun = "PARANAVAI"
oEnderEmit.UF = 41 //UFBrasil.PR
oEnderEmit.CEP = "87707210"
oEnderEmit.Fone = "04431421010"

//Adicionar a tag EnderEmit dentro da tag Emit
oEmit.EnderEmit = oEnderEmit

//Adicionar a tag Emit dentro da tag InfNfe
oInfNFe.Emit = oEmit

//Criar tag Dest ###
oDest is Unimake.Business.DFe.XML.NFe.Dest()
oDest.CNPJ = "04218457000128"
oDest.XNome = "NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL"
oDest.IndIEDest = IndicadorIEDestinatario.NaoContribuinte
//oDest.IE = "582614838110"
//oDest.Email = "janelaorp@janelaorp.com.br"

//oEnderDest is Unimake.Business.DFe.XML.NFe.EnderDest()
//oEnderDest.XLgr = "AVENIDA DA SAUDADE"
//oEnderDest.Nro = "1555"
//oEnderDest.XBairro = "CAMPOS ELISEOS"
//oEnderDest.CMun = 3543402
//oEnderDest.XMun = "RIBEIRAO PRETO"
//oEnderDest.UF = 35 //UFBrasil.SP
//oEnderDest.CEP = "14080000"
//oEnderDest.Fone = "01639611500"

//Adicionar a tag EnderDest dentro da tag Dest
//oDest.EnderDest = oEnderDest

//Adicionar a tag Dest dentro da tag InfNfe
oInfNFe.Dest = oDest

FOR I = 1 TO 3
//criar tag Det
oDet is Unimake.Business.DFe.XML.NFe.Det()
oDet.NItem = I

oProd is Unimake.Business.DFe.XML.NFe.Prod()
oProd.CProd = Complete(NumToString(I), 5, "0")
oProd.CEAN = "SEM GTIN"
oProd.XProd = "NOTA FISCAL EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL" //###
oProd.NCM = "84714900"
oProd.CFOP = "5102"
oProd.UCom = "LU"
oProd.QCom = 1.00
oProd.VUnCom = 84.90
oProd.VProd = 84.90
oProd.CEANTrib = "SEM GTIN"
oProd.UTrib = "LU"
oProd.QTrib = 1.00
oProd.VUnTrib = 84.90
oProd.IndTot = SimNao.Sim //ou 1
oProd.XPed = "300474"
oProd.NItemPed = 1

//Adicionar a tag Prod dentro da tag Det
oDet.Prod = oProd

//Criar tag Imposto
oImposto is Unimake.Business.DFe.XML.NFe.Imposto()
oImposto.VTotTrib = 12.63

//Criar tag Icms
oICMS is Unimake.Business.DFe.XML.NFe.ICMS()

//Criar tag ICMSSN101
oICMSSN102 is Unimake.Business.DFe.XML.NFe.ICMSSN102
oICMSSN102.Orig = OrigemMercadoria.Nacional
oICMSSN102.CSOSN = "102"

//Adicionar a tag ICMSSN101 dentro da tag ICMS
oICMS.ICMSSN102 = oICMSSN102

//Adicionar a tag ICMS dentro da tag Imposto
oImposto.Icms = oICMS

//Criar tag PIS
oPIS is Unimake.Business.DFe.XML.NFe.PIS()

//Criar tag PISOutr
oPISOutr is Unimake.Business.DFe.XML.NFe.PISOutr()
oPISOutr.CST = "99"
oPISOutr.VBC = 0.00
oPISOutr.PPIS = 0.00
oPISOutr.VPIS = 0.00

//Adicionar a PisOutr dentro da tag Pis
oPIS.PISOutr = oPISOutr

//Adicionar a tag Pis dentro da tag Imposto
oImposto.PIS = oPIS

//Criar tag COFINS
oCOFINS is Unimake.Business.DFe.XML.NFe.COFINS()

//Criar tag COFINSOutr
oCOFINSOutr is Unimake.Business.DFe.XML.NFe.COFINSOutr
oCOFINSOutr.CST = "99"
oCOFINSOutr.VBC = 0.00
oCOFINSOutr.PCOFINS = 0.00
oCOFINSOutr.VCOFINS = 0.00

//Adicionar a COFINSOutr dentro da tag COFINS
oCOFINS.COFINSOutr = oCOFINSOutr

//Adicionar a tag COFINS dentro da tag Imposto
oImposto.COFINS = oCOFINS

//Adicionar a tag Imposto dentro da tag Det
oDet.Imposto = oImposto

//Adicionar a tag Det dentro da tag InfNfe
oInfNFe.AddDet(oDet)
END

//Criar tag Total
oTotal is Unimake.Business.DFe.XML.NFe.Total()

//Criar tag ICMSTot
oICMSTot is Unimake.Business.DFe.XML.NFe.ICMSTot()
oICMSTot.VBC = 0
oICMSTot.VICMS = 0
oICMSTot.VICMSDeson = 0
oICMSTot.VFCP = 0
oICMSTot.VBCST = 0
oICMSTot.VST = 0
oICMSTot.VFCPST = 0
oICMSTot.VFCPSTRet = 0
oICMSTot.VProd = 254.70
oICMSTot.VFrete = 0
oICMSTot.VSeg = 0
oICMSTot.VDesc = 0
oICMSTot.VII = 0
oICMSTot.VIPI = 0
oICMSTot.VIPIDevol = 0
oICMSTot.VPIS = 0
oICMSTot.VCOFINS = 0
oICMSTot.VOutro = 0
oICMSTot.VNF = 254.70
oICMSTot.VTotTrib = 37.89

//Adicionar a tag ICMSTot dentro da tag Total
oTotal.ICMSTot = oICMSTot

//Adicionar a tag Total dentro da tag InfNfe
oInfNFe.Total = oTotal

//Criar a tag Transp
oTransp is Unimake.Business.DFe.XML.NFe.Transp()
oTransp.ModFrete = 9 //ModalidadeFrete.SemOcorrenciaTransporte

//Adicionar a tag Transp dentro da tag InfNfe
oInfNFe.Transp = oTransp

//Criar tag Pag
oPag is Unimake.Business.DFe.XML.NFe.Pag()

//Criar tag DetPag (pode ter mais que uma, só foi criada uma como exemplo)
oDetPag is Unimake.Business.DFe.XML.NFe.DetPag()
oDetPag.IndPag = 0 // IndicadorPagamento.PagamentoVista
oDetPag.TPag = 1 // MeioPagamento.Dinheiro
oDetPag.VPag = 254.70

//Adicionar a tag DetPag dentro da tag Tag
oPag.AddDetPag(oDetPag)

//Adicionar a tag Pag dentro da InfNfe
oInfNFe.Pag = oPag

//Criar tag InfAdic
oInfAdic is Unimake.Business.DFe.XML.NFe.InfAdic()
oInfAdic.InfCpl = "Empresa optante pelo simples nacional, conforme lei compl. 128 de 19/12/2008"

//Adicionar a tag InfAdic dentro da tag InfNfe
oInfNFe.InfAdic = oInfAdic

//Criar tag InfRespTec
oInfRespTec is Unimake.Business.DFe.XML.NFe.InfRespTec()
oInfRespTec.CNPJ = "06117473000150"
oInfRespTec.XContato = "Ze das Couves"
oInfRespTec.Email = "zedascouves@gmail.com"
oInfRespTec.Fone = "04430000000"

//Adicionar a tag InfRespTec dentro da tag InfNfe
oInfNFe.InfRespTec = oInfRespTec

//Adicionar a tag InfNfe dentro da tag Nfe
oNfe.AddInfNFe(oInfNFe)

//Adiconar a tag nfe dentro da tag EnviNfe
oEnviNFe.AddNFe(oNfe)

//Recuperar algumas informações do objeto da NFe

// Criar uma variável dinâmica para armazenar o objeto .NET
oTagNFe is Unimake.Business.DFe.XML.NFe.NFe() <- oEnviNFe.GetNFe(0)
oTagInfNFe is Unimake.Business.DFe.XML.NFe.InfNFe() <- oTagNFe.GetInfNFe(0)

EDT_RetornoWSString = "<chNFe> " + oTagInfNFe.Chave + CR
EDT_RetornoWSString += "<cNF> " + oTagInfNFe.Ide.CNF + CR
EDT_RetornoWSString += "<nNF> " + oTagInfNFe.Ide.NNF + CR

//Não encontrei outra forma de resgatar o código do Enum do C# para o WINDEV, talvez tenha algo que facilite, mas por hora é o que foi possível
CUFInt is int = oTagInfNFe.Ide.CUF

EDT_RetornoWSString += "<ide><cUF>" + CUFInt + CR + CR

WHEN EXCEPTION IN
//Consumir o serviço
oAutorizacao is Unimake.Business.DFe.Servicos.NFCe.Autorizacao() //###
oAutorizacao.SetXMLConfiguracao(oEnviNFe, oConfiguracao)

//Pode-se gravar o conteudo do XML assinado na base de dados antes do envio, caso queira recuperar para futuro tratamento, isso da garantias
notaAssinada is string = oAutorizacao.GetConteudoNFeAssinada(0)

// Demonstrar o XML da nota assinada na tela
EDT_RetornoWSString += "XML nota assinado: " + CR + CR + notaAssinada + CR + CR

// Gravar o XML assinado no HD antes de enviar
chaveNFe is string = oTagInfNFe.Chave
fDelete("d:\testenfe\" + chaveNFe + "-nfe.xml")
fSaveText("d:\testenfe\" + chaveNFe + "-nfe.xml", notaAssinada)

oAutorizacao.Executar(oEnviNFe, oConfiguracao)

//Ver a string do XML retornado pela SEFAZ
EDT_RetornoWSString += "Retorno do webservice: " + CR + CR + oAutorizacao.RetornoWSString + CR + CR

EDT_RetornoWSString += "<cStat Lote> " + oAutorizacao.Result.CStat + CR
EDT_RetornoWSString += "<xMotivo Lote>" + oAutorizacao.Result.XMotivo + CR + CR

IF oAutorizacao.Result.CStat = 104 // 104 = Lote processado com sucesso
//Ver o conteúdo das tags de retorno da SEFAZ

oRetEnviNFe is Unimake.Business.DFe.XML.NFe.RetEnviNFe() <- oAutorizacao.Result

EDT_RetornoWSString += "<cStat NFe> " + oRetEnviNFe.ProtNFe.InfProt.CStat + CR
EDT_RetornoWSString += "<xMotivo NFe>" + oRetEnviNFe.ProtNFe.InfProt.XMotivo + CR + CR

IF oRetEnviNFe.ProtNFe.InfProt.CStat = 100 // 100 = Autorizado o uso da NF-e
//Gravar o XML de distribuição no HD
oAutorizacao.GravarXmlDistribuicao("d:\testenfe")

//Pegar a string do XML de distribuição para gravar na base de dados
docProcNFe is string = oAutorizacao.GetNFeProcResults(chaveNFe)
EDT_RetornoWSString += "XML de distribuição:" + CR + CR
EDT_RetornoWSString += docProcNFe + CR + CR

//Como pegar o numero do protocolo de autorizacao para gravar na base
EDT_RetornoWSString += "<nProt>" + oRetEnviNFe.ProtNFe.InfProt.NProt + CR + CR
END
END

Info("FIM")
DO
Info(ExceptionInfo(errFullDetails)) //Ele também pega o conteúdo da Exception do lado do C#, importante envolver o código em Try/Catch
END
```

Envio da NFCe com Desserialização do XML:

```
//Criar as configurações mínimas necessárias para consumir o serviço
oConfiguracao is Unimake.Business.DFe.Servicos.Configuracao()
oConfiguracao.TipoDFe = TipoDFe.NFCe //###
oConfiguracao.TipoEmissao = TipoEmissao.Normal
oConfiguracao.TipoAmbiente = TipoAmbiente.Homologacao
oConfiguracao.CertificadoArquivo = "C:\Projetos\certificados\UnimakePV.pfx"
oConfiguracao.CertificadoSenha = "12345678"
oConfiguracao.CSC = "HCJBIRTWGCQ3HVQN7DCA0ZY0P2NYT6FVLPJG" //###
oConfiguracao.CSCIDToken = 2 //###

//Criar o XML
//Criar tag <enviNFe>
oEnviNFe is Unimake.Business.DFe.XML.NFe.EnviNFe()
oEnviNFe.Versao = "4.00"
oEnviNFe.IdLote = "000000000000001"
oEnviNFe.IndSinc = SimNao.Sim //###

//Criar a tag NFe e desserializar o XML já gravado no HD para já preencher o objeto para envio
oNfe is Unimake.Business.DFe.XML.NFe.NFe

//Desserializar o XML apartir de um arquivo gravado no HD
oEnviNFe.AddNFe(oNfe.LoadFromFile("D:\testenfe\41240206117473000150650300000000121995347037-nfe.xml"))

//Desserializar o XML a partir de uma string do XML que estava gravada no banco de dados, por exemplo.
//oEnviNFe.AddNFe(oNfe.LoadFromXml("string do XML da NFe"))

//Recuperar algumas informações do objeto da NFe

// Criar uma variável dinâmica para armazenar o objeto .NET
oTagNFe is Unimake.Business.DFe.XML.NFe.NFe() <- oEnviNFe.GetNFe(0)
oTagInfNFe is Unimake.Business.DFe.XML.NFe.InfNFe() <- oTagNFe.GetInfNFe(0)

EDT_RetornoWSString = "<chNFe> " + oTagInfNFe.Chave + CR
EDT_RetornoWSString += "<cNF> " + oTagInfNFe.Ide.CNF + CR
EDT_RetornoWSString += "<nNF> " + oTagInfNFe.Ide.NNF + CR

oTagInfNFe.Ide.NNF = 4 //Renumerar a nota só para não dar duplicidade no meu exemplo (isso no seu sistema não será necessário)

//Não encontrei outra forma de resgatar o código do Enum do C# para o WINDEV, talvez tenha algo que facilite, mas por hora é o que foi possível
CUFInt is int = oTagInfNFe.Ide.CUF

EDT_RetornoWSString += "<ide><cUF>" + CUFInt + CR + CR

WHEN EXCEPTION IN
//Consumir o serviço
oAutorizacao is Unimake.Business.DFe.Servicos.NFCe.Autorizacao() //###
oAutorizacao.SetXMLConfiguracao(oEnviNFe, oConfiguracao)

//Pode-se gravar o conteudo do XML assinado na base de dados antes do envio, caso queira recuperar para futuro tratamento, isso da garantias
notaAssinada is string = oAutorizacao.GetConteudoNFeAssinada(0)

// Demonstrar o XML da nota assinada na tela
EDT_RetornoWSString += "XML nota assinado: " + CR + CR + notaAssinada + CR + CR

// Gravar o XML assinado no HD antes de enviar
chaveNFe is string = oTagInfNFe.Chave
fDelete("d:\testenfe\" + chaveNFe + "-nfe.xml")
fSaveText("d:\testenfe\" + chaveNFe + "-nfe.xml", notaAssinada)

oAutorizacao.Executar(oEnviNFe, oConfiguracao)

//Ver a string do XML retornado pela SEFAZ
EDT_RetornoWSString += "Retorno do webservice: " + CR + CR + oAutorizacao.RetornoWSString + CR + CR

EDT_RetornoWSString += "<cStat Lote> " + oAutorizacao.Result.CStat + CR
EDT_RetornoWSString += "<xMotivo Lote>" + oAutorizacao.Result.XMotivo + CR + CR

IF oAutorizacao.Result.CStat = 104 // 104 = Lote processado com sucesso
//Ver o conteúdo das tags de retorno da SEFAZ

oRetEnviNFe is Unimake.Business.DFe.XML.NFe.RetEnviNFe() <- oAutorizacao.Result

EDT_RetornoWSString += "<cStat NFe> " + oRetEnviNFe.ProtNFe.InfProt.CStat + CR
EDT_RetornoWSString += "<xMotivo NFe>" + oRetEnviNFe.ProtNFe.InfProt.XMotivo + CR + CR

IF oRetEnviNFe.ProtNFe.InfProt.CStat = 100 // 100 = Autorizado o uso da NF-e
//Gravar o XML de distribuição no HD
oAutorizacao.GravarXmlDistribuicao("d:\testenfe")

//Pegar a string do XML de distribuição para gravar na base de dados
docProcNFe is string = oAutorizacao.GetNFeProcResults(chaveNFe)
EDT_RetornoWSString += "XML de distribuição:" + CR + CR
EDT_RetornoWSString += docProcNFe + CR + CR

//Como pegar o numero do protocolo de autorizacao para gravar na base
EDT_RetornoWSString += "<nProt>" + oRetEnviNFe.ProtNFe.InfProt.NProt + CR + CR
END
END

Info("FIM")
DO
Info(ExceptionInfo(errFullDetails)) //Ele também pega o conteúdo da Exception do lado do C#, importante envolver o código em Try/Catch
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=wcrV-CfdzPI