FONTE NFE VB.NET
FOXMAN,
Você está usando o código disponibilizado pelo autor do tópico ?
Você está usando o código disponibilizado pelo autor do tópico ?
Pessoal,
Estou vendo que muitos estão tendo o mesmo problema que eu tive quando fui trabalhar o [ô]cancelamento[ô] e que utilizando o código disponibilizado pelo DANIEL. Por isto estou postando abaixo a alteração que fiz na classe de cancelamento (NfeCancelamento2.vb):
[ô]------------------------------------------------------------------------------
[ô] <auto-generated>
[ô] O código foi gerado por uma ferramenta.
[ô] Versão de Tempo de Execução:2.0.50727.3615
[ô]
[ô] As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
[ô] o código for gerado novamente.
[ô] </auto-generated>
[ô]------------------------------------------------------------------------------
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 wsdl, Version=2.0.50727.1432.
[ô]
Namespace Cancelamento2 [ô]No código postado pelo DANIEL não tinha essa linha, apenas acrescentei toda a classe dentro deste namespace e funcionou, pelo menos para mim
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
System.Web.Services.WebServiceBindingAttribute(Name:=[Ô]NfeCancelamento2Soap12[Ô], [Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô])> _
Partial Public Class NfeCancelamento2
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private nfeCabecMsgValueField As nfeCabecMsg
Private nfeCancelamentoNF2OperationCompleted As System.Threading.SendOrPostCallback
[ô][ô][ô]<remarks/>
Public Sub New(ByVal V_Url As String)
MyBase.New()
Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
Me.Url = V_Url
End Sub
Public Property nfeCabecMsgValue() As nfeCabecMsg
Get
Return Me.nfeCabecMsgValueField
End Get
Set(ByVal value As nfeCabecMsg)
Me.nfeCabecMsgValueField = value
End Set
End Property
[ô][ô][ô]<remarks/>
Public Event nfeCancelamentoNF2Completed As nfeCancelamentoNF2CompletedEventHandler
[ô][ô][ô]<remarks/>
<System.Web.Services.Protocols.SoapHeaderAttribute([Ô]nfeCabecMsgValue[Ô], Direction:=System.Web.Services.Protocols.SoapHeaderDirection.InOut), _
System.Web.Services.Protocols.SoapDocumentMethodAttribute([Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2/nfeCancelamentoNF2[Ô], Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
Public Function nfeCancelamentoNF2(<System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô])> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô])> System.Xml.XmlNode
Dim results() As Object = Me.Invoke([Ô]nfeCancelamentoNF2[Ô], New Object() {nfeDadosMsg})
Return CType(results(0), System.Xml.XmlNode)
End Function
[ô][ô][ô]<remarks/>
Public Function BeginnfeCancelamentoNF2(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke([Ô]nfeCancelamentoNF2[Ô], New Object() {nfeDadosMsg}, callback, asyncState)
End Function
[ô][ô][ô]<remarks/>
Public Function EndnfeCancelamentoNF2(ByVal asyncResult As System.IAsyncResult) As System.Xml.XmlNode
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0), System.Xml.XmlNode)
End Function
[ô][ô][ô]<remarks/>
Public Overloads Sub nfeCancelamentoNF2Async(ByVal nfeDadosMsg As System.Xml.XmlNode)
Me.nfeCancelamentoNF2Async(nfeDadosMsg, Nothing)
End Sub
[ô][ô][ô]<remarks/>
Public Overloads Sub nfeCancelamentoNF2Async(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal userState As Object)
If (Me.nfeCancelamentoNF2OperationCompleted Is Nothing) Then
Me.nfeCancelamentoNF2OperationCompleted = AddressOf Me.OnnfeCancelamentoNF2OperationCompleted
End If
Me.InvokeAsync([Ô]nfeCancelamentoNF2[Ô], New Object() {nfeDadosMsg}, Me.nfeCancelamentoNF2OperationCompleted, userState)
End Sub
Private Sub OnnfeCancelamentoNF2OperationCompleted(ByVal arg As Object)
If (Not (Me.nfeCancelamentoNF2CompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent nfeCancelamentoNF2Completed(Me, New nfeCancelamentoNF2CompletedEventArgs(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
End Class
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô]), _
System.Xml.Serialization.XmlRootAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô], IsNullable:=False)> _
Public Class nfeCabecMsg
[ô]Partial Public Class nfeCabecMsg
Inherits System.Web.Services.Protocols.SoapHeader
Private cUFField As String
Private versaoDadosField As String
Private anyAttrField() As System.Xml.XmlAttribute
[ô][ô][ô]<remarks/>
Public Property cUF() As String
Get
Return Me.cUFField
End Get
Set(ByVal value As String)
Me.cUFField = value
End Set
End Property
[ô][ô][ô]<remarks/>
Public Property versaoDados() As String
Get
Return Me.versaoDadosField
End Get
Set(ByVal value As String)
Me.versaoDadosField = value
End Set
End Property
[ô][ô][ô]<remarks/>
<System.Xml.Serialization.XmlAnyAttributeAttribute()> _
Public Property AnyAttr() As System.Xml.XmlAttribute()
Get
Return Me.anyAttrField
End Get
Set(ByVal value As System.Xml.XmlAttribute())
Me.anyAttrField = value
End Set
End Property
End Class
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô])> _
Public Delegate Sub nfeCancelamentoNF2CompletedEventHandler(ByVal sender As Object, ByVal e As nfeCancelamentoNF2CompletedEventArgs)
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
Partial Public Class nfeCancelamentoNF2CompletedEventArgs
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
Estou vendo que muitos estão tendo o mesmo problema que eu tive quando fui trabalhar o [ô]cancelamento[ô] e que utilizando o código disponibilizado pelo DANIEL. Por isto estou postando abaixo a alteração que fiz na classe de cancelamento (NfeCancelamento2.vb):
[ô]------------------------------------------------------------------------------
[ô] <auto-generated>
[ô] O código foi gerado por uma ferramenta.
[ô] Versão de Tempo de Execução:2.0.50727.3615
[ô]
[ô] As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
[ô] o código for gerado novamente.
[ô] </auto-generated>
[ô]------------------------------------------------------------------------------
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 wsdl, Version=2.0.50727.1432.
[ô]
Namespace Cancelamento2 [ô]No código postado pelo DANIEL não tinha essa linha, apenas acrescentei toda a classe dentro deste namespace e funcionou, pelo menos para mim
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
System.Web.Services.WebServiceBindingAttribute(Name:=[Ô]NfeCancelamento2Soap12[Ô], [Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô])> _
Partial Public Class NfeCancelamento2
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private nfeCabecMsgValueField As nfeCabecMsg
Private nfeCancelamentoNF2OperationCompleted As System.Threading.SendOrPostCallback
[ô][ô][ô]<remarks/>
Public Sub New(ByVal V_Url As String)
MyBase.New()
Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
Me.Url = V_Url
End Sub
Public Property nfeCabecMsgValue() As nfeCabecMsg
Get
Return Me.nfeCabecMsgValueField
End Get
Set(ByVal value As nfeCabecMsg)
Me.nfeCabecMsgValueField = value
End Set
End Property
[ô][ô][ô]<remarks/>
Public Event nfeCancelamentoNF2Completed As nfeCancelamentoNF2CompletedEventHandler
[ô][ô][ô]<remarks/>
<System.Web.Services.Protocols.SoapHeaderAttribute([Ô]nfeCabecMsgValue[Ô], Direction:=System.Web.Services.Protocols.SoapHeaderDirection.InOut), _
System.Web.Services.Protocols.SoapDocumentMethodAttribute([Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2/nfeCancelamentoNF2[Ô], Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
Public Function nfeCancelamentoNF2(<System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô])> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô])> System.Xml.XmlNode
Dim results() As Object = Me.Invoke([Ô]nfeCancelamentoNF2[Ô], New Object() {nfeDadosMsg})
Return CType(results(0), System.Xml.XmlNode)
End Function
[ô][ô][ô]<remarks/>
Public Function BeginnfeCancelamentoNF2(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke([Ô]nfeCancelamentoNF2[Ô], New Object() {nfeDadosMsg}, callback, asyncState)
End Function
[ô][ô][ô]<remarks/>
Public Function EndnfeCancelamentoNF2(ByVal asyncResult As System.IAsyncResult) As System.Xml.XmlNode
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0), System.Xml.XmlNode)
End Function
[ô][ô][ô]<remarks/>
Public Overloads Sub nfeCancelamentoNF2Async(ByVal nfeDadosMsg As System.Xml.XmlNode)
Me.nfeCancelamentoNF2Async(nfeDadosMsg, Nothing)
End Sub
[ô][ô][ô]<remarks/>
Public Overloads Sub nfeCancelamentoNF2Async(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal userState As Object)
If (Me.nfeCancelamentoNF2OperationCompleted Is Nothing) Then
Me.nfeCancelamentoNF2OperationCompleted = AddressOf Me.OnnfeCancelamentoNF2OperationCompleted
End If
Me.InvokeAsync([Ô]nfeCancelamentoNF2[Ô], New Object() {nfeDadosMsg}, Me.nfeCancelamentoNF2OperationCompleted, userState)
End Sub
Private Sub OnnfeCancelamentoNF2OperationCompleted(ByVal arg As Object)
If (Not (Me.nfeCancelamentoNF2CompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent nfeCancelamentoNF2Completed(Me, New nfeCancelamentoNF2CompletedEventArgs(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
End Class
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô]), _
System.Xml.Serialization.XmlRootAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeCancelamento2[Ô], IsNullable:=False)> _
Public Class nfeCabecMsg
[ô]Partial Public Class nfeCabecMsg
Inherits System.Web.Services.Protocols.SoapHeader
Private cUFField As String
Private versaoDadosField As String
Private anyAttrField() As System.Xml.XmlAttribute
[ô][ô][ô]<remarks/>
Public Property cUF() As String
Get
Return Me.cUFField
End Get
Set(ByVal value As String)
Me.cUFField = value
End Set
End Property
[ô][ô][ô]<remarks/>
Public Property versaoDados() As String
Get
Return Me.versaoDadosField
End Get
Set(ByVal value As String)
Me.versaoDadosField = value
End Set
End Property
[ô][ô][ô]<remarks/>
<System.Xml.Serialization.XmlAnyAttributeAttribute()> _
Public Property AnyAttr() As System.Xml.XmlAttribute()
Get
Return Me.anyAttrField
End Get
Set(ByVal value As System.Xml.XmlAttribute())
Me.anyAttrField = value
End Set
End Property
End Class
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô])> _
Public Delegate Sub nfeCancelamentoNF2CompletedEventHandler(ByVal sender As Object, ByVal e As nfeCancelamentoNF2CompletedEventArgs)
[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
Partial Public Class nfeCancelamentoNF2CompletedEventArgs
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
Alguem chegou nesse erro [Ô]Usar somente o namespace padrao da NF-e[Ô]. Sefaz MG ???
é Rodrigo, aqui continua dando o mesmo erro.
[Ô]Cabeçalho - Falha no Schema XML[Ô]
[Ô]Cabeçalho - Falha no Schema XML[Ô]
FOXMAN,
Você já verificou se não está associando o cabeçalho errado na conexão ?
Veja como eu estou fazendo:
Dim wsMsg As Cancelamento2.NfeCancelamento2
Dim cab As New Cancelamento2.nfeCabecMsg [ô]Veja que tem que ser o cabeçalho da classe de cancelamento.
[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = sVersao
[ô]Instanciando a Conexão com WebService
wsMsg = New Cancelamento2.NfeCancelamento2(S_Url.UrlNfeCancelamento)
[ô]Associando cabeçalho da NFe
wsMsg.nfeCabecMsgValue = cab
Veja se é isto, eu também apanhei disto quando estava no começo.
Qualquer coisa poste o seu código para que possamos averiguar.
Att;
Você já verificou se não está associando o cabeçalho errado na conexão ?
Veja como eu estou fazendo:
Dim wsMsg As Cancelamento2.NfeCancelamento2
Dim cab As New Cancelamento2.nfeCabecMsg [ô]Veja que tem que ser o cabeçalho da classe de cancelamento.
[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = sVersao
[ô]Instanciando a Conexão com WebService
wsMsg = New Cancelamento2.NfeCancelamento2(S_Url.UrlNfeCancelamento)
[ô]Associando cabeçalho da NFe
wsMsg.nfeCabecMsgValue = cab
Veja se é isto, eu também apanhei disto quando estava no começo.
Qualquer coisa poste o seu código para que possamos averiguar.
Att;
nao consegui montar a chamada ainda para o cancelamento ,,, se puder mandar mais detalhes agradeco
Citação::
FOXMAN,
Você já verificou se não está associando o cabeçalho errado na conexão ?
Veja como eu estou fazendo:
Dim wsMsg As Cancelamento2.NfeCancelamento2
Dim cab As New Cancelamento2.nfeCabecMsg [ô]Veja que tem que ser o cabeçalho da classe de cancelamento.
[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = sVersao
[ô]Instanciando a Conexão com WebService
wsMsg = New Cancelamento2.NfeCancelamento2(S_Url.UrlNfeCancelamento)
[ô]Associando cabeçalho da NFe
wsMsg.nfeCabecMsgValue = cab
Veja se é isto, eu também apanhei disto quando estava no começo.
Qualquer coisa poste o seu código para que possamos averiguar.
Att;
Rodrigo, é isso ae mesmo....
Agora funfou.....
Brigadãooooo
Oi pessoal porque não colocam a versão alterada aqui no forum para os demais colegas.
Boa tarde colegas
Estou adaptando meu erp para versão 2.0.
Tenho um cliente que é simples nacional, e estou perdido com relação aos campos [Ô]pCredSN[Ô] e [Ô]vCredICMSSN[Ô], sera que alguem poderia me explcar quais informações vão ai? (porque no manual não entendi nada)
Obrigado
Estou adaptando meu erp para versão 2.0.
Tenho um cliente que é simples nacional, e estou perdido com relação aos campos [Ô]pCredSN[Ô] e [Ô]vCredICMSSN[Ô], sera que alguem poderia me explcar quais informações vão ai? (porque no manual não entendi nada)
Obrigado
Faça seu login para responder