XML NFE

AMANDANARRAIS 30/09/2011 15:16:02
#385601
Olá pessoal, desculpe o incomodo mais sou iniciante em programção.
Gostaria de saber se alguem por me ajudar
tenhos o codigo a baixo, para gerar o XML da NFE, porem o programa emissor do SEFAZ não o rconhece, acho que esta faltando os [Ô]NÓS[Ô], porem não tenho a minima ideia de com fazer...
Me ajudem PLIZ




[ô]Início da Rotina

With dlgArquivo [ô]vamos escolher um arquivo para
.CancelError = True [ô]gravar o relatório
.InitDir = ([Ô]:\\Sistemas\ERP\Amanda\SistemaTNS\TNS[Ô]) [ô]diretório default - Campo dos parâmetros
.filename = [Ô]NF[Ô] & ([Ô]NotaFiscal[Ô]) & [Ô].xml[Ô] [ô]nome do arq default
.DialogTitle = [Ô]Exportação NF-e número: [Ô] & ([Ô]Nota fiscal[Ô]) & [Ô], salvar como[Ô] [ô]titulo da caixa de diálago
.Filter = [Ô]*.xml[Ô] [ô]típos de arquivos
.FilterIndex = 0 [ô]o [Ô]todos[Ô] será o default
.Flags = OFN_CREATEPROMPT [ô]perguntará se irá criar o diretório
.ShowSave
vArq = .filename

[ô]Dim text_xml As String
End With
[ô] Dim conteudo As DOMDocument
[ô] Set conteudo = New DOMDocument


F = FreeFile

[ô] pega um identificador livre par ao arquivo e abre para gravacao


vsSQL = [Ô]SElect * From G00006 [Ô]
Set rsRegistros1 = vgDb(1).OpenRecordSet(vsSQL)

vTpAmb = rsRegistros1([Ô]G600003[Ô])
If vTpAmb = 0 Then
vTpAmb = 1
Else
vTpAmb = 2
End If
tpimp = rsRegistros1([Ô]G600001[Ô])
If tpimp = 0 Then
tpimp = 1
Else
tpimp = 2
End If
tpemis = rsRegistros1([Ô]G600002[Ô])
If tpemis = 0 Then
tpemis = 1
Else
tpemis = 2
End If

[ô]Limpa variável principal e começamos o preenchimento
vsSQL = [Ô]select * from G00003[Ô]
Set rsRegistros1 = vgDb(1).OpenRecordSet(vsSQL)
cofins = rsRegistros1([Ô]G300017[Ô])
pis = rsRegistros1([Ô]G300018[Ô])
[ô]Limpa variável principal e começamos o preenchimento
vConteudo = [Ô][Ô]
vOrd = 0


If Vazio(Numpedido.Text) Then
If Pedido_de_venda!M600003 = [Ô] A VISTA[Ô] Then
vIndPag = 0
ElseIf Pedido_de_venda!M600003 = [Ô]A PRAZO[Ô] Then
vIndPag = 1
Else
vIndPag = 2
End If
Else
If M10056 = 0 Then
vIndPag = 0
ElseIf M10056 = 1 Then
vIndPag = 1
Else
vIndPag = 2
End If
End If


vsSQL = [Ô]Select * from M00010 where M10001 = [Ô] & Numnota.Value & [Ô][Ô]
Set rsRegistros = vgDb(1).OpenRecordSet(vsSQL)
fimNfe = rsRegistros([Ô]M10053[Ô])
If fimNfe = 0 Then
fimNfe = 1
ElseIf fimNfe = 1 Then
fimNfe = 2
Else
fimNfe = 3
End If
coduf = rsRegistros1([Ô]G300016[Ô])
natuop = Ntop.Text
natuop = RemoveAcentos(natuop)

vConteudo = vConteudo & [Ô]<?xml version=[ô]1.0[ô] encoding=[ô]UTF-8[ô]?>[Ô] & vbCrLf
vConteudo = vConteudo & [Ô] <nfeProc versao=[ô]2.00[ô] xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô]>[Ô]


vConteudo = vConteudo & [Ô]<NFe xmlns= [ô]http://www.portalfiscal.inf.br/nfe[ô]>[Ô]

vConteudo = vConteudo & [Ô]<[Ô] & [Ô]infNFe[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]ID[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cUF[Ô] & [Ô]>[Ô] & Mid(coduf, 1, 2) & [Ô]</[Ô] & [Ô]cUF[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cNF[Ô] & [Ô]>[Ô] & [Ô] [Ô] & [Ô]</[Ô] & [Ô]cNF[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]NatOp[Ô] & [Ô]>[Ô] & RemoveAcentos(natuop) & [Ô]</[Ô] & [Ô]NatOp[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]indPag[Ô] & [Ô]>[Ô] & vIndPag & [Ô]</[Ô] & [Ô]indPag[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]mod[Ô] & [Ô]>[Ô] & [Ô]55[Ô] & [Ô]</[Ô] & [Ô]mod[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]serie[Ô] & [Ô]>[Ô] & rsRegistros([Ô]M10004[Ô]) & [Ô]</[Ô] & [Ô]serie[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]nNf[Ô] & [Ô]>[Ô] & rsRegistros([Ô]M10001[Ô]) & [Ô]</[Ô] & [Ô]nNf[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]dEmi[Ô] & [Ô]>[Ô] & Format(rsRegistros([Ô]M10008[Ô]), [Ô]yyyy-mm-dd[Ô]) & [Ô]</[Ô] & [Ô]dEmi[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]tpNF[Ô] & [Ô]>[Ô] & Format(rsRegistros([Ô]M10009[Ô]), [Ô]yyyy-mm-dd[Ô]) & [Ô]</[Ô] & [Ô]tpNF[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cMunFG[Ô] & [Ô]>[Ô] & Format(rsRegistros([Ô]M10010[Ô]), [Ô]hh:mm:ss[Ô]) & [Ô]</[Ô] & [Ô]cMunFG[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]tpImp[Ô] & [Ô]>[Ô] & [Ô]1[Ô] & [Ô]</[Ô] & [Ô]tpImp[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]tpEmis[Ô] & [Ô]>[Ô] & rsRegistros1([Ô]G300016[Ô]) & [Ô]</[Ô] & [Ô]tpEmis[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cDV[Ô] & [Ô]>[Ô] & tpimp & [Ô]</[Ô] & [Ô]cDV[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]tpAmb[Ô] & [Ô]>[Ô] & tpemis & [Ô]</[Ô] & [Ô]tpAmb[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]FimNfe[Ô] & [Ô]>[Ô] & fimNfe & [Ô]</[Ô] & [Ô]FimNfe[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]procEmi[Ô] & [Ô]>[Ô] & [Ô]3[Ô] & [Ô]</[Ô] & [Ô]procEmi[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]verProc[Ô] & [Ô]>[Ô] & [Ô]2.1.4[Ô] & [Ô]</[Ô] & [Ô]verProc[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]</[Ô] & [Ô]ID[Ô] & [Ô]>[Ô]





[ô]Print #F, [Ô]</[Ô] & [Ô]NFe[Ô] & [Ô]> [Ô]


[ô] & [Ô]|1 [Ô] & [Ô]|[Ô] & rsRegistros1([Ô]G300016[Ô]) & [Ô]|[Ô] & tpimp & [Ô]|[Ô] & tpemis & [Ô]|[Ô] & [Ô]|[Ô]& vTpAmb _
[ô]& [Ô]|[Ô] & fimNfe & [Ô]|3|2.1.4|[Ô] & vbCrLf

vsSQL = [Ô]select * from G00003[Ô]
Set rsRegistros1 = vgDb(1).OpenRecordSet(vsSQL)

vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Emit[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]CNPJ[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros1([Ô]G300010[Ô])) & [Ô]</[Ô] & [Ô]CNPJ[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xNome[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300001[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]xNome[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xFant[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros1([Ô]G300001[Ô])) & [Ô]</[Ô] & [Ô]xFant[Ô] & [Ô]>[Ô]

vConteudo = vConteudo & [Ô]<[Ô] & [Ô]enderEmit[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xlgr[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros1([Ô]G300003[Ô])) & [Ô]</[Ô] & [Ô]xlgr[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]nro[Ô] & [Ô]>[Ô] & [Ô] [Ô] & [Ô]</[Ô] & [Ô]nro[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xclp[Ô] & [Ô]>[Ô] & [Ô] [Ô] & [Ô]</[Ô] & [Ô]xclp[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xbairro[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros1([Ô]G300004[Ô])) & [Ô]</[Ô] & [Ô]xbairro[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cmun[Ô] & [Ô]>[Ô] & rsRegistros1([Ô]G300016[Ô]) & [Ô]</[Ô] & [Ô]cmun[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Xmun[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros1([Ô]G300006[Ô])) & [Ô]</[Ô] & [Ô]Xmun[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]UF[Ô] & [Ô]>[Ô] & rsRegistros1([Ô]G300007[Ô]) & [Ô]</[Ô] & [Ô]UF[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cep[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300005[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]cep[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cPais[Ô] & [Ô]>[Ô] & [Ô]1058[Ô] & [Ô]</[Ô] & [Ô]cPais[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xPais[Ô] & [Ô]>[Ô] & [Ô]Brasil[Ô] & [Ô]</[Ô] & [Ô]xPais[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]fone[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300008[Ô]), [Ô]()-[Ô], True) & [Ô]</[Ô] & [Ô]fone[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]</[Ô] & [Ô]enderEmit[Ô] & [Ô]>[Ô]

vConteudo = vConteudo & [Ô]<[Ô] & [Ô]IE[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300010[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]IE[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]IM[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300015[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]IM[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]CNAE[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300019[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]CNAE[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]CRT[Ô] & [Ô]>[Ô] & rsRegistros1([Ô]G300021[Ô]) & [Ô]</[Ô] & [Ô]CRT[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]</[Ô] & [Ô]Emit[Ô] & [Ô]>[Ô]

vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Dest[Ô] & [Ô]>[Ô]
vsSQL = [Ô]SELECT * FROM C00001 WHERE C100001 = [Ô] & cliente.Value & [Ô][Ô]
Set rsRegistros = vgDb(1).OpenRecordSet(vsSQL)
If Vazio(rsRegistros([Ô]C100037[Ô])) Then
vIE = [Ô]ISENTO[Ô]
Else
vIE = Retira(rsRegistros([Ô]C100037[Ô]), [Ô]/-. [Ô], True)
End If
[ô]cliente jurídio ou físico
If Not Vazio(rsRegistros([Ô]C100011[Ô])) Then
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]CPF[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100011[Ô])) & [Ô]</[Ô] & [Ô]CPF[Ô] & [Ô]>[Ô]
End If
If Not Vazio(rsRegistros([Ô]C100010[Ô])) Then
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]CNPJ[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100010[Ô])) & [Ô]</[Ô] & [Ô]CNPJ[Ô] & [Ô]>[Ô]
End If


vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xNome[Ô] & [Ô]>[Ô] & Retira(rsRegistros1([Ô]G300001[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]xNome[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]enderDest[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xlgr[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100005[Ô])) & [Ô]</[Ô] & [Ô]xlgr[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]nro[Ô] & [Ô]>[Ô] & rsRegistros([Ô]C100022[Ô]) & [Ô]</[Ô] & [Ô]nro[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xbairro[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100006[Ô])) & [Ô]</[Ô] & [Ô]xbairro[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cmun[Ô] & [Ô]>[Ô] & rsRegistros([Ô]C100044[Ô]) & [Ô]</[Ô] & [Ô]cmun[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Xmun[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100007[Ô])) & [Ô]</[Ô] & [Ô]Xmun[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]UF[Ô] & [Ô]>[Ô] & rsRegistros([Ô]C100008[Ô]) & [Ô]</[Ô] & [Ô]UF[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cep[Ô] & [Ô]>[Ô] & Retira(rsRegistros([Ô]C100009[Ô]), [Ô]/-. [Ô], True) & [Ô]</[Ô] & [Ô]cep[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cPais[Ô] & [Ô]>[Ô] & [Ô]1058[Ô] & [Ô]</[Ô] & [Ô]cPais[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xPais[Ô] & [Ô]>[Ô] & [Ô]Brasil[Ô] & [Ô]</[Ô] & [Ô]xPais[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]fone[Ô] & [Ô]>[Ô] & Retira(rsRegistros([Ô]C100004[Ô]), [Ô]() -[Ô], True) & [Ô]</[Ô] & [Ô]fone[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]</[Ô] & [Ô]enderDest[Ô] & [Ô]>[Ô]


If Not Vazio(rsRegistros([Ô]C100011[Ô])) Then
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]RG[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100012[Ô])) & [Ô]</[Ô] & [Ô]RG[Ô] & [Ô]>[Ô]
End If
If Not Vazio(rsRegistros([Ô]C100010[Ô])) Then
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]IE[Ô] & [Ô]>[Ô] & RemoveAcentos(rsRegistros([Ô]C100037[Ô])) & [Ô]</[Ô] & [Ô]IE[Ô] & [Ô]>[Ô]
End If
vConteudo = vConteudo & [Ô]</[Ô] & [Ô]Dest[Ô] & [Ô]>[Ô]

Dim x As Integer
Dim Rs As GRecordSet

Dim rsregistros2 As GRecordSet
vsSQL = [Ô]select * from M00011 where M11002 = [Ô] & Numnota.Value & [Ô][Ô]
Set rsRegistros1 = vgDb(1).OpenRecordSet(vsSQL)


Do While rsRegistros1.EOF = False
vConteudo = vConteudo & [Ô] <Det nIten =[ô][Ô] & vOrd & [Ô][ô]>[Ô]
z = rsRegistros1([Ô]M11003[Ô])
x = rsRegistros1([Ô]M11007[Ô])
vsSQL = [Ô]select * from M00001 where M100001 = [ô][Ô] & z & [Ô][ô] [Ô]
Set rsRegistros = vgDb(1).OpenRecordSet(vsSQL)
vsSQL = [Ô]select * from M00011 where M11003 = [ô][Ô] & z & [Ô][ô] [Ô]
Set rsregistros2 = vgDb(1).OpenRecordSet(vsSQL)
vsSQL = [Ô]select M200002 from M00002 where M200001 = [Ô] & x & [Ô] [Ô]
Set Rs = vgDb(1).OpenRecordSet(vsSQL)
vOrd = vOrd + 1
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Prod[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cProd[Ô] & [Ô]>[Ô] & rsregistros2([Ô]M11003[Ô]) & [Ô]</[Ô] & [Ô]cProd[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]cEan[Ô] & [Ô]>[Ô] & rsRegistros([Ô]M100020[Ô]) & [Ô]</[Ô] & [Ô]cEan[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]xProd[Ô] & [Ô]>[Ô] & rsRegistros([Ô]M100002[Ô]) & [Ô]</[Ô] & [Ô]xProd[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]NCM[Ô] & [Ô]>[Ô] & rsRegistros([Ô]M100022[Ô]) & [Ô]</[Ô] & [Ô]NCM[Ô] & [Ô]>[Ô]
vConteudo = vConteudo & [Ô]<[Ô] & [Ô]CFOP[Ô] & [Ô]>[Ô] & r
AMANDANARRAIS 30/09/2011 15:41:49
#385605
Alguém por favor
GUTOTEC 30/09/2011 15:51:24
#385608
Amanda ,

o metodo mais facil é voce arrumar um XML pronto da Versão 2.0 e ir jogando as TAGS .

Ex nessa parte vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Xmun[Ô] & [Ô]>[Ô]
onde está Xmun voce vai alterando a TAG ate chegar no final pegando de XML já Pronto , para depois vir arrumando

tem dados do Emitente vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Emit[Ô] & [Ô]>[Ô]
tem dados do Destinario vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Dest[Ô] & [Ô]>[Ô]
tem dados do Produtos vConteudo = vConteudo & [Ô]<[Ô] & [Ô]Prod[Ô] & [Ô]>[Ô]

Voce fez até ai , ou cortou a mensagem ,

Depois disso tem

<imposto>
<total>
<transportorte>
<cobranca>
<infAdic>

ai depois de todos esses passos .......

entra nesse site http://www.sefaz.rs.gov.br/NFE/NFE-VAL.aspx
apartir dele ele indica todos os erros até validar

procure ter 1 XML feito da versão 2.00
e o Manual 4.01 do Ministerio da fazenda



AMANDANARRAIS 30/09/2011 16:09:08
#385610
Eu fiz o xml completo, coloquei no site do sefaz deu o seguinte erro [Ô]PARSER XML: Data at the root level is invalid. Line 2, position 1.[Ô]
AMANDANARRAIS 30/09/2011 16:31:28
#385614
- The required attribute [ô]Id[ô] is missing.
TAG: nfeProc/NFe[1]/infNFe
- The required attribute [ô]versao[ô] is missing.
TAG: nfeProc/NFe[1]/infNFe
- The element [ô]infNFe[ô] in namespace [ô]http://www.portalfiscal.inf.br/nfe[ô] has invalid child element [ô]ID[ô] in namespace [ô]http://www.portalfiscal.inf.br/nfe[ô]. List of possible elements expected: [ô]ide[ô] in namespace [ô]http://www.portalfiscal.inf.br/nfe[ô].
TAG: nfeProc/NFe[1]/infNFe/ID
- The element [ô]NFe[ô] in namespace [ô]http://www.portalfiscal.inf.br/nfe[ô] has incomplete content. List of possible elements expected: [ô]Signature[ô] in namespace [ô]http://www.w3.org/2000/09/xmldsig#[ô].
TAG: nfeProc/NFe[1]/
- The element [ô]nfeProc[ô] in namespace [ô]http://www.portalfiscal.inf.br/nfe[ô] has incomplete content. List of possible elements expected: [ô]protNFe[ô] in namespace [ô]http://www.portalfiscal.inf.br/nfe[ô].
TAG: nfeProc/
GUTOTEC 30/09/2011 16:46:37
#385615
Voce esta com erro provavelmente na ID .......
provavelmente no Formato da Data que tem que ser assim Formato AAMM

conta todos os numeros e veja sua chave tem 44 depois de gerado o XML


cUF – Código da UF do emitente do Documento Fiscal
AMM – Ano e Mês de emissão da NF-e
CNPJ – CNPJ do emitente
mod – Modelo do Documento Fiscal
serie РS̩rie do Documento Fiscal
nNF РN̼mero do Documento Fiscal
cNF – Código Numérico que compõe a Chave de Acesso
cDV – Dígito Verificador da Chave de Acesso
Qtd de caract. 2 4 14 2 3 9 1 8 1
AMANDANARRAIS 06/10/2011 15:05:22
#386114
Pessoal resolvi, estava mandando sem a assinatura e todos os dados na NFe...
oBRIGADA
Tópico encerrado , respostas não são mais permitidas
Voltar