Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL lcOtp
LOCAL loPem
LOCAL loSbCsrBase64
LOCAL lnNumReplaced
LOCAL lcCsrBase64
LOCAL loJson
LOCAL loHttp
LOCAL loResp
LOCAL loJsonResp

lnSuccess = 0

* 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.
lcOtp = "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-----

loPem = CreateObject('Chilkat.Pem')
lnSuccess = loPem.LoadPemFile("c:/aaworkarea/zatca/onboarding/taxpayer.csr","")
IF (lnSuccess = 0) THEN
    ? loPem.LastErrorText
    RELEASE loPem
    CANCEL
ENDIF

* Get the base64 from the CSR in a single line.
loSbCsrBase64 = CreateObject('Chilkat.StringBuilder')
loSbCsrBase64.Append(loPem.GetEncodedItem("csr","","base64",0))
lnNumReplaced = loSbCsrBase64.Replace(CHR(13),"")
lnNumReplaced = loSbCsrBase64.Replace(CHR(10),"")
lcCsrBase64 = loSbCsrBase64.GetAsString()
? lcCsrBase64

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
loJson.UpdateSb("csr",loSbCsrBase64)

loHttp = CreateObject('Chilkat.Http')
loHttp.Accept = "application/json"
loHttp.SetRequestHeader("OTP",lcOtp)
loHttp.SetRequestHeader("Accept-Version","V2")
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://gw-apic-gov.gazt.gov.sa/e-invoicing/core/compliance",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loPem
    RELEASE loSbCsrBase64
    RELEASE loJson
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

IF (loResp.StatusCode <> 200) THEN
    ? loResp.BodyStr
    ? "response status code = " + STR(loResp.StatusCode)
    ? "Failed"
    RELEASE loPem
    RELEASE loSbCsrBase64
    RELEASE loJson
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

loJsonResp = CreateObject('Chilkat.JsonObject')
loResp.GetBodyJson(loJsonResp)

loJsonResp.EmitCompact = 0
? "JSON response:"
? loJsonResp.Emit()

RELEASE loPem
RELEASE loSbCsrBase64
RELEASE loJson
RELEASE loHttp
RELEASE loResp
RELEASE loJsonResp