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!



#489283 - 27/06/2019 16:21:15

ROSALEM1000
SAO JOSE DO RIO PRETO
Cadast. em:Junho/2019


Última edição em 27/06/2019 16:23:28 por ROSALEM1000

Galera, gostaria de saber qual a versão do Visual Basic que estão utilizando no projeto nfe 4.0? Sou novo aqui!




#489295 - 28/06/2019 09:18:29

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


Citação:
  Galera, gostaria de saber qual a versão do Visual Basic que estão utilizando no projeto nfe 4.0? Sou novo aqui

Plataforma .net



#489720 - 30/07/2019 22:43:13

FGONCALVES
BOM DESPACHO
Cadast. em:Julho/2009


Gostaria que os amigos postassem as classes já atualizadas. Afinal, o tópico possui 250 páginas...

Alexandre F. Gonçalves

#489744 - 31/07/2019 21:24:31

FGONCALVES
BOM DESPACHO
Cadast. em:Julho/2009


Já instalei o certificado digital, mas o meu dá o seguinte erro: "A chave de assinatura não está carregada."

alguém sabe o que pode ser?

Alexandre F. Gonçalves

#490554 - 30/09/2019 11:11:17

TABPRS
GOIANIA
Cadast. em:Dezembro/2003


Bom dia Pessoal

Rejeição: Referenciado documento de operação interna em operação interestadual ou com o exterior como resolver

Estou recebendo está mensagem de erro quando o cliente vai emitir uma nota fiscal de devolução, e não estou conseguindo entender o manual, alguém saber o que é e como resolver?

Obrigado.

Jesus te Ama !
Pedro r. Sousa

#490795 - 17/10/2019 08:44:21

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Bom dia Pessoal

Rejeição: Referenciado documento de operação interna em operação interestadual ou com o exterior como resolver

Estou recebendo está mensagem de erro quando o cliente vai emitir uma nota fiscal de devolução, e não estou conseguindo entender o manual, alguém saber o que é e como resolver?

Obrigado.

verifique a chave de nfe referenciada

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