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 informao !
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 devolues de produtos tudo obrigatrio emitir danfe, tive muita dor de cabea com alguns fornecedores de clientes meu que solicitavam NF-e de devoluo com detalhes puramente burocrtico



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

MAXGUIMEL
NOVA GRANADA
Cadast. em:Abril/2006


Pessoal bom dia
Esta dando erro e no 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 idia 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 no 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 tambm!
Gostaria de aprender tambm 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 verso do Visual Basic que esto 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 verso do Visual Basic que esto 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 tpico possui 250 pginas...

Alexandre F. Gonalves

#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 no est carregada.[]

algum sabe o que pode ser?

Alexandre F. Gonalves

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

TABPRS
GOIANIA
Cadast. em:Dezembro/2003


Bom dia Pessoal

Rejeio: Referenciado documento de operao interna em operao interestadual ou com o exterior como resolver

Estou recebendo est mensagem de erro quando o cliente vai emitir uma nota fiscal de devoluo, e no estou conseguindo entender o manual, algum 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

Rejeio: Referenciado documento de operao interna em operao interestadual ou com o exterior como resolver

Estou recebendo est mensagem de erro quando o cliente vai emitir uma nota fiscal de devoluo, e no estou conseguindo entender o manual, algum 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