(Lianja) hacienda.go.cr Obtener Token

Gets an access token using the Resource Owner Password Credential Grant for the Recepción de Comprobantes Electrónicos del Ministerio de Hacienda (Costa Rica)

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://www.hacienda.go.cr/ATV/ComprobanteElectronico/docs/esquemas/2016/v4.3/Guia_IdP.pdf

Chilkat Lianja Extension Download Chilkat Lianja Extension

llSuccess = .F.

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loHttp = createobject("CkHttp")

// Implements the following CURL command:

// curl -X "POST" "https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token" \
// -H "Content-Type: application/x-www-form-urlencoded; charset=utf-8" \
// --data-urlencode "client_id=api-stag" \
// --data-urlencode "username=cpj-3-101-261506@stag.comprobanteselectronicos.go.cr" \
// --data-urlencode "password=my_password" \
// --data-urlencode "grant_type=password"

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

loReq = createobject("CkHttpRequest")
loReq.HttpVerb = "POST"
loReq.Path = "/auth/realms/rut-stag/protocol/openid-connect/token"
loReq.ContentType = "application/x-www-form-urlencoded"
loReq.AddParam("client_id","api-stag")
loReq.AddParam("username","cpj-3-101-261506@stag.comprobanteselectronicos.go.cr")
loReq.AddParam("password","my_password")
loReq.AddParam("grant_type","password")

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq("https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token",loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    release loResp
    return
endif

loSbResponseBody = createobject("CkStringBuilder")
loResp.GetBodySb(loSbResponseBody)
loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    release loHttp
    release loReq
    release loResp
    release loSbResponseBody
    release loJResp
    return
endif

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "access_token": "ey....",
//   "expires_in": 300,
//   "id_token": "ey....",
//   "not-before-policy": 0,
//   "refresh_expires_in": 1800,
//   "refresh_token": "ey...",
//   "session_state": "...",
//   "token_type": "bearer"
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

lcAccess_token = loJResp.StringOf("access_token")
lnExpires_in = loJResp.IntOf("expires_in")
lcId_token = loJResp.StringOf("id_token")
lnNot_before_policy = loJResp.IntOf("not-before-policy")
lnRefresh_expires_in = loJResp.IntOf("refresh_expires_in")
lcRefresh_token = loJResp.StringOf("refresh_token")
lcSession_state = loJResp.StringOf("session_state")
lcToken_type = loJResp.StringOf("token_type")

// Save the JSON to a file for future requests.
loFac = createobject("CkFileAccess")
loFac.WriteEntireTextFile("qa_data/tokens/hacienda_cr.json",loJResp.Emit(),"utf-8",.F.)


release loHttp
release loReq
release loResp
release loSbResponseBody
release loJResp
release loFac