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
