Lua

ZATCA Onboarding Get Compliance CSID

See more ZATCA Examples

Demonstrates sending a POST to get a compliance CSID, which is two parts: A binary security token, and a secret. Lua

local chilkat = require("chilkat")

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

-- It is assumed you've already generated a CSR.
-- Also, you'll need an OTP code, valid for 1 hour, which is generated online in the Fatoora portal.  See
-- https://zatca.gov.sa/ar/E-Invoicing/Introduction/Guidelines/Documents/E-invoicing%20Detailed%20Technical%20Guidelines.pdf

-- Manually replace this with the OTP code you interactively obtained in a browser session from the Fatoora portal.
-- The OTP code is valid for 1 hour.
local otp = "123434"

-- You should already have a CSR in a file containing something that looks like this:

-- -----BEGIN CERTIFICATE REQUEST-----
-- MIIB5DCCAYsCAQAwTDELMAkGA1UEBhMCU0ExFTATBgNVBAsMDFJpeWFkIEJyYW5j
-- aDEQMA4GA1UECgwHQ29udG9zbzEUMBIGA1UEAwwLRUExMjM0NTY3ODkwVjAQBgcq
-- hkjOPQIBBgUrgQQACgNCAAQI6op+6GQ4Gmn9oy0DpGxX0lFtUIvj+4Jtnp0VyEsH
-- +ZO7lpgksbRC484R3fAsO0v+Ly24ZIUIOYEIAeJ1f6AooIHfMIHcBgkqhkiG9w0B
-- CQ4xgc4wgcswIQYJKwYBBAGCNxQCBBQTElpBVENBLUNvZGUtU2lnbmluZzCBpQYD
-- VR0RBIGdMIGapIGXMIGUMTswOQYDVQQEDDIxLVRTVHwyLVRTVHwzLWVkMjJmMWQ4
-- LWU2YTItMTExOC05YjU4LWQ5YThmMTFlNDQ1ZjEfMB0GCgmSJomT8ixkAQEMDzMx
-- MDEyMjM5MzUwMDAwMzENMAsGA1UEDAwEMTEwMDESMBAGA1UEGgwJTXlBZGRyZXNz
-- MREwDwYDVQQPDAhJbmR1c3RyeTAKBggqhkjOPQQDAgNHADBEAiBurm6KdAeHfXzt
-- h/jk8xSMBP4TAkkFrg+hWDhfI0/SuAIgJi8ectM7YwBIBCmf0tdFcVTU7GBbvjnK
-- xValZCAO39M=
-- -----END CERTIFICATE REQUEST-----

local pem = chilkat.Pem.new()
local success = pem:load_pem_file("c:/aaworkarea/zatca/onboarding/taxpayer.csr", "")
if not success then
    print(pem.last_error_text)
    return
end

-- Get the base64 from the CSR in a single line.
local sbCsrBase64 = chilkat.StringBuilder.new()
sbCsrBase64:append(pem:get_encoded_item("csr", "", "base64", 0))
local numReplaced = sbCsrBase64:replace("\r", "")
numReplaced = sbCsrBase64:replace("\n", "")
local csrBase64 = sbCsrBase64:get_as_string()
print(csrBase64)

local json = chilkat.JsonObject.new()
json.emit_compact = false
json:update_sb("csr", sbCsrBase64)

local http = chilkat.Http.new()
http.accept = "application/json"
http:set_request_header("OTP", otp)
http:set_request_header("Accept-Version", "V2")
local resp = chilkat.HttpResponse.new()
success = http:http_json("POST", "https://gw-apic-gov.gazt.gov.sa/e-invoicing/core/compliance", json, "application/json", resp)
if not success then
    print(http.last_error_text)
    return
end

if resp.status_code ~= 200 then
    print(resp.body_str)
    print("response status code = " .. resp.status_code)
    print("Failed")
    return
end

local jsonResp = chilkat.JsonObject.new()
resp:get_body_json(jsonResp)

jsonResp.emit_compact = false
print("JSON response:")
print(jsonResp:emit())