FONTE NFE VB.NET
Valeu pelo link pessoal !
Só uma pergunta: Para MG está tranquilo ?
Alguém está usando sem qualquer problema ?
Meu caso é o seguinte, meu sistema foi desenvolvido em vb6. Neste caso, eu instalando o VSExpress 10 me atenderia para gerar a dll e chamá-la no vb6 ?
Desde já agradeço.
Só uma pergunta: Para MG está tranquilo ?
Alguém está usando sem qualquer problema ?
Meu caso é o seguinte, meu sistema foi desenvolvido em vb6. Neste caso, eu instalando o VSExpress 10 me atenderia para gerar a dll e chamá-la no vb6 ?
Desde já agradeço.
Alguem saberia me dar uma dica de como fazer o download do XML via código?
DOUGLASJ
Segue em Anexo um projeto em VB.Net explicando detalhado como fazer o Download do Xml da NFe.
Citação:Alguem saberia me dar uma dica de como fazer o download do XML via código?
Segue em Anexo um projeto em VB.Net explicando detalhado como fazer o Download do Xml da NFe.
Estou apresentando problemas de envio da nfe 3.10 com erro, cujo código é [Ô]404 - Rejeição: Uso de prefixo de namespace não permitido[Ô], alguém possui alguma sugestão sobre o motivo do erro? Estou assinando e validando corretamente com os schemas 3.10.
alguém conseguiu fazer NFC-e para SP?
Obrigado Elucimar! hehe fiquei um bom tempo em outro projeto que nem tinha visto a sua msg... vou dar uma estudada.. e muito obrigado pela dica.
O que é este DevExpress.XtraEditors.v11.2? ele fica já com o triangulo amarelo é algum plugin a mais?
Boa noite amigos!
Estou tentando implementar essa NFe... Porém estou tendo prloblemas com algumas variáveis:
LinhaAdi is not declared. It may be inaccessible due to its protection level CLASSE: Nfe_ImprimirDanfePaisagem
Expression is a value and therefore cannot be the target of an assignment CLASSE: Nfe_ImprimirDanfeRetrato
VProduto is not declared. It may be inaccessible due to its protection level
Alguém saberia me dizer o pq desses erros???
Desde já agradeço
Estou tentando implementar essa NFe... Porém estou tendo prloblemas com algumas variáveis:
LinhaAdi is not declared. It may be inaccessible due to its protection level CLASSE: Nfe_ImprimirDanfePaisagem
Expression is a value and therefore cannot be the target of an assignment CLASSE: Nfe_ImprimirDanfeRetrato
VProduto is not declared. It may be inaccessible due to its protection level
Alguém saberia me dizer o pq desses erros???
Desde já agradeço
Imports MessagingToolkit.QRCode.Codec
Imports MessagingToolkit.QRCode.Codec.Data
QRCODE
Dim vr_url_qrcode As String = [Ô][Ô]
Dim vr_url As String = url_qrcode [ô][Ô]http://www4.fazenda.rj.gov.br/consultaNFCe/QRCode?[Ô]
Dim vr_chNFe As String = chaveNF [ô][Ô]33150409544885000164650000000010001902343816[Ô]
Dim vr_nVersao As String = [Ô]100[Ô]
Dim vr_tpAmb As String = xAmbiente
Dim vr_cDest As String = [Ô][Ô]
Dim vr_dhEmi As String = Format(idedEmi, [Ô]yyyy-MM-ddTHH:mm:sszzz[Ô]) [ô][ô]Format(dadosNFC.idedEmi, [Ô]yyyy-MM-ddTHH:mm:sszzz[Ô]) [ô][ô][ô][Ô]2015-04-12T04:27:16-03:00[Ô]
vr_dhEmi = getSHA1Hash(vr_dhEmi)
Dim vr_vNF As String = ICMSTotvNF.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô])) [ô]dadosNFC.ICMSTotvNF.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô]))
Dim vr_vICMS As String = ICMSTotvICMS.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô])) [ô]dadosNFC.ICMSTotvICMS.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô]))
Dim vr_digVal As String = reader.GetValue(5) [ô]dadosNFC.digVal [ô][Ô]lUKGfLwQVNmvGvL2vDuQz2xMnh4=[Ô]
vr_digVal = getSHA1Hash(vr_digVal)
Dim vr_cIdToken As String = [Ô]000001[Ô] & reader.GetValue(6) [ô]xEmpresas.First.CSC [ô][Ô]3DF05AE975EB497EF5D619BC65389CF2WYVK[Ô]
vr_url_qrcode = vr_url & [Ô]chNFe=[Ô] & vr_chNFe & [Ô]&nVersao=[Ô] & vr_nVersao & [Ô]&tpAmb=[Ô] & vr_tpAmb & [Ô]&cDest=[Ô] & vr_cDest
vr_url_qrcode = vr_url_qrcode & [Ô]&dhEmi=[Ô] & vr_dhEmi & [Ô]&vNF=[Ô] & vr_vNF & [Ô]&vICMS=[Ô] & vr_vICMS & [Ô]&digVal=[Ô] & vr_digVal
vr_url_qrcode = vr_url_qrcode & [Ô]&cIdToken=[Ô] & vr_cIdToken [ô]& [Ô]&cHashQRCode=[Ô] & vr_cHashQRCode
Dim vr_cHashQRCode As String = getSHA1Hash(vr_url_qrcode)
vr_url_qrcode = vr_url_qrcode & [Ô]&cHashQRCode=[Ô] & vr_cHashQRCode
Dim qrencod As New QRCodeEncoder()
qrencod.CharacterSet = [Ô]UTF-8[Ô]
qrencod.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
qrencod.QRCodeScale = 4
qrencod.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
Dim qrcode As Bitmap = qrencod.Encode(vr_url_qrcode)
FrmNFECODE.PictureBox1.Image = TryCast(qrcode, Image)
FrmNFECODE.txtLog.Text = vr_url_qrcode
Imports MessagingToolkit.QRCode.Codec.Data
QRCODE
Dim vr_url_qrcode As String = [Ô][Ô]
Dim vr_url As String = url_qrcode [ô][Ô]http://www4.fazenda.rj.gov.br/consultaNFCe/QRCode?[Ô]
Dim vr_chNFe As String = chaveNF [ô][Ô]33150409544885000164650000000010001902343816[Ô]
Dim vr_nVersao As String = [Ô]100[Ô]
Dim vr_tpAmb As String = xAmbiente
Dim vr_cDest As String = [Ô][Ô]
Dim vr_dhEmi As String = Format(idedEmi, [Ô]yyyy-MM-ddTHH:mm:sszzz[Ô]) [ô][ô]Format(dadosNFC.idedEmi, [Ô]yyyy-MM-ddTHH:mm:sszzz[Ô]) [ô][ô][ô][Ô]2015-04-12T04:27:16-03:00[Ô]
vr_dhEmi = getSHA1Hash(vr_dhEmi)
Dim vr_vNF As String = ICMSTotvNF.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô])) [ô]dadosNFC.ICMSTotvNF.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô]))
Dim vr_vICMS As String = ICMSTotvICMS.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô])) [ô]dadosNFC.ICMSTotvICMS.ToString([Ô]#0.00[Ô], New CultureInfo([Ô]en-US[Ô]))
Dim vr_digVal As String = reader.GetValue(5) [ô]dadosNFC.digVal [ô][Ô]lUKGfLwQVNmvGvL2vDuQz2xMnh4=[Ô]
vr_digVal = getSHA1Hash(vr_digVal)
Dim vr_cIdToken As String = [Ô]000001[Ô] & reader.GetValue(6) [ô]xEmpresas.First.CSC [ô][Ô]3DF05AE975EB497EF5D619BC65389CF2WYVK[Ô]
vr_url_qrcode = vr_url & [Ô]chNFe=[Ô] & vr_chNFe & [Ô]&nVersao=[Ô] & vr_nVersao & [Ô]&tpAmb=[Ô] & vr_tpAmb & [Ô]&cDest=[Ô] & vr_cDest
vr_url_qrcode = vr_url_qrcode & [Ô]&dhEmi=[Ô] & vr_dhEmi & [Ô]&vNF=[Ô] & vr_vNF & [Ô]&vICMS=[Ô] & vr_vICMS & [Ô]&digVal=[Ô] & vr_digVal
vr_url_qrcode = vr_url_qrcode & [Ô]&cIdToken=[Ô] & vr_cIdToken [ô]& [Ô]&cHashQRCode=[Ô] & vr_cHashQRCode
Dim vr_cHashQRCode As String = getSHA1Hash(vr_url_qrcode)
vr_url_qrcode = vr_url_qrcode & [Ô]&cHashQRCode=[Ô] & vr_cHashQRCode
Dim qrencod As New QRCodeEncoder()
qrencod.CharacterSet = [Ô]UTF-8[Ô]
qrencod.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
qrencod.QRCodeScale = 4
qrencod.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
Dim qrcode As Bitmap = qrencod.Encode(vr_url_qrcode)
FrmNFECODE.PictureBox1.Image = TryCast(qrcode, Image)
FrmNFECODE.txtLog.Text = vr_url_qrcode
essa desativação de alguns serviços da UF do RS, pra quam usa os endereços de web-services de SP, não afeta nada né ?
Faça seu login para responder