//Variáveis
Empresa is string = “xwjeoodjdjbjx”
Senha is string = “P8Mw”
TipoRuc is string = “100”
Ruc is string = “4-55148-7”

envelope is string = [
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:ser="http://schemas.datacontract.org/2004/07/Services.ApiRest">
<soapenv:Header/>
<soapenv:Body>
<tem:ConsultarRucDV>
<!--Optional:-->
<tem:consultarRucDVRequest>
<!--Optional:-->
<ser:tokenEmpresa>[%Empresa%]</ser:tokenEmpresa>
<!--Optional:-->
<ser:tokenPassword>[%Senha%]</ser:tokenPassword>
<!--Optional:-->
<ser:tipoRuc>[%TipoRuc%]</ser:tipoRuc>
<!--Optional:-->
<ser:ruc>[%Ruc%]</ser:ruc>
</tem:consultarRucDVRequest>
</tem:ConsultarRucDV>
</soapenv:Body>
</soapenv:Envelope>
]

envio is httpRequest

envio.URL = "https://demointegracion.ebi-pac.com/ws/obj/v1.0/Service.svc"
envio.Content = envelope
envio.Method = httpPost
envio.ContentType = "text/xml;charset=UTF-8"
envio.UserAgent = "Apache-HttpClient/4.5.5 (Java/16.0.2)"
envio.Header["SOAPAction"] = "http://tempuri.org/IService/ConsultarRucDV"
envio.Header["Content-Type"] = "text/xml;charset=UTF-8"

resultado is httpResponse

resultado = HTTPSend(envio) // execução…

IF ErrorOccurred THEN

Error(ErrorInfo(errFullDetails))

ELSE

Info(resultado.Content)

Info(resultado.StatusCode)

END