PowerBuilder

hacienda.go.cr Obtener Token

See more hacienda.go.cr Examples

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) PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Req
oleobject loo_Resp
oleobject loo_SbResponseBody
oleobject loo_JResp
integer li_RespStatusCode
string ls_Access_token
integer li_Expires_in
string ls_Id_token
integer li_Not_before_policy
integer li_Refresh_expires_in
string ls_Refresh_token
string ls_Session_state
string ls_Token_type
oleobject loo_Fac

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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

loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

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

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpReq("https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token",loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Req
    destroy loo_Resp
    return
end if

loo_SbResponseBody = create oleobject
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder")

loo_Resp.GetBodySb(loo_SbResponseBody)
loo_JResp = create oleobject
li_rc = loo_JResp.ConnectToNewObject("Chilkat.JsonObject")

loo_JResp.LoadSb(loo_SbResponseBody)
loo_JResp.EmitCompact = 0

Write-Debug "Response Body:"
Write-Debug loo_JResp.Emit()

li_RespStatusCode = loo_Resp.StatusCode
Write-Debug "Response Status Code = " + string(li_RespStatusCode)
if li_RespStatusCode >= 400 then
    Write-Debug "Response Header:"
    Write-Debug loo_Resp.Header
    Write-Debug "Failed."
    destroy loo_Http
    destroy loo_Req
    destroy loo_Resp
    destroy loo_SbResponseBody
    destroy loo_JResp
    return
end if

// 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

ls_Access_token = loo_JResp.StringOf("access_token")
li_Expires_in = loo_JResp.IntOf("expires_in")
ls_Id_token = loo_JResp.StringOf("id_token")
li_Not_before_policy = loo_JResp.IntOf("not-before-policy")
li_Refresh_expires_in = loo_JResp.IntOf("refresh_expires_in")
ls_Refresh_token = loo_JResp.StringOf("refresh_token")
ls_Session_state = loo_JResp.StringOf("session_state")
ls_Token_type = loo_JResp.StringOf("token_type")

// Save the JSON to a file for future requests.
loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")

loo_Fac.WriteEntireTextFile("qa_data/tokens/hacienda_cr.json",loo_JResp.Emit(),"utf-8",0)


destroy loo_Http
destroy loo_Req
destroy loo_Resp
destroy loo_SbResponseBody
destroy loo_JResp
destroy loo_Fac