FONTE NFE VB.NET

NILSONTRES 31/03/2015 15:43:34
#445609
Citação:

qual seria o endereço correto?



Public Event nfeRecepcaoLote2Completed As nfeRecepcaoLote2CompletedEventHandler

[ô][ô][ô]<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/NfeAutorizacao/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[Ô])> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao[Ô])> System.Xml.XmlNode
Dim results() As Object = Me.Invoke([Ô]nfeAutorizacaoLote[Ô], New Object() {nfeDadosMsg})
Return CType(results(0), System.Xml.XmlNode)
End Function
DANIELCPAETE 31/03/2015 17:56:17
#445613
Boa tarde

Segue aquivo com o envio e recebimento utilizando a versão 3.10.

Outras correções como Danfe irei disponibilizar ao longo da semana.

Atualmente está versão só está com os webservices do RS necessita colocar de outras regiões na classe URLs
DOUGLASJ 31/03/2015 19:49:10
#445617
Boa noite Daniel este projeto nao abre no visual 2008?


Um grande Abraço.
FOXMAN 01/04/2015 11:57:48
#445621
Citação:

:
Boa noite Daniel este projeto nao abre no visual 2008?


Um grande Abraço.


Crie um novo projeto em branco e adicione os objetos/pastas.

Selecione o projeto e pressione CTRL + D ou Direito do mouse no projeto e Add/Existing Item.
Refaça as referências necessárias.

T+
FPRADO 01/04/2015 16:58:59
#445624
DANIELCPAETE - Quero aqui agradecer pela generosidade em compartilhar conosco o seu conhecimento em seus posts, Que Deus te abençoe muito meu amigo.
DOUGLASJ 02/04/2015 17:22:48
#445646
Valeu Fox...

Citação:

:
:
Boa noite Daniel este projeto nao abre no visual 2008?


Um grande Abraço.
Crie um novo projeto em branco e adicione os objetos/pastas.

Selecione o projeto e pressione CTRL + D ou Direito do mouse no projeto e Add/Existing Item.
Refaça as referências necessárias.

T+




Alguém esta tendo problemas com envio de nfe para o PR ou para o sefaz virtual (RJ,RN,AL) ?

Meus clientes em SP estao normais... mas nesses estados esta dando

[Ô]

Valeu.
DOUGLASJ 02/04/2015 18:43:35
#445654
opa.. falhou a ms...

---------------------------

---------------------------
Não há suporte para o formato do caminho dado.
---------------------------
OK
---------------------------
DOUGLASJ 02/04/2015 23:07:37
#445657
Bom eu consegui gerar para o SEFAZ VIRTUAL do rio grande do sul.... mudando <indSinc>1</indSinc> para <indSinc>0</indSinc>.....


Mas no Paraná dá o erro

Referência de objeto não definida para uma instância de um objeto.

ainda.... alguém teve esse problema, eu utilizo o fonte antigo do Daniel que eu adaptei opara fazer uma DLL.. em SP vai normal e agora nos estado do SEFAZ VIRTUAL tbm... mas no parana nao....

Valeu Galera...
ELUCIMAR 03/04/2015 11:21:19
#445660
DOUGLASJ

O problema do Parana é que que as classe de Autorização e Retorno de Autorização do WS são diferentes dos demais
Sefaz autorizadores.

Se você for no VS e gerar as classes do Webservice você vai ver que ele vai gerar diferente dos demais Sefaz.

Exemplo:
Url = https://nfe.fazenda.pr.gov.br/nfe/NFeAutorizacao3?wsdl
Classe = NfeAutorizacao3

Urls = https://nfe.fazenda.pr.gov.br/nfe/NFeRetAutorizacao3?wsdl
Classe = NfeRetAutorizacao3

Os demais Sefaz autorizadores retornam:
NfeAutorizacao e NfeRetAutorizacao

Você vai ter que tratar quando o cliente for do Parana
DOUGLASJ 03/04/2015 17:56:35
#445669
Obrigado Elucimar,

eu tinha percebido isso hoje quando eu fiquei depurando item a item... mudei gerando uma nova classe como vc descreveu e deu certo!

Porém eu não estou conseguindo consultar NFe pela chave... pelo protocolo blz.. mas a função pela chave não... é muito diferente a classe da anterior..

veja:

[ô]------------------------------------------------------------------------------
[ô] <auto-generated>
[ô] This code was generated by a tool.
[ô] Runtime Version:2.0.50727.5485
[ô]
[ô] Changes to this file may cause incorrect behavior and will be lost if
[ô] the code is regenerated.
[ô] </auto-generated>
[ô]------------------------------------------------------------------------------

Option Strict On
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 NfeConsulta3

<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.ServiceModel[Ô], [Ô]3.0.0.0[Ô]), _
System.ServiceModel.ServiceContractAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3[Ô], ConfigurationName:=[Ô]NfeConsulta3.NfeConsultaSoap12[Ô])> _
Public Interface NfeConsultaSoap12

<System.ServiceModel.OperationContractAttribute(Action:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3/nfeConsultaNF[Ô], ReplyAction:=[Ô]*[Ô]), _
System.ServiceModel.XmlSerializerFormatAttribute()> _
Function nfeConsultaNF(ByVal request As NfeConsulta3.nfeConsultaNFRequest) As NfeConsulta3.nfeConsultaNFResponse

<System.ServiceModel.OperationContractAttribute(AsyncPattern:=True, Action:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3/nfeConsultaNF[Ô], ReplyAction:=[Ô]*[Ô])> _
Function BeginnfeConsultaNF(ByVal request As NfeConsulta3.nfeConsultaNFRequest, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

Function EndnfeConsultaNF(ByVal result As System.IAsyncResult) As NfeConsulta3.nfeConsultaNFResponse
End Interface

[ô][ô][ô]<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Xml[Ô], [Ô]2.0.50727.5485[Ô]), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3[Ô])> _
Partial Public Class nfeCabecMsg
Inherits Object
Implements System.ComponentModel.INotifyPropertyChanged

Private cUFField As String

Private versaoDadosField As String

Private anyAttrField() As System.Xml.XmlAttribute

[ô][ô][ô]<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Order:=0)> _
Public Property cUF() As String
Get
Return Me.cUFField
End Get
Set(ByVal value As String)
Me.cUFField = value
Me.RaisePropertyChanged([Ô]cUF[Ô])
End Set
End Property

[ô][ô][ô]<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Order:=1)> _
Public Property versaoDados() As String
Get
Return Me.versaoDadosField
End Get
Set(ByVal value As String)
Me.versaoDadosField = value
Me.RaisePropertyChanged([Ô]versaoDados[Ô])
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
Me.RaisePropertyChanged([Ô]AnyAttr[Ô])
End Set
End Property

Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

Protected Sub RaisePropertyChanged(ByVal propertyName As String)
Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (propertyChanged) Is Nothing) Then
propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.ServiceModel[Ô], [Ô]3.0.0.0[Ô]), _
System.ServiceModel.MessageContractAttribute(IsWrapped:=False)> _
Partial Public Class nfeConsultaNFRequest

<System.ServiceModel.MessageHeaderAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3[Ô])> _
Public nfeCabecMsg As NfeConsulta3.nfeCabecMsg

<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3[Ô], Order:=0)> _
Public nfeDadosMsg As System.Xml.XmlNode

Public Sub New()
MyBase.New()
End Sub

Public Sub New(ByVal nfeCabecMsg As NfeConsulta3.nfeCabecMsg, ByVal nfeDadosMsg As System.Xml.XmlNode)
MyBase.New()
Me.nfeCabecMsg = nfeCabecMsg
Me.nfeDadosMsg = nfeDadosMsg
End Sub

Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class

<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.ServiceModel[Ô], [Ô]3.0.0.0[Ô]), _
System.ServiceModel.MessageContractAttribute(IsWrapped:=False)> _
Partial Public Class nfeConsultaNFResponse

<System.ServiceModel.MessageHeaderAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3[Ô])> _
Public nfeCabecMsg As NfeConsulta3.nfeCabecMsg

<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3[Ô], Order:=0)> _
Public nfeConsultaNFResult As System.Xml.XmlNode

Public Sub New()
MyBase.New()
End Sub

Public Sub New(ByVal nfeCabecMsg As NfeConsulta3.nfeCabecMsg, ByVal nfeConsultaNFResult As System.Xml.XmlNode)
MyBase.New()
Me.nfeCabecMsg = nfeCabecMsg
Me.nfeConsultaNFResult = nfeConsultaNFResult
End Sub

Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class

<System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.ServiceModel[Ô], [Ô]3.0.0.0[Ô])> _
Public Interface NfeConsultaSoap12Channel
Inherits NfeConsulta3.NfeConsultaSoap12, System.ServiceModel.IClientChannel
End Interface

<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.ServiceModel[Ô], [Ô]3.0.0.0[Ô])> _
Partial Public Class nfeConsultaNFCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs

Private results() As Object

Public 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

Public ReadOnly Property Result() As NfeConsulta3.nfeConsultaNFResponse
Get
MyBase.RaiseExceptionIfNecessary()
Return CType(Me.results(0), NfeConsulta3.nfeConsultaNFResponse)
End Get
End Property
End Class

<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.ServiceModel[Ô], [Ô]3.0.0.0[Ô])> _
Partial Public Class NfeConsultaSoap12Client
Inherits System.ServiceModel.ClientBase(Of NfeConsulta3.NfeConsultaSoap12)
Implements NfeConsulta3.NfeConsultaSoap12

Private onBeginnfeConsultaNFDelegate As BeginOperationDelegate

Private onEndnfeConsultaNFDelegate As EndOperationDelegate

Private onnfeConsultaNFCompletedDelegate As System.Threading.SendOrPostCallback
Public Sub New()
MyBase.New()
End Sub


Public Sub New(ByVal endpointConfigurationName As String)
MyBase.New(endpointConfigurationName)
End Sub

Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String)
MyBase.New(endpointConfigurationName, remoteAddress)
End Sub

Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
MyBase.New(endpointConfigurationName, remoteAddress)
End Sub

Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
MyBase.New(binding, remoteAddress)
End Sub

Public Event nfeConsultaNFCompleted As System.EventHandler(Of nfeConsultaNFCompletedEventArgs)

Public Function nfeConsultaNF(ByVal request As NfeConsulta3.nfeConsultaNFRequest) As NfeConsulta3.nfeConsultaNFResponse Implements NfeConsulta3.NfeConsultaSoap12.nfeConsultaNF
Return MyBase.Channel.nfeConsultaNF(request)
End Function

<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Public Function BeginnfeConsultaNF(ByVal request As NfeConsulta3.nfeConsultaNFRequest, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Implements NfeConsulta3.NfeConsultaSoap12.BeginnfeConsultaNF
Return MyBase.Channel.BeginnfeConsultaNF(request, callback, asyncState)
End Function

<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Public Function EndnfeConsultaNF(ByVal result As System.IAsyncResult
Página 186 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar