Urgente Chamada via Post á API

Rafael, teste o código e pra mim está retornando o 503 da requisição.




BLOCK-LEVEL ON ERROR UNDO, THROW.

using OpenEdge.Core.String.
using OpenEdge.Net.HTTP.ClientBuilder.
using OpenEdge.Net.HTTP.IHttpClient.
using OpenEdge.Net.HTTP.IHttpRequest.
using OpenEdge.Net.HTTP.RequestBuilder.
using OpenEdge.Net.HTTP.IHttpResponse.
USING OpenEdge.Net.HTTP.IHttpClientLibrary.
USING OpenEdge.Net.HTTP.Lib.ClientLibraryBuilder.
using Progress.Json.ObjectModel.JsonObject.
using Progress.Json.ObjectModel.JsonArray.

def var oClient as IHttpClient no-undo.
def var oRequest as IHttpRequest no-undo.
def var oResponse as IHttpResponse no-undo.
def var oPayload as JsonArray no-undo.
def var oJsonArray as JsonArray no-undo.

DEFINE VARIABLE oLib AS IHttpClientLibrary NO-UNDO.
DEFINE VARIABLE cSSLProtocols AS CHARACTER EXTENT NO-UNDO.
DEFINE VARIABLE cSSLCiphers AS CHARACTER EXTENT NO-UNDO.

// the size and values of the SSL protocols and ciphers depend on the server
EXTENT(cSSLProtocols) = 2.
EXTENT(cSSLCiphers) = 10.

// TLSv1.1 and TLSv1.2 are supported with OpenEdge 11.6 and later. See article What version of SSL and/or TLS does Progress OpenEdge use ?
// Supported ciphers and protocols at https://docs.progress.com/bundle/op...ficates-for-OpenEdge-clients-and-servers.html
ASSIGN cSSLProtocols[1] = 'TLSv1.2'
cSSLProtocols[2] = 'TLSv1.1'
cSSLCiphers[1] = 'AES128-SHA256'
cSSLCiphers[2] = 'DHE-RSA-AES128-SHA256'
cSSLCiphers[3] = 'AES128-GCM-SHA256'
cSSLCiphers[4] = 'DHE-RSA-AES128-GCM-SHA256'
cSSLCiphers[5] = 'ADH-AES128-SHA256'
cSSLCiphers[6] = 'ADH-AES128-GCM-SHA256'
cSSLCiphers[7] = 'ADH-AES256-SHA256'
cSSLCiphers[8] = 'AES256-SHA256'
cSSLCiphers[9] = 'DHE-RSA-AES256-SHA256'
cSSLCiphers[10] = 'AES128-SHA'

/*oLib = ClientLibraryBuilder:Build().
:SetSSLProtocols(cSSLProtocols)
:SetSSLCiphers(cSSLCiphers)
:Library.*/

oClient = ClientBuilder:Build():Client. //:UsingLibrary(oLib):Client.

oPayload = new JsonArray(). //criei um jsonArray vazio, a tu popula com o teu

oRequest = RequestBuilderost('http://45.60.4.187/websys/php/conn.php',oPayload)
:request.

oResponse = oClient:Execute(oRequest).

if oResponse:statusCode <> 200
then do:
MESSAGE 'Verificar' SKIP
oResponse:StatusCode SKIP
oResponse:StatusReason SKIP
VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
end.

CATCH oError AS Progress.Lang.Error :
MESSAGE oError:GetMessage(1)
VIEW-AS ALERT-BOX.
END CATCH.

Quando executo