FONTE NFE C#

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

FONTE NFE C#

C#

 Compartilhe  Compartilhe  Compartilhe
#444794 - 25/02/2015 21:32:24

ELUCIMAR
GOIANIA
Cadast. em:Dezembro/2003


Destacado por ELUCIMAR

Fiz varias melhorias nas classes da NFe em relao ao primeiro Projeto que postei:

  • Parametrizei as configuraes da NFe e armazenei em um banco SQLite.Criei duas classes para consumir os Servios da NFe e criei uma Interface para que ambas classes possam implementar essa Interface.Uma das classes monta dinamicamente os Webservices  atravs de Reflection usando cliente SoapHttpClientProtocol .E a outra  classe usa HttpWebRequest para consumir os Webservice da NFe.

  • Implantao do Servio NFeDistribuicaoDFe que substituir o NFeDestinadas.

  • Melhorias nos Danfes gerados pelo PrintDocument.

  • Classe Importao Tags Html Portal Nacional NFe(Para quem no possui Certificado Digital). No caso o correto fazer manifestao do destinatrio e  baixar o Xml completo pelo Webservice.

  • Classe Importao Arquivo/String Xml para Entrada da NFe

  • Todas respostas proveniente dos Servios da NFe foram serializadas

    Link:
    http://rcafe.com.br/NFeVBMania/NFeVBMania.rar

    Link do Software para Editar a estrutura do Banco do Banco SQLite:
    http://rcafe.com.br/NFeVBMania/sqlitestudio.rar

    Gostaria se possvel quando algum colega tiver uma idia/sugesto para implementar no Projeto que me comunicasse,ou se fizer alguma melhoria que compartilhasse com todos no Frum para que o Projeto no pare mais sim cresa cada dia mais.

    Conhecimento foi feito para ser partilhado e no guardado.
    Edward Klumpp



    E.A.M

    Cursos de Excel e VB6:
    cursoexcelvba.com.br



  • #444893 - 03/03/2015 10:55:02

    DANIELCPAETE
    PORTO ALEGRE
    Cadast. em:Dezembro/2003


    Meus parabns pelo projeto ELUCIMAR.

    Um abrao

    Status MSN(danielcpaete@hotmail.com)


    #444897 - 03/03/2015 11:36:28

    ELUCIMAR
    GOIANIA
    Cadast. em:Dezembro/2003


    Obrigado DANIELCPAETE !

    Como disse no Post do Tpico Fonte NFe -VB.NET pgina 170, o pontap inicial para mim fazer este Projeto em C# foi o seu projeto modificado pelo colega PAULOPHC. Sua disposio em compartilhar o Fonte NFe VB.NET foi de suma importncia para mim e para vrios colegas aqui no VBM.
    Fica aqui os meus agradecimentos para voc e tantos colegas mais que colaboraram com o Projeto NFe VBM.
    Precisamos manter sempre esse espirito entre a Comunidade VBM.

    E.A.M

    Cursos de Excel e VB6:
    cursoexcelvba.com.br



    #444950 - 04/03/2015 12:36:33

    TEKO
    SP
    Cadast. em:Setembro/2012


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

    Primeiro parabns ao Elucimar por este tpico to importante quanto ao NFe/VB.net.

    Pessoal o seguinte,  me perguntaram e no soube explicar;
    Algum saberia dizer se mesmo tendo o NFe o comrcio ser obrigado emitir cupom fiscal ?
    O ramo de auto peas e servios.

    Abraos!


    A persistncia o caminho do xito.


    #444999 - 05/03/2015 12:36:51

    ELUCIMAR
    GOIANIA
    Cadast. em:Dezembro/2003


    Obrigado TEKO !

    Citação:
    Pessoal o seguinte,  me perguntaram e no soube explicar;
    Algum saberia dizer se mesmo tendo o NFe o comrcio ser obrigado emitir cupom fiscal ?
    O ramo de auto peas e servios.


    At onde sei sim e no caso do seu estado SP creio que deve comear este ano a substituio do Cupom Fiscal pelo SAT/NFC-e. No site do Sefaz do seu estado tem o cronograma.
    http://www.nfce.fazenda.sp.gov.br/NFCePortal/
    http://www.fazenda.sp.gov.br/sat/


    E.A.M

    Cursos de Excel e VB6:
    cursoexcelvba.com.br



    #445004 - 05/03/2015 15:07:20

    FOXMAN
    BARRETOS
    Cadast. em:Janeiro/2001


    Membro da equipe
    Citação:
    :
    Primeiro parabns ao Elucimar por este tpico to importante quanto ao NFe/VB.net.

    Pessoal o seguinte,  me perguntaram e no soube explicar;
    Algum saberia dizer se mesmo tendo o NFe o comrcio ser obrigado emitir cupom fiscal ?
    O ramo de auto peas e servios.

    Abraos!


    Citação:
      Em regra, as operaes de venda a varejo no esto alcanadas pela obrigatoriedade de emisso de NF-e, exceto nas operaes destinadas rgos pblicos, de comrcio exterior e para destinatrios localizados em unidade da Federao diferente daquela do emitente (conforme clusula segunda do Protocolo ICMS 42/2009).
    Caso a empresa de varejo tambm atue como fabricante e/ou atacadista de atividade enquadrada na obrigatoriedade, dever emitir NF-e nas situaes em que emitia a nota fiscal modelo 1 ou 1-A. No caso de efetuar a venda no varejo por meio de cupom fiscal ou de nota fiscal de venda a consumidor (modelo 2), estas continuaro sendo normalmente emitidas em papel.

    Fonte : Portal Nacional NF-e



    Grupo DotNet.Br no FaceBook

    Grupo WhatsDev



    #445024 - 05/03/2015 22:28:54

    TEKO
    SP
    Cadast. em:Setembro/2012


    aff nossa

    bom ento ta neh

    Obrigado pessoal
    Abraos

    A persistncia o caminho do xito.


    #445034 - 06/03/2015 11:45:40

    WPIMENTEL
    BARUERI
    Cadast. em:Janeiro/2013


     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>Rejeio: Falha no schema XML</xMotivo>[] voces ja tiveram este problema?

    Segue o arquivo XML


    Att.
    Wellington



    #445035 - 06/03/2015 12:45:27

    ELUCIMAR
    GOIANIA
    Cadast. em:Dezembro/2003


     Anexos estao visíveis somente para usuários registrados

    WPIMENTEL enviei  o seu xml para Sefaz SP e autorizou a NFe normalmente. Olha o protocolo da mesma.


    E.A.M

    Cursos de Excel e VB6:
    cursoexcelvba.com.br



    #445042 - 06/03/2015 15:48:01

    WPIMENTEL
    BARUERI
    Cadast. em:Janeiro/2013


    Rapaz, sem querer abusar, mas acredito que no esta faltando nada nesta rotina abaixo, o que sera que estou fazendo errado. Voce tem um exemplo de emisso e transmisso, 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([]Verso........: [] + 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([]Verso........: [] + retEnvio.versao)
                    ListBox1.Items.Add([]---------------------------------[])
                    []ListBox1.Items.Add(new String([]-[], 100))
                    Me.Refresh()
                End If

            Else
                MsgBox(nfe_Autorizacao.GetErros)
            End If



    #445044 - 06/03/2015 16:52:02

    ELUCIMAR
    GOIANIA
    Cadast. em:Dezembro/2003


    S pra testar,gera um xml sem a tag de enviNFe. E usa o projeto de exemplo em C#  que postei no Topo da pgina e testa o envio.

    E.A.M

    Cursos de Excel e VB6:
    cursoexcelvba.com.br



     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