Bom dia. Estou iniciando o desenvolvimento de um software para controle e emissão de NF-e para a SEFAZ. A princípio, estou começando pelo básico, onde busco consultar se o serviço selecionado está online, ou não. De maneira simplificada: Private Sub VerificaStatus() Dim servicoNFe As ServicosNFe Dim retornoStatus As RetornoNfeStatusServico Dim retornoBasico As retConsStatServ servicoNFe = New ServicosNFe(NFeConfig.CfgServico) retornoStatus = servicoNFe.NfeStatusServico() retornoBasico = retornoStatus.Retorno End Sub Ele gera o XML para consulta, valida, salva uma cópia no computador, e tudo.... Mas quando vou na função NfeStatusServico: Public Function NfeStatusServico() As RetornoNfeStatusServico Dim versaoServico = ServicoNFe.NfeStatusServico.VersaoServicoParaString(_cFgServico.VersaoNfeStatusServico) Dim ws = CriarServico(ServicoNFe.NfeStatusServico) If _cFgServico.VersaoNfeStatusServico <> NFe.Classes.Servicos.Tipos.VersaoServico.ve400 Then ws.nfeCabecMsg = New nfeCabecMsg ws.nfeCabecMsg.cUF = _cFgServico.cUF ws.nfeCabecMsg.versaoDados = versaoServico End If Dim pedStatus = New consStatServ With { .cUF = _cFgServico.cUF, .tpAmb = _cFgServico.tpAmb, .versao = versaoServico } Dim xmlStatus = pedStatus.ObterXmlString() Validador.Valida(ServicoNFe.NfeStatusServico, _cFgServico.VersaoNfeStatusServico, xmlStatus, cfgServico:=_cFgServico) Dim dadosStatus = New XmlDocument() dadosStatus.LoadXml(xmlStatus) SalvarArquivoXml(DateTime.Now.ParaDataHoraString() & "-ped-sta.xml", xmlStatus) Dim retorno As XmlNode Try retorno = ws.Execute(dadosStatus) '<<< Aqui ocorre um erro! Catch ex As WebException Throw FabricaComunicacaoException.ObterException(ServicoNFe.NfeStatusServico, ex) End Try Dim retornoXmlString = retorno.OuterXml Dim retConsStatServ = New retConsStatServ().CarregarDeXmlString(retornoXmlString) SalvarArquivoXml(DateTime.Now.ParaDataHoraString() & "-sta.xml", retornoXmlString) Return New RetornoNfeStatusServico(pedStatus.ObterXmlString(), retConsStatServ.ObterXmlString(), retornoXmlString, retConsStatServ) End Function A função ws.Execute(dadosStatus) gera um erro: Namespace NFe.Wsdl.Status Public Class NfeStatusServico4 Inherits SoapHttpClientProtocol Implements INfeServico Public Sub New(ByVal url As String, ByVal certificado As X509Certificate, ByVal timeOut As Integer) SoapVersion = SoapProtocolVersion.Soap12 Me.Url = url Me.Timeout = timeOut ClientCertificates.Add(certificado) End Sub Public Property nfeCabecMsg As nfeCabecMsg Private Property INfeServico_nfeCabecMsg As nfeCabecMsg Implements INfeServico.nfeCabecMsg Get Throw New NotImplementedException() End Get Set(value As nfeCabecMsg) Throw New NotImplementedException() End Set End Property Private Function Execute( nfeDadosMsg As XmlNode) As XmlNode Implements INfeServico.Execute Dim results = Me.Invoke("nfeStatusServicoNF", New Object() {nfeDadosMsg}) '<<<< Aqui nesta linha ocorre o erro Return CType((results(0)), XmlNode) End Function End Class End Namespace A seguinte mensagem, é então exibida: ``` "O método nfeStatusServicoNF do serviço da Web é inválido". Esse erro eu não estou conseguindo corrigir. Alguém poderia me ajudar com o mesmo? ``` ![imagem](https://forum.imasters.com.br/monthly_2018_10/1352127.png.6a979804aee04ceabebee7638f22e646.png)

ugiov

Problemas para acessar o WebService da SEFAZ