FONTE NFE VB.NET
Vou gravar todos os campos do xml!
Abraços
Agenor Fernandes
Abraços
Agenor Fernandes
Olá amigos. Tenho acompanhado o forum e utilizei a última versão disponibilizada pelo DANIEL para implementar uma DLL para VB6, pois trabalho em uma empresa que ainda utiliza esta plataforma. Estou com um problema na inutilização. Após a assinatura do pedido de inutilização, ao tentar validar o XML, é exibida a mensagem:
[ô]>[ô] is an unexpected token. The expected token is [ô]=[ô]. Line 2, position 11.
Verifiquei que ele está com algum problema na assinatura (de acordo com a validação, na 2a linha na posição 11), após a palavra Signature, ele diz que deveria vir um [ô]=[ô] e não um [ô]>[ô] que seria o fechamento dessa tag. Alguém já passou por isso na inutilização? Será que mudou alguma coisa na assinatura da 1.10 para a 2.00? DANIEL será que você pode me dar uma luz?
[ô]>[ô] is an unexpected token. The expected token is [ô]=[ô]. Line 2, position 11.
Verifiquei que ele está com algum problema na assinatura (de acordo com a validação, na 2a linha na posição 11), após a palavra Signature, ele diz que deveria vir um [ô]=[ô] e não um [ô]>[ô] que seria o fechamento dessa tag. Alguém já passou por isso na inutilização? Será que mudou alguma coisa na assinatura da 1.10 para a 2.00? DANIEL será que você pode me dar uma luz?
Amigo ARMAGEDANCE poste sua rotina de inutilização.
Boa tarde
Eu estou trabalhando em um projeto para consultar a situação das NFe,
Estou utilizando o VS 2008 com o VB.NET,
Criei o projeto adicionei o WEBReference do SVRS e criei as instruções para que o sistema me retorne a situação da NFe, quando eu realizo uma pesquisa com uma chave de acesso do RS o sistema retorna a situação exata da NFe, porem se eu consultar uma chave de acesso de SC ele me retorna o erro 226 [Ô]Rejeicao: Codigo da UF do Emitente diverge da UF autorizadora[Ô], lembrando que SC faz parte do SVRS, alguem sabe o que devo alterar para corrigir este ponto?
Código:
Dim XMLConteudo As String
Dim chave As String = TextBox1.Text
XMLConteudo = [Ô]<?xml version=[Ô] & Chr(34) & [Ô]1.0[Ô] & Chr(34) & [Ô] encoding=[Ô] & Chr(34) & [Ô]UTF-8[Ô] & Chr(34) & [Ô] ?><consSitNFe xmlns=[Ô] & Chr(34) & [Ô]http://www.portalfiscal.inf.br/nfe[Ô] & Chr(34) & [Ô] xmlns:ds=[Ô] & Chr(34) & [Ô]http://www.w3.org/2000/09/xmldsig#[Ô] & Chr(34) & [Ô] versao=[Ô] & Chr(34) & [Ô]2.00[Ô] & Chr(34) & [Ô]><tpAmb>1</tpAmb><xServ>CONSULTAR</xServ><chNFe>[Ô] + TextBox1.Text + [Ô]</chNFe></consSitNFe>[Ô]
Dim myXMLDoc As New XmlDocument()
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(XMLConteudo)
[ô]carrego o conteudo do XML...
Dim xmlDados As XmlNode
xmlDados = myXMLDoc.DocumentElement
Dim obj As New SVRS.NfeConsulta2
Dim cabec As New SVRS.nfeCabecMsg
cabec.cUF = [Ô]43[Ô]
cabec.versaoDados = [Ô]2.00[Ô]
obj.nfeCabecMsgValue = cabec
[ô]seleciona o certificado.
Dim cert As New X509Certificate2([Ô]c:\certi.pfx[Ô], [Ô]******[Ô], X509KeyStorageFlags.MachineKeySet Or X509KeyStorageFlags.PersistKeySet)
Dim store As New X509Store(StoreName.My, StoreLocation.LocalMachine)
Dim collection As New X509Certificate2Collection
Dim oX509Cert As X509Certificate2 = New X509Certificate2()
store.Open(OpenFlags.ReadWrite)
store.Add(cert)
collection = store.Certificates
oX509Cert = collection.Item(0)
Dim certificado As X509Certificate2 = oX509Cert
obj.ClientCertificates.Add(certificado)
TextBox3.Text = obj.nfeConsultaNF2(xmlDados).OuterXml
Eu estou trabalhando em um projeto para consultar a situação das NFe,
Estou utilizando o VS 2008 com o VB.NET,
Criei o projeto adicionei o WEBReference do SVRS e criei as instruções para que o sistema me retorne a situação da NFe, quando eu realizo uma pesquisa com uma chave de acesso do RS o sistema retorna a situação exata da NFe, porem se eu consultar uma chave de acesso de SC ele me retorna o erro 226 [Ô]Rejeicao: Codigo da UF do Emitente diverge da UF autorizadora[Ô], lembrando que SC faz parte do SVRS, alguem sabe o que devo alterar para corrigir este ponto?
Código:
Dim XMLConteudo As String
Dim chave As String = TextBox1.Text
XMLConteudo = [Ô]<?xml version=[Ô] & Chr(34) & [Ô]1.0[Ô] & Chr(34) & [Ô] encoding=[Ô] & Chr(34) & [Ô]UTF-8[Ô] & Chr(34) & [Ô] ?><consSitNFe xmlns=[Ô] & Chr(34) & [Ô]http://www.portalfiscal.inf.br/nfe[Ô] & Chr(34) & [Ô] xmlns:ds=[Ô] & Chr(34) & [Ô]http://www.w3.org/2000/09/xmldsig#[Ô] & Chr(34) & [Ô] versao=[Ô] & Chr(34) & [Ô]2.00[Ô] & Chr(34) & [Ô]><tpAmb>1</tpAmb><xServ>CONSULTAR</xServ><chNFe>[Ô] + TextBox1.Text + [Ô]</chNFe></consSitNFe>[Ô]
Dim myXMLDoc As New XmlDocument()
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(XMLConteudo)
[ô]carrego o conteudo do XML...
Dim xmlDados As XmlNode
xmlDados = myXMLDoc.DocumentElement
Dim obj As New SVRS.NfeConsulta2
Dim cabec As New SVRS.nfeCabecMsg
cabec.cUF = [Ô]43[Ô]
cabec.versaoDados = [Ô]2.00[Ô]
obj.nfeCabecMsgValue = cabec
[ô]seleciona o certificado.
Dim cert As New X509Certificate2([Ô]c:\certi.pfx[Ô], [Ô]******[Ô], X509KeyStorageFlags.MachineKeySet Or X509KeyStorageFlags.PersistKeySet)
Dim store As New X509Store(StoreName.My, StoreLocation.LocalMachine)
Dim collection As New X509Certificate2Collection
Dim oX509Cert As X509Certificate2 = New X509Certificate2()
store.Open(OpenFlags.ReadWrite)
store.Add(cert)
collection = store.Certificates
oX509Cert = collection.Item(0)
Dim certificado As X509Certificate2 = oX509Cert
obj.ClientCertificates.Add(certificado)
TextBox3.Text = obj.nfeConsultaNF2(xmlDados).OuterXml
Não precisa mais DANIEL. Consegui resolver. A composição da TAG ID estava errada, não estava sendo formatada com o número total de dÃgitos (43). Obrigado aà pela ajuda mesmo assim!
Pessoal,
Alguem conseguiu exportar o danfe do projeto para pdf automaticamente ?????
Obrigado .
Alguem conseguiu exportar o danfe do projeto para pdf automaticamente ?????
Obrigado .
Pessoal alguem tem algum exemplo do ICMS10 da versão 2.00
estou tentando monta ro ICMS mais retorna o erro nas tag IPITRIB e IPINT na hora de validar com o Shema
estou tentando monta ro ICMS mais retorna o erro nas tag IPITRIB e IPINT na hora de validar com o Shema
MarcosABF procure na internet por Bullzip PDF Printer é uma impressora PDF que aceita comandos diretos é só você mandar imprimir a DANFE do projeto nela.
Faça seu login para responder