FONTE NFE VB.NET
Boa tarde,
uso a função ConsultaRecLote2 do programa desenvolvido aqui no tópico.
dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consReciNFe versao=[Ô][Ô]2.00[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] xmlns:ds=[Ô][Ô]http://www.w3.org/2000/09/xmldsig#[Ô][Ô] xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô]><tpAmb>2</tpAmb><nRec>[Ô] & NAutorizacao & [Ô]</nRec></consReciNFe>[Ô])
Ele me da esse resultado:
<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô] ?>
<consReciNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] xmlns:ds=[Ô]http://www.w3.org/2000/09/xmldsig#[Ô] xmlns:xsi=[Ô]http://www.w3.org/2001/XMLSchema-instance[Ô]>
<tpAmb>2</tpAmb>
<nRec>431000007470348</nRec>
</consReciNFe>
Salvo o retorno em um arquivo pra acompanhar retorna assim:
<retConsReciNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<tpAmb>2</tpAmb>
<verAplic>RS20100210144912</verAplic>
<nRec>431000007470348</nRec>
<cStat>242</cStat>
<xMotivo>Rejeicao: Cabecalho - Falha no Schema XML</xMotivo>
<cUF>43</cUF>
</retConsReciNFe>
[txt-color=#e80000]Obs.: Eu valido a NFe com o schema e não apresenta erros, quando envio o xml da NFe ele da esse retorno: [/txt-color]
<retEnviNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<tpAmb>2</tpAmb>
<verAplic>RS20100210155347</verAplic>
<cStat>103</cStat>
<xMotivo>Lote recebido com sucesso</xMotivo>
<cUF>43</cUF>
<dhRecbto>2011-09-22T13:51:27</dhRecbto>
<infRec>
<nRec>431000007470348</nRec>
<tMed>1</tMed>
</infRec>
</retEnviNFe>
Já tentei com vários exemplos de NFe e sempre da esse erro [Ô]Rejeicao: Cabecalho - Falha no Schema XML[Ô]
[txt-color=#0000f0]Alguem pode me tirar as seguintes dúvidas:[/txt-color]
Estou iniciando o projeto no vb.net da NFe, a empresa onde eu trabalho me disponibilizou o Certificado digital para fazer os testes porém não temos Inscrição Estadual porém consigo consumir os webservices normalmente e até agora não tive nenhum erro relacionado a IE
[txt-color=#0000f0]1º)[/txt-color] Preciso fazer alguma solicitação de uso dos webservices ou basta ter o certificado e montar as nfes para homologação.
[txt-color=#0000f0]2º)[/txt-color] Todas as mensagens de envio precisa ter esse cabeçalho do xml <?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô] ?> ?
Agradeço qualquer informação.
Abraços.
uso a função ConsultaRecLote2 do programa desenvolvido aqui no tópico.
dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consReciNFe versao=[Ô][Ô]2.00[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] xmlns:ds=[Ô][Ô]http://www.w3.org/2000/09/xmldsig#[Ô][Ô] xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô]><tpAmb>2</tpAmb><nRec>[Ô] & NAutorizacao & [Ô]</nRec></consReciNFe>[Ô])
Ele me da esse resultado:
<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô] ?>
<consReciNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] xmlns:ds=[Ô]http://www.w3.org/2000/09/xmldsig#[Ô] xmlns:xsi=[Ô]http://www.w3.org/2001/XMLSchema-instance[Ô]>
<tpAmb>2</tpAmb>
<nRec>431000007470348</nRec>
</consReciNFe>
Salvo o retorno em um arquivo pra acompanhar retorna assim:
<retConsReciNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<tpAmb>2</tpAmb>
<verAplic>RS20100210144912</verAplic>
<nRec>431000007470348</nRec>
<cStat>242</cStat>
<xMotivo>Rejeicao: Cabecalho - Falha no Schema XML</xMotivo>
<cUF>43</cUF>
</retConsReciNFe>
[txt-color=#e80000]Obs.: Eu valido a NFe com o schema e não apresenta erros, quando envio o xml da NFe ele da esse retorno: [/txt-color]
<retEnviNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<tpAmb>2</tpAmb>
<verAplic>RS20100210155347</verAplic>
<cStat>103</cStat>
<xMotivo>Lote recebido com sucesso</xMotivo>
<cUF>43</cUF>
<dhRecbto>2011-09-22T13:51:27</dhRecbto>
<infRec>
<nRec>431000007470348</nRec>
<tMed>1</tMed>
</infRec>
</retEnviNFe>
Já tentei com vários exemplos de NFe e sempre da esse erro [Ô]Rejeicao: Cabecalho - Falha no Schema XML[Ô]
[txt-color=#0000f0]Alguem pode me tirar as seguintes dúvidas:[/txt-color]
Estou iniciando o projeto no vb.net da NFe, a empresa onde eu trabalho me disponibilizou o Certificado digital para fazer os testes porém não temos Inscrição Estadual porém consigo consumir os webservices normalmente e até agora não tive nenhum erro relacionado a IE
[txt-color=#0000f0]1º)[/txt-color] Preciso fazer alguma solicitação de uso dos webservices ou basta ter o certificado e montar as nfes para homologação.
[txt-color=#0000f0]2º)[/txt-color] Todas as mensagens de envio precisa ter esse cabeçalho do xml <?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô] ?> ?
Agradeço qualquer informação.
Abraços.
Olá !
Para trazer o retorno eu passo neste formato
vXml = [Ô]<?xml version=[Ô] & Chr(34) & [Ô]1.0[Ô] & Chr(34) & [Ô] encoding=[Ô] & Chr(34) & [Ô]utf-8[Ô] & Chr(34) & [Ô]?>[Ô]
vXml = vXml & [Ô]<consReciNFe xmlns=[Ô] & Chr(34) & [Ô]http://www.portalfiscal.inf.br/nfe[Ô] & Chr(34) & [Ô] versao=[Ô] & Chr(34) & vVersao & Chr(34) & [Ô]>[Ô]
vXml = vXml & [Ô]<tpAmb>[Ô] & vAmb & [Ô]</tpAmb>[Ô]
vXml = vXml & [Ô]<nRec>[Ô] & vRecibo & [Ô]</nRec>[Ô]
vXml = vXml & [Ô]</consReciNFe>[Ô]
Para trazer o retorno eu passo neste formato
vXml = [Ô]<?xml version=[Ô] & Chr(34) & [Ô]1.0[Ô] & Chr(34) & [Ô] encoding=[Ô] & Chr(34) & [Ô]utf-8[Ô] & Chr(34) & [Ô]?>[Ô]
vXml = vXml & [Ô]<consReciNFe xmlns=[Ô] & Chr(34) & [Ô]http://www.portalfiscal.inf.br/nfe[Ô] & Chr(34) & [Ô] versao=[Ô] & Chr(34) & vVersao & Chr(34) & [Ô]>[Ô]
vXml = vXml & [Ô]<tpAmb>[Ô] & vAmb & [Ô]</tpAmb>[Ô]
vXml = vXml & [Ô]<nRec>[Ô] & vRecibo & [Ô]</nRec>[Ô]
vXml = vXml & [Ô]</consReciNFe>[Ô]
Boa noite LUZINETE,
Fiz dessa forma que você informou más continuo na mesma.
literalmente não sei mais o que fazer.
Fiz dessa forma que você informou más continuo na mesma.
literalmente não sei mais o que fazer.
Bom dia BARROS,
Essa sua função é de consultar a NFe quando ela é processada e em seguida gerado a chave de acesso.
no meu caso essa chave ainda não foi gerada, vou postar o xml que to utilizando no envio pra vcs verem se tem algum erro.
[txt-color=#e80000]<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô] ?>
- <enviNFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]2.00[Ô]>
<idLote>000000000000002</idLote>
- <NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
- <infNFe versao=[Ô]2.00[Ô] Id=[Ô]NFe25110604509437000106550010000020641000020648[Ô]>
- <ide>
<cUF>25</cUF>
<cNF>00002611</cNF>
<natOp>VENDA CF</natOp>
<indPag>1</indPag>
<mod>55</mod>
<serie>1</serie>
<nNF>2611</nNF>
<dEmi>2011-09-21</dEmi>
<dSaiEnt>2011-09-21</dSaiEnt>
<tpNF>1</tpNF>
<cMunFG>2504009</cMunFG>
<tpImp>1</tpImp>
<tpEmis>1</tpEmis>
<cDV>1</cDV>
<tpAmb>2</tpAmb>
<finNFe>1</finNFe>
<procEmi>0</procEmi>
<verProc>1.0</verProc>
</ide>
- <emit>
<CNPJ>03361256000112</CNPJ>
<xNome>USUARIO TESTE</xNome>
<xFant>USUARIO TESTE</xFant>
- <enderEmit>
<xLgr>AV RIO BRANCO</xLgr>
<nro>275</nro>
<xBairro>CENTRO</xBairro>
<cMun>2504009</cMun>
<xMun>CAMPINA GRANDE</xMun>
<UF>PB</UF>
<CEP>58101470</CEP>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
<fone>33413368</fone>
</enderEmit>
<IE>ISENTO</IE>
<CRT>3</CRT>
</emit>
- <dest>
<CPF>51166356434</CPF>
<xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome>
- <enderDest>
<xLgr>RUA AGAMENON MAGALHAES</xLgr>
<nro>796</nro>
<xBairro>ALTO BRANCO</xBairro>
<cMun>2504009</cMun>
<xMun>CAMPINA GRANDE</xMun>
<UF>PB</UF>
<CEP>58100000</CEP>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
<fone>99853588</fone>
</enderDest>
<IE>ISENTO</IE>
</dest>
- <det nItem=[Ô]1[Ô]>
- <prod>
<cProd>01787</cProd>
<cEAN />
<xProd>PROC. INTEL CORE 2 DUO E7500 2.93GHZ</xProd>
<NCM>85423120</NCM>
<CFOP>5929</CFOP>
<uCom>UND</uCom>
<qCom>1.0000</qCom>
<vUnCom>318.0000000000</vUnCom>
<vProd>318.00</vProd>
<cEANTrib />
<uTrib>UND</uTrib>
<qTrib>1.0000</qTrib>
<vUnTrib>0.0000000000</vUnTrib>
<indTot>1</indTot>
</prod>
- <imposto>
- <ICMS>
- <ICMS90>
<orig>2</orig>
<CST>90</CST>
<modBC>0</modBC>
<vBC>0.00</vBC>
<pICMS>0.00</pICMS>
<vICMS>0.00</vICMS>
<modBCST>0</modBCST>
<vBCST>0.00</vBCST>
<pICMSST>0.00</pICMSST>
<vICMSST>0.00</vICMSST>
</ICMS90>
</ICMS>
- <PIS>
- <PISAliq>
<CST>01</CST>
<vBC>318.00</vBC>
<pPIS>1.65</pPIS>
<vPIS>5.25</vPIS>
</PISAliq>
</PIS>
- <COFINS>
- <COFINSAliq>
<CST>01</CST>
<vBC>318.00</vBC>
<pCOFINS>7.60</pCOFINS>
<vCOFINS>24.17</vCOFINS>
</COFINSAliq>
</COFINS>
</imposto>
</det>
- <total>
- <ICMSTot>
<vBC>0.00</vBC>
<vICMS>0.00</vICMS>
<vBCST>0.00</vBCST>
<vST>0.00</vST>
<vProd>318.00</vProd>
<vFrete>0.00</vFrete>
<vSeg>0.00</vSeg>
<vDesc>0.00</vDesc>
<vII>0.00</vII>
<vIPI>0.00</vIPI>
<vPIS>5.25</vPIS>
<vCOFINS>24.17</vCOFINS>
<vOutro>0.00</vOutro>
<vNF>318.00</vNF>
</ICMSTot>
</total>
- <transp>
<modFrete>1</modFrete>
- <transporta>
<CPF>51166356434</CPF>
<xNome>EVANDRO NUNES DE ARAUJO</xNome>
<xEnder>RUA AGAMENON MAGALHAES</xEnder>
<xMun>CAMPINA GRANDE</xMun>
<UF>PB</UF>
</transporta>
- <vol>
<qVol>1</qVol>
<nVol>1</nVol>
</vol>
</transp>
</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=[Ô]#NFe25110604509437000106550010000020641000020648[Ô]>
- <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>eUjz7zQRc9zoTgWtTtdeU03qaJQ=</DigestValue>
</Reference>
</SignedInfo>
<SignatureValue>xtm4TCcpM77mZnmm5E5E+WRrNPyEUYxgAbltZZXSTpjNp3HoJgsqc0joiIEX1IDTQ4MC4fpAN6YyNz+iny7Y0abzpFUxrR8vhd2vhqsL1b+mFgpVn8BbiIiJfiSeIUe0at+0RM4sDisjHgMfgAnzQJ8lUYxu8ZgZlFUHuXRdPVFAsFltLZzeOlRGJRhctk7bvn8t1njptJT1VjUBkDgl3uydw2RyQcXMX4tCoNwaXE84d4QxTz+KC7OV8khAaMrIQXP0AikM2GRyoYBTpt4dF+oe6v0h1B1nAmhW/JkiFDSrvtMaZ+hGU2DhDzB32L2sIWxYTngoQVrniSzMYGFgCg==</SignatureValue>
- <KeyInfo>
- <X509Data>
<X509Certificate>MIIGjjCCBXagAwIBAgIQMjAxMTA0MjUxMjIwNDY2MDANBgkqhkiG9w0BAQUFADCBijELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEuMCwGA1UEAxMlQXV0b3JpZGFkZSBDZXJ0aWZpY2Fkb3JhIGRvIFNFUlBST1JGQjAeFw0xMTA0MjUxMzQ2MjdaFw0xMjA0MjQxMjQzMjFaMIHqMQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMREwDwYDVQQLEwhDT1JSRUlPUzETMBEGA1UECxMKQVJDT1JSRUlPUzEWMBQGA1UECxMNUkZCIGUtQ05QSiBBMTEXMBUGA1UEBxMOQ0FNUElOQSBHUkFOREUxCzAJBgNVBAgTAlBCMSgwJgYDVQQDEx9DRyBTSVNURU1BUyBMVERBOjAzMzYxMjU2MDAwMTEyMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA2Ph9PLM+yknTagTAg3kKKGW6Hoor745pm8VuSghox21iNUfRT/CkcAFs6fkYNOoF5tjHXtfP/W1oYUtQ7riH7mvRsMVpkvo+LswH85baufgCnNd6B9eC4zutBQ2MhybFWqKvESlbWxde4FRYqht6nTlpS72BPgVGjlP2K3+P+0rLOSN2cn2blY7MoELsdGTQPXaR0vmJEDlDTxr8URBTi8RJao55lufCbI5HE445d9E3i6aiQCTOBITm6NiOrXD1auZwbMTwTaNGyT4NCqs2fHg4WBBKN4e13MZbj5rUAoJNmZSNZzqUl5yNU6pVY078hzEOyLZyrUQHMuZXbbwcgwIDAQABo4ICjDCCAogwDwYDVR0TAQH/BAUwAwEBADAfBgNVHSMEGDAWgBS5IouGJEbnoq3nKTuMaDtNrXSRFDAOBgNVHQ8BAf8EBAMCBeAwYAYDVR0gBFkwVzBVBgZgTAECAQowSzBJBggrBgEFBQcCARY9aHR0cHM6Ly9jY2Quc2VycHJvLmdvdi5ici9hY3NlcnByb3JmYi9kb2NzL2RwY2Fjc2VycHJvcmZiLnBkZjCBxgYDVR0RBIG+MIG7oD0GBWBMAQMEoDQEMjA1MDkxOTY4Njc0Mzc0Mjc0MDAwMDAwMDAwMDAwMDAwMDAwMDAwMTQ5ODA0MlNTUFBCoCgGBWBMAQMCoB8EHUxBRUNJTyBOVUJJTyBERSBPTElWRUlSQSBGQU1BoBkGBWBMAQMDoBAEDjAzMzYxMjU2MDAwMTEyoBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEcQ0dTSVNURU1BU0BDR1NJU1RFTUFTLkNPTS5CUjAgBgNVHSUBAf8EFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgagGA1UdHwSBoDCBnTAyoDCgLoYsaHR0cDovL2NjZC5zZXJwcm8uZ292LmJyL2xjci9hY3NlcnByb3JmYi5jcmwwM6AxoC+GLWh0dHA6Ly9jY2QyLnNlcnByby5nb3YuYnIvbGNyL2Fjc2VycHJvcmZiLmNybDAyoDCgLoYsaHR0cDovL3d3dy5pdGkuZ292LmJyL3NlcnByby9hY3NlcnByb3JmYi5jcmwwTAYIKwYBBQUHAQEEQDA+MDwGCCsGAQUFBzAChjBodHRwOi8vY2NkLnNlcnByby5nb3YuYnIvY2FkZWlhcy9hY3NlcnByb3JmYi5wN2IwDQYJKoZIhvcNAQEFBQADggEBAMoK5uRlwkGc7pcKscGOclY1oK7TwBgmKenfbC2pnJuMJYNUr04KCfrazIMuUg2wAq0wOeZUNGaMQV7KbcGBDXUQVA0kldUVsTL7YzEYatwvLoxk9phIV719DktDQDI8ZYCQLSocPaJi3hRIFy08yl/eBlJIdfYXhpZNMTF3NTgTKsOIZe9J/YkkNiUKa9kfhfzABiN5hrN1u1hXxp0CrY0uAvccO9STfamvT2KB8Qx4hm8CpdE+AHtjNuykjW4q2S/98cMQzVU5RiLwyeQkpVFU2bdwdkMlXDZCVtOjuFiFhOsmK1R0+ZDX9Z8XjSkw1vL40s8tp4eBvZQuLNrKdoM=</X509Certificate>
</X509Data>
</KeyInfo>
</Signature>
</NFe>
</enviNFe>[/txt-color]
Tô usando o webservice do RS.
Abraços.
Essa sua função é de consultar a NFe quando ela é processada e em seguida gerado a chave de acesso.
no meu caso essa chave ainda não foi gerada, vou postar o xml que to utilizando no envio pra vcs verem se tem algum erro.
[txt-color=#e80000]<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô] ?>
- <enviNFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]2.00[Ô]>
<idLote>000000000000002</idLote>
- <NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
- <infNFe versao=[Ô]2.00[Ô] Id=[Ô]NFe25110604509437000106550010000020641000020648[Ô]>
- <ide>
<cUF>25</cUF>
<cNF>00002611</cNF>
<natOp>VENDA CF</natOp>
<indPag>1</indPag>
<mod>55</mod>
<serie>1</serie>
<nNF>2611</nNF>
<dEmi>2011-09-21</dEmi>
<dSaiEnt>2011-09-21</dSaiEnt>
<tpNF>1</tpNF>
<cMunFG>2504009</cMunFG>
<tpImp>1</tpImp>
<tpEmis>1</tpEmis>
<cDV>1</cDV>
<tpAmb>2</tpAmb>
<finNFe>1</finNFe>
<procEmi>0</procEmi>
<verProc>1.0</verProc>
</ide>
- <emit>
<CNPJ>03361256000112</CNPJ>
<xNome>USUARIO TESTE</xNome>
<xFant>USUARIO TESTE</xFant>
- <enderEmit>
<xLgr>AV RIO BRANCO</xLgr>
<nro>275</nro>
<xBairro>CENTRO</xBairro>
<cMun>2504009</cMun>
<xMun>CAMPINA GRANDE</xMun>
<UF>PB</UF>
<CEP>58101470</CEP>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
<fone>33413368</fone>
</enderEmit>
<IE>ISENTO</IE>
<CRT>3</CRT>
</emit>
- <dest>
<CPF>51166356434</CPF>
<xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome>
- <enderDest>
<xLgr>RUA AGAMENON MAGALHAES</xLgr>
<nro>796</nro>
<xBairro>ALTO BRANCO</xBairro>
<cMun>2504009</cMun>
<xMun>CAMPINA GRANDE</xMun>
<UF>PB</UF>
<CEP>58100000</CEP>
<cPais>1058</cPais>
<xPais>BRASIL</xPais>
<fone>99853588</fone>
</enderDest>
<IE>ISENTO</IE>
</dest>
- <det nItem=[Ô]1[Ô]>
- <prod>
<cProd>01787</cProd>
<cEAN />
<xProd>PROC. INTEL CORE 2 DUO E7500 2.93GHZ</xProd>
<NCM>85423120</NCM>
<CFOP>5929</CFOP>
<uCom>UND</uCom>
<qCom>1.0000</qCom>
<vUnCom>318.0000000000</vUnCom>
<vProd>318.00</vProd>
<cEANTrib />
<uTrib>UND</uTrib>
<qTrib>1.0000</qTrib>
<vUnTrib>0.0000000000</vUnTrib>
<indTot>1</indTot>
</prod>
- <imposto>
- <ICMS>
- <ICMS90>
<orig>2</orig>
<CST>90</CST>
<modBC>0</modBC>
<vBC>0.00</vBC>
<pICMS>0.00</pICMS>
<vICMS>0.00</vICMS>
<modBCST>0</modBCST>
<vBCST>0.00</vBCST>
<pICMSST>0.00</pICMSST>
<vICMSST>0.00</vICMSST>
</ICMS90>
</ICMS>
- <PIS>
- <PISAliq>
<CST>01</CST>
<vBC>318.00</vBC>
<pPIS>1.65</pPIS>
<vPIS>5.25</vPIS>
</PISAliq>
</PIS>
- <COFINS>
- <COFINSAliq>
<CST>01</CST>
<vBC>318.00</vBC>
<pCOFINS>7.60</pCOFINS>
<vCOFINS>24.17</vCOFINS>
</COFINSAliq>
</COFINS>
</imposto>
</det>
- <total>
- <ICMSTot>
<vBC>0.00</vBC>
<vICMS>0.00</vICMS>
<vBCST>0.00</vBCST>
<vST>0.00</vST>
<vProd>318.00</vProd>
<vFrete>0.00</vFrete>
<vSeg>0.00</vSeg>
<vDesc>0.00</vDesc>
<vII>0.00</vII>
<vIPI>0.00</vIPI>
<vPIS>5.25</vPIS>
<vCOFINS>24.17</vCOFINS>
<vOutro>0.00</vOutro>
<vNF>318.00</vNF>
</ICMSTot>
</total>
- <transp>
<modFrete>1</modFrete>
- <transporta>
<CPF>51166356434</CPF>
<xNome>EVANDRO NUNES DE ARAUJO</xNome>
<xEnder>RUA AGAMENON MAGALHAES</xEnder>
<xMun>CAMPINA GRANDE</xMun>
<UF>PB</UF>
</transporta>
- <vol>
<qVol>1</qVol>
<nVol>1</nVol>
</vol>
</transp>
</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=[Ô]#NFe25110604509437000106550010000020641000020648[Ô]>
- <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>eUjz7zQRc9zoTgWtTtdeU03qaJQ=</DigestValue>
</Reference>
</SignedInfo>
<SignatureValue>xtm4TCcpM77mZnmm5E5E+WRrNPyEUYxgAbltZZXSTpjNp3HoJgsqc0joiIEX1IDTQ4MC4fpAN6YyNz+iny7Y0abzpFUxrR8vhd2vhqsL1b+mFgpVn8BbiIiJfiSeIUe0at+0RM4sDisjHgMfgAnzQJ8lUYxu8ZgZlFUHuXRdPVFAsFltLZzeOlRGJRhctk7bvn8t1njptJT1VjUBkDgl3uydw2RyQcXMX4tCoNwaXE84d4QxTz+KC7OV8khAaMrIQXP0AikM2GRyoYBTpt4dF+oe6v0h1B1nAmhW/JkiFDSrvtMaZ+hGU2DhDzB32L2sIWxYTngoQVrniSzMYGFgCg==</SignatureValue>
- <KeyInfo>
- <X509Data>
<X509Certificate>MIIGjjCCBXagAwIBAgIQMjAxMTA0MjUxMjIwNDY2MDANBgkqhkiG9w0BAQUFADCBijELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEuMCwGA1UEAxMlQXV0b3JpZGFkZSBDZXJ0aWZpY2Fkb3JhIGRvIFNFUlBST1JGQjAeFw0xMTA0MjUxMzQ2MjdaFw0xMjA0MjQxMjQzMjFaMIHqMQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMREwDwYDVQQLEwhDT1JSRUlPUzETMBEGA1UECxMKQVJDT1JSRUlPUzEWMBQGA1UECxMNUkZCIGUtQ05QSiBBMTEXMBUGA1UEBxMOQ0FNUElOQSBHUkFOREUxCzAJBgNVBAgTAlBCMSgwJgYDVQQDEx9DRyBTSVNURU1BUyBMVERBOjAzMzYxMjU2MDAwMTEyMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA2Ph9PLM+yknTagTAg3kKKGW6Hoor745pm8VuSghox21iNUfRT/CkcAFs6fkYNOoF5tjHXtfP/W1oYUtQ7riH7mvRsMVpkvo+LswH85baufgCnNd6B9eC4zutBQ2MhybFWqKvESlbWxde4FRYqht6nTlpS72BPgVGjlP2K3+P+0rLOSN2cn2blY7MoELsdGTQPXaR0vmJEDlDTxr8URBTi8RJao55lufCbI5HE445d9E3i6aiQCTOBITm6NiOrXD1auZwbMTwTaNGyT4NCqs2fHg4WBBKN4e13MZbj5rUAoJNmZSNZzqUl5yNU6pVY078hzEOyLZyrUQHMuZXbbwcgwIDAQABo4ICjDCCAogwDwYDVR0TAQH/BAUwAwEBADAfBgNVHSMEGDAWgBS5IouGJEbnoq3nKTuMaDtNrXSRFDAOBgNVHQ8BAf8EBAMCBeAwYAYDVR0gBFkwVzBVBgZgTAECAQowSzBJBggrBgEFBQcCARY9aHR0cHM6Ly9jY2Quc2VycHJvLmdvdi5ici9hY3NlcnByb3JmYi9kb2NzL2RwY2Fjc2VycHJvcmZiLnBkZjCBxgYDVR0RBIG+MIG7oD0GBWBMAQMEoDQEMjA1MDkxOTY4Njc0Mzc0Mjc0MDAwMDAwMDAwMDAwMDAwMDAwMDAwMTQ5ODA0MlNTUFBCoCgGBWBMAQMCoB8EHUxBRUNJTyBOVUJJTyBERSBPTElWRUlSQSBGQU1BoBkGBWBMAQMDoBAEDjAzMzYxMjU2MDAwMTEyoBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEcQ0dTSVNURU1BU0BDR1NJU1RFTUFTLkNPTS5CUjAgBgNVHSUBAf8EFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgagGA1UdHwSBoDCBnTAyoDCgLoYsaHR0cDovL2NjZC5zZXJwcm8uZ292LmJyL2xjci9hY3NlcnByb3JmYi5jcmwwM6AxoC+GLWh0dHA6Ly9jY2QyLnNlcnByby5nb3YuYnIvbGNyL2Fjc2VycHJvcmZiLmNybDAyoDCgLoYsaHR0cDovL3d3dy5pdGkuZ292LmJyL3NlcnByby9hY3NlcnByb3JmYi5jcmwwTAYIKwYBBQUHAQEEQDA+MDwGCCsGAQUFBzAChjBodHRwOi8vY2NkLnNlcnByby5nb3YuYnIvY2FkZWlhcy9hY3NlcnByb3JmYi5wN2IwDQYJKoZIhvcNAQEFBQADggEBAMoK5uRlwkGc7pcKscGOclY1oK7TwBgmKenfbC2pnJuMJYNUr04KCfrazIMuUg2wAq0wOeZUNGaMQV7KbcGBDXUQVA0kldUVsTL7YzEYatwvLoxk9phIV719DktDQDI8ZYCQLSocPaJi3hRIFy08yl/eBlJIdfYXhpZNMTF3NTgTKsOIZe9J/YkkNiUKa9kfhfzABiN5hrN1u1hXxp0CrY0uAvccO9STfamvT2KB8Qx4hm8CpdE+AHtjNuykjW4q2S/98cMQzVU5RiLwyeQkpVFU2bdwdkMlXDZCVtOjuFiFhOsmK1R0+ZDX9Z8XjSkw1vL40s8tp4eBvZQuLNrKdoM=</X509Certificate>
</X509Data>
</KeyInfo>
</Signature>
</NFe>
</enviNFe>[/txt-color]
Tô usando o webservice do RS.
Abraços.
Eu uso uma semelhante más modifiquei pra ficar parecida com a sua e ainda assim continua o erro:
Public Function ConsultaRecLote2(ByVal NAutorizacao As String) As RetRetorno
Dim strRetorno As XmlElement
Dim CERT As X509Certificate2
[ô]BUSCA CERTIFICADO SE DEIXAR EM BRANCO ABRE JANELA DE SELEÇÃO DO WINDOWS
CERT = SelecionarCertificado([Ô][Ô])
Try
Dim wsMsg As NfeRetRecepcao2
Dim cab As New nfeCabecMsg
cab.cUF = 43
cab.versaoDados = [Ô]2.00[Ô]
[ô]CRIA UMA INSTANCIA DA CONEXÃO COM O WEBSERVICE
wsMsg = New NfeRetRecepcao2()
[ô]ASSOCIA CABEÇALHO NFE
wsMsg.nfeCabecMsgValue = cab
[ô]DEFINE TEMPO MAXIMO DE ESPERA POR RETORNO
wsMsg.Timeout = 100000
[ô]ASSOCIA CERTIFICADO A CONEXAO WEBSERVICE
wsMsg.ClientCertificates.Add(CERT)
[ô]DEFINE PROTOCOLO USADO NA CONEXÃO
wsMsg.SoapVersion = SoapProtocolVersion.Soap12
[ô]CRIA UM NOVO DOCUMENTO XML
Dim dados As XmlDocument = New XmlDocument
[ô]ASSOCIA O NOVO XML COM A VARIAVEL DE RETORNO DA SEFAZ
[ô]dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]utf-8[Ô][Ô]?><consReciNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]><tpAmb>2</tpAmb><nRec>[Ô] & NAutorizacao & [Ô]</nRec></consReciNFe>[Ô])
Dim sDados As String
sDados = vbNullString
sDados &= [Ô]<consReciNFe xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô] versao=[ô]2.00[ô]>[Ô]
sDados &= [Ô]<tpAmb>2</tpAmb><nRec>[Ô]
sDados &= NAutorizacao
sDados &= [Ô]</nRec></consReciNFe>[Ô]
dados.LoadXml(sDados)
[ô]dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consReciNFe versao=[Ô][Ô]2.00[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] xmlns:ds=[Ô][Ô]http://www.w3.org/2000/09/xmldsig#[Ô][Ô] xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô]><tpAmb>2</tpAmb><nRec>[Ô] & NAutorizacao & [Ô]</nRec></consReciNFe>[Ô])
[ô]ValidarXML(dados, [Ô]q:\consReciNFe.xsd[Ô])
[ô]ENVIA CONSULTA PARA SEFAZ E OBTEM RETORNO EM FORMATO STRING
strRetorno = wsMsg.nfeRetRecepcao2(dados)
dados.Save([Ô]q:\consrecinfe.xml[Ô])
Dim doc As New XmlDocument
doc.LoadXml(strRetorno.OuterXml)
doc.Save([Ô]q:\Retorno.xml[Ô])
[ô]DESMEMBRA RETORNO XML
[ô]-----------------------------------------------------------------------------------
[ô]VARIAVER QUE VAI RECEBER O RETORNO
Dim Retornos As New RetRetorno
[ô]CRIA LISTA PARA RECEBER RETORNOS
Retornos.L_Retornos = New List(Of RetRecibo)
[ô]VARIAVEL QUE VAI RECEBER A LISTA ANTES DE SER COLOCADA NO RETORNO
Dim VarRecibo As New RetRecibo
[ô]PERCORRE TODOS OS NOS DO XML E PROCURA A TAG DE RETORNO infProt
For Each outerNode As XmlNode In strRetorno
[ô]PARA CADA NO VERIFICA SE O MESMO POSSUI FILHOS E VARRE OS MESMOS
If (outerNode.Name = [Ô]tpAmb[Ô]) Then
Retornos.tpAmb = outerNode.InnerText
End If
If (outerNode.Name = [Ô]verAplic[Ô]) Then
Retornos.verAplic = outerNode.InnerText
End If
If (outerNode.Name = [Ô]nRec[Ô]) Then
Retornos.nRec = outerNode.InnerText
End If
If (outerNode.Name = [Ô]cStat[Ô]) Then
Retornos.cStat = outerNode.InnerText
End If
If (outerNode.Name = [Ô]xMotivo[Ô]) Then
Retornos.xMotivo = outerNode.InnerText
End If
If (outerNode.Name = [Ô]cUF[Ô]) Then
Retornos.cUF = outerNode.InnerText
End If
For Each InnerNode As XmlNode In outerNode.ChildNodes
[ô]SE O NOME DO NO FOR infProt ENTRA NO MESMO
If InnerNode.Name = [Ô]infProt[Ô] Then
[ô]PEGA A VARIAVEL ID QUE é UM ATRIBUTO E NAO UM ITEM
VarRecibo.Id = InnerNode.Attributes.ItemOf([Ô]Id[Ô]).InnerText
[ô]PERCORRE CAMPOS DO RETORNO PARA CAPTURAR AS INFORMAÇÕES
For Each InnerNode2 As XmlNode In InnerNode.ChildNodes
If (InnerNode2.Name = [Ô]tpAmb[Ô]) Then
VarRecibo.tpAmb = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]verAplic[Ô]) Then
VarRecibo.verAplic = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]chNFe[Ô]) Then
VarRecibo.chNFe = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]dhRecbto[Ô]) Then
VarRecibo.dhRecbto = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]digVal[Ô]) Then
VarRecibo.digVal = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]cStat[Ô]) Then
VarRecibo.cStat = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]xMotivo[Ô]) Then
VarRecibo.xMotivo = InnerNode2.InnerText
End If
Next
[ô]ADICIONA A NOTA NA LISTA DE RETORNO
Retornos.L_Retornos.Add(VarRecibo)
End If
Next
Next
Return Retornos
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, [Ô][Ô])
Return Nothing
End Try
End Function[th]
[txt-color=#0000f0]Tem a v com o certificado?[/txt-color]
Public Function ConsultaRecLote2(ByVal NAutorizacao As String) As RetRetorno
Dim strRetorno As XmlElement
Dim CERT As X509Certificate2
[ô]BUSCA CERTIFICADO SE DEIXAR EM BRANCO ABRE JANELA DE SELEÇÃO DO WINDOWS
CERT = SelecionarCertificado([Ô][Ô])
Try
Dim wsMsg As NfeRetRecepcao2
Dim cab As New nfeCabecMsg
cab.cUF = 43
cab.versaoDados = [Ô]2.00[Ô]
[ô]CRIA UMA INSTANCIA DA CONEXÃO COM O WEBSERVICE
wsMsg = New NfeRetRecepcao2()
[ô]ASSOCIA CABEÇALHO NFE
wsMsg.nfeCabecMsgValue = cab
[ô]DEFINE TEMPO MAXIMO DE ESPERA POR RETORNO
wsMsg.Timeout = 100000
[ô]ASSOCIA CERTIFICADO A CONEXAO WEBSERVICE
wsMsg.ClientCertificates.Add(CERT)
[ô]DEFINE PROTOCOLO USADO NA CONEXÃO
wsMsg.SoapVersion = SoapProtocolVersion.Soap12
[ô]CRIA UM NOVO DOCUMENTO XML
Dim dados As XmlDocument = New XmlDocument
[ô]ASSOCIA O NOVO XML COM A VARIAVEL DE RETORNO DA SEFAZ
[ô]dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]utf-8[Ô][Ô]?><consReciNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]><tpAmb>2</tpAmb><nRec>[Ô] & NAutorizacao & [Ô]</nRec></consReciNFe>[Ô])
Dim sDados As String
sDados = vbNullString
sDados &= [Ô]<consReciNFe xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô] versao=[ô]2.00[ô]>[Ô]
sDados &= [Ô]<tpAmb>2</tpAmb><nRec>[Ô]
sDados &= NAutorizacao
sDados &= [Ô]</nRec></consReciNFe>[Ô]
dados.LoadXml(sDados)
[ô]dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consReciNFe versao=[Ô][Ô]2.00[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] xmlns:ds=[Ô][Ô]http://www.w3.org/2000/09/xmldsig#[Ô][Ô] xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô]><tpAmb>2</tpAmb><nRec>[Ô] & NAutorizacao & [Ô]</nRec></consReciNFe>[Ô])
[ô]ValidarXML(dados, [Ô]q:\consReciNFe.xsd[Ô])
[ô]ENVIA CONSULTA PARA SEFAZ E OBTEM RETORNO EM FORMATO STRING
strRetorno = wsMsg.nfeRetRecepcao2(dados)
dados.Save([Ô]q:\consrecinfe.xml[Ô])
Dim doc As New XmlDocument
doc.LoadXml(strRetorno.OuterXml)
doc.Save([Ô]q:\Retorno.xml[Ô])
[ô]DESMEMBRA RETORNO XML
[ô]-----------------------------------------------------------------------------------
[ô]VARIAVER QUE VAI RECEBER O RETORNO
Dim Retornos As New RetRetorno
[ô]CRIA LISTA PARA RECEBER RETORNOS
Retornos.L_Retornos = New List(Of RetRecibo)
[ô]VARIAVEL QUE VAI RECEBER A LISTA ANTES DE SER COLOCADA NO RETORNO
Dim VarRecibo As New RetRecibo
[ô]PERCORRE TODOS OS NOS DO XML E PROCURA A TAG DE RETORNO infProt
For Each outerNode As XmlNode In strRetorno
[ô]PARA CADA NO VERIFICA SE O MESMO POSSUI FILHOS E VARRE OS MESMOS
If (outerNode.Name = [Ô]tpAmb[Ô]) Then
Retornos.tpAmb = outerNode.InnerText
End If
If (outerNode.Name = [Ô]verAplic[Ô]) Then
Retornos.verAplic = outerNode.InnerText
End If
If (outerNode.Name = [Ô]nRec[Ô]) Then
Retornos.nRec = outerNode.InnerText
End If
If (outerNode.Name = [Ô]cStat[Ô]) Then
Retornos.cStat = outerNode.InnerText
End If
If (outerNode.Name = [Ô]xMotivo[Ô]) Then
Retornos.xMotivo = outerNode.InnerText
End If
If (outerNode.Name = [Ô]cUF[Ô]) Then
Retornos.cUF = outerNode.InnerText
End If
For Each InnerNode As XmlNode In outerNode.ChildNodes
[ô]SE O NOME DO NO FOR infProt ENTRA NO MESMO
If InnerNode.Name = [Ô]infProt[Ô] Then
[ô]PEGA A VARIAVEL ID QUE é UM ATRIBUTO E NAO UM ITEM
VarRecibo.Id = InnerNode.Attributes.ItemOf([Ô]Id[Ô]).InnerText
[ô]PERCORRE CAMPOS DO RETORNO PARA CAPTURAR AS INFORMAÇÕES
For Each InnerNode2 As XmlNode In InnerNode.ChildNodes
If (InnerNode2.Name = [Ô]tpAmb[Ô]) Then
VarRecibo.tpAmb = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]verAplic[Ô]) Then
VarRecibo.verAplic = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]chNFe[Ô]) Then
VarRecibo.chNFe = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]dhRecbto[Ô]) Then
VarRecibo.dhRecbto = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]digVal[Ô]) Then
VarRecibo.digVal = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]cStat[Ô]) Then
VarRecibo.cStat = InnerNode2.InnerText
End If
If (InnerNode2.Name = [Ô]xMotivo[Ô]) Then
VarRecibo.xMotivo = InnerNode2.InnerText
End If
Next
[ô]ADICIONA A NOTA NA LISTA DE RETORNO
Retornos.L_Retornos.Add(VarRecibo)
End If
Next
Next
Return Retornos
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, [Ô][Ô])
Return Nothing
End Try
End Function
| Cabecalho | [/th]
[txt-color=#0000f0]Tem a v com o certificado?[/txt-color]
BARROS,
Quando eu valido ele não acusa erros ai eu de proposito vou la e manipulo um campo do xml e logo ele retorna erro na hora de validar.
Surgiu uma dúvida, por isso não acredito que seja o xml.
Eu preciso pedir permissão em algum orgão, ou basta eu ter um certificado digital e-CNPJ?
grato.
Quando eu valido ele não acusa erros ai eu de proposito vou la e manipulo um campo do xml e logo ele retorna erro na hora de validar.
Surgiu uma dúvida, por isso não acredito que seja o xml.
Eu preciso pedir permissão em algum orgão, ou basta eu ter um certificado digital e-CNPJ?
grato.
Faça seu login para responder