FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#479313 - 26/01/2018 11:18:30

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


Tentei dessas duas formas e nenhuma funcionou:
System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls12
'ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

Da erro:
a conexão subjacente estava fechada:Erro inesperado em um envio

Retirando, vai beleza.




#479316 - 26/01/2018 11:55:09

FUTURA
.
Cadast. em:Maio/2004


então, eu vi q no framework de 4.6 acima, ja é padrão, no 4.5, precisa passar esse comando ai...



#479321 - 26/01/2018 15:41:14

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


Citação:
  então, eu vi q no framework de 4.6 acima, ja é padrão, no 4.5, precisa passar esse comando ai...  

Estou utilizando o 4.5.2



#480087 - 09/03/2018 14:23:16

VZLCTQ
TABOAO DS SERRA
Cadast. em:Fevereiro/2010


Pessoal, alguem pode por favor deisponibilizar o link com os fontes atualizado?

Jorge William  

#480126 - 13/03/2018 15:00:19

ADELARNOVELLO
LUCAS DO RIO VERDE
Cadast. em:Março/2018


Olá Amigos,

É a primeira vez que peço auxilio aqui sobre NFe, tenho um projeto de NFe 3.10 rodando de forma tranquila e agora estou passando ele  para a versão 4.0. Estou tento problemas no retorno da transmissão do lote. Abaixo a rotina do envio do lote para vocês avaliarem;

Public Function EnviarNFe4(ByVal fileName As String, ByVal nLote As String) As String Implements IComunicador.EnviarNFe4
        Try
            Dim strEnderecoServico As String
            'endereço do serviço no estado do emitente
            If NFex.TipoAmbiente = 1 Then
                'strEnderecoServico = NFex.LeArquivoINI(NFex.ArquivoServidores_Producao_V2, NFex.UF_Emitente, "NfeAutorizacao", "")
            Else
                'strEnderecoServico = NFex.LeArquivoINI(NFex.ArquivoServidores_Homologacao_V2, NFex.UF_Emitente, "NfeAutorizacao", "")
                strEnderecoServico = "https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeAutorizacao4?wsdl"
            End If
            If strEnderecoServico <> "" Then

                System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls12

                Dim soapClient2 As New NfeAutorizacao.NfeAutorizacao4()
                soapClient2.Url = strEnderecoServico
                soapClient2.Timeout = 100000
                soapClient2.SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12
                soapClient2.ClientCertificates.Add(CertificadoDigital.CertificadoDigital)

                fileName = "C:\Temp\19022018_091904-1230-env-lot.xml"

                'xml requisição
                Dim xmlDoc As New System.Xml.XmlDocument
                xmlDoc.Load(fileName)
                Dim sXML As System.Xml.XmlNode
                sXML = xmlDoc.Clone

                xmlPed_Recepcao = fileName

                Dim strRetorno As XmlNode
                strRetorno = soapClient2.nfeAutorizacaoLote(sXML) '<<<--- FALHA = "Referência de objeto não definida para uma instância de um objeto."

                'guarda o XML de retorno
                'nome do arquivo
                Dim xName As String = Now.ToString("ddMMyyyy_hhmmss") & "-" & nLote & "-rec.xml"
                Dim endArq As String
                endArq = NFex.DiretorioLogs & "\" & xName
                oArquivoXML.GravarXML(strRetorno.ToString, endArq)
                xmlRet_Recepcao = endArq

                xmlRet_RetRecepcao = endArq

                'recupera o código de retorno do status
                Dim codRetStatus As String = oArquivoXML.GetCodigoRetorno_Status(endArq)
                CodStatus_EnviarNFe = codRetStatus
                'recupera a descrição do status de resposta
                Dim xMotivo As String = oArquivoXML.GetMotivoRetorno_Status(endArq)
                Motivo_EnviarNFe = xMotivo
                'numero do recibo
                Dim nRecibo As String = ""
                nRecibo = oArquivoXML.NumeroReciboLoteEnviado(endArq)
                Recibo_EnviarNFe = nRecibo

                'recupera o código de retorno do status
                Dim codRetStatusProt As String
                codRetStatusProt = oArquivoXML.CodigoResultadoProcessamentoLote(endArq)
                CodStatus_ConsRecibo = codRetStatusProt
                'recupera a descrição do status de resposta
                Dim xMotivoProt As String
                xMotivoProt = oArquivoXML.MotivoResultadoProcessamentoLote(endArq)
                Motivo_ConsRecibo = xMotivoProt

                'Numero do Protocolo
                Dim nProt As String = ""
                'analisando o retorno do pedido de status
                If CInt(CodStatus_ConsRecibo) = 100 Then
                    nProt = oArquivoXML.ProtocoloRecebimentoLoteNFe(endArq)
                    Protocolo_ConsRecibo = nProt

                End If

                Return nRecibo
            Else
                Throw New Exception("Falha na Transmissão do lote.")
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function
  


Estou recebendo a mensagem de falha "Referência de objeto não definida para uma instância de um objeto." na execução da linha
strRetorno = soapClient2.nfeAutorizacaoLote(sXML)
estou usando Framework 4.5, outro detalhe a NFe do lote trasmitida é recebida pelo webservice e validada com sucesso, tanto que consulto ela no site e está válida, mas o webservice não me devolve o xml de retorno da função.
Creio que deva ser algo muito simples que não estou conseguindo visualizar, por isso peço auxilio dos amigos.

att


Adelar

#480149 - 14/03/2018 13:33:35

GEORGENES
SAO PAULO
Cadast. em:Julho/2012


Última edição em 14/03/2018 13:36:06 por GEORGENES

Citação:
:
Pessoal, alguem pode por favor deisponibilizar o link com os fontes atualizado?


No momento creio que vai ser dificil conseguir os fontes atualizados, mesmo porque o responsavel pelo projeto é o Daniel, caso vc ja possui a versão 3.10 rodando, não é dificil adaptar para 4.0, o maior problema foi o novo protocolo utilizado.
Voce encontra um exemplo de envio disponibilizado pelo NILSONTRES na pagina 228, a partir dai basta vc adaptar o resto que muda apenas a estrutura do XML.
Não esqueça de atualizar o windows caso contrario vc vai ter problemas para adicionar web service ao projeto.

http://www.vbmania.com.br/download.php?arquivo=nfe400GERMCD0XH.zip&tipo=89703




#480150 - 14/03/2018 14:04:07

GEORGENES
SAO PAULO
Cadast. em:Julho/2012


Citação:
:
Olá Amigos,

É a primeira vez que peço auxilio aqui sobre NFe, tenho um projeto de NFe 3.10 rodando de forma tranquila e agora estou passando ele  para a versão 4.0. Estou tento problemas no retorno da transmissão do lote. Abaixo a rotina do envio do lote para vocês avaliarem;

Public Function EnviarNFe4(ByVal fileName As String, ByVal nLote As String) As String Implements IComunicador.EnviarNFe4
        Try
            Dim strEnderecoServico As String
            'endereço do serviço no estado do emitente
            If NFex.TipoAmbiente = 1 Then
                'strEnderecoServico = NFex.LeArquivoINI(NFex.ArquivoServidores_Producao_V2, NFex.UF_Emitente, "NfeAutorizacao", "")
            Else
                'strEnderecoServico = NFex.LeArquivoINI(NFex.ArquivoServidores_Homologacao_V2, NFex.UF_Emitente, "NfeAutorizacao", "")
                strEnderecoServico = "https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeAutorizacao4?wsdl"
            End If
            If strEnderecoServico <> "" Then

                System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls12

                Dim soapClient2 As New NfeAutorizacao.NfeAutorizacao4()
                soapClient2.Url = strEnderecoServico
                soapClient2.Timeout = 100000
                soapClient2.SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12
                soapClient2.ClientCertificates.Add(CertificadoDigital.CertificadoDigital)

                fileName = "C:Temp9022018_091904-1230-env-lot.xml"

                'xml requisição
                Dim xmlDoc As New System.Xml.XmlDocument
                xmlDoc.Load(fileName)
                Dim sXML As System.Xml.XmlNode
                sXML = xmlDoc.Clone

                xmlPed_Recepcao = fileName

                Dim strRetorno As XmlNode
                strRetorno = soapClient2.nfeAutorizacaoLote(sXML) '<<<--- FALHA = "Referência de objeto não definida para uma instância de um objeto."

                'guarda o XML de retorno
                'nome do arquivo
                Dim xName As String = Now.ToString("ddMMyyyy_hhmmss") & "-" & nLote & "-rec.xml"
                Dim endArq As String
                endArq = NFex.DiretorioLogs & "" & xName
                oArquivoXML.GravarXML(strRetorno.ToString, endArq)
                xmlRet_Recepcao = endArq

                xmlRet_RetRecepcao = endArq

                'recupera o código de retorno do status
                Dim codRetStatus As String = oArquivoXML.GetCodigoRetorno_Status(endArq)
                CodStatus_EnviarNFe = codRetStatus
                'recupera a descrição do status de resposta
                Dim xMotivo As String = oArquivoXML.GetMotivoRetorno_Status(endArq)
                Motivo_EnviarNFe = xMotivo
                'numero do recibo
                Dim nRecibo As String = ""
                nRecibo = oArquivoXML.NumeroReciboLoteEnviado(endArq)
                Recibo_EnviarNFe = nRecibo

                'recupera o código de retorno do status
                Dim codRetStatusProt As String
                codRetStatusProt = oArquivoXML.CodigoResultadoProcessamentoLote(endArq)
                CodStatus_ConsRecibo = codRetStatusProt
                'recupera a descrição do status de resposta
                Dim xMotivoProt As String
                xMotivoProt = oArquivoXML.MotivoResultadoProcessamentoLote(endArq)
                Motivo_ConsRecibo = xMotivoProt

                'Numero do Protocolo
                Dim nProt As String = ""
                'analisando o retorno do pedido de status
                If CInt(CodStatus_ConsRecibo) = 100 Then
                    nProt = oArquivoXML.ProtocoloRecebimentoLoteNFe(endArq)
                    Protocolo_ConsRecibo = nProt

                End If

                Return nRecibo
            Else
                Throw New Exception("Falha na Transmissão do lote.")
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function
  


Estou recebendo a mensagem de falha "Referência de objeto não definida para uma instância de um objeto." na execução da linha
strRetorno = soapClient2.nfeAutorizacaoLote(sXML)
estou usando Framework 4.5, outro detalhe a NFe do lote trasmitida é recebida pelo webservice e validada com sucesso, tanto que consulto ela no site e está válida, mas o webservice não me devolve o xml de retorno da função.
Creio que deva ser algo muito simples que não estou conseguindo visualizar, por isso peço auxilio dos amigos.

att


Apos analisar seu codigo , notei que esta bem diferente do meu,  aconselho usar o exemplo do NILSONTRES na pagina 228 que esta funcionando perfeitamente.




#480328 - 21/03/2018 14:48:00

MAXCIM
GUARULHOS
Cadast. em:Dezembro/2003


amigos,  não estou encontrando o Manual de Orientação do Contribuinte referente a versão NFE4.0 o ultimo que esta no site do sefaz é 6.00

quem o tiver poderia disponibilizar?

estou com problemas pra gerar o XML  do  CadConsultaCadastro4.





#480334 - 21/03/2018 17:14:55

FBGSYSTEMS
MARANHAO
Cadast. em:Abril/2012


Pessoal, em nota de homologação qual valor voces colocam no campo IE?

Estou gerando uma nota com CSOSN 201 e ai retorna que o CSOSN nao pode com nao contribuinte, ok. Mandei  o Ind Ie Dest como 1.
Ai começa dar problema no campo do IE.
Deixo ele em branco retorna que não pode ficar em branco.
Coloco uma IE valida retorna que nao ta vinculado ao CNPJ. Coloco qualquer valor retorna que não existe essa IE.

Que negócio confuso, fala sério, o meu tpAmb esta como 2  - homologação.



#480342 - 21/03/2018 23:58:24

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


Citação:
  Pessoal, em nota de homologação qual valor voces colocam no campo IE?

Tem que informar alguma IE valida mesmo.



 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