AS NOTAS SUMIRAM
Pessoal
O software desenvolvido aqui pela minha Empresa oferecia um recurso para consultar/baixar notas de fornecedores direto do site da sefaz
Funcionava perfeitamente ..
eu usava a URL: https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx
Porém, desde 01/10/16 foi mudado a url para https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx
Adequei o software e aparentemente tá tudo certinho só que as notas que antes existiam, desapareceram
Alguém sabe me dizer se começa vida nova a partir daqui ou se estou fazendo algo errado que não consegue retornar as notas disponÃveis para o cliente s sefaz
Agradeço a ajuda
O software desenvolvido aqui pela minha Empresa oferecia um recurso para consultar/baixar notas de fornecedores direto do site da sefaz
Funcionava perfeitamente ..
eu usava a URL: https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx
Porém, desde 01/10/16 foi mudado a url para https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx
Adequei o software e aparentemente tá tudo certinho só que as notas que antes existiam, desapareceram
Alguém sabe me dizer se começa vida nova a partir daqui ou se estou fazendo algo errado que não consegue retornar as notas disponÃveis para o cliente s sefaz
Agradeço a ajuda
Alguém consegue me ajudar com a consultadest para Notas fiscais eletrônicas para a Nova URL do Ambiente Nacional
Citação::
Pessoal
O software desenvolvido aqui pela minha Empresa oferecia um recurso para consultar/baixar notas de fornecedores direto do site da sefaz
Funcionava perfeitamente ..
eu usava a URL: https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx
Porém, desde 01/10/16 foi mudado a url para https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx
Adequei o software e aparentemente tá tudo certinho só que as notas que antes existiam, desapareceram
Alguém sabe me dizer se começa vida nova a partir daqui ou se estou fazendo algo errado que não consegue retornar as notas disponÃveis para o cliente s sefaz
Agradeço a ajuda
Citação::
Alguém consegue me ajudar com a consultadest para Notas fiscais eletrônicas para a Nova URL do Ambiente Nacional
Opa boa noite PLUGSOFTSM blz?
Vc ta fazendo a Consulta Dest. - MDFe(Manifestação do Destinatario Eletronico da NFe) certo?
eu utilizo essas consultas. Fazendo a consulta de Todas as NFe q foram emitidas para o CNPJ e Certificado do Cliente. fazendo uma busca na Sefaz. apartir do Ultimo NSU
'no qual faço a Ciência da Operação, Operação COnfirmada, Operação Desconhecida. e Download do XML da NFe
no meu ponto de vista. eu ja passei por isso. pq a cada Consulta.. a Sefaz excluia a anteriores. os XML de Retorno.. dae eu fiz uma função q copio o retorno a cada consulta.. pq a cada consulta tava excluindo.. pois num é q deu certo :) dae eu tenho como se fosse um Backup a cada Consulta :) so assim fico com todas as NFe guardadas para serem exibidas para o Cliente.
no que eu poder te ajudar, depois me passe como vc esta fazendo.. se é isso mesmo q estou falando kkk
Para mim estava funcionando corretamente até dia 30/09/16..... Eu fazia todas as operações, consultas, download, manifestos.. etc
Usava a URL https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx
DaÃ, no dia 01/10/16 começou a aparecer a mensagem que a url havia sido desativada e que a consulta deveria ser feita a partir da URL do ambiente nacional
Pesquisei e vi que a url disponibilizada e https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx
Adequei meu sistema e desde então passou a retornar sempre [Ô]nenhum documento disponÃvel[Ô]
Tentei por NSU,
Essa é a função que usava e sempre deu certo... Se alguém puder me ajudar
Public Function ConsultaNotasDestinatario(ByVal PathSave As String, ByVal NSerieCert As String, CnpjCPF As String, ByVal CodUF As Integer, ByVal Ambiente As AmbienteNFC, Nsu As String) As String
[ô]PathSave = Local onde os arquivos deverão ser armazenados
[ô]NSeriCert = Número de série do certificado digital
[ô]CnpjCPF = Documento do cliente a ser consultado
[ô]CodUF = Código da UF a ser consultada
[ô]Ambiente = Ambiente de pesquisa (1 - Produção; 2 - Homologação)
[ô]NSU: Caso deseje consultar pelo NSU, senão passo [Ô][Ô]
Try
If Not Directory.Exists(Path.Combine(PathSave, [Ô]Consultas[Ô])) Then Directory.CreateDirectory(Path.Combine(PathSave, [Ô]Consultas[Ô]))
PathSave = Path.Combine(PathSave, [Ô]Consultas[Ô])
If My.Computer.Network.IsAvailable = False Then Throw New Exception([Ô]A internet não está disponÃvel no momento.[Ô] & ControlChars.NewLine & [Ô]Solucione o problema e repita a operação....[Ô])
Dim Cert As X509Certificate2 = New X509Certificate2
Cert = RetornaCertificado(NSerieCert)
If Cert Is Nothing Then
Return [Ô][Ô]
Else
Dim DocCli As String = SoNumber(CnpjCPF)
Dim NomeArq As String = Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons.XML[Ô])
Dim Arq As XmlTextWriter = Nothing
Arq = New XmlTextWriter(NomeArq, System.Text.Encoding.UTF8)
Arq.WriteStartDocument() [ô]Inicia o documento XML
Arq.Formatting = Formatting.Indented [ô]Defino a formatação
Arq.WriteStartElement([Ô]consNFeDest[Ô])
Arq.WriteStartAttribute([Ô]xmlns[Ô])
Arq.WriteString([Ô]http://www.portalfiscal.inf.br/nfe[Ô])
Arq.WriteEndAttribute()
Arq.WriteStartAttribute([Ô]versao[Ô])
Arq.WriteString([Ô]1.01[Ô])
Arq.WriteEndAttribute()
Arq.WriteElementString([Ô]tpAmb[Ô], Ambiente)
Arq.WriteElementString([Ô]xServ[Ô], [Ô]CONSULTAR NFE DEST[Ô])
Arq.WriteElementString([Ô]CNPJ[Ô], DocCli)
Arq.WriteElementString([Ô]indNFe[Ô], [Ô]0[Ô])
Arq.WriteElementString([Ô]indEmi[Ô], 0)
Arq.WriteElementString([Ô]ultNSU[Ô], Nsu)
Arq.WriteEndElement() [ô]consNFeDest
Arq.Close()
BblNFC.Serv = TipoServico.NfeConsulta
Dim Doc As XmlDocument = New XmlDocument
Doc.Load(NomeArq)
Dim WebC As WsConsNFe.NFeConsultaDest = New WsConsNFe.NFeConsultaDest With {.Timeout = 50000, .SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12}
WebC.nfeCabecMsgValue = New WsConsNFe.nfeCabecMsg With {.cUF = CodUF, .versaoDados = [Ô]1.01[Ô]}
WebC.ClientCertificates.Add(Cert)
WebC.Url = [Ô] https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx[Ô]
Dim Retorno As String = WebC.nfeConsultaNFDest(Doc).OuterXml
Doc.LoadXml(Retorno)
Doc.Save(Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons-Ret.XML[Ô]))
Return Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons.XML[Ô]) & [Ô]|[Ô] & Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons-Ret.XML[Ô])
End If
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Consulta Relação Danfes[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Return [Ô][Ô]
End Try
End Function
Se alguém puder me ajudar
Usava a URL https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx
DaÃ, no dia 01/10/16 começou a aparecer a mensagem que a url havia sido desativada e que a consulta deveria ser feita a partir da URL do ambiente nacional
Pesquisei e vi que a url disponibilizada e https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx
Adequei meu sistema e desde então passou a retornar sempre [Ô]nenhum documento disponÃvel[Ô]
Tentei por NSU,
Essa é a função que usava e sempre deu certo... Se alguém puder me ajudar
Public Function ConsultaNotasDestinatario(ByVal PathSave As String, ByVal NSerieCert As String, CnpjCPF As String, ByVal CodUF As Integer, ByVal Ambiente As AmbienteNFC, Nsu As String) As String
[ô]PathSave = Local onde os arquivos deverão ser armazenados
[ô]NSeriCert = Número de série do certificado digital
[ô]CnpjCPF = Documento do cliente a ser consultado
[ô]CodUF = Código da UF a ser consultada
[ô]Ambiente = Ambiente de pesquisa (1 - Produção; 2 - Homologação)
[ô]NSU: Caso deseje consultar pelo NSU, senão passo [Ô][Ô]
Try
If Not Directory.Exists(Path.Combine(PathSave, [Ô]Consultas[Ô])) Then Directory.CreateDirectory(Path.Combine(PathSave, [Ô]Consultas[Ô]))
PathSave = Path.Combine(PathSave, [Ô]Consultas[Ô])
If My.Computer.Network.IsAvailable = False Then Throw New Exception([Ô]A internet não está disponÃvel no momento.[Ô] & ControlChars.NewLine & [Ô]Solucione o problema e repita a operação....[Ô])
Dim Cert As X509Certificate2 = New X509Certificate2
Cert = RetornaCertificado(NSerieCert)
If Cert Is Nothing Then
Return [Ô][Ô]
Else
Dim DocCli As String = SoNumber(CnpjCPF)
Dim NomeArq As String = Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons.XML[Ô])
Dim Arq As XmlTextWriter = Nothing
Arq = New XmlTextWriter(NomeArq, System.Text.Encoding.UTF8)
Arq.WriteStartDocument() [ô]Inicia o documento XML
Arq.Formatting = Formatting.Indented [ô]Defino a formatação
Arq.WriteStartElement([Ô]consNFeDest[Ô])
Arq.WriteStartAttribute([Ô]xmlns[Ô])
Arq.WriteString([Ô]http://www.portalfiscal.inf.br/nfe[Ô])
Arq.WriteEndAttribute()
Arq.WriteStartAttribute([Ô]versao[Ô])
Arq.WriteString([Ô]1.01[Ô])
Arq.WriteEndAttribute()
Arq.WriteElementString([Ô]tpAmb[Ô], Ambiente)
Arq.WriteElementString([Ô]xServ[Ô], [Ô]CONSULTAR NFE DEST[Ô])
Arq.WriteElementString([Ô]CNPJ[Ô], DocCli)
Arq.WriteElementString([Ô]indNFe[Ô], [Ô]0[Ô])
Arq.WriteElementString([Ô]indEmi[Ô], 0)
Arq.WriteElementString([Ô]ultNSU[Ô], Nsu)
Arq.WriteEndElement() [ô]consNFeDest
Arq.Close()
BblNFC.Serv = TipoServico.NfeConsulta
Dim Doc As XmlDocument = New XmlDocument
Doc.Load(NomeArq)
Dim WebC As WsConsNFe.NFeConsultaDest = New WsConsNFe.NFeConsultaDest With {.Timeout = 50000, .SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12}
WebC.nfeCabecMsgValue = New WsConsNFe.nfeCabecMsg With {.cUF = CodUF, .versaoDados = [Ô]1.01[Ô]}
WebC.ClientCertificates.Add(Cert)
WebC.Url = [Ô] https://www.nfe.fazenda.gov.br/NFeConsultaDest/NFeConsultaDest.asmx[Ô]
Dim Retorno As String = WebC.nfeConsultaNFDest(Doc).OuterXml
Doc.LoadXml(Retorno)
Doc.Save(Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons-Ret.XML[Ô]))
Return Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons.XML[Ô]) & [Ô]|[Ô] & Path.Combine(PathSave, Format(Today, [Ô]ddMMyyHHmmss[Ô]) & [Ô]-Cons-Ret.XML[Ô])
End If
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Consulta Relação Danfes[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Return [Ô][Ô]
End Try
End Function
Se alguém puder me ajudar
Pessoal....
Estou encerrando o tópico pois descobri que depois de primeiro de outubro, aqui no RS pelo menos, só está disponÃvel o download via chave acesso. Isso já resolve meus problemas. Quando a consulta por lote de notas ficar disponibilizado adequarei meu sistema. Por ora vou ficar monitorando.
Estou encerrando o tópico pois descobri que depois de primeiro de outubro, aqui no RS pelo menos, só está disponÃvel o download via chave acesso. Isso já resolve meus problemas. Quando a consulta por lote de notas ficar disponibilizado adequarei meu sistema. Por ora vou ficar monitorando.
Tópico encerrado , respostas não são mais permitidas