none
NFeAutorizacao4 Classe RRS feed

  • Discussão Geral

  • Ola Pessoal, estou migrando um Sistema para a NFE 4.00

    mais acho que estou errando na Classe de autorização da NFe

    eu gerei essa classe

    '------------------------------------------------------------------------------
    ' <auto-generated>
    '     This code was generated by a tool.
    '     Runtime Version:4.0.30319.1
    '
    '     Changes to this file may cause incorrect behavior and will be lost if
    '     the code is regenerated.
    ' </auto-generated>
    '------------------------------------------------------------------------------
    
    ' 
    ' This source code was auto-generated by Microsoft.VSDesigner, Version 4.0.30319.1.
    ' 
    
    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
    Namespace NFEAutorizacao
    
        ''' <remarks/>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")> _
        <System.Diagnostics.DebuggerStepThroughAttribute()> _
        <System.ComponentModel.DesignerCategoryAttribute("code")> _
        <System.Web.Services.WebServiceBindingAttribute(Name:="NfeAutorizacao4ServiceBinding", [Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao4")> _
        Partial Public Class NfeAutorizacao
            Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
    
            Private nfeCabecMsgValueField As nfeCabecMsg
    
            Private nfeAutorizacaoLoteOperationCompleted As System.Threading.SendOrPostCallback
    
            Private useDefaultCredentialsSetExplicitly As Boolean
    
            ''' <remarks/>
            Public Sub New(urlRef As String)
                Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
                Me.Url = urlRef
                If (Me.IsLocalFileSystemWebService(Me.Url) = True) Then
                    Me.UseDefaultCredentials = True
                    Me.useDefaultCredentialsSetExplicitly = False
                Else
                    Me.useDefaultCredentialsSetExplicitly = True
                End If
            End Sub
    
            Public Property nfeCabecMsgValue() As nfeCabecMsg
                Get
                    Return Me.nfeCabecMsgValueField
                End Get
                Set(value As nfeCabecMsg)
                    Me.nfeCabecMsgValueField = value
                End Set
            End Property
    
            Public Shadows Property Url() As String
                Get
                    Return MyBase.Url
                End Get
                Set(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(value As Boolean)
                    MyBase.UseDefaultCredentials = value
                    Me.useDefaultCredentialsSetExplicitly = True
                End Set
            End Property
    
            ''' <remarks/>
            Public Event nfeAutorizacaoLoteCompleted As nfeAutorizacaoLoteCompletedEventHandler
    
            ''' <remarks/>
            <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao4/nfeAutorizacaoLote", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
            Public Function nfeAutorizacaoLote(<System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao")> nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao4")> System.Xml.XmlNode
                Dim results As Object() = Me.Invoke("nfeAutorizacao4", New Object() {nfeDadosMsg})
                Return DirectCast(results(0), System.Xml.XmlNode)
            End Function
    
            ''' <remarks/>
            Public Sub nfeAutorizacaoLoteAsync(nfeDadosMsg As System.Xml.XmlNode)
                Me.nfeAutorizacaoLoteAsync(nfeDadosMsg, Nothing)
            End Sub
    
            ''' <remarks/>
            Public Sub nfeAutorizacaoLoteAsync(nfeDadosMsg As System.Xml.XmlNode, userState As Object)
                If (Me.nfeAutorizacaoLoteOperationCompleted Is Nothing) Then
                    Me.nfeAutorizacaoLoteOperationCompleted = New System.Threading.SendOrPostCallback(AddressOf Me.OnnfeAutorizacaoLoteOperationCompleted)
                End If
                Me.InvokeAsync("nfeAutorizacao4", New Object() {nfeDadosMsg}, Me.nfeAutorizacaoLoteOperationCompleted, userState)
            End Sub
    
            Private Sub OnnfeAutorizacaoLoteOperationCompleted(arg As Object)
                If arg IsNot Nothing Then
                    'nfeAutorizacaoLoteCompleted 
                    Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = DirectCast(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
                    'nfeAutorizacaoLoteCompleted(Me, New nfeAutorizacaoLoteCompletedEventArgs(invokeArgs.Results, invokeArgs.[Error], invokeArgs.Cancelled, invokeArgs.UserState))
                End If
            End Sub
    
            ''' <remarks/>
            Public Shadows Sub CancelAsync(userState As Object)
                MyBase.CancelAsync(userState)
            End Sub
    
            Private Function IsLocalFileSystemWebService(url As String) As Boolean
                If ((url Is Nothing) OrElse (url = String.Empty)) Then
                    Return False
                End If
                Dim wsUri As 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.Xml", "4.0.30319.1")> _
        <System.SerializableAttribute()> _
        <System.Diagnostics.DebuggerStepThroughAttribute()> _
        <System.ComponentModel.DesignerCategoryAttribute("code")> _
        <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao4")> _
        <System.Xml.Serialization.XmlRootAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao4", IsNullable:=False)> _
        Partial Public Class nfeCabecMsg
    
            Inherits System.Web.Services.Protocols.SoapHeader
    
            Private cUFField As String
    
            Private versaoDadosField As String
    
            ''' <remarks/>
            Public Property cUF() As String
                Get
                    Return Me.cUFField
                End Get
                Set(value As String)
                    Me.cUFField = value
                End Set
            End Property
    
            ''' <remarks/>
            Public Property versaoDados() As String
                Get
                    Return Me.versaoDadosField
                End Get
                Set(value As String)
                    Me.versaoDadosField = value
                End Set
            End Property
        End Class
    
        ''' <remarks/>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")> _
        Public Delegate Sub nfeAutorizacaoLoteCompletedEventHandler(sender As Object, e As nfeAutorizacaoLoteCompletedEventArgs)
    
        ''' <remarks/>
        <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")> _
        <System.Diagnostics.DebuggerStepThroughAttribute()> _
        <System.ComponentModel.DesignerCategoryAttribute("code")> _
        Partial Public Class nfeAutorizacaoLoteCompletedEventArgs
            Inherits System.ComponentModel.AsyncCompletedEventArgs
    
            Private results As Object()
    
            Friend Sub New(results As Object(), exception As System.Exception, cancelled As Boolean, 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 DirectCast(Me.results(0), System.Xml.XmlNode)
                End Get
            End Property
        End Class
    End Namespace

    mais quando tento enviar o XML pela Classe ao Webserviçe sempre tenho o Retorno de Erro com a Mensagem "O Metodo NFeAutorizacao4 do Serviço da web é Invalido"

    alguém já passou por isso?


    Deus e o Maior

    segunda-feira, 9 de outubro de 2017 14:00

Todas as Respostas

  • Bom dia, Mflavio. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Poderia postar uma imagem do 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.

    terça-feira, 10 de outubro de 2017 12:49
    Moderador

  • Deus e o Maior

    terça-feira, 10 de outubro de 2017 13:07
  • Boa tarde, Mflavio. Tudo bem?

    É você quem está fazendo esse sistema?

    Continua enfrentando o mesmo problema? Se sim, por favor nos diga, para que você possa receber ajuda.

    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.

    sexta-feira, 13 de outubro de 2017 20:33
    Moderador
  • Ola Filipe tudo bem?

    sim eu sou o programador, responsável por esse aplicativo,


    Deus e o Maior

    segunda-feira, 16 de outubro de 2017 10:23
  • Boa tarde, Mflavio. Tudo bem?

    Conseguiu algum avanço no caso? Se ainda não, do que precisa?

    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.

    sexta-feira, 27 de outubro de 2017 19:05
    Moderador
  • Ola Filipe tudo bem?

    Ainda não consegui solução para o Caso, e não acho material na NET, na verdade o Sefaz ainda não liberou os WebServiçes Produção aqui em SP, então o Pessoal ainda não pego Firme nessa atualização.

    Mais eu estou na mesma, continua retornando método invalido


    Deus e o Maior

    sexta-feira, 27 de outubro de 2017 19:22
  • Bom dia, vc conseguiu achar o problema do retorno "Erro ao baixar 'https://nfce.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx'.
    Falha na solicitação com status HTTP 403: Forbidden."

    Fiz a Geração do WebService pelo VB.NET, foi gerado a Classe, porém continuo recebendo a mensagem acima !

    A mesma que vc postou na foto !

    Meu whats é 54 9 9188 4292

    Abraço.

    quarta-feira, 13 de junho de 2018 13:59
  • Também fiz uma classe em .Net muito parecida com a sua, e estou obtendo o mesmo erro. Você conseguiu corrigir o problema?
    terça-feira, 23 de outubro de 2018 13:01