FONTE NFE VB.NET
Caros amigos, bom dia !
Desculpe a [Ô]falta de pratica[Ô], mais estou adaptando esta fonte para um sistema meu, e quando a nf tem mais de um item , ele repete sempres o ultimo item, por ex. tem item 01, item 02, ele so manda o item 02 (2x inclusive), o que podeira ser ? recortei a area que gera o xml
For Each detalhe As det In infNFE.Det
oXmlGravar.WriteStartElement([Ô]det[Ô])
oXmlGravar.WriteAttributeString([Ô]nItem[Ô], detalhe.nItem.ToString())
objetoParaXML(oXmlGravar, detalhe.Prod, False)
oXmlGravar.WriteStartElement([Ô]imposto[Ô])
objetoParaXML(oXmlGravar, detalhe.Imposto.Icms, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Ii, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Ipi, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Pis, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Cofins, False)
[ô]fecha TAG imposto...
oXmlGravar.WriteEndElement()
[ô]oXmlGravar.WriteStartElement([Ô]infAdProd[Ô])
[ô]oXmlGravar.WriteString(detalhe.infAdProd)
[ô]oXmlGravar.WriteEndElement()
[ô]fecha TAG det...
oXmlGravar.WriteEndElement()
Next
Brigadu!!
Desculpe a [Ô]falta de pratica[Ô], mais estou adaptando esta fonte para um sistema meu, e quando a nf tem mais de um item , ele repete sempres o ultimo item, por ex. tem item 01, item 02, ele so manda o item 02 (2x inclusive), o que podeira ser ? recortei a area que gera o xml
For Each detalhe As det In infNFE.Det
oXmlGravar.WriteStartElement([Ô]det[Ô])
oXmlGravar.WriteAttributeString([Ô]nItem[Ô], detalhe.nItem.ToString())
objetoParaXML(oXmlGravar, detalhe.Prod, False)
oXmlGravar.WriteStartElement([Ô]imposto[Ô])
objetoParaXML(oXmlGravar, detalhe.Imposto.Icms, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Ii, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Ipi, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Pis, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Cofins, False)
[ô]fecha TAG imposto...
oXmlGravar.WriteEndElement()
[ô]oXmlGravar.WriteStartElement([Ô]infAdProd[Ô])
[ô]oXmlGravar.WriteString(detalhe.infAdProd)
[ô]oXmlGravar.WriteEndElement()
[ô]fecha TAG det...
oXmlGravar.WriteEndElement()
Next
Brigadu!!
Paulo provavelmente tem um problema na hora que adiciona os itens prod na classe.
Pessoal, estou iniciando agora no com a NFe, a principio pensei em utilizar um monitor grátis tipo o UniNFE ou ACBr Monitor, foi aà de encontrei este tópico e achei muito bom (Exelente) parabéns a todos.
Enfim eu gostaria de participar, já dei uma olhada no manual da SEFAZ más mesmo assim estou muito confuso... eu gostaria de saber se alguém pode me passar qual a sequência lógica para gerar a NF-e com este projeto e as funções utilizadas, tipo os passos necessários ex.: ( 1 - Gera XML, Valida, pega o Recibo, Consulta recebimento, etc...) , se vcs puderem me passar isso será de grande ajuda, com isso em mãos poderei montar um fluxograma e disponibilizar pra todos que estão iniciando.
Um grande abraço a todos...
Enfim eu gostaria de participar, já dei uma olhada no manual da SEFAZ más mesmo assim estou muito confuso... eu gostaria de saber se alguém pode me passar qual a sequência lógica para gerar a NF-e com este projeto e as funções utilizadas, tipo os passos necessários ex.: ( 1 - Gera XML, Valida, pega o Recibo, Consulta recebimento, etc...) , se vcs puderem me passar isso será de grande ajuda, com isso em mãos poderei montar um fluxograma e disponibilizar pra todos que estão iniciando.
Um grande abraço a todos...
Daniel, realmente deve ser falta de pratica em vb.net... por favor veja se estou fazendo correto
faco um reader....
faco o seguinte:
Dim detalhamento As New det()
... entro com os dados
.. 1o. item...
detalhamento.nItem = Me.contador
detalhamento.Prod.cProd = vernulo(rsitens.Item([Ô]produto[Ô]).ToString) ...
novanota.infNFE.Det.Add(detalhamento)
.. depois 2o. item
detalhamento.nItem = Me.contador
detalhamento.Prod.cProd = vernulo(rsitens.Item([Ô]produto[Ô]).ToString) ...
novanota.infNFE.Det.Add(detalhamento)
o que poderia estar errado ?
grato
faco um reader....
faco o seguinte:
Dim detalhamento As New det()
... entro com os dados
.. 1o. item...
detalhamento.nItem = Me.contador
detalhamento.Prod.cProd = vernulo(rsitens.Item([Ô]produto[Ô]).ToString) ...
novanota.infNFE.Det.Add(detalhamento)
.. depois 2o. item
detalhamento.nItem = Me.contador
detalhamento.Prod.cProd = vernulo(rsitens.Item([Ô]produto[Ô]).ToString) ...
novanota.infNFE.Det.Add(detalhamento)
o que poderia estar errado ?
grato
Paulo,
Aqui você tem que recriar o detalhamento
.. depois 2o. item
detalhamento = new det()
detalhamento.nItem = Me.contador
detalhamento.Prod.cProd = vernulo(rsitens.Item([Ô]produto[Ô]).ToString) ...
Aqui você tem que recriar o detalhamento
.. depois 2o. item
detalhamento = new det()
detalhamento.nItem = Me.contador
detalhamento.Prod.cProd = vernulo(rsitens.Item([Ô]produto[Ô]).ToString) ...
Obrigado Daniel, problema foi resolvido mesmo.. como disse falta pratica... rs..
agora to com o seguinte erro:, quando seleciono o certificado digital, quando vai validar da esse erro..
[Ô]The [ô]http://www.portalfiscal.inf.br/nfe:nNF[ô] element has an invalid value according to its data type.[Ô]
o xml ta assim...
<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô]?>
<NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<infNFe xmlns:xsi=[Ô]http://www.w3.org/2001/XMLSchema-instance[Ô] Id=[Ô]NFe35110507172470000181550010000008801614961790[Ô] versao=[Ô]2.00[Ô]>
<ide>
<cUF>35</cUF>
<cNF>61496179</cNF>
<natOp>VENDA DE PRODUCAO DE ESTAB.</natOp>
<indPag>0</indPag>
<mod>55</mod>
<serie>1</serie>
<nNF>000000880</nNF>
<dEmi>2011-05-05</dEmi>
<dSaiEnt>2011-05-05</dSaiEnt>
<hSaiEnt>05:38:07</hSaiEnt>
<tpNF>1</tpNF>
<cMunFG>3543907</cMunFG>
<tpImp>1</tpImp>
<tpEmis>1</tpEmis>
<cDV>0</cDV>
<tpAmb>2</tpAmb>
<finNFe>1</finNFe>
<procEmi>0</procEmi>
<verProc>2.09</verProc>
</ide>
grato
agora to com o seguinte erro:, quando seleciono o certificado digital, quando vai validar da esse erro..
[Ô]The [ô]http://www.portalfiscal.inf.br/nfe:nNF[ô] element has an invalid value according to its data type.[Ô]
o xml ta assim...
<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô]?>
<NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<infNFe xmlns:xsi=[Ô]http://www.w3.org/2001/XMLSchema-instance[Ô] Id=[Ô]NFe35110507172470000181550010000008801614961790[Ô] versao=[Ô]2.00[Ô]>
<ide>
<cUF>35</cUF>
<cNF>61496179</cNF>
<natOp>VENDA DE PRODUCAO DE ESTAB.</natOp>
<indPag>0</indPag>
<mod>55</mod>
<serie>1</serie>
<nNF>000000880</nNF>
<dEmi>2011-05-05</dEmi>
<dSaiEnt>2011-05-05</dSaiEnt>
<hSaiEnt>05:38:07</hSaiEnt>
<tpNF>1</tpNF>
<cMunFG>3543907</cMunFG>
<tpImp>1</tpImp>
<tpEmis>1</tpEmis>
<cDV>0</cDV>
<tpAmb>2</tpAmb>
<finNFe>1</finNFe>
<procEmi>0</procEmi>
<verProc>2.09</verProc>
</ide>
grato
para preencher o cNF use a seguinte rotina String.Format([Ô]{0:000000000}[Ô], RandomNumber(99999999, 9))
Pessoal inseri o projeto de vocês no meu sistema e estou tendo os seguintes erros:
Error 1 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfePaisagem.vb 358 26 SisLoja
Error 2 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfePaisagem.vb 737 26 SisLoja
Error 3 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfeRetrato.vb 299 26 SisLoja
Error 4 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfeRetrato.vb 716 26 SisLoja
Warning 5 [ô]System.Xml.XmlValidatingReader[ô] is obsolete: [ô]Use XmlReader created by XmlReader.Create() method using appropriate XmlReaderSettings instead. http://go.microsoft.com/fwlink/?linkid=14202[ô]. D:\VB.NET\SisLojaSGC\NFe\CLASSES_NFE\CLASSES DE ACAO\ValidarXML.vb 29 31 SisLoja
Warning 6 [ô]System.Xml.Schema.XmlSchemaCollection[ô] is obsolete: [ô]Use System.Xml.Schema.XmlSchemaSet for schema compilation and validation. http://go.microsoft.com/fwlink/?linkid=14202[ô]. D:\VB.NET\SisLojaSGC\NFe\CLASSES_NFE\CLASSES DE ACAO\ValidarXML.vb 31 41 SisLoja
Será que alguém pode me ajudar? Estou com o visual studio 2008.
Aguardo.
Error 1 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfePaisagem.vb 358 26 SisLoja
Error 2 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfePaisagem.vb 737 26 SisLoja
Error 3 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfeRetrato.vb 299 26 SisLoja
Error 4 Name [ô]LinhaAdi[ô] is not declared. D:\VB.NET\SisLojaSGC\NFe\CLASSES_DANFE\Nfe_ImprimirDanfeRetrato.vb 716 26 SisLoja
Warning 5 [ô]System.Xml.XmlValidatingReader[ô] is obsolete: [ô]Use XmlReader created by XmlReader.Create() method using appropriate XmlReaderSettings instead. http://go.microsoft.com/fwlink/?linkid=14202[ô]. D:\VB.NET\SisLojaSGC\NFe\CLASSES_NFE\CLASSES DE ACAO\ValidarXML.vb 29 31 SisLoja
Warning 6 [ô]System.Xml.Schema.XmlSchemaCollection[ô] is obsolete: [ô]Use System.Xml.Schema.XmlSchemaSet for schema compilation and validation. http://go.microsoft.com/fwlink/?linkid=14202[ô]. D:\VB.NET\SisLojaSGC\NFe\CLASSES_NFE\CLASSES DE ACAO\ValidarXML.vb 31 41 SisLoja
Será que alguém pode me ajudar? Estou com o visual studio 2008.
Aguardo.
este erro é apenas uma critica não tem problema
Citação:agora o outro tem que verificar no projeto exemplo do site onde a variável LinhaAdi está declarada e declara-lá.Warning 5 [ô]System.Xml.XmlValidatingReader[ô] is obsolete: [ô]Use XmlReader created by XmlReader.Create() method using appropriate XmlReaderSettings instead. http://go.microsoft.com/fwlink/?linkid=14202[ô]. D:\VB.NET\SisLojaSGC\NFe\CLASSES_NFE\CLASSES DE ACAO\ValidarXML.vb 29 31 SisLoja
Warning 6 [ô]System.Xml.Schema.XmlSchemaCollection[ô] is obsolete: [ô]Use System.Xml.Schema.XmlSchemaSet for schema compilation and validation. http://go.microsoft.com/fwlink/?
Daniel, o problema esta na tag nNF nao ?
The [ô]http://www.portalfiscal.inf.br/nfe:nNF[ô] element has an invalid value according to its data type.[Ô]
grato
The [ô]http://www.portalfiscal.inf.br/nfe:nNF[ô] element has an invalid value according to its data type.[Ô]
grato
Faça seu login para responder