B4X

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. B4X

Dim success As Boolean = 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 = "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 ChilkatPem
pem.Initialize
success = pem.LoadPemFile("c:/aaworkarea/zatca/onboarding/taxpayer.csr", "")
If success = False Then
    Log(pem.LastErrorText)
    Return
End If


'  Get the base64 from the CSR in a single line.
Dim sbCsrBase64 As ChilkatStringBuilder
sbCsrBase64.Initialize
sbCsrBase64.Append(pem.GetEncodedItem("csr", "", "base64", 0))
Dim numReplaced As Int = sbCsrBase64.Replace(Chr(13), "")
numReplaced = sbCsrBase64.Replace(Chr(10), "")
Dim csrBase64 As String = sbCsrBase64.GetAsString
Log(csrBase64)

Dim json As ChilkatJsonObject
json.Initialize
json.EmitCompact = False
json.UpdateSb("csr", sbCsrBase64)

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


If resp.StatusCode <> 200 Then
    Log(resp.BodyStr)
    Log("response status code = " & resp.StatusCode)
    Log("Failed")
    Return
End If


Dim jsonResp As ChilkatJsonObject
jsonResp.Initialize
resp.GetBodyJson(jsonResp)

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