Início
gtpsp 9/5/2023, 14:25Bom dia a todos,
Mais uma vez recorro aos mestres para uma grande ajuda.
Sei que o assunto em questão é bastante batido no forum, li tudo o que encontrei e consegui avançar bastante, porém estou deparando com erro erro em tempo de execução "424", os códigos que utilizo para busca e retorno foram tirados aqui do forum e adaptados a minha necessidade, como segue.
Buscando a informação
Retorno da informação
o erro acontece em:
ele passa para o retorno da informação até:
objDom = CreateObject("MSXML2.DOMDocument60") (Ao passar o mouse quando o código esta parado nessa parte mostra "nothing")
e volta para buscando informação onde da o erro em:
Console.WriteLine (PostWebservice(strUrl, strSoapAction, strXml))
Mensagem de erro:
erro em tempo de execução "424"
O objeto é obrigatório
O Código de busca foi testado e copiado do SOAPUI 5.7 conforme imagem abaixo
Desde já agradeço a ajuda de vocês.
Obrigado
Mais uma vez recorro aos mestres para uma grande ajuda.
Sei que o assunto em questão é bastante batido no forum, li tudo o que encontrei e consegui avançar bastante, porém estou deparando com erro erro em tempo de execução "424", os códigos que utilizo para busca e retorno foram tirados aqui do forum e adaptados a minha necessidade, como segue.
Buscando a informação
- Código:
Private Sub Form_Load()
'ReSizeForm Me
Dim strSoapAction As String
Dim strUrl As String
Dim strXml As String
Dim appKey As String
Dim appSecret As String
appKey = "5xxxxxxxxx7"
appSecret = "184xxxxxxxxxxxb9"
strUrl = "https://app.omie.com.br/api/v1/geral/clientes/"
strSoapAction = "https://app.omie.com.br/api/v1/geral/clientes?WSDLListarClientesResumido"
strXml = "<soapenv:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:wsdl=""http://app.omie.com.br/api/v1/geral/clientes/?WSDL"" xmlns:soapenc=""http://schemas.xmlsoap.org/soap/encoding/""> " & _
" <soapenv:Header> " & _
" <app_key>" & appKey & "</app_key> " & _
" <app_secret>" & appSecret & "</app_secret> " & _
" </soapenv:Header> " & _
" <soapenv:Body> " & _
" <wsdl:ListarClientesResumido soapenv:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/""> " & _
" <clientes_list_request xsi:type=""wsdl:clientes_list_request""> " & _
" <pagina xsi:type=""xsd:integer"">1</pagina> " & _
" <registros_por_pagina xsi:type=""xsd:integer"">10</registros_por_pagina> " & _
" </clientes_list_request> " & _
" </wsdl:ListarClientesResumido> " & _
" </soapenv:Body> " & _
"</soapenv:Envelope>"
' Call PostWebservice and put result in text box
Console.WriteLine (PostWebservice(strUrl, strSoapAction, strXml))
Console.ReadLine
End Sub
Retorno da informação
- Código:
Private Function PostWebservice(ByVal AsmxUrl As String, ByVal SoapActionUrl As String, ByVal XmlBody As String) As String
Dim objDom As Object
Dim objXmlHttp As Object
Dim strRet As String
Dim intPos1 As Integer
Dim intPos2 As Integer
On Error GoTo Err_PW
' Create objects to DOMDocument and XMLHTTP
objDom = CreateObject("MSXML2.DOMDocument60")
objXmlHttp = CreateObject("MSXML2.XMLHTTP60")
' Load XML
objDom.async = False
objDom.loadXML (XmlBody)
' Open the webservice
objXmlHttp.Open "POST", AsmxUrl, False
' Create headings
objXmlHttp.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
objXmlHttp.SetRequestHeader "SOAPAction", SoapActionUrl
' Send XML command
objXmlHttp.send (objDom.XML)
' Get all response text from webservice
strRet = objXmlHttp.ResponseText
' Close object
objXmlHttp = Nothing
' Extract result
intPos1 = InStr(strRet, "Result>") + 7
intPos2 = InStr(strRet, "")
If intPos1 > 7 And intPos2 > 0 Then
strRet = Mid(strRet, intPos1, intPos2 - intPos1)
End If
' Return result
PostWebservice = strRet
Exit Function
Err_PW:
PostWebservice = "Error: " & err.Number & " - " & err.Description
End Function
o erro acontece em:
ele passa para o retorno da informação até:
objDom = CreateObject("MSXML2.DOMDocument60") (Ao passar o mouse quando o código esta parado nessa parte mostra "nothing")
e volta para buscando informação onde da o erro em:
Console.WriteLine (PostWebservice(strUrl, strSoapAction, strXml))
Mensagem de erro:
erro em tempo de execução "424"
O objeto é obrigatório
O Código de busca foi testado e copiado do SOAPUI 5.7 conforme imagem abaixo
Desde já agradeço a ajuda de vocês.
Obrigado
Última edição por gtpsp em 17/5/2023, 18:51, editado 4 vez(es)
