Visual FoxPro

MyInvois Malaysia Get Document Types

See more Malaysia MyInvois Examples

There are multiple types of documents supported by MyInvois, and this API retrieves their definitions through API call. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loSb
LOCAL lnStatusCode
LOCAL loJson
LOCAL lnId
LOCAL lnInvoiceTypeCode
LOCAL lcDescription
LOCAL lcActiveFrom
LOCAL lcActiveTo
LOCAL j
LOCAL lnCount_j
LOCAL lcName
LOCAL lcVersionNumber
LOCAL lcStatus
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Adds the "Authorization: Bearer <access_token>" header.
loHttp.AuthToken = "<access_token>"

* Note: The 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..
* To get an access token, see How to Get a MyInvois Access Token

loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://preprod-api.myinvois.hasil.gov.my/api/v1.0/documenttypes",loSb)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSb
    CANCEL
ENDIF

lnStatusCode = loHttp.LastStatus
? "response status code = " + STR(lnStatusCode)

IF (lnStatusCode <> 200) THEN
    * Failed.
    ? loSb.GetAsString()
    RELEASE loHttp
    RELEASE loSb
    CANCEL
ENDIF

* Sample response:

* {"result":
*       [
*          {"id":45,
*             "invoiceTypeCode":4,
*             "description":"Invoice",
*             "activeFrom":"2015-02-13T13:15:00Z",
*             "activeTo":"2027-03-01T00:00:00Z",
*             "documentTypeVersions":
*             [
*                {"id":454,
*                 "name":"1.0",
*                 "description":"Invoice version 1.1",
*                 "activeFrom":"2015-02-13T13:15:00Z",
*                 "activeTo":"2027-03-01T00:00:00Z",
*                 "versionNumber":1.1,
*                 "status":"published"
*                }
*             ]
*           }
*       ]
* }

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSb)

i = 0
lnCount_i = loJson.SizeOfArray("result")
DO WHILE i < lnCount_i
    loJson.I = i
    lnId = loJson.IntOf("result[i].id")
    lnInvoiceTypeCode = loJson.IntOf("result[i].invoiceTypeCode")
    lcDescription = loJson.StringOf("result[i].description")
    lcActiveFrom = loJson.StringOf("result[i].activeFrom")
    lcActiveTo = loJson.StringOf("result[i].activeTo")
    j = 0
    lnCount_j = loJson.SizeOfArray("result[i].documentTypeVersions")
    DO WHILE j < lnCount_j
        loJson.J = j
        lnId = loJson.IntOf("result[i].documentTypeVersions[j].id")
        lcName = loJson.StringOf("result[i].documentTypeVersions[j].name")
        lcDescription = loJson.StringOf("result[i].documentTypeVersions[j].description")
        lcActiveFrom = loJson.StringOf("result[i].documentTypeVersions[j].activeFrom")
        lcActiveTo = loJson.StringOf("result[i].documentTypeVersions[j].activeTo")
        lcVersionNumber = loJson.StringOf("result[i].documentTypeVersions[j].versionNumber")
        lcStatus = loJson.StringOf("result[i].documentTypeVersions[j].status")
        j = j + 1
    ENDDO
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loSb
RELEASE loJson