FONTE NFE VB.NET
Amigo Silviots esse erro e referente ao Numero da Nota (nNF) de uma olhada nesta area
Alguem pode me atualizar ??? !!! dia 19/11 agora ,, o que entrou em produção ??
estou com problema no cancelamento e na consulta da nfe
o que eu tenho q alterar ou refazer ?
estou com problema no cancelamento e na consulta da nfe
o que eu tenho q alterar ou refazer ?
Citação::
Alguem pode me atualizar ??? !!! dia 19/11 agora ,, o que entrou em produção ??
estou com problema no cancelamento e na consulta da nfe
o que eu tenho q alterar ou refazer ?
Amigo no Portal da NF-e você vai encontrar as NT a ultima NT fala sobre cancelamento por evento mais não sei se já e obrigatório, meu sistema esta com cancelamento por Evento já a um tempo, e hoje esta tudo funcionando
Citação::
:
Alguem pode me atualizar ??? !!! dia 19/11 agora ,, o que entrou em produção ??
estou com problema no cancelamento e na consulta da nfe
o que eu tenho q alterar ou refazer ?
Amigo no Portal da NF-e você vai encontrar as NT a ultima NT fala sobre cancelamento por evento mais não sei se já e obrigatório, meu sistema esta com cancelamento por Evento já a um tempo, e hoje esta tudo funcionando
então por hora resolvi a parte de consulta, mudou a versão do cabeçalho para 2.01 e o esquema PL_006p
Fala galera, tudo certo ?
Seguinte estou tentando implementar o cancelamento por evento e estou tendo este erro :
Message|O Estado 0 ainda não dispõe deste serviço no layout 4.0.1 da NF-e para o ambiente de homologação.
Alguem sabe o que é ?
Abaixo esta meu xml
Tentei colocar a versao 2.01 e 2.00 deu a mesma coisa.
PS: a mensagem é bem estranha, como vou testar o negócio se nao tem ambiente de homologaçao ? rsrs
Seguinte estou tentando implementar o cancelamento por evento e estou tendo este erro :
Message|O Estado 0 ainda não dispõe deste serviço no layout 4.0.1 da NF-e para o ambiente de homologação.
Alguem sabe o que é ?
Abaixo esta meu xml
Tentei colocar a versao 2.01 e 2.00 deu a mesma coisa.
PS: a mensagem é bem estranha, como vou testar o negócio se nao tem ambiente de homologaçao ? rsrs
<evento versao=[Ô]1.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<infEvento Id=[Ô]ID110111351211131118400001735500100000025613372386121[Ô]>
<cOrgao>35</cOrgao>
<tpAmb>1</tpAmb>
<CNPJ>13111840000173</CNPJ>
<chNFe>35121113111840000173550010000002561337238612</chNFe>
<dhEvento>2012-11-24T14:12:21-02:00</dhEvento>
<tpEvento>110111</tpEvento>
<nSeqEvento>1</nSeqEvento>
<verEvento>1.00</verEvento>
<detEvento versao=[Ô]1.00[Ô]>
<descEvento>Cancelamento</descEvento>
<nProt>135120654727608</nProt>
<xJust>cliente desistiu de comprar</xJust>
</detEvento>
</infEvento>
</evento>
BARROS, é SP.
Voce pode me ajudar com relação a este modelo ? Onde eu acho?
Voce pode me ajudar com relação a este modelo ? Onde eu acho?
Olá,
Bom dia.
Vê se vocês podem me ajudar...
Estou tentando fazer uma consulta cadastro de emitentes em vb.net.
Consegui gerar o xml.
<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô] ?>
- <ConsCad versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
- <infCons>
<xServ>CONS-CAD</xServ>
<UF>BA</UF>
<CNPJ>05404332000155</CNPJ>
</infCons>
</ConsCad>
O problema é que eu não estou conseguindo assinar esse xml....
Dá um erro com a seguinte mensagem: [Ô]Elemento de referência mal formado.[Ô]
Estou utilizando a seguinte função:
Public Sub Assinar(ByVal pArqXMLAssinar As String, ByVal pUri As String, _
ByVal strCertificado As String)
[ô]Atualizar atributos de retorno com conteúdo padrão
Me.vResultado = 0
Me.vResultadoString = [Ô]Assinatura realizada com sucesso[Ô]
Dim SR As StreamReader = Nothing
Try
Dim pCertificado As New X509Certificate2()
[ô]Abrir o arquivo XML a ser assinado e ler o seu conteúdo
SR = File.OpenText(pArqXMLAssinar)
Dim vXMLString As String = SR.ReadToEnd()
SR.Close()
Try
[ô] Verifica o certificado a ser utilizado na assinatura
Dim _xnome As String = [Ô][Ô]
If pCertificado IsNot Nothing Then
[ô]_xnome = pCertificado.Subject.ToString()
End If
Dim _X509Cert As New X509Certificate2()
Dim store As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.[ReadOnly] Or OpenFlags.OpenExistingOnly)
Dim collection As X509Certificate2Collection = DirectCast(store.Certificates, X509Certificate2Collection)
Dim collection1 As X509Certificate2Collection = DirectCast(collection.Find(X509FindType.FindBySubjectDistinguishedName, strCertificado, False), X509Certificate2Collection)
[ô]If collection.Item(0)Then
If collection1.Count = 0 Then
Me.vResultado = 2
Me.vResultadoString = [Ô]Problemas no certificado digital[Ô]
Else
[ô] certificado ok
_X509Cert = collection1(0)
Dim x As String
x = _X509Cert.GetKeyAlgorithm().ToString()
[ô] Create a new XML document.
Dim doc As New XmlDocument()
[ô] Format the document to ignore white spaces.
doc.PreserveWhitespace = False
[ô] Load the passed XML file using it’s name.
Try
doc.LoadXml(vXMLString)
[ô] Verifica se a tag a ser assinada existe é única
Dim qtdeRefUri As Integer = doc.GetElementsByTagName(pUri).Count
If qtdeRefUri = 0 Then
[ô] a URI indicada não existe
Me.vResultado = 4
Me.vResultadoString = [Ô]A tag de assinatura [Ô] & pUri.Trim() & [Ô] não existe[Ô]
Else
[ô] Exsiste mais de uma tag a ser assinada
If qtdeRefUri > 1 Then
[ô] existe mais de uma URI indicada
Me.vResultado = 5
Me.vResultadoString = [Ô]A tag de assinatura [Ô] & pUri.Trim() & [Ô] não é unica[Ô]
Else
Try
[ô] Create a SignedXml object.
Dim signedXml As New SignedXml(doc)
[ô] Add the key to the SignedXml document
signedXml.SigningKey = _X509Cert.PrivateKey
[ô] Create a reference to be signed
Dim reference As New Reference()
[ô] pega o uri que deve ser assinada
Dim _Uri As XmlAttributeCollection = doc.GetElementsByTagName(pUri).Item(0).Attributes
Dim xy As Integer = 0
For Each _atributo As XmlAttribute In _Uri
If _atributo.Name = [Ô]Id[Ô] Then
xy = 1
reference.Uri = [Ô]#[Ô] & _atributo.InnerText
End If
Next
If IsNothing(reference.Uri) Then
reference.Uri = [Ô]#[Ô]
End If
[ô] Add an enveloped transformation to the reference.
Dim env As New XmlDsigEnvelopedSignatureTransform()
reference.AddTransform(env)
Dim c14 As New XmlDsigC14NTransform()
reference.AddTransform(c14)
[ô] Add the reference to the SignedXml object.
signedXml.AddReference(reference)
[ô] Create a new KeyInfo object
Dim keyInfo As New KeyInfo()
[ô] Load the certificate into a KeyInfoX509Data object
[ô] and add it to the KeyInfo object.
keyInfo.AddClause(New KeyInfoX509Data(_X509Cert))
[ô] Add the KeyInfo object to the SignedXml object.
signedXml.KeyInfo = keyInfo
signedXml.ComputeSignature() [txt-color=#e80000]<-- o erro acontece aqui[/txt-color]
[ô] Get the XML representation of the signature and save
[ô] it to an XmlElement object.
Dim xmlDigitalSignature As XmlElement = signedXml.GetXml()
[ô] Gravar o elemento no documento XML
doc.DocumentElement.AppendChild(doc.ImportNode(xmlDigitalSignature, True))
XMLDoc = New XmlDocument()
XMLDoc.PreserveWhitespace = False
XMLDoc = doc
[ô] Atualizar a string do XML já assinada
Me.vXMLStringAssinado = XMLDoc.OuterXml
[ô] Gravar o XML no HD
Dim SW_2 As StreamWriter = File.CreateText(pArqXMLAssinar)
SW_2.Write(Me.vXMLStringAssinado)
SW_2.Close()
Catch caught As Exception
Me.vResultado = 6
Me.vResultadoString = [Ô]Erro ao assinar o documento - [Ô] & caught.Message
End Try
End If
End If
Catch caught As Exception
Me.vResultado = 3
Me.vResultadoString = [Ô]XML mal formado - [Ô] & caught.Message
End Try
End If
Catch caught As Exception
Me.vResultado = 1
Me.vResultadoString = [Ô]Problema ao acessar o certificado digital - [Ô] & caught.Message
End Try
Catch ex As Exception
Me.vResultado = 1
Me.vResultadoString = [Ô]Falha ao tentar abrir/ler o arquivo XML - [Ô] & ex.Message
Finally
Try
SR.Close()
Catch ex As Exception
End Try
End Try
End Sub
O que poderia estar errado?
Grata desde já.
Bom dia.
Vê se vocês podem me ajudar...
Estou tentando fazer uma consulta cadastro de emitentes em vb.net.
Consegui gerar o xml.
<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô] ?>
- <ConsCad versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
- <infCons>
<xServ>CONS-CAD</xServ>
<UF>BA</UF>
<CNPJ>05404332000155</CNPJ>
</infCons>
</ConsCad>
O problema é que eu não estou conseguindo assinar esse xml....
Dá um erro com a seguinte mensagem: [Ô]Elemento de referência mal formado.[Ô]
Estou utilizando a seguinte função:
Public Sub Assinar(ByVal pArqXMLAssinar As String, ByVal pUri As String, _
ByVal strCertificado As String)
[ô]Atualizar atributos de retorno com conteúdo padrão
Me.vResultado = 0
Me.vResultadoString = [Ô]Assinatura realizada com sucesso[Ô]
Dim SR As StreamReader = Nothing
Try
Dim pCertificado As New X509Certificate2()
[ô]Abrir o arquivo XML a ser assinado e ler o seu conteúdo
SR = File.OpenText(pArqXMLAssinar)
Dim vXMLString As String = SR.ReadToEnd()
SR.Close()
Try
[ô] Verifica o certificado a ser utilizado na assinatura
Dim _xnome As String = [Ô][Ô]
If pCertificado IsNot Nothing Then
[ô]_xnome = pCertificado.Subject.ToString()
End If
Dim _X509Cert As New X509Certificate2()
Dim store As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.[ReadOnly] Or OpenFlags.OpenExistingOnly)
Dim collection As X509Certificate2Collection = DirectCast(store.Certificates, X509Certificate2Collection)
Dim collection1 As X509Certificate2Collection = DirectCast(collection.Find(X509FindType.FindBySubjectDistinguishedName, strCertificado, False), X509Certificate2Collection)
[ô]If collection.Item(0)Then
If collection1.Count = 0 Then
Me.vResultado = 2
Me.vResultadoString = [Ô]Problemas no certificado digital[Ô]
Else
[ô] certificado ok
_X509Cert = collection1(0)
Dim x As String
x = _X509Cert.GetKeyAlgorithm().ToString()
[ô] Create a new XML document.
Dim doc As New XmlDocument()
[ô] Format the document to ignore white spaces.
doc.PreserveWhitespace = False
[ô] Load the passed XML file using it’s name.
Try
doc.LoadXml(vXMLString)
[ô] Verifica se a tag a ser assinada existe é única
Dim qtdeRefUri As Integer = doc.GetElementsByTagName(pUri).Count
If qtdeRefUri = 0 Then
[ô] a URI indicada não existe
Me.vResultado = 4
Me.vResultadoString = [Ô]A tag de assinatura [Ô] & pUri.Trim() & [Ô] não existe[Ô]
Else
[ô] Exsiste mais de uma tag a ser assinada
If qtdeRefUri > 1 Then
[ô] existe mais de uma URI indicada
Me.vResultado = 5
Me.vResultadoString = [Ô]A tag de assinatura [Ô] & pUri.Trim() & [Ô] não é unica[Ô]
Else
Try
[ô] Create a SignedXml object.
Dim signedXml As New SignedXml(doc)
[ô] Add the key to the SignedXml document
signedXml.SigningKey = _X509Cert.PrivateKey
[ô] Create a reference to be signed
Dim reference As New Reference()
[ô] pega o uri que deve ser assinada
Dim _Uri As XmlAttributeCollection = doc.GetElementsByTagName(pUri).Item(0).Attributes
Dim xy As Integer = 0
For Each _atributo As XmlAttribute In _Uri
If _atributo.Name = [Ô]Id[Ô] Then
xy = 1
reference.Uri = [Ô]#[Ô] & _atributo.InnerText
End If
Next
If IsNothing(reference.Uri) Then
reference.Uri = [Ô]#[Ô]
End If
[ô] Add an enveloped transformation to the reference.
Dim env As New XmlDsigEnvelopedSignatureTransform()
reference.AddTransform(env)
Dim c14 As New XmlDsigC14NTransform()
reference.AddTransform(c14)
[ô] Add the reference to the SignedXml object.
signedXml.AddReference(reference)
[ô] Create a new KeyInfo object
Dim keyInfo As New KeyInfo()
[ô] Load the certificate into a KeyInfoX509Data object
[ô] and add it to the KeyInfo object.
keyInfo.AddClause(New KeyInfoX509Data(_X509Cert))
[ô] Add the KeyInfo object to the SignedXml object.
signedXml.KeyInfo = keyInfo
signedXml.ComputeSignature() [txt-color=#e80000]<-- o erro acontece aqui[/txt-color]
[ô] Get the XML representation of the signature and save
[ô] it to an XmlElement object.
Dim xmlDigitalSignature As XmlElement = signedXml.GetXml()
[ô] Gravar o elemento no documento XML
doc.DocumentElement.AppendChild(doc.ImportNode(xmlDigitalSignature, True))
XMLDoc = New XmlDocument()
XMLDoc.PreserveWhitespace = False
XMLDoc = doc
[ô] Atualizar a string do XML já assinada
Me.vXMLStringAssinado = XMLDoc.OuterXml
[ô] Gravar o XML no HD
Dim SW_2 As StreamWriter = File.CreateText(pArqXMLAssinar)
SW_2.Write(Me.vXMLStringAssinado)
SW_2.Close()
Catch caught As Exception
Me.vResultado = 6
Me.vResultadoString = [Ô]Erro ao assinar o documento - [Ô] & caught.Message
End Try
End If
End If
Catch caught As Exception
Me.vResultado = 3
Me.vResultadoString = [Ô]XML mal formado - [Ô] & caught.Message
End Try
End If
Catch caught As Exception
Me.vResultado = 1
Me.vResultadoString = [Ô]Problema ao acessar o certificado digital - [Ô] & caught.Message
End Try
Catch ex As Exception
Me.vResultado = 1
Me.vResultadoString = [Ô]Falha ao tentar abrir/ler o arquivo XML - [Ô] & ex.Message
Finally
Try
SR.Close()
Catch ex As Exception
End Try
End Try
End Sub
O que poderia estar errado?
Grata desde já.
A resposta a essa pergunta foi respondida no topico:
CONS CAD - CADASTRO DE EMITENTES SEFAZ
CONS CAD - CADASTRO DE EMITENTES SEFAZ
Faça seu login para responder