ASP CLASSICO ASP.NET C# SQL / DATABASE VB / VBA VB.NET Todos os fóruns 

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 relação ao primeiro Projeto que postei:

  • Parametrizei as configurações da NFe e armazenei em um banco SQLite.Criei duas classes para consumir os Serviços da NFe e criei uma Interface para que ambas classes possam implementar essa Interface.Uma das classes monta dinamicamente os Webservices  através de Reflection usando cliente SoapHttpClientProtocol .E a outra  classe usa HttpWebRequest para consumir os Webservice da NFe.

  • Implantação do Serviço NFeDistribuicaoDFe que substituirá o NFeDestinadas.

  • Melhorias nos Danfes gerados pelo PrintDocument.

  • Classe Importação Tags Html Portal Nacional NFe(Para quem não possui Certificado Digital). No caso o correto é fazer manifestação do destinatário e  baixar o Xml completo pelo Webservice.

  • Classe Importação Arquivo/String Xml para Entrada da NFe

  • Todas respostas proveniente dos Serviços 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 possível quando algum colega tiver uma idéia/sugestão para implementar no Projeto que me comunicasse,ou se fizer alguma melhoria que compartilhasse com todos no Fórum para que o Projeto não pare mais sim cresça cada dia mais.

    Conhecimento foi feito para ser partilhado e não guardado.
    Edward Klumpp



    E.A.M

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

    DANIELCPAETE
    PORTO ALEGRE
    Cadast. em:Dezembro/2003


    Meus parabéns pelo projeto ELUCIMAR.

    Um abraço

    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 Tópico Fonte NFe -VB.NET página 170, o pontapé inicial para mim fazer este Projeto em C# foi o seu projeto modificado pelo colega PAULOPHC. Sua disposição em compartilhar o Fonte NFe VB.NET foi de suma importância para mim e para vários 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

    #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 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.


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

    ELUCIMAR
    GOIANIA
    Cadast. em:Dezembro/2003


    Obrigado TEKO !

    Citação:
    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.


    Até onde sei sim e no caso do seu estado SP creio que deve começar este ano a substituição 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

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

    FOXMAN
    BARRETOS
    Cadast. em:Janeiro/2001


    Membro da equipe
    Citação:
    :
    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!


    Citação:
      Em regra, as operações de venda a varejo não estão alcançadas pela obrigatoriedade de emissão de NF-e, exceto nas operações destinadas à órgãos públicos, de comércio exterior e para destinatários localizados em unidade da Federação diferente daquela do emitente (conforme cláusula segunda do Protocolo ICMS 42/2009).
    Caso a empresa de varejo também atue como fabricante e/ou atacadista de atividade enquadrada na obrigatoriedade, deverá emitir NF-e nas situações 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 continuarão sendo normalmente emitidas em papel.

    Fonte : Portal Nacional NF-e



    Grupo DotNet.Br no FaceBook



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

    TEKO
    SP
    Cadast. em:Setembro/2012


    aff nossa

    bom então ta neh

    Obrigado pessoal
    Abraços

    A persistência é 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>Rejeição: 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

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

    WPIMENTEL
    BARUERI
    Cadast. em:Janeiro/2013


    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



    #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 página e testa o envio.

    E.A.M

     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