none
Status NFE 4 RRS feed

  • Discussão Geral

  • Boa noite companheiros, estou com um problema para gerar o xml, para consultar status do servico na versao 4.

    o xml que fiz, esta de acordo com o  schema, disponibilizado pela receita, e pelo site da Sefaz/RS, mas quando eu envio para o webservice da sefaz virtual ele me retorna como xml mau formatado.

    alguem teria um exemplo para me enviar, de preferencia em vb.net, mas pode ser em outra linguagem.

    <?xml version="1.0" encoding="utf-8"?>
    <consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">
    <tpAmb>2</tpAmb>
    <cUF>13</cUF>
    <xServ>STATUS</xServ>
    </consStatServ>
    terça-feira, 19 de setembro de 2017 23:19

Todas as Respostas

  • Boa tarde, hcac. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Essa seria uma questão de "How to/Customização" ou "Break Fix/Erro"?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 20 de setembro de 2017 20:27
    Moderador
  • sinceramente, nao sei, sei que é uma duvida so gostaria de um auxilio
    quarta-feira, 20 de setembro de 2017 23:30
  • Acredito que deva ser algo referente ao webservice que vc está acessando, não há nada de errado com seu xml.
    Me adicione no skype para trocarmos uma idéia. paulocastrocruz@hotmail.com
    Abraço
    sexta-feira, 22 de setembro de 2017 17:26
  • Ola Amigo ja conseguiu fazer a consulta?

    eu consegui com a seguinte classe

    Option Strict Off
    Option Explicit On
    
    Imports System
    Imports System.ComponentModel
    Imports System.Diagnostics
    Imports System.Web.Services
    Imports System.Web.Services.Protocols
    Imports System.Xml.Serialization
    
    '
    'This source code was auto-generated by Microsoft.VSDesigner, Version 4.0.30319.1.
    '
    Namespace StatusNFe4
    
        '''<remarks/>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1"), _
         System.Diagnostics.DebuggerStepThroughAttribute(), _
         System.ComponentModel.DesignerCategoryAttribute("code"), _
         System.Web.Services.WebServiceBindingAttribute(Name:="NFeStatusServico4ServiceBinding", [Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4")> _
        Partial Public Class NFeStatusServico4
            Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
    
            Private nfeStatusServicoNFOperationCompleted As System.Threading.SendOrPostCallback
    
            Private useDefaultCredentialsSetExplicitly As Boolean
    
            '''<remarks/>
            Public Sub New(ByVal v_RUL As String)
                MyBase.New()
                Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
                Me.Url = v_RUL 'Global.WindowsApplication1.My.MySettings.Default.WindowsApplication5_StatusGO_NFeStatusServico4
                If (Me.IsLocalFileSystemWebService(Me.Url) = True) Then
                    Me.UseDefaultCredentials = True
                    Me.useDefaultCredentialsSetExplicitly = False
                Else
                    Me.useDefaultCredentialsSetExplicitly = True
                End If
            End Sub
    
            Public Shadows Property Url() As String
                Get
                    Return MyBase.Url
                End Get
                Set(ByVal value As String)
                    If (((Me.IsLocalFileSystemWebService(MyBase.Url) = True) _
                                AndAlso (Me.useDefaultCredentialsSetExplicitly = False)) _
                                AndAlso (Me.IsLocalFileSystemWebService(value) = False)) Then
                        MyBase.UseDefaultCredentials = False
                    End If
                    MyBase.Url = value
                End Set
            End Property
    
            Public Shadows Property UseDefaultCredentials() As Boolean
                Get
                    Return MyBase.UseDefaultCredentials
                End Get
                Set(ByVal value As Boolean)
                    MyBase.UseDefaultCredentials = value
                    Me.useDefaultCredentialsSetExplicitly = True
                End Set
            End Property
    
            '''<remarks/>
            Public Event nfeStatusServicoNFCompleted As nfeStatusServicoNFCompletedEventHandler
    
            '''<remarks/>
            <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4/nfeStatusServicoNF", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
            Public Function nfeStatusServicoNF(<System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4")> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute("nfeResultMsg", [Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4")> System.Xml.XmlNode
                Dim results() As Object = Me.Invoke("nfeStatusServicoNF", New Object() {nfeDadosMsg})
                Return CType(results(0), System.Xml.XmlNode)
            End Function
    
            '''<remarks/>
            Public Overloads Sub nfeStatusServicoNFAsync(ByVal nfeDadosMsg As System.Xml.XmlNode)
                Me.nfeStatusServicoNFAsync(nfeDadosMsg, Nothing)
            End Sub
    
            '''<remarks/>
            Public Overloads Sub nfeStatusServicoNFAsync(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal userState As Object)
                If (Me.nfeStatusServicoNFOperationCompleted Is Nothing) Then
                    Me.nfeStatusServicoNFOperationCompleted = AddressOf Me.OnnfeStatusServicoNFOperationCompleted
                End If
                Me.InvokeAsync("nfeStatusServicoNF", New Object() {nfeDadosMsg}, Me.nfeStatusServicoNFOperationCompleted, userState)
            End Sub
    
            Private Sub OnnfeStatusServicoNFOperationCompleted(ByVal arg As Object)
                If (Not (Me.nfeStatusServicoNFCompletedEvent) Is Nothing) Then
                    Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
                    RaiseEvent nfeStatusServicoNFCompleted(Me, New nfeStatusServicoNFCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
                End If
            End Sub
    
            '''<remarks/>
            Public Shadows Sub CancelAsync(ByVal userState As Object)
                MyBase.CancelAsync(userState)
            End Sub
    
            Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
                If ((url Is Nothing) _
                            OrElse (url Is String.Empty)) Then
                    Return False
                End If
                Dim wsUri As System.Uri = New System.Uri(url)
                If ((wsUri.Port >= 1024) _
                            AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
                    Return True
                End If
                Return False
            End Function
        End Class
    
        '''<remarks/>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")> _
        Public Delegate Sub nfeStatusServicoNFCompletedEventHandler(ByVal sender As Object, ByVal e As nfeStatusServicoNFCompletedEventArgs)
    
        '''<remarks/>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1"), _
         System.Diagnostics.DebuggerStepThroughAttribute(), _
         System.ComponentModel.DesignerCategoryAttribute("code")> _
        Partial Public Class nfeStatusServicoNFCompletedEventArgs
            Inherits System.ComponentModel.AsyncCompletedEventArgs
    
            Private results() As Object
    
            Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
                MyBase.New(exception, cancelled, userState)
                Me.results = results
            End Sub
    
            '''<remarks/>
            Public ReadOnly Property Result() As System.Xml.XmlNode
                Get
                    Me.RaiseExceptionIfNecessary()
                    Return CType(Me.results(0), System.Xml.XmlNode)
                End Get
            End Property
        End Class
    End Namespace
    

    e consumindo a calsse com a seguinte Function

      Private Function funConsultaStatus() As RetRetorno
            Try
                Dim strRetorno As XmlElement
                Dim certificado As X509Certificate2 = CertificadoDigital.SelecionarCertificado("")
    
                Pnome = LeArquivoINI(nome_arquivo_ini, "Nota", "hambiente", "Configure")
                If UrlAcesso.CodigoUF = "" Then
                    UrlAcesso = BuscaURL(MinhaUF, Pnome)
                End If
    
                Static wsMSG As StatusNFe4.NFeStatusServico4
                wsMSG = New StatusNFe4.NFeStatusServico4(UrlAcesso.UrlNfeStatusServico4)
                wsMSG.Timeout = 100000
                wsMSG.ClientCertificates.Add(certificado)
                System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType)
    
                Dim Dados As XmlDocument = New XmlDocument
                Dados.LoadXml("<?xml version=""1.0"" encoding=""UTF-8""?><consStatServ versao=""4.00"" xmlns=""http://www.portalfiscal.inf.br/nfe""><tpAmb>2</tpAmb><cUF>" & PegaCodUF(MinhaUF) & "</cUF><xServ>STATUS</xServ></consStatServ>")
                strRetorno = wsMSG.nfeStatusServicoNF(Dados)
                Resultado.LimpaDados()
                For Each outerNode As XmlNode In strRetorno
                    Select Case outerNode.Name
    
                        Case "tpAmb"
                            Resultado.tpAmb = outerNode.InnerText
    
                        Case "verAplic"
                            Resultado.verAplic = outerNode.InnerText
    
                        Case "cStat"
                            Resultado.cStat = outerNode.InnerText
    
                        Case "xMotivo"
                            Resultado.xMotivo = outerNode.InnerText
    
                        Case "cUF"
                            Resultado.cUF = outerNode.InnerText
                    End Select
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Function



    Deus e o Maior

    sexta-feira, 6 de outubro de 2017 17:51
  • Mflavio ... estava vendo seu codigo, poderia me add no skype para tirar uma dúvida salomao.calheiros1

    segunda-feira, 6 de novembro de 2017 15:48