Meus parabéns pelo projeto ELUCIMAR.

Um abraço

Status MSN(danielcpaete@hotmail.com)

Última edição em 04/03/2015 12:37:31 por TEKO

Primeiro parabéns ao Elucimar por este tópico tão importante quanto ao NFe/VB.net.

Pessoal é o seguinte,  me perguntaram e não soube explicar;
Alguém saberia dizer se mesmo tendo o NFe o comércio será obrigado emitir cupom fiscal ?
O ramo é de auto peças e serviços.

Abraços!


A persistência é o caminho do êxito.

 Anexos estao visíveis somente para usuários registrados

Parabens Elucimar e obrigado por disponibilizar este Projeto.
Estou implantando a sua dll no meu projeto e estou tento uma dificuldade.
Ja consegui gerar o XML que aparente esta correto usando o
[Ô]Dim nfe_Autorizacao As NFeAutorizacao = New NFeAutorizacao(New List(Of NFeBase)(NFE_Dados_Base), NFE_Configuracao, NFE_Finalidade, Nothing, procEnvio, 1, [Ô]55[Ô], [Ô]0[Ô], Nothing, 0)[Ô]
mas quando envio utilizando [Ô]nfe_Autorizacao.EnviarSefaz()[Ô] o servidor ele esta retornando falha [Ô]<cStat>215</cStat><xMotivo>Rejeição: Falha no schema XML</xMotivo>[Ô] voces ja tiveram este problema?

Segue o arquivo XML


Att.
Wellington

Rapaz, sem querer abusar, mas acredito que não esta faltando nada nesta rotina abaixo, o que sera que estou fazendo errado. Voce tem um exemplo de emissão e transmissão, pode ser em c mesmo.

        Dim NFE_Dados_Base(0) As NFeBase
        Dim NFE_Configuracao As NFeConfig = New NFeConfig
        Dim NFE_Finalidade As String = [Ô]1[Ô]
        Dim NFE_Modelo As String = [Ô]55[Ô]
        Dim NFE_FormaPgto As String = [Ô]1[Ô]

        configServico = ConfigServWeb.ConfigServico([Ô]SP[Ô], [Ô]55[Ô], TipoServico.NfeStatusServico)

        Dim cd As CertificadoDigital = New CertificadoDigital()
        Dim certDig As X509Certificate2 = cd.SelecionarCertificado([Ô][Ô])

        Dim procEnvio As ProcEnvNFe = ProcEnvNFe.Assincrono

        NFE_Dados_Base(0) = New NFeBase
        Gera_NFE_XML(NFE_Dados_Base(0), NFE_Configuracao)


        Dim nfe_Autorizacao As NFeAutorizacao = New NFeAutorizacao(New List(Of NFeBase)(NFE_Dados_Base), NFE_Configuracao, NFE_Finalidade, Nothing, procEnvio, 1, [Ô]55[Ô], [Ô]0[Ô], Nothing, 0)
        nfe_Autorizacao.CertDigital = certDig
        nfe_Autorizacao.ConfigServico = configServico

        ListBox1.Items.Add([Ô]Enviando Lote Sefaz...[Ô])
        Me.Refresh()

        nfe_Autorizacao.EnviarSefaz()
        If Not IsNothing(nfe_Autorizacao.RetornoSefaz) Then

            Dim retEnvio As BaseNF.Servicos.Autorizacao.retEnviNFe = nfe_Autorizacao.RetornoSefaz
            If (retEnvio.cStat = [Ô]103[Ô]) Then

                ListBox1.Items.Add([Ô]Status........: [Ô] + retEnvio.cStat)
                ListBox1.Items.Add([Ô]Tipo Ambiente.: [Ô] + retEnvio.tpAmb)
                ListBox1.Items.Add([Ô]Nº Recibo.....: [Ô] + retEnvio.infRec.nRec)
                ListBox1.Items.Add([Ô]Data Recibo...: [Ô] + retEnvio.dhRecbto)
                ListBox1.Items.Add([Ô]Motivo........: [Ô] + retEnvio.xMotivo)
                ListBox1.Items.Add([Ô]Versão........: [Ô] + retEnvio.versao)
                [ô]ListBox1.Items.Add(new String([ô]-[ô], 100))
                ListBox1.Items.Add([Ô]---------------------------------[Ô])
                ListBox1.Items.Add([Ô]Buscando Retorno Lote Sefaz...[Ô])
                Me.Refresh()
                [ô]//Tempo de aguardo em milesimos de Segundos para buscar retorno
                [ô]//Coloquei esse tempo só pra Testes
                Sleep(5000)

                configServico = ConfigServWeb.ConfigServico([Ô]SP[Ô], [Ô]55[Ô], TipoServico.NFeRetAutorizacao)
                Dim NFeRetAutorizacao As NFeRetAutorizacao = New NFeRetAutorizacao(retEnvio.infRec.nRec)
                NFeRetAutorizacao.CertDigital = certDig
                NFeRetAutorizacao.ConfigServico = configServico
                NFeRetAutorizacao.EnviarSefaz()

                If Not IsNothing(NFeRetAutorizacao.RetornoSefaz) Then

                    Dim retConsRec As BaseNF.Servicos.Autorizacao.retConsReciNFe = NFeRetAutorizacao.RetornoSefaz
                    [ô]// Status = 100 NF Autorizada
                    If (retConsRec.protNFe.Count > 0) Then
                        For l = 0 To retConsRec.protNFe.Count - 1
                            ListBox1.Items.Add([Ô]Chave..........: [Ô] + retConsRec.protNFe(l).infProt.chNFe)
                            ListBox1.Items.Add([Ô]Num Protocolo..: [Ô] + retConsRec.protNFe(l).infProt.nProt)
                            ListBox1.Items.Add([Ô]Status.........: [Ô] + retConsRec.protNFe(l).infProt.cStat)
                            ListBox1.Items.Add([Ô]Motivo.........: [Ô] + retConsRec.protNFe(l).infProt.xMotivo)
                            ListBox1.Items.Add([Ô]-------------------------------------[Ô])
                        Next

                    End If
                End If

            Else

                ListBox1.Items.Add([Ô]Status........: [Ô] + retEnvio.cStat)
                ListBox1.Items.Add([Ô]Tipo Ambiente.: [Ô] + retEnvio.tpAmb)
                ListBox1.Items.Add([Ô]Nº Recibo.....: [Ô] + retEnvio.infRec.nRec)
                ListBox1.Items.Add([Ô]Data Recibo...: [Ô] + retEnvio.dhRecbto)
                ListBox1.Items.Add([Ô]Motivo........: [Ô] + retEnvio.xMotivo)
                ListBox1.Items.Add([Ô]Versão........: [Ô] + retEnvio.versao)
                ListBox1.Items.Add([Ô]---------------------------------[Ô])
                [ô]ListBox1.Items.Add(new String([ô]-[ô], 100))
                Me.Refresh()
            End If

        Else
            MsgBox(nfe_Autorizacao.GetErros)
        End If