Using Request - REST

Hi, good night!

I'm trying to post some data using .net methods, but it doesn't work.
Could you help me?
The response is 405 - Method Not Allowed

But, when I use the o ARC (Advanced Rest Client), Google Chrome's Add-on, it works well.

This is the code:

/*------------------------------------------------------------------------
    File        : Integra.p
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : 
    Created     : Thu Nov 15 22:58:07 BRST 2018
    Notes       :
  ----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */
USING OpenEdge.Net.HTTP.RequestBuilder.
USING OpenEdge.Net.HTTP.IHttpRequest.
USING OpenEdge.Net.HTTP.IHttpResponse.
USING OpenEdge.Net.HTTP.ClientBuilder.
USING Progress.Json.ObjectModel.JsonObject.
/* ********************  Preprocessor Definitions  ******************** */
DEFINE VARIABLE httpUrl AS CHARACTER NO-UNDO.
DEFINE VARIABLE oRequest AS IHttpRequest NO-UNDO.
DEFINE VARIABLE oResponse AS IHttpResponse NO-UNDO.
DEFINE VARIABLE oJson AS JsonObject NO-UNDO.
/* ***************************  Main Block  *************************** */
 
httpUrl = "10.0.1.67:8091/.../get.json".
                                 
oJson = new JsonObject().
oJson:Add('appId', new JsonObject()).
oJson = new JsonObject().
oJson:Add('token', new JsonObject()).
oJson = new JsonObject().
oJson:Add('filter', new JsonObject()).
oJson = new JsonObject().
oJson:Add('date1', new JsonObject()).
oJson = new JsonObject().
oJson:Add('date2', new JsonObject()).
oJson = new JsonObject().
oJson:Add('activityId', new JsonObject()).
oJson = new JsonObject().
oJson:Add('taskIdCode', new JsonObject()).

/*
{
  "appId" : "totvs.1",
  "token" : "tm+m/bhBMk+fc6a/2ScztLdY+PzGUhih1oNUiGKv97lfHAeiRclBKyU6Wi2elCri",
  "filter" : {
    "date1" : null, <RUBIA> ENVIAR O PERÍODO TANTO PARA REPORTE DE OP QUANTO TRANSFERÊNCIA
    "date2" : null, <RUBIA> ENVIAR O PERÍODO TANTO PARA REPORTE DE OP QUANTO TRANSFERÊNCIA
    "activityId" : 0, 
    "taskIdcode" : null,
    "materialId" : null, <RUBIA> SE PRECISAR DOS DADOS DE UM ITEM ESPECÍFICO
    "originCenterId" : null, <RUBIA> DEPÓSITO ORIGEM (INFORMAR SEMPRE PARA TRANSFERÊNCIA)
    "destCenterId" : null, <RUBIA> DEPÓSITO DESTINO (INFORMAR SEMPRE PARA TRANSFERÊNCIA)
    "batchIdcode" : null, 
    "prodIdcode" : null, <RUBIA> INFORMAR A ORDEM DE PRODUÇÃO
    "appId" : "totvs.1"
  }
}
*/
 
oRequest = RequestBuilder:Put(httpUrl, oJson)
                :AcceptJson()
                :Request.
                
oResponse = ClientBuilder:Build():Client:Execute(oRequest).
MESSAGE
    oResponse:StatusCode SKIP  
    oResponse:StatusReason SKIP
VIEW-AS ALERT-BOX.                
                

/*------------------------------------------------------------------------    File        : Integra.p    Purpose     : 
    Syntax      :
    Description : 
    Author(s)   :     Created     : Thu Nov 15 22:58:07 BRST 2018    Notes       :  ----------------------------------------------------------------------*/
/* ***************************  Definitions  ************************** */USING OpenEdge.Net.HTTP.RequestBuilder.USING OpenEdge.Net.HTTP.IHttpRequest.USING OpenEdge.Net.HTTP.IHttpResponse.USING OpenEdge.Net.HTTP.ClientBuilder.USING Progress.Json.ObjectModel.JsonObject./* ********************  Preprocessor Definitions  ******************** */DEFINE VARIABLE httpUrl AS CHARACTER NO-UNDO.DEFINE VARIABLE oRequest AS IHttpRequest NO-UNDO.DEFINE VARIABLE oResponse AS IHttpResponse NO-UNDO.DEFINE VARIABLE oJson AS JsonObject NO-UNDO./* ***************************  Main Block  *************************** */ httpUrl = "10.0.1.67:8091/.../get.json".                                 oJson = new JsonObject().oJson:Add('appId', new JsonObject()).oJson = new JsonObject().oJson:Add('token', new JsonObject()).oJson = new JsonObject().oJson:Add('filter', new JsonObject()).oJson = new JsonObject().oJson:Add('date1', new JsonObject()).oJson = new JsonObject().oJson:Add('date2', new JsonObject()).oJson = new JsonObject().oJson:Add('activityId', new JsonObject()).oJson = new JsonObject().oJson:Add('taskIdCode', new JsonObject()).
/*{  "appId" : "totvs.1",  "token" : "tm+m/bhBMk+fc6a/2ScztLdY+PzGUhih1oNUiGKv97lfHAeiRclBKyU6Wi2elCri",  "filter" : {    "date1" : null, <RUBIA> ENVIAR O PERÍODO TANTO PARA REPORTE DE OP QUANTO TRANSFERÊNCIA    "date2" : null, <RUBIA> ENVIAR O PERÍODO TANTO PARA REPORTE DE OP QUANTO TRANSFERÊNCIA    "activityId" : 0,     "taskIdcode" : null,    "materialId" : null, <RUBIA> SE PRECISAR DOS DADOS DE UM ITEM ESPECÍFICO    "originCenterId" : null, <RUBIA> DEPÓSITO ORIGEM (INFORMAR SEMPRE PARA TRANSFERÊNCIA)    "destCenterId" : null, <RUBIA> DEPÓSITO DESTINO (INFORMAR SEMPRE PARA TRANSFERÊNCIA)    "batchIdcode" : null,     "prodIdcode" : null, <RUBIA> INFORMAR A ORDEM DE PRODUÇÃO    "appId" : "totvs.1"  }}*/ oRequest = RequestBuilder:Put(httpUrl, oJson)                :AcceptJson()                :Request.                oResponse = ClientBuilder:Build():Client:Execute(oRequest).MESSAGE    oResponse:StatusCode SKIP      oResponse:StatusReason SKIPVIEW-AS ALERT-BOX.