Tcl

MyInvois Malaysia Validate Taxpayer TIN

See more Malaysia MyInvois Examples

Validate specific Tax Identification Number (TIN) before adding this number to an invoice and issuing the invoice. Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X GET https://preprod-api.myinvois.hasil.gov.my/api/v1.0/taxpayer/validate/C1234567890 \
#   -d "idType=BRN" \
#   -d "idValue=200001009999" \
#   -H "Authorization: Bearer <access_token>"

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

set queryParams [new_CkJsonObject]

CkJsonObject_UpdateString $queryParams "idType" "BRN"
CkJsonObject_UpdateString $queryParams "idValue" "200001009999"

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

set resp [new_CkHttpResponse]

set success [CkHttp_HttpParams $http "GET" "https://preprod-api.myinvois.hasil.gov.my/api/v1.0/taxpayer/validate/C1234567890" $queryParams $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $queryParams
    delete_CkHttpResponse $resp
    exit
}

puts [CkHttpResponse_get_StatusCode $resp]
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttp $http
delete_CkJsonObject $queryParams
delete_CkHttpResponse $resp