FONTE NFE VB.NET

 Tópico anterior Próximo tópico Novo tópico

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#482455 - 22/06/2018 12:45:07

GEORGENES
SAO PAULO
Cadast. em:Julho/2012


Citação:
:
Instale a atualização KB2992611


NILSONTRES !!!
Instalei apenas essa atualização, entretanto continua dando a mensagem "Não foi possível criar um canal seguro para SSL/TLS"
Apenas fazendo todas a atualizações do windows que a conexão funciona.
Seria interessante saber de fato quais as atualizações necessárias para efetuar a conexão com a SEFAZ, visto que as atualizações do windows demora D+, tem cliente ainda com windows 7 sem SP1, demora horas para atualizar tudo.
Será que alguém poderia dar a dica de fato quais atualizações precisamos fazer ?, isso pouparia muito tempo !!!




#482458 - 22/06/2018 14:48:19

MAXCIM
GUARULHOS
Cadast. em:Dezembro/2003


fui monitorando atualização W7SP1  uma a uma,  só rodou depois de instalar todas  e apos reiniciar.
foi um dia todinha baixando atualizações.




#482460 - 22/06/2018 15:15:11

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Citação:
  tem cliente ainda com windows 7 sem SP1

Tem que por o SP1, depois disso a KB2992611



#482463 - 22/06/2018 15:31:14

FUTURA
.
Cadast. em:Maio/2004


Última edição em 22/06/2018 15:34:14 por FUTURA

Olha pessoal, ta osso viu..  em alguns casos vai de boa, mas a maioria usa win pirata e não atualizam.. ai tem que instalar muita coisa mesmo.. inclusive, tem alguns windows tão bugados, que no update ja da pau. Nós temos mesmo o costume de deixar pra última hora, eu comecei a atualizar os clientes com a nova versão semana passada, e de cara, em 10 micros, tive problemas com 3, se não tivesse prorrogado, ia ser impossível atualizar todos a tempo.




#482748 - 05/07/2018 10:24:42

FGAAA
PIRACICABA
Cadast. em:Julho/2018


Bom dia pessoal, alguem pode me ajudar com a classe  NFeConsultaProtocolo4 esta retornando sempre nothing,

segue a 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

Namespace Consulta4

    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.34209"), _
     System.Diagnostics.DebuggerStepThroughAttribute(), _
     System.ComponentModel.DesignerCategoryAttribute("code"), _
     System.Web.Services.WebServiceBindingAttribute(Name:="NfeConsulta4Soap12", [Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeConsultaProtocolo4")> _
    Partial Public Class NfeConsulta4

        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        Private useDefaultCredentialsSetExplicitly As Boolean
        Private nfeConsultaNFOperationCompleted As System.Threading.SendOrPostCallback


        Public Function BeginnfeConsultaNF(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("nfeConsultaNF", New Object() {nfeDadosMsg}, callback, asyncState)
        End Function

        Public Function EndnfeConsultaNF(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



        Public Overloads Sub nfeConsultaNFAsync(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal userState As Object)
            If (Me.nfeConsultaNFOperationCompleted Is Nothing) Then
                Me.nfeConsultaNFOperationCompleted = AddressOf Me.OnnfeConsultaNFOperationCompleted
            End If
            Me.InvokeAsync("nfeConsultaNF", New Object() {nfeDadosMsg}, Me.nfeConsultaNFOperationCompleted, userState)
        End Sub




        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 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



        Public Event nfeConsultaNFCompleted As nfeConsultaNFCompletedEventHandler

        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.portalfiscal.inf.br/nfe/wsdl/NFeConsultaProtocolo4/nfeConsultaNF", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
        Public Function nfeConsultaNF(<System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeConsultaProtocolo4")> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeConsultaProtocolo4")> System.Xml.XmlNode
            Dim results() As Object = Me.Invoke("nfeConsultaNF", New Object() {nfeDadosMsg})
            Return CType(results(0), System.Xml.XmlNode)
        End Function


        ''' <remarks/>
        Public Overloads Sub nfeConsultaNFAsync(ByVal nfeDadosMsg As System.Xml.XmlNode)
            Me.nfeConsultaNFAsync(nfeDadosMsg, Nothing)
        End Sub

        Private Sub OnnfeConsultaNFOperationCompleted(ByVal arg As Object)
            If arg IsNot Nothing Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = DirectCast(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
            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/NfeRetAutorizacao4")>
    <System.Xml.Serialization.XmlRootAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao4", IsNullable:=False)>
    Partial Public Class nfeCabecMsg

    End Class
    ''' <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.34209")> _
    Public Delegate Sub nfeConsultaNFCompletedEventHandler(ByVal sender As Object, ByVal e As nfeConsultaNFCompletedEventArgs)

    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.34209"), _
     System.Diagnostics.DebuggerStepThroughAttribute(), _
     System.ComponentModel.DesignerCategoryAttribute("code")> _
    Partial Public Class nfeConsultaNFCompletedEventArgs
        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



#482782 - 05/07/2018 16:41:41

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Ola Pessoal tudo bem?
alguém consegue colocar Duplicas na nfe 4.00? estou com o retorno  o Cstat 851
e não acho solução

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#482786 - 05/07/2018 17:30:07

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Última edição em 05/07/2018 17:30:45 por NILSONTRES

Citação:
  Cstat 851

Rejeição: Soma do valor das parcelas difere do Valor Líquido da Fatura



#482856 - 09/07/2018 15:47:48

JOERBETH

Cadast. em:Junho/2005


boa tarde

o link pra baixar a 4,0?

grato

Joerbeth

#482876 - 10/07/2018 10:43:13

JOSECPD
ITABUNA
Cadast. em:Maio/2009


Ola pessoal
estou com um problema na transmissao da NFE para o sefaz ba
o erro abaixo

"A conexão subjacente estava fechada: Não foi possível estabelecer relação de confiança para o canal seguro de SSL/TLS."




#482881 - 10/07/2018 13:48:53

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Ola pessoal
estou com um problema na transmissao da NFE para o sefaz ba
o erro abaixo

"A conexão subjacente estava fechada: Não foi possível estabelecer relação de confiança para o canal seguro de SSL/TLS."


precisa Atualizar o TSL na maquina do que esta tentando Emitir
no Google encontra todo o Procedimento

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário