FONTE NFE VB.NET
Vou confirmar. Acredito que nao pois peguei alguns xml ja validados dele e nenhum tinha isso. Mais uma vez obrigado !
Galera estou tentando enviar o arquivo e nao estou conseguindo.
Nao retorna nenhum erro,mas ao tentar consultar a Nf-e nao consta na Sefaz. Estou em SP e tentando enviar para homologacao.
O meu xml ficou assim. No programa emissor da Nfe em produção foi enviado corretamente.
<NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]><infNFe versao=[Ô]2.00[Ô] Id=[Ô]NFe35120510740232000130550010000004831347145251[Ô]><ide><cUF>35</cUF><cNF>34714525</cNF><natOp>DEVOL. EST</natOp><indPag>1</indPag><mod>55</mod><serie>1</serie><nNF>483</nNF><dEmi>2012-05-29</dEmi><tpNF>1</tpNF><cMunFG>3550308</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>1</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>2.0.4</verProc></ide><emit><CNPJ>10740232000130</CNPJ><xNome>MARILENE FERNANDES DA ROCHA REPRESENTACOES</xNome><xFant>MENKAR</xFant><enderEmit><xLgr>R. ANTONIO DE PADUA ALVES DE LIMA</xLgr><nro>80</nro><xBairro>PQ. ANHANGUERA</xBairro><cMun>3550308</cMun><xMun>SAO PAULO</xMun><UF>SP</UF><CEP>05271260</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>39110995</fone></enderEmit><IE>147773735116</IE><CRT>1</CRT></emit><dest><CNPJ>07260838000163</CNPJ><xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><enderDest><xLgr>RUA ARI BARROSO - 215</xLgr><nro>s/n</nro><xBairro>PRESIDENTE ALTINO</xBairro><cMun>3534401</cMun><xMun>OSASCO</xMun><UF>SP</UF><CEP>06216240</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>11368529</fone></enderDest><IE>492481788111</IE></dest><det nItem=[Ô]1[Ô]><prod><cProd>01455</cProd><cEAN></cEAN><xProd>V-SOL-5/2-PVN3B5040-00A</xProd><NCM>84818092</NCM><CFOP>5202</CFOP><uCom>PC</uCom><qCom>8.0000</qCom><vUnCom>190.0000</vUnCom><vProd>1520.00</vProd><cEANTrib></cEANTrib><uTrib>PC</uTrib><qTrib>8.0000</qTrib><vUnTrib>190.0000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>0</orig><CSOSN>102</CSOSN></ICMSSN102></ICMS><PIS><PISAliq><CST>01</CST><vBC>0.00</vBC><pPIS>0.00</pPIS><vPIS>0.00</vPIS></PISAliq></PIS><COFINS><COFINSAliq><CST>01</CST><vBC>0.00</vBC><pCOFINS>0.00</pCOFINS><vCOFINS>0.00</vCOFINS></COFINSAliq></COFINS></imposto></det><total><ICMSTot><vBC>0.00</vBC><vICMS>0.00</vICMS><vBCST>0.00</vBCST><vST>0.00</vST><vProd>1520.00</vProd><vFrete>0.00</vFrete><vSeg>0</vSeg><vDesc>0.00</vDesc><vII>0</vII><vIPI>0.00</vIPI><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0</vOutro><vNF>1520.00</vNF></ICMSTot></total><transp><modFrete>0</modFrete><vol><qVol>1</qVol><esp>VOLUME</esp><pesoL>5</pesoL><pesoB>5</pesoB><lacres><nLacre>.</nLacre></lacres></vol></transp><cobr><fat><nFat>483- Vencto. ----</nFat></fat></cobr><infAdic><infAdFisco>DOCUMENTO EMITIDO POR EMPRESA OPTANTE PELO SIMPLES NACIONAL. PERMITE O APROVEITAMENTO DO CREDITO DE ICMS CORRESPONDENTE A ALIQUOTA DE 3.41%, NOS TERMOS DO ARTIGO 23 LC n 123</infAdFisco><infCpl>--- DEVOLUCAO TOTAL REFERENTE DANFE N 3062 DE 11/04/2012</infCpl></infAdic></infNFe><Signature xmlns=[Ô]http://www.w3.org/2000/09/xmldsig#[Ô]><SignedInfo><CanonicalizationMethod Algorithm=[Ô]http://www.w3.org/TR/2001/REC-xml-c14n-20010315[Ô] /><SignatureMethod Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#rsa-sha1[Ô] /><Reference URI=[Ô]#NFe35120510740232000130550010000004831347145251[Ô]><Transforms><Transform Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#enveloped-signature[Ô] /><Transform Algorithm=[Ô]http://www.w3.org/TR/2001/REC-xml-c14n-20010315[Ô] /></Transforms><DigestMethod Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#sha1[Ô] /><DigestValue>/7GrDcXqaF42KWVnCIUVvHk1ODg=</DigestValue></Reference></SignedInfo><SignatureValue>LhIqFU/WY8TXv3/DnP5R9efAdDIg/1LTj1HeOd2lpJQToq3FPrZ+HkfxSJYikA6IJO23Tl/gmX8Mv8IUzayKHkR7pM8v137AvuMOP+8PeiI9yPIqgplT2nzJb1SsdLSka++XsqWudHMQCbVhKnammZbmmUOVZ09JQJfQ7g5QrDw=</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIGcTCCBVmgAwIBAgIIBO540o/QYlQwDQYJKoZIhvcNAQEFBQAwdTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEZMBcGA1UEAxMQQUMgU0VSQVNBIFJGQiB2MTAeFw0xMTAyMTgyMTAwMDBaFw0xMzAyMTcyMTAwMDBaMIHrMQswCQYDVQQGEwJCUjELMAkGA1UECBMCU1AxEjAQBgNVBAcTCVNBTyBQQVVMTzETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRYwFAYDVQQLEw1SRkIgZS1DTlBKIEEzMRIwEAYDVQQLEwlBUiBTRVJBU0ExQjBABgNVBAMTOU1BUklMRU5FIEZFUk5BTkRFUyBEQSBST0NIQSBSRVBSRVNFTlRBQ09FUzoxMDc0MDIzMjAwMDEzMDCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAqUMycVEPEaNGuRz9clWf6WX8Nm5DjcmqSRAWUl/287wjipbt16Ocph3qif5s8IuG5pJ7Cl/Zd3ZXA5Vi+zaDjKIZAsuKARdi8/hlCc/8yYQZkdx4nMjmy/DeLFv0g3ucyuUBRWtaXbWLa0JIuNTThXEWz4/M3stjgWFJTjbpkOMCAwEAAaOCAxAwggMMMAkGA1UdEwQCMAAwDgYDVR0PAQH/BAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcDBDAfBgNVHSMEGDAWgBSa3SK29nfpQm9IwlFAoFbi83Q/uzCBwwYDVR0RBIG7MIG4gRZNQVJJTEVORUBNRU5LQVIuQ09NLkJSoDAGBWBMAQMCoCcTJU1BUklMRU5FIEZFUk5BTkRFUyBEQSBST0NIQSBBTEJFUlRJTkmgGQYFYEwBAwOgEBMOMTA3NDAyMzIwMDAxMzCgOAYFYEwBAwSgLxMtMTgwMzE5NjAwNDIwMTU4MzgzMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoBcGBWBMAQMHoA4TDDAwMDAwMDAwMDAwMDBXBgNVHSAEUDBOMEwGBmBMAQIDCjBCMEAGCCsGAQUFBwIBFjRodHRwOi8vd3d3LmNlcnRpZmljYWRvZGlnaXRhbC5jb20uYnIvcmVwb3NpdG9yaW8vZHBjMIHzBgNVHR8EgeswgegwSqBIoEaGRGh0dHA6Ly93d3cuY2VydGlmaWNhZG9kaWdpdGFsLmNvbS5ici9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjEuY3JsMESgQqBAhj5odHRwOi8vbGNyLmNlcnRpZmljYWRvcy5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL3NlcmFzYXJmYnYxLmNybDBUoFKgUIZOaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1NlcmFzYS9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjEuY3JsMIGZBggrBgEFBQcBAQSBjDCBiTBIBggrBgEFBQcwAoY8aHR0cDovL3d3dy5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL2NhZGVpYXMvc2VyYXNhcmZidjEucDdiMD0GCCsGAQUFBzABhjFodHRwOi8vb2NzcC5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3NlcmFzYXJmYnYxMA0GCSqGSIb3DQEBBQUAA4IBAQARGf3fztR7SILkc2Ci9gQ7JxnIzkP+vtAuKu5ZrbGOc6Aydmh8j5roG3lYktnCWCSxmjQOn0d/ac4xJzkYoqjvX/wM+T70hrn/a08g3sDCIh6hGpElyAx1fuV2zScpaJcnCnxM7X0D1ESE56quw/1N1zcYVwYdmGR1cLkaOJf5xit2twi55HkOCsMI6rBpLhQSg1msTHjTYkiMcY3DgAloB12ELXll6sPAtEL97qykaxDM5NEvv/x51h2pN1Uzq6BjwGc4PfBWwLpHpEHTojDRxt4quLvtWssUamCk/ABsjwLIhQs/U3g5DgEnpsoSD/0VBNFp3nTaof0s7fCFYTI8</X509Certificate></X509Data></KeyInfo></Signature></NFe>
O botao que chama o envio esta assim.
Dim WebS As New C_WebService(UrlAcesso)
Dim StrRetorno As RetEnvio
If Trim(CAMINHONFEGERADA.Text) = [Ô][Ô] Then
AbrirXml.InitialDirectory = [Ô]C:\SOFTMED\NFE\[Ô]
AbrirXml.Title = [Ô]Selecionar Xml[Ô]
AbrirXml.CheckFileExists = True
AbrirXml.CheckPathExists = True
AbrirXml.Filter = [Ô]Arquivos Xml (*.xml)|*.xml[Ô]
AbrirXml.RestoreDirectory = True
AbrirXml.ReadOnlyChecked = True
AbrirXml.ShowReadOnly = True
If AbrirXml.ShowDialog <> Windows.Forms.DialogResult.OK Then
Exit Sub
End If
CAMINHONFEGERADA.Text = Replace(AbrirXml.FileName, [Ô]C:\SOFTMED\NFE\[Ô], [Ô][Ô])
End If
[ô]ENVIA LOTE DE NOTAS VERSÃO 2.00
[ô]StrRetorno = WebS.EnviaLote2(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
StrRetorno = WebS.EnviaLote2([Ô]C:\SOFTMED\NFE\[Ô] & CAMINHONFEGERADA.Text)
If StrRetorno.xMotivo <> Nothing Then
MsgBox(StrRetorno.xMotivo)
End If
If StrRetorno.xMotivo = Nothing Then
MsgBox([Ô]Certificado Inválido[Ô])
Exit Sub
End If
Dim RetonoConsulta As New RetRetorno
RetonoConsulta = WebS.ConsultaRecLote2(StrRetorno.nRec)
For Each RetC In RetonoConsulta.L_Retornos
If RetC.xMotivo = [Ô]Autorizado o uso da NF-e[Ô] Then
Dim XmlNota As XmlDocument = New XmlDocument
XmlNota.Load(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
GerarNotaProcessada(SepararNota(XmlNota.OuterXml), RetC.XmlRecibo, CAMINHONFEGERADA.Text.Replace([Ô].Xml[Ô], [Ô][Ô]), Date.Today)
End If
MsgBox(RetC.Id)
MsgBox(RetC.chNFe)
MsgBox(RetC.cStat)
MsgBox(RetC.tpAmb)
MsgBox(RetC.xMotivo)
MsgBox(RetC.digVal)
Next
Nao retorna nenhum erro,mas ao tentar consultar a Nf-e nao consta na Sefaz. Estou em SP e tentando enviar para homologacao.
O meu xml ficou assim. No programa emissor da Nfe em produção foi enviado corretamente.
<NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]><infNFe versao=[Ô]2.00[Ô] Id=[Ô]NFe35120510740232000130550010000004831347145251[Ô]><ide><cUF>35</cUF><cNF>34714525</cNF><natOp>DEVOL. EST</natOp><indPag>1</indPag><mod>55</mod><serie>1</serie><nNF>483</nNF><dEmi>2012-05-29</dEmi><tpNF>1</tpNF><cMunFG>3550308</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>1</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>2.0.4</verProc></ide><emit><CNPJ>10740232000130</CNPJ><xNome>MARILENE FERNANDES DA ROCHA REPRESENTACOES</xNome><xFant>MENKAR</xFant><enderEmit><xLgr>R. ANTONIO DE PADUA ALVES DE LIMA</xLgr><nro>80</nro><xBairro>PQ. ANHANGUERA</xBairro><cMun>3550308</cMun><xMun>SAO PAULO</xMun><UF>SP</UF><CEP>05271260</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>39110995</fone></enderEmit><IE>147773735116</IE><CRT>1</CRT></emit><dest><CNPJ>07260838000163</CNPJ><xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><enderDest><xLgr>RUA ARI BARROSO - 215</xLgr><nro>s/n</nro><xBairro>PRESIDENTE ALTINO</xBairro><cMun>3534401</cMun><xMun>OSASCO</xMun><UF>SP</UF><CEP>06216240</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>11368529</fone></enderDest><IE>492481788111</IE></dest><det nItem=[Ô]1[Ô]><prod><cProd>01455</cProd><cEAN></cEAN><xProd>V-SOL-5/2-PVN3B5040-00A</xProd><NCM>84818092</NCM><CFOP>5202</CFOP><uCom>PC</uCom><qCom>8.0000</qCom><vUnCom>190.0000</vUnCom><vProd>1520.00</vProd><cEANTrib></cEANTrib><uTrib>PC</uTrib><qTrib>8.0000</qTrib><vUnTrib>190.0000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>0</orig><CSOSN>102</CSOSN></ICMSSN102></ICMS><PIS><PISAliq><CST>01</CST><vBC>0.00</vBC><pPIS>0.00</pPIS><vPIS>0.00</vPIS></PISAliq></PIS><COFINS><COFINSAliq><CST>01</CST><vBC>0.00</vBC><pCOFINS>0.00</pCOFINS><vCOFINS>0.00</vCOFINS></COFINSAliq></COFINS></imposto></det><total><ICMSTot><vBC>0.00</vBC><vICMS>0.00</vICMS><vBCST>0.00</vBCST><vST>0.00</vST><vProd>1520.00</vProd><vFrete>0.00</vFrete><vSeg>0</vSeg><vDesc>0.00</vDesc><vII>0</vII><vIPI>0.00</vIPI><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0</vOutro><vNF>1520.00</vNF></ICMSTot></total><transp><modFrete>0</modFrete><vol><qVol>1</qVol><esp>VOLUME</esp><pesoL>5</pesoL><pesoB>5</pesoB><lacres><nLacre>.</nLacre></lacres></vol></transp><cobr><fat><nFat>483- Vencto. ----</nFat></fat></cobr><infAdic><infAdFisco>DOCUMENTO EMITIDO POR EMPRESA OPTANTE PELO SIMPLES NACIONAL. PERMITE O APROVEITAMENTO DO CREDITO DE ICMS CORRESPONDENTE A ALIQUOTA DE 3.41%, NOS TERMOS DO ARTIGO 23 LC n 123</infAdFisco><infCpl>--- DEVOLUCAO TOTAL REFERENTE DANFE N 3062 DE 11/04/2012</infCpl></infAdic></infNFe><Signature xmlns=[Ô]http://www.w3.org/2000/09/xmldsig#[Ô]><SignedInfo><CanonicalizationMethod Algorithm=[Ô]http://www.w3.org/TR/2001/REC-xml-c14n-20010315[Ô] /><SignatureMethod Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#rsa-sha1[Ô] /><Reference URI=[Ô]#NFe35120510740232000130550010000004831347145251[Ô]><Transforms><Transform Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#enveloped-signature[Ô] /><Transform Algorithm=[Ô]http://www.w3.org/TR/2001/REC-xml-c14n-20010315[Ô] /></Transforms><DigestMethod Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#sha1[Ô] /><DigestValue>/7GrDcXqaF42KWVnCIUVvHk1ODg=</DigestValue></Reference></SignedInfo><SignatureValue>LhIqFU/WY8TXv3/DnP5R9efAdDIg/1LTj1HeOd2lpJQToq3FPrZ+HkfxSJYikA6IJO23Tl/gmX8Mv8IUzayKHkR7pM8v137AvuMOP+8PeiI9yPIqgplT2nzJb1SsdLSka++XsqWudHMQCbVhKnammZbmmUOVZ09JQJfQ7g5QrDw=</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIGcTCCBVmgAwIBAgIIBO540o/QYlQwDQYJKoZIhvcNAQEFBQAwdTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEZMBcGA1UEAxMQQUMgU0VSQVNBIFJGQiB2MTAeFw0xMTAyMTgyMTAwMDBaFw0xMzAyMTcyMTAwMDBaMIHrMQswCQYDVQQGEwJCUjELMAkGA1UECBMCU1AxEjAQBgNVBAcTCVNBTyBQQVVMTzETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRYwFAYDVQQLEw1SRkIgZS1DTlBKIEEzMRIwEAYDVQQLEwlBUiBTRVJBU0ExQjBABgNVBAMTOU1BUklMRU5FIEZFUk5BTkRFUyBEQSBST0NIQSBSRVBSRVNFTlRBQ09FUzoxMDc0MDIzMjAwMDEzMDCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAqUMycVEPEaNGuRz9clWf6WX8Nm5DjcmqSRAWUl/287wjipbt16Ocph3qif5s8IuG5pJ7Cl/Zd3ZXA5Vi+zaDjKIZAsuKARdi8/hlCc/8yYQZkdx4nMjmy/DeLFv0g3ucyuUBRWtaXbWLa0JIuNTThXEWz4/M3stjgWFJTjbpkOMCAwEAAaOCAxAwggMMMAkGA1UdEwQCMAAwDgYDVR0PAQH/BAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcDBDAfBgNVHSMEGDAWgBSa3SK29nfpQm9IwlFAoFbi83Q/uzCBwwYDVR0RBIG7MIG4gRZNQVJJTEVORUBNRU5LQVIuQ09NLkJSoDAGBWBMAQMCoCcTJU1BUklMRU5FIEZFUk5BTkRFUyBEQSBST0NIQSBBTEJFUlRJTkmgGQYFYEwBAwOgEBMOMTA3NDAyMzIwMDAxMzCgOAYFYEwBAwSgLxMtMTgwMzE5NjAwNDIwMTU4MzgzMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoBcGBWBMAQMHoA4TDDAwMDAwMDAwMDAwMDBXBgNVHSAEUDBOMEwGBmBMAQIDCjBCMEAGCCsGAQUFBwIBFjRodHRwOi8vd3d3LmNlcnRpZmljYWRvZGlnaXRhbC5jb20uYnIvcmVwb3NpdG9yaW8vZHBjMIHzBgNVHR8EgeswgegwSqBIoEaGRGh0dHA6Ly93d3cuY2VydGlmaWNhZG9kaWdpdGFsLmNvbS5ici9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjEuY3JsMESgQqBAhj5odHRwOi8vbGNyLmNlcnRpZmljYWRvcy5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL3NlcmFzYXJmYnYxLmNybDBUoFKgUIZOaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1NlcmFzYS9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjEuY3JsMIGZBggrBgEFBQcBAQSBjDCBiTBIBggrBgEFBQcwAoY8aHR0cDovL3d3dy5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL2NhZGVpYXMvc2VyYXNhcmZidjEucDdiMD0GCCsGAQUFBzABhjFodHRwOi8vb2NzcC5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3NlcmFzYXJmYnYxMA0GCSqGSIb3DQEBBQUAA4IBAQARGf3fztR7SILkc2Ci9gQ7JxnIzkP+vtAuKu5ZrbGOc6Aydmh8j5roG3lYktnCWCSxmjQOn0d/ac4xJzkYoqjvX/wM+T70hrn/a08g3sDCIh6hGpElyAx1fuV2zScpaJcnCnxM7X0D1ESE56quw/1N1zcYVwYdmGR1cLkaOJf5xit2twi55HkOCsMI6rBpLhQSg1msTHjTYkiMcY3DgAloB12ELXll6sPAtEL97qykaxDM5NEvv/x51h2pN1Uzq6BjwGc4PfBWwLpHpEHTojDRxt4quLvtWssUamCk/ABsjwLIhQs/U3g5DgEnpsoSD/0VBNFp3nTaof0s7fCFYTI8</X509Certificate></X509Data></KeyInfo></Signature></NFe>
O botao que chama o envio esta assim.
Dim WebS As New C_WebService(UrlAcesso)
Dim StrRetorno As RetEnvio
If Trim(CAMINHONFEGERADA.Text) = [Ô][Ô] Then
AbrirXml.InitialDirectory = [Ô]C:\SOFTMED\NFE\[Ô]
AbrirXml.Title = [Ô]Selecionar Xml[Ô]
AbrirXml.CheckFileExists = True
AbrirXml.CheckPathExists = True
AbrirXml.Filter = [Ô]Arquivos Xml (*.xml)|*.xml[Ô]
AbrirXml.RestoreDirectory = True
AbrirXml.ReadOnlyChecked = True
AbrirXml.ShowReadOnly = True
If AbrirXml.ShowDialog <> Windows.Forms.DialogResult.OK Then
Exit Sub
End If
CAMINHONFEGERADA.Text = Replace(AbrirXml.FileName, [Ô]C:\SOFTMED\NFE\[Ô], [Ô][Ô])
End If
[ô]ENVIA LOTE DE NOTAS VERSÃO 2.00
[ô]StrRetorno = WebS.EnviaLote2(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
StrRetorno = WebS.EnviaLote2([Ô]C:\SOFTMED\NFE\[Ô] & CAMINHONFEGERADA.Text)
If StrRetorno.xMotivo <> Nothing Then
MsgBox(StrRetorno.xMotivo)
End If
If StrRetorno.xMotivo = Nothing Then
MsgBox([Ô]Certificado Inválido[Ô])
Exit Sub
End If
Dim RetonoConsulta As New RetRetorno
RetonoConsulta = WebS.ConsultaRecLote2(StrRetorno.nRec)
For Each RetC In RetonoConsulta.L_Retornos
If RetC.xMotivo = [Ô]Autorizado o uso da NF-e[Ô] Then
Dim XmlNota As XmlDocument = New XmlDocument
XmlNota.Load(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
GerarNotaProcessada(SepararNota(XmlNota.OuterXml), RetC.XmlRecibo, CAMINHONFEGERADA.Text.Replace([Ô].Xml[Ô], [Ô][Ô]), Date.Today)
End If
MsgBox(RetC.Id)
MsgBox(RetC.chNFe)
MsgBox(RetC.cStat)
MsgBox(RetC.tpAmb)
MsgBox(RetC.xMotivo)
MsgBox(RetC.digVal)
Next
Olá pessoal,
Sobre a nova regra [Ô]Cancelamento por Evento[Ô] (NT2011.006) que entra em vigor em 01/07/12.
Estou iniciando o desenvolvimento do processo.
Seria interessante inicialmente uma xml exemplo validada pela SEFAZ.
Espero contar com a colaboração dos colegas desenvolvedores para agilizar o processo.
Ao final o resultado pode ser disponibilizado aqui no forum.
Toda ajuda é bem vinda.
Att,
Neto
Sobre a nova regra [Ô]Cancelamento por Evento[Ô] (NT2011.006) que entra em vigor em 01/07/12.
Estou iniciando o desenvolvimento do processo.
Seria interessante inicialmente uma xml exemplo validada pela SEFAZ.
Espero contar com a colaboração dos colegas desenvolvedores para agilizar o processo.
Ao final o resultado pode ser disponibilizado aqui no forum.
Toda ajuda é bem vinda.
Att,
Neto
caramba, toda hora muda algo, Cancelamento por evento, vou pesquisar aqui e oq der pra eu ajudar... ajudarei
Pessoal que rotinas vocês estão usando para contar a quantidade de paginas no danfe?
Estou precisando de ajuda pessoal pequei um projeto de orcamento e a nota fiscal tem que ser gerada on line, estou olhando o projeto da nota DANFE mas sou sincero, não sei por onde começar, e para nota fiscal online da cidade de itaborai que preciso me comunicar com o webservice, peguei os arquivos xsd, mas não sei por onde começar. Obrigado pela força.
Bom DIa!!!!
Estou gerando a carta de correção com varios eventos, eu gero 1 arquivo xml para cara evento e depois junto todos em 1 arquivo só, o arquivo dá certinho porem a assinatura dá inválida alguem sabe porque?
Estou gerando a carta de correção com varios eventos, eu gero 1 arquivo xml para cara evento e depois junto todos em 1 arquivo só, o arquivo dá certinho porem a assinatura dá inválida alguem sabe porque?
Citação:Não podemos esquecer da manifestação do destinatário que tambem esta em desenvolvimento é a ultima nota tecnica no site do portal ficsal
Com base no exemplo de Daniel, estou enviando o lote com o arquivo xml da nf-e e após uns 5 segundos exibe erro:
[Ô]A conexao subjacente estava fechada: Não foi possivel estabelecer relação de confiança para o canal seguro de SSL/TLS[Ô]
Agradeço de antemão a ajduar prestada.
[Ô]A conexao subjacente estava fechada: Não foi possivel estabelecer relação de confiança para o canal seguro de SSL/TLS[Ô]
Agradeço de antemão a ajduar prestada.
No Internet explorer, FERRAMENTAS / aba AVANÇADO, desmarquei o uso TLS 1.0 e passou pelo problema descrito acima. Agora o novo erro é
Falha na solicitação de HTTP: 404 Not found
Falha na solicitação de HTTP: 404 Not found
Atualize o windows para SP3 TCHANBOY
Faça seu login para responder