(Visual Basic 6.0) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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 ChilkatPem
Dim success As Long
success = pem.LoadPemFile("c:/aaworkarea/zatca/onboarding/taxpayer.csr","")
If (success = 0) Then
    Debug.Print pem.LastErrorText
    Exit Sub
End If

' Get the base64 from the CSR in a single line.
Dim sbCsrBase64 As New ChilkatStringBuilder
success = sbCsrBase64.Append(pem.GetEncodedItem("csr","","base64",0))
Dim numReplaced As Long
numReplaced = sbCsrBase64.Replace(vbCr,"")
numReplaced = sbCsrBase64.Replace(vbLf,"")
Dim csrBase64 As String
csrBase64 = sbCsrBase64.GetAsString()
Debug.Print csrBase64

Dim json As New ChilkatJsonObject
json.EmitCompact = 0
success = json.UpdateSb("csr",sbCsrBase64)

Dim http As New ChilkatHttp
http.Accept = "application/json"
http.SetRequestHeader "OTP",otp
http.SetRequestHeader "Accept-Version","V2"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://gw-apic-gov.gazt.gov.sa/e-invoicing/core/compliance","application/json",json)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

If (resp.StatusCode <> 200) Then
    Debug.Print resp.BodyStr
    Debug.Print "response status code = " & resp.StatusCode
    Debug.Print "Failed"

    Exit Sub
End If

Dim jsonResp As New ChilkatJsonObject
success = resp.GetBodyJson(jsonResp)

jsonResp.EmitCompact = 0
Debug.Print "JSON response:"
Debug.Print jsonResp.Emit()