EXEMPLO DE COMO CRIAR ARQUIVO XML DE NFE

MACGAL 30/03/2025 18:26:13
#504900

Alguem tem modelo de criacao de arquivo de nfe em vb5 ? Obrigado

3SLUIS 31/03/2025 15:37:47
#504901

Cara, não tem segredo só pergar o manual da NFe no portal da NFe https://www.nfe.fazenda.gov.br/portal/principal.aspx e ir montando o arquivo

Citação:
Linha = "<?xml version=""1.0"" encoding=""UTF-8""?>"
Linha = Linha & "<NFe xmlns=""http://www.portalfiscal.inf.br/nfe"">"
Linha = Linha & "<infNFe Id=""NFe" & ChaveAcesso & """ versao=""4.00"">"
Linha = Linha & "<ide>"
Linha = Linha & "<cUF>" & CodigoUF & "</cUF>"
Linha = Linha & "<cNF>" & Format(dblNota, "00000000") & "</cNF>"
Linha = Linha & "<cNF>" & Format(NotaID, "00000000") & "</cNF>"
Linha = Linha & "<natOp>" & strNatOperacao & "</natOp>"
Linha = Linha & "<mod>" & ModelodeDocumentoEletronico & "</mod>"
Linha = Linha & "<serie>" & SerieNf & "</serie>"
Linha = Linha & "<nNF>" & Trim(objRS("Nota")) & "</nNF>"
...

FABRICIOWEB 31/03/2025 15:49:04
#504902

Option Explicit

Public Sub CriarXMLNFe()
Dim xmlDoc As Object
Dim root As Object
Dim ide As Object
Dim emit As Object
Dim dest As Object
Dim det As Object
Dim prod As Object
Dim imposto As Object
Dim ICMS As Object
Dim PIS As Object
Dim COFINS As Object

' Criar objeto XML
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.appendChild xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")

' Criar nó raiz
Set root = xmlDoc.createElement("NFe")
root.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe"
xmlDoc.appendChild root

' Criar nó infNFe
Dim infNFe As Object
Set infNFe = xmlDoc.createElement("infNFe")
infNFe.setAttribute "versao", "4.00"
infNFe.setAttribute "Id", "NFe35170801234567000105550010000000011000000010"
root.appendChild infNFe

' Criar nó ide (Identificação)
Set ide = xmlDoc.createElement("ide")
AddNode xmlDoc, ide, "cUF", "35"
AddNode xmlDoc, ide, "cNF", "00000001"
AddNode xmlDoc, ide, "natOp", "VENDA"
AddNode xmlDoc, ide, "mod", "55"
AddNode xmlDoc, ide, "serie", "1"
AddNode xmlDoc, ide, "nNF", "123456"
AddNode xmlDoc, ide, "dhEmi", "2025-03-31T13:00:00-03:00"
AddNode xmlDoc, ide, "tpNF", "1"
infNFe.appendChild ide

' Criar nó emit (Emitente)
Set emit = xmlDoc.createElement("emit")
AddNode xmlDoc, emit, "CNPJ", "01234567000105"
AddNode xmlDoc, emit, "xNome", "EMPRESA TESTE LTDA"
infNFe.appendChild emit

' Criar nó dest (Destinatário)
Set dest = xmlDoc.createElement("dest")
AddNode xmlDoc, dest, "CPF", "12345678909"
AddNode xmlDoc, dest, "xNome", "CLIENTE TESTE"
infNFe.appendChild dest

' Criar nó det (Detalhes dos produtos)
Set det = xmlDoc.createElement("det")
det.setAttribute "nItem", "1"

' Criar nó prod (Produto)
Set prod = xmlDoc.createElement("prod")
AddNode xmlDoc, prod, "cProd", "001"
AddNode xmlDoc, prod, "xProd", "Produto Teste"
AddNode xmlDoc, prod, "qCom", "1.00"
AddNode xmlDoc, prod, "vUnCom", "100.00"
AddNode xmlDoc, prod, "vProd", "100.00"
det.appendChild prod

' Criar nó imposto
Set imposto = xmlDoc.createElement("imposto")

' Criar nó ICMS
Set ICMS = xmlDoc.createElement("ICMS")
AddNode xmlDoc, ICMS, "vICMS", "18.00"
imposto.appendChild ICMS

' Criar nó PIS
Set PIS = xmlDoc.createElement("PIS")
AddNode xmlDoc, PIS, "vPIS", "1.65"
imposto.appendChild PIS

' Criar nó COFINS
Set COFINS = xmlDoc.createElement("COFINS")
AddNode xmlDoc, COFINS, "vCOFINS", "7.60"
imposto.appendChild COFINS

det.appendChild imposto
infNFe.appendChild det

' Salvar o XML gerado
Dim filePath As String
filePath = App.Path & "\NFe_Exemplo.xml"
xmlDoc.Save filePath

MsgBox "Arquivo XML da NF-e salvo em: " & filePath, vbInformation, "Sucesso"
End Sub

' Função auxiliar para adicionar nós ao XML
Private Sub AddNode(ByRef xmlDoc As Object, ByRef parentNode As Object, ByVal tagName As String, ByVal textValue As String)
Dim newNode As Object
Set newNode = xmlDoc.createElement(tagName)
newNode.Text = textValue
parentNode.appendChild newNode
End Sub

Página única

Faça seu login para responder

Voltar