Tópico anterior Próximo tópico Novo tópico
C#
#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: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 Cursos de Excel e VB6: cursoexcelvba.com.br |
|||
#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 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 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 Cursos de Excel e VB6: cursoexcelvba.com.br |
|||
#445004 - 05/03/2015 15:07:20 | ||||
![]() FOXMAN BARRETOS Cadast. em:Janeiro/2001 ![]() |
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 Grupo WhatsDev |
|||
#445024 - 05/03/2015 22:28:54 | ||||
![]() TEKO SP Cadast. em:Setembro/2012 ![]() |
![]() 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 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 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 Cursos de Excel e VB6: cursoexcelvba.com.br |
|||
Tópico anterior Próximo tópico Novo tópico