Xojo Plugin

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. Xojo Plugin

Dim success As Boolean
success = False

// 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.
Dim otp As String
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-----

Dim pem As New Chilkat.Pem
success = pem.LoadPemFile("c:/aaworkarea/zatca/onboarding/taxpayer.csr","")
If (success = False) Then
    System.DebugLog(pem.LastErrorText)
    Return
End If

// Get the base64 from the CSR in a single line.
Dim sbCsrBase64 As New Chilkat.StringBuilder
success = sbCsrBase64.Append(pem.GetEncodedItem("csr","","base64",0))
Dim numReplaced As Int32
numReplaced = sbCsrBase64.Replace(EndOfLine.Macintosh,"")
numReplaced = sbCsrBase64.Replace(EndOfLine.Unix,"")
Dim csrBase64 As String
csrBase64 = sbCsrBase64.GetAsString()
System.DebugLog(csrBase64)

Dim json As New Chilkat.JsonObject
json.EmitCompact = False
success = json.UpdateSb("csr",sbCsrBase64)

Dim http As New Chilkat.Http
http.Accept = "application/json"
http.SetRequestHeader "OTP",otp
http.SetRequestHeader "Accept-Version","V2"
Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST","https://gw-apic-gov.gazt.gov.sa/e-invoicing/core/compliance",json,"application/json",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

If (resp.StatusCode <> 200) Then
    System.DebugLog(resp.BodyStr)
    System.DebugLog("response status code = " + Str(resp.StatusCode))
    System.DebugLog("Failed")
    Return
End If

Dim jsonResp As New Chilkat.JsonObject
success = resp.GetBodyJson(jsonResp)

jsonResp.EmitCompact = False
System.DebugLog("JSON response:")
System.DebugLog(jsonResp.Emit())