PROBLEMA USO AMBIENTE HOMOLOGAÇÃO NFE SP.

 Tópico anterior Próximo tópico Novo tópico

PROBLEMA USO AMBIENTE HOMOLOGAÇÃO NFE SP.

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#482272 - 12/06/2018 21:56:19

PEREGO86
ICARA
Cadast. em:Julho/2016


Boa noite,

Estou tentando ajustar o nosso sistema para a nota fiscal 4.0. Porém não estou conseguindo utilizar o web service de homologação de SP. Dos outros estados como por ex. SC e PE está funcionando sem problemas.

Fiz um teste só com o status de serviço https://homologacao.nfe.fazenda.sp.gov.br/ws/nfestatusservico4.asmx e não funciona.

Detalhe o mesmo código funciona para todos os estados citados e incluso se testo no ambiente oficial de SP funciona perfeitamente. Parece que é algo especificamente como web service de homologacao de SP.

O erro que está aparecendo:
"System.ServiceModel.CommunicationException' occurred in mscorlib.dll

Additional information: An error occurred while making the HTTP request to https://homologacao.nfe.fazenda.sp.gov.br/ws/nfestatusservico4.asmx. This could be due to the fact that the server certificate is not configured properly with HTTP.SYS in the HTTPS case. This could also be caused by a mismatch of the security binding between the client and the server."

Ambiente: VB.net 2015, framework 4.0.

Código:
  Public Function ConsultaStatus(ByVal pTipoAmbiente As String, ByVal pUF As String) As String
            Dim _config As New AppConfig(pTipoAmbiente, pUF)

            Dim statusServer As New TConsStatServ
            statusServer.versao = "4.00"
            statusServer.tpAmb = DirectCast([Enum].Parse(GetType(StatusServico.TAmb), "Item" & pTipoAmbiente), Integer)
            statusServer.cUF = DirectCast([Enum].Parse(GetType(StatusServico.TCodUfIBGE), "Item" & _config.URLs.CodigoUF), Integer)
            statusServer.xServ = TConsStatServXServ.STATUS

            Dim doc As XmlDocument = ObjectToXmlDocument(statusServer)


            Dim statusServicoClient As New wsStatusServico.NFeStatusServico4Soap12Client
            Dim endereco As System.ServiceModel.EndpointAddress = New System.ServiceModel.EndpointAddress(_config.URLs.UrlNfeStatusServico)


            statusServicoClient.Endpoint.Address = endereco
            statusServicoClient.ClientCredentials.ClientCertificate.Certificate = _config.Certificate

            Dim retorno As XmlNode = statusServicoClient.nfeStatusServicoNF(doc)

            Dim obj As New TRetConsStatServ

            obj = DirectCast(XMLNodeToObject(retorno, obj.GetType), TRetConsStatServ)

            Return "Resultado: " & obj.cStat & " - " & obj.xMotivo
        End Function

Agradeço pelo apoio.





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PEREGO86 em 13/06/2018 21:13:20