FONTE NFE VB.NET

NILSONTRES 15/09/2012 08:44:48
#409732
Descobri, a versão dados estava 2.0 ao invés de 2.00

Obrigado Pessoal.
MFLAVIO 15/09/2012 14:12:55
#409744
Aproveitando o ensejo eu também não consegui pegar o status de serviço

tentei adaptar uma rotina mais não deu certo

rotina

  Public Function funConsultaStatus() As String

        Try
            Dim xHeaderMsg As New XmlDocument
            Dim strUrl As String
            Dim strXML As String

            Pnome = LeArquivoINI(nome_arquivo_ini, [Ô]Nota[Ô], [Ô]hambiente[Ô], [Ô]Configure[Ô])
            If UrlAcesso.CodigoUF = [Ô][Ô] Then
                UrlAcesso = BuscaURL(MinhaUF, Pnome)
            End If
            strUrl = UrlAcesso.UrlNfeStatusServico

            Dim wSer As New NfeStatusServico2(strUrl)
            Dim wCab As New nfeCabecMsg
            Dim certificado As X509Certificate2 = CertificadoDigital.SelecionarCertificado([Ô][Ô])
            Dim retorno As New Object

            wSer = New NfeStatusServico2(strUrl)

            [ô]Seleção do Certificado
            [ô]======================

            wCab.cUF = UrlAcesso.CodigoUF
            wCab.versaoDados = [Ô]2.00[Ô]
            If Pnome = [Ô]HOMOLOGAÇÃO[Ô] Then
                Pnome = 2
            Else
                Pnome = 1
            End If

            strXML = [Ô]<?xml version=[Ô] & [Ô][Ô][Ô]1.0[Ô][Ô][Ô] & [Ô] encoding=[Ô] & [Ô][Ô][Ô]utf-8[Ô][Ô][Ô] & [Ô]?>[Ô]
            strXML = strXML & [Ô]<soap12:Envelope xmlns:xsi=[Ô] & [Ô][Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] [Ô]
            strXML = strXML & [Ô]xmlns:xsd=[Ô] & [Ô][Ô][Ô]http://www.w3.org/2001/XMLSchema[Ô][Ô] [Ô]
            strXML = strXML & [Ô]xmlns:soap12=[Ô] & [Ô][Ô][Ô]http://www.w3.org/2003/05/soap-envelope[Ô][Ô][Ô] & [Ô]>[Ô]
            strXML = strXML & [Ô]<soap12:Header>[Ô]
            strXML = strXML & [Ô]<nfeCabecMsg xmlns=[Ô] & [Ô][Ô][Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2[Ô][Ô][Ô] & [Ô]>[Ô]
            strXML = strXML & [Ô]<versaoDados>2.00</versaoDados>[Ô]
            strXML = strXML & [Ô]<cUF>[Ô] & wCab.cUF & [Ô]</cUF>[Ô]
            strXML = strXML & [Ô]</nfeCabecMsg>[Ô]
            strXML = strXML & [Ô]</soap12:Header>[Ô]
            strXML = strXML & [Ô]<soap12:Body>[Ô]
            strXML = strXML & [Ô]<nfeDadosMsg xmlns=[Ô] & [Ô][Ô][Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2[Ô][Ô][Ô] & [Ô]>[Ô]
            strXML = strXML & [Ô]<consStatServ xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô] versao=[ô]2.00[ô]>[Ô]
            strXML = strXML & [Ô]<tpAmb>[Ô] & Pnome & [Ô]</tpAmb>[Ô]
            strXML = strXML & [Ô]<cUF>[Ô] & wCab.cUF & [Ô]</cUF>[Ô]
            strXML = strXML & [Ô]<xServ>STATUS</xServ>[Ô]
            strXML = strXML & [Ô]</consStatServ>[Ô]
            strXML = strXML & [Ô]</nfeDadosMsg>[Ô]
            strXML = strXML & [Ô]</soap12:Body>[Ô]
            strXML = strXML & [Ô]</soap12:Envelope>[Ô]
            [ô]Passa os parâmetros para  o WebService
            [ô]--------------------------------------

            wSer.Url = strUrl
            wSer.SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12

            [ô]Adição do Certificado ao Web Service
            [ô]====================================

            wSer.ClientCertificates.Add(certificado)
            wSer.Timeout = 10000

            xHeaderMsg.LoadXml(strXML)
            xHeaderMsg.Save([Ô]c:    este.xml[Ô])
            retorno = wSer.nfeStatusServicoNF2(xHeaderMsg).Item([Ô]xMotivo[Ô]).InnerText

            funConsultaStatus = retorno.ToString

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function


XML Gerado

<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô]?>
<soap12:Envelope xmlns:xsi=[Ô]http://www.w3.org/2001/XMLSchema-instance[Ô] xmlns:xsd=[Ô]http://www.w3.org/2001/XMLSchema[Ô] xmlns:soap12=[Ô]http://www.w3.org/2003/05/soap-envelope[Ô]>
<soap12:Header>
<nfeCabecMsg xmlns=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2[Ô]>
<versaoDados>2.00</versaoDados>
<cUF>35</cUF>
</nfeCabecMsg>
</soap12:Header>
<soap12:Body>
<nfeDadosMsg xmlns=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2[Ô]>
<consStatServ xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]2.00[Ô]>
<tpAmb>2</tpAmb>
<cUF>35</cUF>
<xServ>STATUS</xServ>
</consStatServ>
</nfeDadosMsg>
</soap12:Body>
</soap12:Envelope>

só que retorna erro no Cabeçario do XML
MFLAVIO 17/09/2012 12:01:25
#409808
Pessoal outra Duvida

tem um cliente meu que vira e mexe as notas são rejeitadas por motivo de chave duplicada
ai e só trocar o numero da nota que funciona certinho

eu procurei no google mais não achei
tem algum local no site do sefaz para pegar uma lista das notas emitidas?
eu creio que quando eles usavam o soft da receita tenha tido algum erro ou seila o que e utilizaram números não sequenciais
NILSONTRES 17/09/2012 13:55:05
#409821
No meu caso acontece isso quando A Recpção esta lenta, acaba recebendo a nota normalmente, mas a algo errado no retorno, nesse caso
a nota fica pendente na lista de notas para enviar no meu sistema, ao tentar enviar novamente a mensagem de duplicidade. Acontecia muito ate'uns 3 meses atras
de la para ca não aconteceu mais.
SANKARVA 17/09/2012 17:46:34
#409841
MFLAVIO, não sei se voce esta usando outro método para obter o status do serviço, mas o texto xml que uso é este:

<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô]?><consStatServ xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]2.00[Ô]><tpAmb>1</tpAmb><cUF>35</cUF><xServ>STATUS</xServ></consStatServ>

e para esta consulta não precisa do certificado digital.

abraço.
SANKARVA 17/09/2012 17:48:08
#409842
MFLAVIO, me desculpe, precisa do certificado digital sim.
abraço.
MITSUEDA 18/09/2012 07:49:17
#409860
Citação:

:
Pessoal outra Duvida

tem um cliente meu que vira e mexe as notas são rejeitadas por motivo de chave duplicada
ai e só trocar o numero da nota que funciona certinho

eu procurei no google mais não achei
tem algum local no site do sefaz para pegar uma lista das notas emitidas?
eu creio que quando eles usavam o soft da receita tenha tido algum erro ou seila o que e utilizaram números não sequenciais



MFlavio, como contador eu posso te dar uma dica, no estado de SP, as NFe emitidas ficam cadastradas no sistema da nota fiscal paulista.

Você só precisa ter o usuario e senha do posto fiscal, entrar no sistema da nota fiscal paulista, mas na opção contribuinte de ICMS fazer uma pesquisa por Documentos emitidos.

Espero ter ajudado.

Abraço
FOXMAN 18/09/2012 10:59:30
#409871
Prezados,

é possível obter Autorização de Uso em uma NFe emitida com data retroativa ????
Exemplo :
O cliente muda a data do windows para 3 dias a trás(15/09/2012), e envia hoje(18/09/2012).
BIODIESEL 18/09/2012 11:33:29
#409873
Creio que não seja possível.

Na minha opinião, a Receita compara a data da emissão da nota (15/09/2012) com a data do sistema dela (18/09/2012).
MFLAVIO 18/09/2012 11:59:08
#409876
Fox não e possível a nota e rejeitada. acabei de testar
Página 138 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar