AJUDA COM A CONSULTA NFECONSULTADEST ALGUEM PODE M

MALA 11/11/2013 14:28:18
#430977
Ajuda com a consulta NfeConsultaDest alguem pode me ajudar por favor.

CODIGO FONTE
Dim Cab As New WebConsultaNFe.nfeCabecMsg
Dim Ws As New WebConsultaNFe.NFeConsultaDest
Dim Doc As Xml.XmlNode
Dim Cert As New Certificado
Dim Retorno As Xml.XmlNode

m_oCertificado = Cert.BuscaCertificadoNome(Certificado)

Cab.cUF = [Ô]AN[Ô]
Cab.versaoDados = [Ô]1.01[Ô]

Ws.ClientCertificates.Add(m_oCertificado)
Ws.nfeCabecMsgValue = Cab

Doc = GeraXml()

Retorno = Ws.nfeConsultaNFDest(Doc)

REJEICAO
411 - Rejeicao: UF informada no campo cUF nao e atendida pelo WebService

aLGUEM PODE ME AJUDAR POR FAVOR
KERPLUNK 11/11/2013 14:33:52
#430979
[Ô]AN[Ô]??? Que estado é esse? Não seria [Ô]AM[Ô]? A mensagem não está clara??
MALA 11/11/2013 14:47:42
#430983
Ambiente Nacional - (AN)

Mas já testei vários outros como SP-PR-RS
KERPLUNK 11/11/2013 14:56:53
#430984
E mesmo colocando uma UF válida, é o mesmo erro?
MALA 11/11/2013 15:08:40
#430985
sim o mesmo erro
FOXMAN 12/11/2013 09:35:30
#431016 Resposta escolhida
Voce precisa direcionar a sua requisição para a url do ambiente nacional e na propriedade cUF tu tens que colocar o código da UF e não a sigla.

Por Exemplo aqui eu coloco 35



  Dim nfConsDestCab As Object
            Dim nfConsNFe As Object

            nfConsDestCab = Nothing
            nfConsNFe = Nothing

            If cnf.tpAmbiente = [Ô]1[Ô] Then
                nfConsDestCab = New NFeConsultaDest.nfeCabecMsg
                nfConsNFe = New NFeConsultaDest.NFeConsultaDest
            ElseIf cnf.tpAmbiente = [Ô]2[Ô] Then
                nfConsDestCab = New homNFeConsltaDest.nfeCabecMsg
                nfConsNFe = New homNFeConsltaDest.NFeConsultaDest
            End If

            nfConsDestCab.cUF = [Ô]35[Ô]
            nfConsDestCab.versaoDados = [Ô]1.01[Ô]
            Dim CERT As X509Certificate2
            CERT = SelecionarCertificado(cnf.SerialCertificadoDigital)
            nfConsNFe.ClientCertificates.Add(CERT)
            nfConsNFe.nfeCabecMsgValue = nfConsDestCab
            Dim xmlno As XmlNode = Nothing
            Dim stringxml As New XmlDocument
            Dim indCont As Integer = 1
            Dim xStop As Boolean = False
            Dim ultNSU As String = IIf(txtUltNSU.TextLength = 0, [Ô]0[Ô], txtUltNSU.Text)
MALA 12/11/2013 11:55:44
#431027
Bom dia a todos

mas estou fazendo isso

Dim Cab As New WebConsultaNFe.nfeCabecMsg
Dim Ws As New WebConsultaNFe.NFeConsultaDest
Dim Doc As Xml.XmlNode
Dim Cert As New Certificado
Dim Retorno As Xml.XmlNode

m_oCertificado = Cert.BuscaCertificadoNome(Certificado)

Cab.cUF = [Ô]AN[Ô]
Cab.versaoDados = [Ô]1.01[Ô]

Ws.ClientCertificates.Add(m_oCertificado)
Ws.nfeCabecMsgValue = Cab

me passa sua função inteira pa mim dar uma olhada fazendo um favor FOXMAN
MALA 15/11/2013 19:40:06
#431179
Amigo FOXMAN me ajuda por favor
NILSONTRES 15/11/2013 21:32:21
#431182
Cab.cUF = [Ô]AN[Ô]
Não existe a uf [Ô]AN[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar