Procedure Translate_Msg(sText is ANSI string, sLang_Target is string = "pt")

// Autor: Marcelo B. Santos
// Company: Futura Tecnologia

sKey is string = "" // Chave do google Cloud
sURL is ANSI string = "https://translation.googleapis.com/language/translate/v2"
sParam is ANSI string = "?target=" + sLang_Target + "&q=" + sText + "&key=" + sKey

// Lista de idiomas: https://cloud.google.com/translate/docs/languages

// Translate
vCallWS is httpRequest
vCallWS.Method = httpPost
vCallWS.URL = sURL + URLEncode(sParam)
ResponseWS is restResponse = RESTSend(vCallWS)

IF NOT Response_Verify(ResponseWS) THEN
RESULT False
END

// Retorno
// {
// "data": {
// "translations": [
// {
// "translatedText": "Eu amo meu lar",
// "detectedSourceLanguage": "en"
// }
// ]
// }
// }

RESULT ResponseWS.Content // json