Lianja

MyInvois Malaysia Login as Intermediary System

See more Malaysia MyInvois Examples

Demonstrates how to get an OAuth2 access token with an intermediary that is representing a taxpayer (acting on behalf of a specific taxpayer). The OAuth2 access token can then be used to access MyInvois protected APIs. Lianja

llSuccess = .F.

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

// Sends the following HTTP POST to get a MyInvois OAUth2 access token using client_credentials

// POST /connect/token HTTP/1.1
// Host: preprod-api.myinvois.hasil.gov.my
// Accept: */*
// Content-Length: <<variable>>
// Content-Type: application/x-www-form-urlencoded
// onbehalfof: C25845632020
// 
// client_id={YOUR_CLIENT_ID}&client_secret={YOUR_CLIENT_SECRET}&grant_type=client_credentials&scope=InvoicingAPI

loHttp = createobject("CkHttp")

loReq = createobject("CkHttpRequest")

loReq.AddHeader("onbehalfof","C25845632020")

loReq.AddParam("grant_type","client_credentials")
loReq.AddParam("client_id","YOUR_CLIENT_ID")
loReq.AddParam("client_secret","YOUR_CLIENT_SECRET")
loReq.AddParam("scope","InvoicingAPI")

loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq("https://preprod-api.myinvois.hasil.gov.my/connect/token",loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    release loResp
    return
endif

// Note: The returned access token is valid for a short amount of time.  Perhaps 1 hour.
// The access token is used in the "Authorization: Bearer <access_token>" header in subsequent requests until it expires.
// Your application would then need to get a new access token, and so on..

? "Response Status Code: " + str(loResp.StatusCode)
? "Response Body:"
? loResp.BodyStr

// Here's a sample response:

// {
//   "access_token": "eyJhbGciOiJSUzI1...",
//   "expires_in": 3600,
//   "token_type": "Bearer",
//   "scope": "InvoicingAPI"
// }

loJson = createobject("CkJsonObject")
loJson.Load(loResp.BodyStr)
lcAccess_token = loJson.StringOf("access_token")
lnExpires_in = loJson.IntOf("expires_in")
lcToken_type = loJson.StringOf("token_type")
lcScope = loJson.StringOf("scope")

// To use an access token in a MyInvois API call, see Using a MyInvois Access Token in an API Request


release loHttp
release loReq
release loResp
release loJson