FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#487389 - 26/02/2019 16:31:05

LEANTRONIC
SAMPA
Cadast. em:Março/2012


Citação:
:
é tanta burocracias que em breve um arquivo xml vai ter 1gb de informação !
Prevejo credenciamento logo logo para emitir nf-e  
Direcionando todos os meus clientes apenas para varejo, SAT, fugindo de Nfe.

Pior que uma hora você vai ter que fornecer a NF-e pois essas devoluções de produtos tudo é obrigatório emitir danfe, tive muita dor de cabeça com alguns fornecedores de clientes meu que solicitavam NF-e de devolução com detalhes puramente burocrático



#488200 - 08/04/2019 11:53:49

MAXGUIMEL
NOVA GRANADA
Cadast. em:Abril/2006


Pessoal bom dia
Esta dando erro e não carrega as strings:
Public Function EnviaLote400(ByVal EndArquivoXml As String) As RetEnvio
        Dim strRetorno As XmlElement
        Dim xmldoc = New XmlDocument()

        xmldoc.Load(EndArquivoXml) 'Carrega o arquivo XML
        Dim CERT As X509Certificate2
        CERT = SelecionarCertificado("")
        Try
            Dim wsMsg As New NFeAutorizacaoV4.NFeAutorizacao4(S_Url.UrlNFeAutorizacao400) - AQUI O ERRO


            Dim Notas As String

            wsMsg.Timeout = 100000
            wsMsg.ClientCertificates.Add(CERT)
            System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType) 'NOVO PROTOCOLO
            Notas = xmldoc.OuterXml

            'RETORNO DA SEFAZ
            strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)

            'DESMEMBRA RETORNO XML
            Dim StrRetNota As RetEnvio = Nothing
            Dim XmlText As XmlDocument = New XmlDocument

            For Each outerNode As XmlNode In strRetorno
                For Each InnerNode As XmlNode In outerNode.ChildNodes
                    If (InnerNode.Name = "verAplic" Or outerNode.Name = "verAplic") Then
                        StrRetNota.verAplic = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "cStat" Or outerNode.Name = "cStat") Then
                        StrRetNota.cStat = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "xMotivo" Or outerNode.Name = "xMotivo") Then
                        StrRetNota.xMotivo = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "cUF" Or outerNode.Name = "cUF") Then
                        StrRetNota.cUF = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "nRec" Or outerNode.Name = "nRec") Then
                        StrRetNota.nRec = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "dhRecbto" Or outerNode.Name = "dhRecbto") Then
                        StrRetNota.dhRecbto = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "tMed" Or outerNode.Name = "tMed") Then
                        StrRetNota.tMed = InnerNode.InnerText
                    End If
                Next
            Next

            Return StrRetNota
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "")
            Return Nothing
        End Try
    End Function

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original.
  
  


#488227 - 09/04/2019 16:49:43

FPRADO
PIRACICABA
Cadast. em:Outubro/2004


Citação:
:
Pessoal bom dia
Esta dando erro e não carrega as strings:
Public Function EnviaLote400(ByVal EndArquivoXml As String) As RetEnvio
        Dim strRetorno As XmlElement
        Dim xmldoc = New XmlDocument()

        xmldoc.Load(EndArquivoXml) 'Carrega o arquivo XML
        Dim CERT As X509Certificate2
        CERT = SelecionarCertificado("")
        Try
            Dim wsMsg As New NFeAutorizacaoV4.NFeAutorizacao4(S_Url.UrlNFeAutorizacao400) - AQUI O ERRO


            Dim Notas As String

            wsMsg.Timeout = 100000
            wsMsg.ClientCertificates.Add(CERT)
            System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType) 'NOVO PROTOCOLO
            Notas = xmldoc.OuterXml

            'RETORNO DA SEFAZ
            strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)

            'DESMEMBRA RETORNO XML
            Dim StrRetNota As RetEnvio = Nothing
            Dim XmlText As XmlDocument = New XmlDocument

            For Each outerNode As XmlNode In strRetorno
                For Each InnerNode As XmlNode In outerNode.ChildNodes
                    If (InnerNode.Name = "verAplic" Or outerNode.Name = "verAplic") Then
                        StrRetNota.verAplic = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "cStat" Or outerNode.Name = "cStat") Then
                        StrRetNota.cStat = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "xMotivo" Or outerNode.Name = "xMotivo") Then
                        StrRetNota.xMotivo = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "cUF" Or outerNode.Name = "cUF") Then
                        StrRetNota.cUF = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "nRec" Or outerNode.Name = "nRec") Then
                        StrRetNota.nRec = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "dhRecbto" Or outerNode.Name = "dhRecbto") Then
                        StrRetNota.dhRecbto = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "tMed" Or outerNode.Name = "tMed") Then
                        StrRetNota.tMed = InnerNode.InnerText
                    End If
                Next
            Next

            Return StrRetNota
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "")
            Return Nothing
        End Try
    End Function



Voce ja verificou as Urls de Envio? podem estar desatualizadas



#488861 - 16/05/2019 13:33:07

ANDERSON10
SAO PAULO
Cadast. em:Junho/2018


Última edição em 16/05/2019 13:44:38 por ANDERSON10

Boa tarde amigos.

Gostaria de ajudar também!
Gostaria de aprender também mais sempre o assunto!



 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