FONTE NFE VB.NET
Boa Tarde pessoal, após o jogo de hoje ainda um pouco sem condições de expressar minha tristeza ainda ganhei um bolão, vamos ao assunto.
Aqui na empresa que trabalho foi feita uma adaptação do sistema atual que é em Delphi para utilizar NFe até ai tudo bem, mas para promessas futuras estamos querendo mudar de fusca para ferrari, estou estudando vb.net ainda não sei quase nada, uma consulta ali outra aqui assim vai, não consegui entender bem ainda o codigo que está disponivel pelo nosso querido Daniel, vi que tem muitas class já definidas mas quero aprender a consultar status no sefaz e validar o xml no vb.net atualmente aqui estamos em Delphi tem alguns problemas mas é o inicio de tudo, conto com ajuda de vocês, enquanto isso vou lendo aqui o codigo e entendendo melhor. Abraços até logo.
Aqui na empresa que trabalho foi feita uma adaptação do sistema atual que é em Delphi para utilizar NFe até ai tudo bem, mas para promessas futuras estamos querendo mudar de fusca para ferrari, estou estudando vb.net ainda não sei quase nada, uma consulta ali outra aqui assim vai, não consegui entender bem ainda o codigo que está disponivel pelo nosso querido Daniel, vi que tem muitas class já definidas mas quero aprender a consultar status no sefaz e validar o xml no vb.net atualmente aqui estamos em Delphi tem alguns problemas mas é o inicio de tudo, conto com ajuda de vocês, enquanto isso vou lendo aqui o codigo e entendendo melhor. Abraços até logo.
Citação::
Eu recomendo o Formato A3 que vem com leitora!
A3 da muito pau! é muito chato!
e muitas empresas querem usar em dois ou mais lugares ao mesmo tempo e o a3 não da para fazer
tirandoo q vive travando servidores ou depois de algumas horas ele cai e tem q ser desconectado e conectado de novooooooooo quando vc não e obrigado a reniciar o servidor
A1 e bem mais leve e não da pau...
digo isso com experiencia em 3 clientes q optaram pelo A3 e tenho os mesmo problemas!!!
abç
Olá, pessoal!
To começando com NFe agora, tentei ver o status do serviço na versão 2.0, mas sem sucesso, vejam se identificam algo:
Dim Status_Servico As String = [Ô][Ô]
Status_Servico &= [Ô]<nfeDadosMsg xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2[Ô][Ô] >[Ô]
Status_Servico &= [Ô]<consStatServ xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
Status_Servico &= [Ô]<tpAmb>2</tpAmb>[Ô]
Status_Servico &= [Ô]<cUF>35</cUF>[Ô]
Status_Servico &= [Ô]<xServ>STATUS</xServ>[Ô]
Status_Servico &= [Ô]</consStatServ>[Ô]
Status_Servico &= [Ô]</nfeDadosMsg>[Ô]
Me.txtSent.Text = Status_Servico
Dim xmlDados As XmlNode
Dim myXMLDoc As New System.Xml.XmlDocument
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(Status_Servico)
xmlDados = myXMLDoc.DocumentElement
Dim wsCab As New wsRS_H_StatusServico2.nfeCabecMsg
Dim wsSer As New wsRS_H_StatusServico2.NfeStatusServico2Soap12Client
wsCab.cUF = sCodEstado
wsCab.versaoDados = [Ô]2.00[Ô]
Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim coleção = store.Certificates(2)
wsSer.ClientCredentials.ClientCertificate.SetCertificate(coleção.SubjectName.Name, System.Security.Cryptography.X509Certificates.StoreLocation.CurrentUser, System.Security.Cryptography.X509Certificates.StoreName.My)
Me.txtGet.Text = wsSer.nfeStatusServicoNF2(wsCab, xmlDados).OuterXml
Abraços
To começando com NFe agora, tentei ver o status do serviço na versão 2.0, mas sem sucesso, vejam se identificam algo:
Dim Status_Servico As String = [Ô][Ô]
Status_Servico &= [Ô]<nfeDadosMsg xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2[Ô][Ô] >[Ô]
Status_Servico &= [Ô]<consStatServ xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
Status_Servico &= [Ô]<tpAmb>2</tpAmb>[Ô]
Status_Servico &= [Ô]<cUF>35</cUF>[Ô]
Status_Servico &= [Ô]<xServ>STATUS</xServ>[Ô]
Status_Servico &= [Ô]</consStatServ>[Ô]
Status_Servico &= [Ô]</nfeDadosMsg>[Ô]
Me.txtSent.Text = Status_Servico
Dim xmlDados As XmlNode
Dim myXMLDoc As New System.Xml.XmlDocument
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(Status_Servico)
xmlDados = myXMLDoc.DocumentElement
Dim wsCab As New wsRS_H_StatusServico2.nfeCabecMsg
Dim wsSer As New wsRS_H_StatusServico2.NfeStatusServico2Soap12Client
wsCab.cUF = sCodEstado
wsCab.versaoDados = [Ô]2.00[Ô]
Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim coleção = store.Certificates(2)
wsSer.ClientCredentials.ClientCertificate.SetCertificate(coleção.SubjectName.Name, System.Security.Cryptography.X509Certificates.StoreLocation.CurrentUser, System.Security.Cryptography.X509Certificates.StoreName.My)
Me.txtGet.Text = wsSer.nfeStatusServicoNF2(wsCab, xmlDados).OuterXml
Abraços
Descobri... eu usara Service References, avancei um nÃvel e passei a usar Web References
Mexe ali, mexe aqui, e temos o abaixo, funcionando =)
Dim Status_Servico As String = [Ô][Ô]
Status_Servico &= [Ô]<consStatServ xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
Status_Servico &= [Ô]<tpAmb>2</tpAmb>[Ô]
Status_Servico &= [Ô]<cUF>35</cUF>[Ô]
Status_Servico &= [Ô]<xServ>STATUS</xServ>[Ô]
Status_Servico &= [Ô]</consStatServ>[Ô]
Dim xmlDados As XmlNode
Dim myXMLDoc As New System.Xml.XmlDocument
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(Status_Servico)
xmlDados = myXMLDoc.DocumentElement
Dim wsSer As New wrNFeStatus.NfeStatusServico2
Dim wsCab As New wrNFeStatus.nfeCabecMsg
wsCab.cUF = [Ô]35[Ô]
wsCab.versaoDados = [Ô]2.00[Ô]
wsSer.nfeCabecMsgValue = wsCab
Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim oCertif = store.Certificates(2)
store.Close()
wsSer.ClientCertificates.Add(oCertif)
Me.txtSent.Text = xmlDados.OuterXml
Me.txtGet.Text = wsSer.nfeStatusServicoNF2(xmlDados).OuterXml
Mexe ali, mexe aqui, e temos o abaixo, funcionando =)
Dim Status_Servico As String = [Ô][Ô]
Status_Servico &= [Ô]<consStatServ xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
Status_Servico &= [Ô]<tpAmb>2</tpAmb>[Ô]
Status_Servico &= [Ô]<cUF>35</cUF>[Ô]
Status_Servico &= [Ô]<xServ>STATUS</xServ>[Ô]
Status_Servico &= [Ô]</consStatServ>[Ô]
Dim xmlDados As XmlNode
Dim myXMLDoc As New System.Xml.XmlDocument
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(Status_Servico)
xmlDados = myXMLDoc.DocumentElement
Dim wsSer As New wrNFeStatus.NfeStatusServico2
Dim wsCab As New wrNFeStatus.nfeCabecMsg
wsCab.cUF = [Ô]35[Ô]
wsCab.versaoDados = [Ô]2.00[Ô]
wsSer.nfeCabecMsgValue = wsCab
Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim oCertif = store.Certificates(2)
store.Close()
wsSer.ClientCertificates.Add(oCertif)
Me.txtSent.Text = xmlDados.OuterXml
Me.txtGet.Text = wsSer.nfeStatusServicoNF2(xmlDados).OuterXml
OTAVIOFAVERO estranho isso, eu tenho aproximadamente uns 30 clientes com A3, e nenhum deles reclama, não tem B.O. nenhum agora com o A1 já tive muita dor de cabeça! Teve um cliente que deu pau no certificado que foi obrigado a comprar outro.
Gente e o seguinte tenho um projeto completo de NFe na versao 1.10, porém preciso passar para a 2.0, não estou conseguindo, qual é a diferença entre uma e outra?
Tem alguém que sabe C# para alterar o projeto?
se tiver alguém interessado por favor me mande um e-mail.
pedrosousa49@hotmail.com
Tem alguém que sabe C# para alterar o projeto?
se tiver alguém interessado por favor me mande um e-mail.
pedrosousa49@hotmail.com
o q em C# vc precisa alterar?
Citação::
Gente e o seguinte tenho um projeto completo de NFe na versao 1.10, porém preciso passar para a 2.0, não estou conseguindo, qual é a diferença entre uma e outra?
Tem alguém que sabe C# para alterar o projeto?
se tiver alguém interessado por favor me mande um e-mail.
pedrosousa49@hotmail.com
estou na mesma, alguem poderia nos ajudar, com layout da versão 2.0 ??
Boa noite galera.
Hoje descobri oque estava fazedno dar o erro 215 - Falha no Schema XML.
lendo a palta da nota 2009-06 eu vi lá que o erro 215 era falha no arquivo de solicitação de retorno.
peguei com toda calma, depois de 10 dias com esse pau (Deixei 7 dias parado, resolvendo uns problemas pessoais), gerei um arquivo xml com nome de teste.xml no C:\
e mandei validar esse arquivo encima do bendito schema XML.
Resumindo, esta retornando 1 caractere a mais no nRec do consReciNFe vai ele retorna sempre com um caractere [Ô]1[Ô] no final. vejam
indiferente de qualquer envio de lote, sempre retorna dessa forma, se eu consulto desta forma dá erro por ter 16 caracteres sendo que o numero de caractere é 15,
se eu removo o 1 do final, o retorno informado é Lote não encontrado.
Alguem sabe me disser pq isso acontece?
Grato desde já
Hoje descobri oque estava fazedno dar o erro 215 - Falha no Schema XML.
lendo a palta da nota 2009-06 eu vi lá que o erro 215 era falha no arquivo de solicitação de retorno.
peguei com toda calma, depois de 10 dias com esse pau (Deixei 7 dias parado, resolvendo uns problemas pessoais), gerei um arquivo xml com nome de teste.xml no C:\
e mandei validar esse arquivo encima do bendito schema XML.
Resumindo, esta retornando 1 caractere a mais no nRec do consReciNFe vai ele retorna sempre com um caractere [Ô]1[Ô] no final. vejam
[ô]4310000045463581
[ô]4310000045629321
[ô]4310000045629611
[ô]4310000045756761
[ô]4310000045757631indiferente de qualquer envio de lote, sempre retorna dessa forma, se eu consulto desta forma dá erro por ter 16 caracteres sendo que o numero de caractere é 15,
se eu removo o 1 do final, o retorno informado é Lote não encontrado.
Alguem sabe me disser pq isso acontece?
Grato desde já
wilhamps, manda seu xml de retorno da recepção que vejo o que está acontecendo.
Faça seu login para responder