CODIGO FONTE NF ELETRONICA ATUALIZADA 22-02-10
caro Leandro S. Santos, e DANIELCPAETE
[txt-color=#0000f0]muito obrigado pelo toques eu vou acertar e ja colocar aki para teste apos todos os teste eu vou disponibilizar os fontes para todos[/txt-color]
[txt-color=#e80000]so uma pergunta como deve funcionar a geração do cNF na nota fiscal eletronica e randomina na geração do xml ou esse codigo e pre-definido em algum lugar ou baseado em algum calculo
[/txt-color]
bom hoje eu começo a fazer o layout da nfe formato retrato!
ha queria saber existe alguma função no vb.net que configura a folha de impressão tipo fazer a A4 imprimir 21x30cm pq o tamanho original e 21x29 ou ate criar um perfil de folha tipo A4NFE e ja selecionar automaticamente!
abç a todos
[txt-color=#0000f0]muito obrigado pelo toques eu vou acertar e ja colocar aki para teste apos todos os teste eu vou disponibilizar os fontes para todos[/txt-color]
[txt-color=#e80000]so uma pergunta como deve funcionar a geração do cNF na nota fiscal eletronica e randomina na geração do xml ou esse codigo e pre-definido em algum lugar ou baseado em algum calculo
[/txt-color]
bom hoje eu começo a fazer o layout da nfe formato retrato!
ha queria saber existe alguma função no vb.net que configura a folha de impressão tipo fazer a A4 imprimir 21x30cm pq o tamanho original e 21x29 ou ate criar um perfil de folha tipo A4NFE e ja selecionar automaticamente!
abç a todos
Galera algum de vcs tem, ou sabe onde acho a lista de relação de codigo de serviço da Nfe.
Valeu desde já!
Valeu desde já!
Colega OTAVIOFAVERO.
O cNF significa Código numérico que compõe a Chave de Acesso, esse número é aleatório gerado gerado sotfware do emitente para cada NF-e para evitar acessos indevidos da NF-e.
O cNF significa Código numérico que compõe a Chave de Acesso, esse número é aleatório gerado gerado sotfware do emitente para cada NF-e para evitar acessos indevidos da NF-e.
Sobre o código fonte pra gerar o TXT que o LOOZE tava desenvolvendo com os integrantes da comunidade, devo ter ele guardado. é claro que não tá finalizado, mas enfim é um ponto de partida ...
Citação::
Galera algum de vcs tem, ou sabe onde acho a lista de relação de codigo de serviço da Nfe.
Valeu desde já!
RFERREIRA postei a lista de Serviços pra vc
camla ai pessoal ja vou disponibilizar uma versão melhor para imprimir danfe e q eu to ocupano em um projeto de portal de passagens aereas ahuahauha
http://www.rsd.com.br/portalpassagens/
abç
http://www.rsd.com.br/portalpassagens/
abç
Alguem tem alguma luz ai para vb6[txt-size=2] [/txt-size][txt-color=#0000f0] [/txt-color]
estou aki disponibilizando o gerador de xml q eu estou fazendo em vb.net 2008
mas estou com um problema em uma parte e não consigo resolver!!!!!
eu gero o xml e na parte
<emit>
<CNPJ>50151687000134</CNPJ>
<xNome>Florbras Industria e Comercio Ltda</xNome>
<xFant>Florbras</xFant>
<IE>636067458113</IE>
<enderEmit>
<xLgr>Rua Central</xLgr>
<nro>10</nro>
<xBairro>Distrito Industrial</xBairro>
<cMun>3548807</cMun>
<xMun>Sao Caetano do Sul</xMun>
<UF>SP</UF>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
</enderEmit>
</emit>
sai assim bom mas eu queria mudar a posição do <IE> para de pois do </enderEmit>
assimm
<emit>
<CNPJ>50151687000134</CNPJ>
<xNome>Florbras Industria e Comercio Ltda</xNome>
<xFant>Florbras</xFant>
<enderEmit>
<xLgr>Rua Central</xLgr>
<nro>10</nro>
<xBairro>Distrito Industrial</xBairro>
<cMun>3548807</cMun>
<xMun>Sao Caetano do Sul</xMun>
<UF>SP</UF>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
</enderEmit>
<IE>636067458113</IE>
</emit>
alguem sabe como fazer isso via dataset e datarow
bom postei um exemplo meu bem intereçante! q vai ser convertido em dll !!!!
abç a todossssss ei tiger vc sabe como resolver!!!!!
mas estou com um problema em uma parte e não consigo resolver!!!!!
eu gero o xml e na parte
<emit>
<CNPJ>50151687000134</CNPJ>
<xNome>Florbras Industria e Comercio Ltda</xNome>
<xFant>Florbras</xFant>
<IE>636067458113</IE>
<enderEmit>
<xLgr>Rua Central</xLgr>
<nro>10</nro>
<xBairro>Distrito Industrial</xBairro>
<cMun>3548807</cMun>
<xMun>Sao Caetano do Sul</xMun>
<UF>SP</UF>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
</enderEmit>
</emit>
sai assim bom mas eu queria mudar a posição do <IE> para de pois do </enderEmit>
assimm
<emit>
<CNPJ>50151687000134</CNPJ>
<xNome>Florbras Industria e Comercio Ltda</xNome>
<xFant>Florbras</xFant>
<enderEmit>
<xLgr>Rua Central</xLgr>
<nro>10</nro>
<xBairro>Distrito Industrial</xBairro>
<cMun>3548807</cMun>
<xMun>Sao Caetano do Sul</xMun>
<UF>SP</UF>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
</enderEmit>
<IE>636067458113</IE>
</emit>
alguem sabe como fazer isso via dataset e datarow
bom postei um exemplo meu bem intereçante! q vai ser convertido em dll !!!!
abç a todossssss ei tiger vc sabe como resolver!!!!!
Blz Galera.
Bom otavio deu certo o codigo q te passei ?
Vou postar aki o jeito que consegui resolver este problema.
Armazenei a IE em uma variavel. e na hora de assinar faço alguns replaces para deixar o xml no formato q desejo.
[quote] Public Function AssinarNFe(ByVal p_ArqXMLAssinar As String, ByVal P_Uri As String, ByVal p_ArqXMLAssinado As String, Optional ByVal IE_Emit As String = [Ô][Ô], Optional ByVal IE_Dest As String = [Ô][Ô])
[ô] - Aguns excessões que podem ser geradas
[ô] 1 - Erro: Problema ao acessar o certificado digital - %exceção%
[ô] 2 - Problemas no certificado digital
[ô] 3 - XML mal formado + %exceção%
[ô] 4 - A tag de assinatura %pUri% não existe
[ô] 5 - A tag de assinatura %pUri% não é unica
[ô] 6 - Erro ao assinar o documento - %exceção%
[ô] 7 - Falha ao tentar abrir o arquivo XML - %exceção%
[ô]Atualizar atributos de retorno com conteúdo padrão
Try
If My.Settings.CertificadoDigital = [Ô][Ô] Then
MsgBox([Ô]Você precisa selecionar o certificado digital para realizar a consulta de status.[Ô], MsgBoxStyle.Information, [Ô]S[Ô])
Return [Ô]Erro, não foi selecionado um certificado valido[Ô]
Exit Function
End If
Dim TagUri As String = P_Uri
Dim XMLStringAssinado As String
l_ErroAssinar = 0
[ô]this.vResultadoString = [Ô]Assinatura realizada com sucesso[Ô];
Dim l_Ler As StreamReader = Nothing
Try
[ô]Abrir o arquivo XML a ser assinado e ler o seu conteúdo
l_Ler = File.OpenText(p_ArqXMLAssinar)
Dim v_XMLString As String = l_Ler.ReadToEnd()
v_XMLString = Replace(v_XMLString, [Ô]standalone=[Ô][Ô]yes[Ô][Ô][Ô], [Ô]encoding=[Ô][Ô]UTF-8[Ô][Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]<NewDataSet xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô]>[Ô], [Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]<NFe>[Ô], [Ô]<NFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô]>[Ô])
v_XMLString = Replace(v_XMLString, [Ô]</NFe>[Ô], [Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]xmlns=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô][Ô], [Ô]xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]</NewDataSet>[Ô], [Ô]</NFe>[Ô])
If IE_Dest <> [Ô][Ô] Or IE_Dest = [Ô]ISENTO[Ô] Then
v_XMLString = Replace(v_XMLString, [Ô]</enderDest>[Ô], [Ô]</enderDest><IE>[Ô] & IE_Dest & [Ô]</IE>[Ô])
Else
v_XMLString = Replace(v_XMLString, [Ô]</enderDest>[Ô], [Ô]</enderDest><IE></IE>[Ô])
End If
If IE_Emit <> [Ô][Ô] Or IE_Emit = [Ô]ISENTO[Ô] Then
v_XMLString = Replace(v_XMLString, [Ô]</enderEmit>[Ô], [Ô]</enderEmit><IE>[Ô] & IE_Emit & [Ô]</IE>[Ô])
Else
v_XMLString = Replace(v_XMLString, [Ô]</enderEmit>[Ô], [Ô]</enderEmit><IE></IE>[Ô])
End If
v_XMLString = Replace(v_XMLString, [Ô] [Ô], [Ô][Ô])
l_Ler.Close()
Try
Dim l_Certificado As New X509Certificate2
If l_Certificado.Handle = 0 Then
Dim C As New CertificadoDigital
l_Certificado = C.DevolveCertificado()
End If
If l_Certificado Is Nothing Then
l_ErroAssinar = [Ô]O software detectou problemas com o certificado digital. Código do Erro: 2[Ô]
[ô]this.vResultadoString = [Ô]Problemas no certificado digital[Ô];
l_ErroAssinar = 2
Else
[ô] certificado ok
[ô]Dim x As String
[ô]x = _X509Cert.GetKeyAlgorithm().ToString()
[ô] Create a new XML document.
Dim doc As New XmlDocument()
[ô] Format the document to ignore white spaces.
doc.PreserveWhitespace = False
[ô] Load the passed XML file using it’s name.
Try
doc.LoadXml(v_XMLString)
[ô] Verifica se a tag a ser assinada existe é única
Dim qtdeRefUri As Integer = doc.GetElementsByTagName([Ô]infNFe[Ô]).Count
If qtdeRefUri = 0 Then
[ô] a URI indicada não existe
l_ErroAssinar = [Ô]A tag de assinatura [Ô] & TagUri & [Ô] não existe no arquivo XML. Código do Erro: 4[Ô]
Else
[ô] Exsiste mais de uma tag a ser assinada
If qtdeRefUri > 1 Then
[ô] existe mais de uma URI indicada
l_ErroAssinar = [Ô]A tag de assinatura [Ô] & TagUri & [Ô] não é unica. Código do Erro: 5[Ô]
Else
If doc.GetElementsByTagName([Ô]Signature[Ô]).Count = 0 Then
[ô]Documento ainda não assinado (Se já tiver assinado não vamos fazer nada, somente retornar ok para continuar o envio). Wandrey 12/05/2009
Try
[ô] Create a SignedXml object.
Dim signedXml As New SignedXml(doc)
[ô] Add the key to the SignedXml document
signedXml.SigningKey = l_Certificado.PrivateKey
[ô] Create a reference to be signed
Dim reference As New Reference()
[ô] pega o uri que deve ser assinada
Dim _Uri As XmlAttributeCollection = doc.GetElementsByTagName([Ô]infNFe[Ô]).Item(0).Attributes
For Each _atributo As XmlAttribute In _Uri
If _atributo.Name = [Ô]Id[Ô] Then
reference.Uri = [Ô]#[Ô] & _atributo.InnerText
End If
Next
[ô] Add an enveloped transformation to the reference.
Dim env As New XmlDsigEnvelopedSignatureTransform()
reference.AddTransform(env)
Dim c14 As New XmlDsigC14NTransform()
reference.AddTransform(c14)
[ô] Add the reference to the SignedXml object.
signedXml.AddReference(reference)
[ô] Create a new KeyInfo object
Dim keyInfo As New KeyInfo()
[ô] Load the certificate into a KeyInfoX509Data object
[ô] and add it to the KeyInfo object.
keyInfo.AddClause(New KeyInfoX509Data(l_Certificado))
[ô] Add the KeyInfo object to the SignedXml object.
signedXml.KeyInfo = keyInfo
signedXml.ComputeSignature()
[ô] Get the XML representation of the signature and save
[ô] it to an XmlElement object.
Dim xmlDigitalSignature As XmlElement = signedXml.GetXml()
[ô] Gravar o elemento no documento XML
doc.DocumentElement.AppendChild(doc.ImportNode(xmlDigitalSignature, True))
Dim XMLDoc = New XmlDocument()
XMLDoc.PreserveWhitespace = False
XMLDoc = doc
[ô] Atualizar a string do XML já assinada
XMLStringAssinado = XMLDoc.OuterXml
[ô] Gravar o XML Assinado no HD
Dim SW_2 As StreamWriter = File.CreateText(p_ArqXMLAssinado)
SW_2.Write(XMLStringAssinado)
SW_2.Close()
Catch caught As Exception
If l_ErroAssinar = 0 Then
l_ErroAssinar = 3
End If
Throw (caught)
End Try
Else
l_ErroAssinar = [Ô]Arquivo informado já contém a assinatura digital realizada.[Ô]
End If
End If
End If
Catch caught As Exception
If l_ErroAssinar = 0 Then
l_ErroAssinar = 6
End If
Throw (caught)
End Try
End If
Catch caught As Exception
If l_ErroAssinar = 0 Then
l_ErroAssinar = 1 & caught.Message
End If
End Try[/quote
Bom otavio deu certo o codigo q te passei ?
Vou postar aki o jeito que consegui resolver este problema.
Armazenei a IE em uma variavel. e na hora de assinar faço alguns replaces para deixar o xml no formato q desejo.
[quote] Public Function AssinarNFe(ByVal p_ArqXMLAssinar As String, ByVal P_Uri As String, ByVal p_ArqXMLAssinado As String, Optional ByVal IE_Emit As String = [Ô][Ô], Optional ByVal IE_Dest As String = [Ô][Ô])
[ô] - Aguns excessões que podem ser geradas
[ô] 1 - Erro: Problema ao acessar o certificado digital - %exceção%
[ô] 2 - Problemas no certificado digital
[ô] 3 - XML mal formado + %exceção%
[ô] 4 - A tag de assinatura %pUri% não existe
[ô] 5 - A tag de assinatura %pUri% não é unica
[ô] 6 - Erro ao assinar o documento - %exceção%
[ô] 7 - Falha ao tentar abrir o arquivo XML - %exceção%
[ô]Atualizar atributos de retorno com conteúdo padrão
Try
If My.Settings.CertificadoDigital = [Ô][Ô] Then
MsgBox([Ô]Você precisa selecionar o certificado digital para realizar a consulta de status.[Ô], MsgBoxStyle.Information, [Ô]S[Ô])
Return [Ô]Erro, não foi selecionado um certificado valido[Ô]
Exit Function
End If
Dim TagUri As String = P_Uri
Dim XMLStringAssinado As String
l_ErroAssinar = 0
[ô]this.vResultadoString = [Ô]Assinatura realizada com sucesso[Ô];
Dim l_Ler As StreamReader = Nothing
Try
[ô]Abrir o arquivo XML a ser assinado e ler o seu conteúdo
l_Ler = File.OpenText(p_ArqXMLAssinar)
Dim v_XMLString As String = l_Ler.ReadToEnd()
v_XMLString = Replace(v_XMLString, [Ô]standalone=[Ô][Ô]yes[Ô][Ô][Ô], [Ô]encoding=[Ô][Ô]UTF-8[Ô][Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]<NewDataSet xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô]>[Ô], [Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]<NFe>[Ô], [Ô]<NFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô]>[Ô])
v_XMLString = Replace(v_XMLString, [Ô]</NFe>[Ô], [Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]xmlns=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô][Ô], [Ô]xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô][Ô])
v_XMLString = Replace(v_XMLString, [Ô]</NewDataSet>[Ô], [Ô]</NFe>[Ô])
If IE_Dest <> [Ô][Ô] Or IE_Dest = [Ô]ISENTO[Ô] Then
v_XMLString = Replace(v_XMLString, [Ô]</enderDest>[Ô], [Ô]</enderDest><IE>[Ô] & IE_Dest & [Ô]</IE>[Ô])
Else
v_XMLString = Replace(v_XMLString, [Ô]</enderDest>[Ô], [Ô]</enderDest><IE></IE>[Ô])
End If
If IE_Emit <> [Ô][Ô] Or IE_Emit = [Ô]ISENTO[Ô] Then
v_XMLString = Replace(v_XMLString, [Ô]</enderEmit>[Ô], [Ô]</enderEmit><IE>[Ô] & IE_Emit & [Ô]</IE>[Ô])
Else
v_XMLString = Replace(v_XMLString, [Ô]</enderEmit>[Ô], [Ô]</enderEmit><IE></IE>[Ô])
End If
v_XMLString = Replace(v_XMLString, [Ô] [Ô], [Ô][Ô])
l_Ler.Close()
Try
Dim l_Certificado As New X509Certificate2
If l_Certificado.Handle = 0 Then
Dim C As New CertificadoDigital
l_Certificado = C.DevolveCertificado()
End If
If l_Certificado Is Nothing Then
l_ErroAssinar = [Ô]O software detectou problemas com o certificado digital. Código do Erro: 2[Ô]
[ô]this.vResultadoString = [Ô]Problemas no certificado digital[Ô];
l_ErroAssinar = 2
Else
[ô] certificado ok
[ô]Dim x As String
[ô]x = _X509Cert.GetKeyAlgorithm().ToString()
[ô] Create a new XML document.
Dim doc As New XmlDocument()
[ô] Format the document to ignore white spaces.
doc.PreserveWhitespace = False
[ô] Load the passed XML file using it’s name.
Try
doc.LoadXml(v_XMLString)
[ô] Verifica se a tag a ser assinada existe é única
Dim qtdeRefUri As Integer = doc.GetElementsByTagName([Ô]infNFe[Ô]).Count
If qtdeRefUri = 0 Then
[ô] a URI indicada não existe
l_ErroAssinar = [Ô]A tag de assinatura [Ô] & TagUri & [Ô] não existe no arquivo XML. Código do Erro: 4[Ô]
Else
[ô] Exsiste mais de uma tag a ser assinada
If qtdeRefUri > 1 Then
[ô] existe mais de uma URI indicada
l_ErroAssinar = [Ô]A tag de assinatura [Ô] & TagUri & [Ô] não é unica. Código do Erro: 5[Ô]
Else
If doc.GetElementsByTagName([Ô]Signature[Ô]).Count = 0 Then
[ô]Documento ainda não assinado (Se já tiver assinado não vamos fazer nada, somente retornar ok para continuar o envio). Wandrey 12/05/2009
Try
[ô] Create a SignedXml object.
Dim signedXml As New SignedXml(doc)
[ô] Add the key to the SignedXml document
signedXml.SigningKey = l_Certificado.PrivateKey
[ô] Create a reference to be signed
Dim reference As New Reference()
[ô] pega o uri que deve ser assinada
Dim _Uri As XmlAttributeCollection = doc.GetElementsByTagName([Ô]infNFe[Ô]).Item(0).Attributes
For Each _atributo As XmlAttribute In _Uri
If _atributo.Name = [Ô]Id[Ô] Then
reference.Uri = [Ô]#[Ô] & _atributo.InnerText
End If
Next
[ô] Add an enveloped transformation to the reference.
Dim env As New XmlDsigEnvelopedSignatureTransform()
reference.AddTransform(env)
Dim c14 As New XmlDsigC14NTransform()
reference.AddTransform(c14)
[ô] Add the reference to the SignedXml object.
signedXml.AddReference(reference)
[ô] Create a new KeyInfo object
Dim keyInfo As New KeyInfo()
[ô] Load the certificate into a KeyInfoX509Data object
[ô] and add it to the KeyInfo object.
keyInfo.AddClause(New KeyInfoX509Data(l_Certificado))
[ô] Add the KeyInfo object to the SignedXml object.
signedXml.KeyInfo = keyInfo
signedXml.ComputeSignature()
[ô] Get the XML representation of the signature and save
[ô] it to an XmlElement object.
Dim xmlDigitalSignature As XmlElement = signedXml.GetXml()
[ô] Gravar o elemento no documento XML
doc.DocumentElement.AppendChild(doc.ImportNode(xmlDigitalSignature, True))
Dim XMLDoc = New XmlDocument()
XMLDoc.PreserveWhitespace = False
XMLDoc = doc
[ô] Atualizar a string do XML já assinada
XMLStringAssinado = XMLDoc.OuterXml
[ô] Gravar o XML Assinado no HD
Dim SW_2 As StreamWriter = File.CreateText(p_ArqXMLAssinado)
SW_2.Write(XMLStringAssinado)
SW_2.Close()
Catch caught As Exception
If l_ErroAssinar = 0 Then
l_ErroAssinar = 3
End If
Throw (caught)
End Try
Else
l_ErroAssinar = [Ô]Arquivo informado já contém a assinatura digital realizada.[Ô]
End If
End If
End If
Catch caught As Exception
If l_ErroAssinar = 0 Then
l_ErroAssinar = 6
End If
Throw (caught)
End Try
End If
Catch caught As Exception
If l_ErroAssinar = 0 Then
l_ErroAssinar = 1 & caught.Message
End If
End Try[/quote
eu fiz uma modificação no q vc me mandou e incrementei mais ainda para não ter q mencionar Optional ByVal IE_Emit As String = [Ô][Ô], Optional ByVal IE_Dest As String = [Ô][Ô] e mudei o geito de gravar o xml!!!
logo disponibilizo a todos os desenvolvimento!! ficou legal! ja gera o xml retira o q não e preenchido e mantem os obrigatorios e ja assina tudo de uma vez! e seleciona o certificado sozinhoo!!
logo disponibilizo a todos os desenvolvimento!! ficou legal! ja gera o xml retira o q não e preenchido e mantem os obrigatorios e ja assina tudo de uma vez! e seleciona o certificado sozinhoo!!
Tópico encerrado , respostas não são mais permitidas