FONTE NFE VB.NET

FPRADO 10/01/2015 12:57:20
#443701
DANFE PDF - So uma dica, principalmente pro pessoal do vb6, Use o wxpdfcom (pdfcom.dll) que é free (tem aqui no vbmania) pra fazer o danfe e ficou 100%. Da um tremendo trabalho pra fazer, mas o resultado foi otimo,
YELAH 25/01/2015 18:06:15
#444012
Para enviar O XML de uma NFe para MG na versao 2.0 eu faço da seguinte forma:
 
Public Function enviaNFe2(ByVal NumeroDoLote As Integer, ByVal ListiView As ListView, ByVal Label As ToolStripStatusLabel) As Boolean
        Dim ret As Boolean = False
        Dim xmlRetorno As String = Nothing
        Dim sNFeDadosMsg As String = Nothing
        Dim xmlDoc As XmlDocument = Nothing
        Dim arquivoRetorno As String = Nothing

        Try
            [ô]vrifica a existência do arquivo
            If File.Exists(Me.ArquivoXml) = True Then

                Me.labelMsg.Visible = True
                Me.labelMsg.Text = Space(40) & [Ô]Aguarde um instante por Favor. Enviando o arquivo....[Ô]
                My.Application.DoEvents()

                [ô]Carrega o arquivo xml para dentro do objeto xmlDoc
                xmlDoc = New XmlDocument
                xmlDoc.Load(Me.ArquivoXml)

                [ô]Declara variável (tipo string) com o conteúdo do Lote NF-e 
                sNFeDadosMsg = xmlDoc.OuterXml()

                [ô]Seleciona o certificado digital
                If Me.SelecionarCertificado = True Then

                    Select Case Me.tipoAmbiente
                        Case [Ô]1[Ô] [ô] P R O D U Ç Ã O
                            [ô]Define o cabeçalho
                            Dim pnfeCabecMsg As pNfeRecepcao2.nfeCabecMsg
                            pnfeCabecMsg = New pNfeRecepcao2.nfeCabecMsg
                            With pnfeCabecMsg
                                .cUF = [Ô]31[Ô]
                                .versaoDados = [Ô]2.00[Ô]
                            End With

                            [ô]Envia o arquivo .xml (Consome o WS)
                            Dim oWS_pNFeRecepcao As pNfeRecepcao2.NfeRecepcao2 = New pNfeRecepcao2.NfeRecepcao2
                            With oWS_pNFeRecepcao
                                .Url = [Ô]https://nfe.fazenda.mg.gov.br/nfe2/services/NfeRecepcao2.asmx[Ô]
                                .nfeCabecMsgValue = pnfeCabecMsg
                                .Timeout = 50000
                                .ClientCertificates.Add(Me.X509Cert)
                                xmlRetorno = .nfeRecepcaoLote2(xmlDoc.DocumentElement).OuterXml
                            End With

                            [ô]obtem o numero do lote enviado
                            Me.nLote = clsNFeLote2.obtemNumeroDoLote(Me.ArquivoXml)

                            [ô]Salva o retorno da chamada ao processo em um arquivo xml
                            arquivoRetorno = Me.PathNFeMsg & [Ô]retornoLote-[Ô] & Me.nLote.ToString & [Ô].xml[Ô]

                            With xmlDoc
                                .LoadXml(xmlRetorno)
                                .Save(arquivoRetorno)
                            End With

			   ....

                            return(true)

                        case [Ô]2[Ô] [ô]H O M O L O G A Ç Ã O
			   ...
                    end select
                else
                    return(false)
	
                end if

        Catch ex As Exception
            MessageBox.Show([Ô]Problemas no envio/retorno do arquivo.[Ô] & vbNewLine & [Ô]Descrição do erro: [Ô] & ex.ToString, [Ô]Gestor .NET[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            Me.labelMsg.Visible = False
            Label.Text = [Ô]Processo Concluído.[Ô]
            Application.DoEvents()
        End Try
end function


Estou em processo de atualização para a versão 3.10 (terceira geração) e não estou conseguindo enviar.
Estou tentando fazer assim: (modo syncrono)
 
Public Function enviaNFe3(ByVal NumeroDoLote As Integer, ByVal ListiView As ListView, ByVal Label As ToolStripStatusLabel) As Boolean
        Dim ret As Boolean = False
        Dim objRetorno() As object = Nothing
        Dim xmlDoc As XmlDocument = Nothing
        Dim arquivoRetorno As String = Nothing

        Try
            [ô]vrifica a existência do arquivo
            If File.Exists(Me.ArquivoXml) = True Then

                Me.labelMsg.Visible = True
                Me.labelMsg.Text = Space(40) & [Ô]Aguarde um instante por Favor. Enviando o arquivo....[Ô]
                My.Application.DoEvents()

                [ô]Carrega o arquivo xml para dentro do objeto xmlDoc
                xmlDoc = New XmlDocument
                xmlDoc.Load(Me.ArquivoXml)

                [ô]Seleciona o certificado digital
                If Me.SelecionarCertificado = True Then

                    [ô]Define o cabeçalho
                    Dim NFeCabecMsg As pNfeAutorizacao3G.nfeCabecMsg = New pNfeAutorizacao3G.nfeCabecMsg
                    With NFeCabecMsg
                        .cUF = [Ô]31[Ô]
                        .versaoDados = [Ô]3.10[Ô]
                    End With

                    [ô][ô]Dados da NFe
                    Dim NFeDadosMsg As pNfeAutorizacao3G.nfeDadosMsg = New pNfeAutorizacao3G.nfeDadosMsg
                    With NFeDadosMsg
                   [ô](1)????na linha abaixao da erro
                        .Any.SetValue(xmlDoc, 0)
                    End With

                    [ô]Envia o arquivo .xml (Consome o WS)
                    Dim oWS_pNFeAutorizacao3 As pNfeAutorizacao3G.NfeAutorizacao = New pNfeAutorizacao3G.NfeAutorizacao
                    With oWS_pNFeAutorizacao3
                        .Url = [Ô]https://nfe.fazenda.mg.gov.br/nfe2/services/NfeAutorizacao.asmx[Ô]
                        .nfeCabecMsgValue = NFeCabecMsg
                        .Timeout = 50000
                        .ClientCertificates.Add(Me.X509Cert)
                        .SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12
                        [ô](2)???? outra duvia e como pegar o retorno aqui
                        objRetorno = .nfeAutorizacaoLote(NFeDadosMsg)
                    End With

                    [ô]arqui eu faria o tratamento do retorno

                   return (true)
                else
                   return (false)
                end if
          end if
        Catch ex As Exception
            MessageBox.Show([Ô]Problemas no envio/retorno do arquivo.[Ô] & vbNewLine & [Ô]Descrição do erro: [Ô] & ex.ToString, [Ô]Gestor .NET[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            Me.labelMsg.Visible = False
            Label.Text = [Ô]Processo Concluído.[Ô]
            Application.DoEvents()
        End Try
end function

[ô](1)???? - da erro de Referencia de objeto não definida para uma instancia de objeto
[ô](2)???? - como faço para pegar o retorno?

Verifiquei que em outros estados o parametro solicitado para a função NfeAutorizacaoLote é do tipo [Ô]system.xml.xmlnode[Ô]
mais para MG o parametro solicitado é do tipo [Ô]nfeDadosMsg[Ô].
Ficaria muito grato se alguem puder me ajudar.
DWEBER 27/01/2015 10:04:43
#444054
Pessoal uma duvida antigamente no C# com framework 2.0 quando eu queria incluir um webservice apenas ia em web referencia e adicionava o link e pronto agora ele da uma mensagem que não é permitido como faço para conseguir adicionar os webservices no vb 2012
S4NGU3 27/01/2015 14:23:25
#444063
pessoal,

tem um programa q converte o projeto de c# para vb ou de vb para c# chama SharpDevelop 4.4

segue link
http://www.icsharpcode.net/opensource/sd/download/
REINALDO 03/02/2015 07:32:50
#444226
Pessoal bom dia, alguém poderia disponibilizar uma copia do sistema atualizado para a versão 3.10 ????

Obrigado !!!!
TINTINO 05/02/2015 11:41:39
#444319
Bom dia Pessoal

Alguém conseguiu fazer a conversão do projeto em C# para VBNET usando o SharpDevelop 4.4 ?

Ou alguém já tem o projeto em VBNET na versão 3.10 ?

Quem puder ajudar .

Obrigado
ANDERATL 08/02/2015 22:15:11
#444391
Olá pessoal, estou tentando implantar a NFE dentro do meu aplicativo, hj gero arquivo e importo no sistema do sefaz. Mas é bem trabalhoso para o usuário. Gostaria de participar deste desenvolvimento, se alguém puder postar a última atualização, agradeço!
MITSUEDA 14/02/2015 19:38:52
#444520
Boa tarde de carnaval a todos.

Como sempre estou aproveitando a folga para adaptar o projeto a versão 3.10...

E logo no começo já barrei em uma duvida...

Como ficaria esse trecho do código para utilizar o novo formato UTC

[ô][ô][ô] <summary>
[ô][ô][ô] Data de emissão do documento fiscal, Formato “AAAA-MM-DD”
[ô][ô][ô] </summary>
Private _dhEmi As DateTime

Public Property dhEmi() As DateTime
Get
Return _dhEmi
End Get
Set(ByVal value As DateTime)
_dhEmi = value
End Set
End Property

E a sua chamada?

Dim _dhEmi As String = myNfe.infNFE.Ide.dhEmi.ToString([Ô]yyMM[Ô])

E o modulo 11 continua usando o formato ([Ô]yyMM[Ô])?

Obrigado a todos.

Bom feriado!!!
MITSUEDA 19/02/2015 07:29:17
#444595
Bom dia pessoal,

Sei que muitos estão em feriado e no corre do dia a dia. Mas estou apanhando mesmo com essa formatação.

Eu tentei varias coisas mas não consegui alterar o formato da tag dhEmi para UTC.

Fiz todas as outras alterações das demais tag que preciso. Mas essa ta osso, até cheguei a copias o mesmo formado da cancelamento por evento que consta no projeto, mas o xml não altera nada...

Se alguém puder me dar um força nisso.

Obrigado.
ELUCIMAR 19/02/2015 08:59:13
#444596
string dhEmi = DateTime.Now.ToString([Ô]yyyy-MM-ddTHH:mm:sszzz[Ô]);
Página 180 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar