(VBScript) 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.

For more information, see https://sdk.myinvois.hasil.gov.my/api/03-get-document-types/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' Adds the "Authorization: Bearer <access_token>" header.
http.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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://preprod-api.myinvois.hasil.gov.my/api/v1.0/documenttypes",sb)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

statusCode = http.LastStatus
outFile.WriteLine("response status code = " & statusCode)

If (statusCode <> 200) Then
    ' Failed.
    outFile.WriteLine(sb.GetAsString())
    WScript.Quit
End If

' 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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sb)

i = 0
count_i = json.SizeOfArray("result")
Do While i < count_i
    json.I = i
    id = json.IntOf("result[i].id")
    invoiceTypeCode = json.IntOf("result[i].invoiceTypeCode")
    description = json.StringOf("result[i].description")
    activeFrom = json.StringOf("result[i].activeFrom")
    activeTo = json.StringOf("result[i].activeTo")
    j = 0
    count_j = json.SizeOfArray("result[i].documentTypeVersions")
    Do While j < count_j
        json.J = j
        id = json.IntOf("result[i].documentTypeVersions[j].id")
        name = json.StringOf("result[i].documentTypeVersions[j].name")
        description = json.StringOf("result[i].documentTypeVersions[j].description")
        activeFrom = json.StringOf("result[i].documentTypeVersions[j].activeFrom")
        activeTo = json.StringOf("result[i].documentTypeVersions[j].activeTo")
        versionNumber = json.StringOf("result[i].documentTypeVersions[j].versionNumber")
        status = json.StringOf("result[i].documentTypeVersions[j].status")
        j = j + 1
    Loop
    i = i + 1
Loop

outFile.Close