VB.NET

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. VB.NET

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 New Chilkat.Pem
success = pem.LoadPemFile("c:/aaworkarea/zatca/onboarding/taxpayer.csr","")
If (success = False) Then
    Debug.WriteLine(pem.LastErrorText)
    Exit Sub
End If


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

Dim json As New Chilkat.JsonObject
json.EmitCompact = False
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
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


If (resp.StatusCode <> 200) Then
    Debug.WriteLine(resp.BodyStr)
    Debug.WriteLine("response status code = " & resp.StatusCode)
    Debug.WriteLine("Failed")
    Exit Sub
End If


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

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