VB6 / EDS API / Dokuments "Informācija par izmaksātajām mācību maksas kompensācijām".
Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
http.SetRequestHeader "Accept","application/json"
Dim sbResponseBody As New ChilkatStringBuilder
success = http.QuickGetSb("https://eds.vid.gov.lv/api/doc/mmkv1/:id",sbResponseBody)
If (success = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
Debug.Print "Response Body:"
Debug.Print jResp.Emit()
Dim respStatusCode As Long
respStatusCode = http.LastStatus
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
Debug.Print "Response Header:"
Debug.Print http.LastHeader
Debug.Print "Failed."
Exit Sub
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "Epasts": "eu ullamco tempor Lorem",
' "Talrunis": "officia",
' "Sagatavotajs": "in Duis Ut deserunt",
' "TaksGads": 60230675,
' "Tabula": [
' {
' "PersonasKods": "proident",
' "VardsUzvards": "aute do ex",
' "IzmaksataSumma": 42442965.83049789,
' "IzmaksasDatums": "2000-01-31T00:00:00",
' "KalendaraGads": "commodo"
' },
' {
' "PersonasKods": "",
' "VardsUzvards": "consequat sunt exercitation",
' "IzmaksataSumma": -45672749.45368695,
' "IzmaksasDatums": "2000-01-31T00:00:00",
' "KalendaraGads": "cupidatat in"
' }
' ],
' "Id": -55722484,
' "UID": "minim laborum",
' "NmrKods": "occaecat u",
' "Precizejums": true,
' "PrecizejamaisDokuments": -97716760,
' "PrecizejumaPamatojums": "non et"
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim PersonasKods As String
Dim VardsUzvards As String
Dim IzmaksataSumma As String
Dim IzmaksasDatums As String
Dim KalendaraGads As String
Dim Epasts As String
Epasts = jResp.StringOf("Epasts")
Dim Talrunis As String
Talrunis = jResp.StringOf("Talrunis")
Dim Sagatavotajs As String
Sagatavotajs = jResp.StringOf("Sagatavotajs")
Dim TaksGads As Long
TaksGads = jResp.IntOf("TaksGads")
Dim Id As Long
Id = jResp.IntOf("Id")
Dim UID As String
UID = jResp.StringOf("UID")
Dim NmrKods As String
NmrKods = jResp.StringOf("NmrKods")
Dim Precizejums As Long
Precizejums = jResp.BoolOf("Precizejums")
Dim PrecizejamaisDokuments As Long
PrecizejamaisDokuments = jResp.IntOf("PrecizejamaisDokuments")
Dim PrecizejumaPamatojums As String
PrecizejumaPamatojums = jResp.StringOf("PrecizejumaPamatojums")
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("Tabula")
Do While i < count_i
jResp.I = i
PersonasKods = jResp.StringOf("Tabula[i].PersonasKods")
VardsUzvards = jResp.StringOf("Tabula[i].VardsUzvards")
IzmaksataSumma = jResp.StringOf("Tabula[i].IzmaksataSumma")
IzmaksasDatums = jResp.StringOf("Tabula[i].IzmaksasDatums")
KalendaraGads = jResp.StringOf("Tabula[i].KalendaraGads")
i = i + 1
Loop
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/mmkv1/:id
Postman Collection Item JSON
{
"name": "Dokuments \"Informācija par izmaksātajām mācību maksas kompensācijām\".",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/mmkv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"mmkv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/mmkv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"mmkv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "OK",
"code": 200,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Content-Type",
"value": "application/json"
}
],
"cookie": [
],
"body": "{\n \"Epasts\": \"eu ullamco tempor Lorem\",\n \"Talrunis\": \"officia\",\n \"Sagatavotajs\": \"in Duis Ut deserunt\",\n \"TaksGads\": 60230675,\n \"Tabula\": [\n {\n \"PersonasKods\": \"proident\",\n \"VardsUzvards\": \"aute do ex\",\n \"IzmaksataSumma\": 42442965.83049789,\n \"IzmaksasDatums\": \"2000-01-31T00:00:00\",\n \"KalendaraGads\": \"commodo\"\n },\n {\n \"PersonasKods\": \"\",\n \"VardsUzvards\": \"consequat sunt exercitation\",\n \"IzmaksataSumma\": -45672749.45368695,\n \"IzmaksasDatums\": \"2000-01-31T00:00:00\",\n \"KalendaraGads\": \"cupidatat in\"\n }\n ],\n \"Id\": -55722484,\n \"UID\": \"minim laborum\",\n \"NmrKods\": \"occaecat u\",\n \"Precizejums\": true,\n \"PrecizejamaisDokuments\": -97716760,\n \"PrecizejumaPamatojums\": \"non et\"\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/mmkv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"mmkv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "Unauthorized",
"code": 401,
"_postman_previewlanguage": "text",
"header": [
{
"key": "Content-Type",
"value": "text/plain"
}
],
"cookie": [
],
"body": ""
},
{
"name": "Dokuments neeksistē vai lietotājam nav tiesību.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/mmkv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"mmkv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "Forbidden",
"code": 403,
"_postman_previewlanguage": "text",
"header": [
{
"key": "Content-Type",
"value": "text/plain"
}
],
"cookie": [
],
"body": ""
},
{
"name": "Pārsniegts izsaukumu skaita ierobežojums.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/mmkv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"mmkv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"status": "Too Many Requests",
"code": 429,
"_postman_previewlanguage": "text",
"header": [
{
"key": "Content-Type",
"value": "text/plain"
}
],
"cookie": [
],
"body": ""
}
]
}