Consumo de API REST do Fluig a partir do Protheus

Precisei criar uma conexão "parecida" para o controle de documentos e ficou assim:

Local cRet := ""
Local cRetPost := ""
Local cURL := ""
Local oClientFluig
Local oJson

oClientFluig := FWoAuth1Fluig():New("ConsumerKey",;
                "ConsumerSecret",;
                "http://host:port",;
                "")
//-------------------------------------------------------
//Faz o pedido de Token e define o Token e o SecretToken.
//-------------------------------------------------------
//oClientFluig:RequestToken()
//token chumbado pois estava falhando no request 
oClientFluig:cSecretToken := "secretToken"
oClientFluig:cToken := "token"


If cTipo == "1"//cria pasta
    cUrl := "http://host:port/api/public/ecm/document/createFolder"
Else //cria documento
    cUrl := "http://host:port/api/public/ecm/document/createDocument"
EndIf

cRetPost := oClientFluig:Post(cUrl,"",cJson)

lAux := FWJsonDeserialize(cRetPost, @oJson)

If lAux .AND. ValType(oJson) $ "O/J"
    If AttIsMemberOf(oJson,"CONTENT") .AND. ValType(oJson:content) $ "O/J"
        cRet := cValToChar(oJson:content:id)
    Else
        cRet := ""
    EndIf
EndIf

Return cRet

Muito obrigado pela ajuda.O exemplo foi perfeito!