VB6 / EDS API / Dokuments "Kafijas un bezalkoholisko dzērienu akcīzes nodokļa deklarācija".
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/ankbv2/: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": "consectetur aliqui",
' "Talrunis": "Lorem est ",
' "Gads": 55791739,
' "Menesis": 3,
' "Datums": "2000-01-31T00:00:00",
' "SamTermins": "2000-01-31T00:00:00",
' "Statuss": "non nostrud ut aute",
' "R08": "elit aliquip esse culpa ad",
' "R09": "incididunt cillum ex",
' "Sagatavotajs": "dolore magna",
' "R10": {
' "K1": 56269837.42085248,
' "K2": -97298581.74073067,
' "K3": 12294961.351833716
' },
' "R11": {
' "K1": 41022931.67948061,
' "K2": -68712318.08074483,
' "K3": 90842091.99793217
' },
' "R12": {
' "K1": 84287865.76155868,
' "K2": -75203210.86545718,
' "K3": 96069798.82083505
' },
' "R13": {
' "K1": 19153612.749102816,
' "K2": 69191084.53138548,
' "K3": -41146809.24410861
' },
' "R14": {
' "K1": -25589893.00259231,
' "K2": -40394478.88604588,
' "K3": -67509512.05558807
' },
' "R15": {
' "K1": -13389900.565754324,
' "K2": -67256828.72786547,
' "K3": 9963358.057663158
' },
' "R16": {
' "K1": 40630728.91606638,
' "K2": 36694283.38713309,
' "K3": -94233825.83611923
' },
' "R17": {
' "K1": 9514933.913133025,
' "K2": -96214731.34989595,
' "K3": -40894391.21104315
' },
' "R18": {
' "K1": -26335901.074957892,
' "K2": 89969023.26793891,
' "K3": -32821793.514351994
' },
' "R19": {
' "K1": -66751306.14344158,
' "K2": -81422919.1551168,
' "K3": 83748164.62387183
' },
' "R20": {
' "K1": -92844504.24250332,
' "K2": 9964276.005876243,
' "K3": 55762994.440933555
' },
' "R21": {
' "K1": 68143846.12130961,
' "K2": -70891897.90269752,
' "K3": -323941.36614084244
' },
' "R22": {
' "K1": -59236603.09707017,
' "K2": -77585980.67387563,
' "K3": 81620375.05168778
' },
' "R23": {
' "K1": 84614414.77212152,
' "K2": -13312758.937248185,
' "K3": -19915436.80421537
' },
' "R24": {
' "K1": 5935688.459061697,
' "K2": -69949002.14066488,
' "K3": -44295563.71114125
' },
' "R25": {
' "K1": 35596437.75422415,
' "K2": -59318538.3605745,
' "K3": 76529327.62100697
' },
' "R26": {
' "K1": 43057819.54356083,
' "K2": 29875064.405484915,
' "K3": 64398434.4663541
' },
' "R27": {
' "K1": 13984380.364867061,
' "K2": -32033218.33421868,
' "K3": -42390871.13414248
' },
' "R29": {
' "PielikumsRindai11": {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' },
' "PielikumsRindai25": {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' },
' "CitiDokumenti": [
' {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' ]
' },
' "Id": -79018099,
' "UID": "eu consequat do",
' "NmrKods": "est temp",
' "Precizejums": true,
' "PrecizejamaisDokuments": -14482926,
' "PrecizejumaPamatojums": "ullamco commodo"
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim value As String
Dim Epasts As String
Epasts = jResp.StringOf("Epasts")
Dim Talrunis As String
Talrunis = jResp.StringOf("Talrunis")
Dim Gads As Long
Gads = jResp.IntOf("Gads")
Dim Menesis As Long
Menesis = jResp.IntOf("Menesis")
Dim Datums As String
Datums = jResp.StringOf("Datums")
Dim SamTermins As String
SamTermins = jResp.StringOf("SamTermins")
Dim Statuss As String
Statuss = jResp.StringOf("Statuss")
Dim R08 As String
R08 = jResp.StringOf("R08")
Dim R09 As String
R09 = jResp.StringOf("R09")
Dim Sagatavotajs As String
Sagatavotajs = jResp.StringOf("Sagatavotajs")
Dim K1 As String
K1 = jResp.StringOf("R10.K1")
Dim K2 As String
K2 = jResp.StringOf("R10.K2")
Dim K3 As String
K3 = jResp.StringOf("R10.K3")
Dim R11K1 As String
R11K1 = jResp.StringOf("R11.K1")
Dim R11K2 As String
R11K2 = jResp.StringOf("R11.K2")
Dim R11K3 As String
R11K3 = jResp.StringOf("R11.K3")
Dim R12K1 As String
R12K1 = jResp.StringOf("R12.K1")
Dim R12K2 As String
R12K2 = jResp.StringOf("R12.K2")
Dim R12K3 As String
R12K3 = jResp.StringOf("R12.K3")
Dim R13K1 As String
R13K1 = jResp.StringOf("R13.K1")
Dim R13K2 As String
R13K2 = jResp.StringOf("R13.K2")
Dim R13K3 As String
R13K3 = jResp.StringOf("R13.K3")
Dim R14K1 As String
R14K1 = jResp.StringOf("R14.K1")
Dim R14K2 As String
R14K2 = jResp.StringOf("R14.K2")
Dim R14K3 As String
R14K3 = jResp.StringOf("R14.K3")
Dim R15K1 As String
R15K1 = jResp.StringOf("R15.K1")
Dim R15K2 As String
R15K2 = jResp.StringOf("R15.K2")
Dim R15K3 As String
R15K3 = jResp.StringOf("R15.K3")
Dim R16K1 As String
R16K1 = jResp.StringOf("R16.K1")
Dim R16K2 As String
R16K2 = jResp.StringOf("R16.K2")
Dim R16K3 As String
R16K3 = jResp.StringOf("R16.K3")
Dim R17K1 As String
R17K1 = jResp.StringOf("R17.K1")
Dim R17K2 As String
R17K2 = jResp.StringOf("R17.K2")
Dim R17K3 As String
R17K3 = jResp.StringOf("R17.K3")
Dim R18K1 As String
R18K1 = jResp.StringOf("R18.K1")
Dim R18K2 As String
R18K2 = jResp.StringOf("R18.K2")
Dim R18K3 As String
R18K3 = jResp.StringOf("R18.K3")
Dim R19K1 As String
R19K1 = jResp.StringOf("R19.K1")
Dim R19K2 As String
R19K2 = jResp.StringOf("R19.K2")
Dim R19K3 As String
R19K3 = jResp.StringOf("R19.K3")
Dim R20K1 As String
R20K1 = jResp.StringOf("R20.K1")
Dim R20K2 As String
R20K2 = jResp.StringOf("R20.K2")
Dim R20K3 As String
R20K3 = jResp.StringOf("R20.K3")
Dim R21K1 As String
R21K1 = jResp.StringOf("R21.K1")
Dim R21K2 As String
R21K2 = jResp.StringOf("R21.K2")
Dim R21K3 As String
R21K3 = jResp.StringOf("R21.K3")
Dim R22K1 As String
R22K1 = jResp.StringOf("R22.K1")
Dim R22K2 As String
R22K2 = jResp.StringOf("R22.K2")
Dim R22K3 As String
R22K3 = jResp.StringOf("R22.K3")
Dim R23K1 As String
R23K1 = jResp.StringOf("R23.K1")
Dim R23K2 As String
R23K2 = jResp.StringOf("R23.K2")
Dim R23K3 As String
R23K3 = jResp.StringOf("R23.K3")
Dim R24K1 As String
R24K1 = jResp.StringOf("R24.K1")
Dim R24K2 As String
R24K2 = jResp.StringOf("R24.K2")
Dim R24K3 As String
R24K3 = jResp.StringOf("R24.K3")
Dim R25K1 As String
R25K1 = jResp.StringOf("R25.K1")
Dim R25K2 As String
R25K2 = jResp.StringOf("R25.K2")
Dim R25K3 As String
R25K3 = jResp.StringOf("R25.K3")
Dim R26K1 As String
R26K1 = jResp.StringOf("R26.K1")
Dim R26K2 As String
R26K2 = jResp.StringOf("R26.K2")
Dim R26K3 As String
R26K3 = jResp.StringOf("R26.K3")
Dim R27K1 As String
R27K1 = jResp.StringOf("R27.K1")
Dim R27K2 As String
R27K2 = jResp.StringOf("R27.K2")
Dim R27K3 As String
R27K3 = jResp.StringOf("R27.K3")
Dim Value As String
Value = jResp.StringOf("R29.PielikumsRindai11.Fails.value")
Dim KomentarsValue As String
KomentarsValue = jResp.StringOf("R29.PielikumsRindai11.Komentars.value")
Dim FailsValue As String
FailsValue = jResp.StringOf("R29.PielikumsRindai25.Fails.value")
KomentarsValue = jResp.StringOf("R29.PielikumsRindai25.Komentars.value")
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("R29.CitiDokumenti")
Do While i < count_i
jResp.I = i
value = jResp.StringOf("R29.CitiDokumenti[i].value")
i = i + 1
Loop
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/ankbv2/:id
Postman Collection Item JSON
{
"name": "Dokuments \"Kafijas un bezalkoholisko dzērienu akcīzes nodokļa deklarācija\".",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/ankbv2/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"ankbv2",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/ankbv2/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"ankbv2",
":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\": \"consectetur aliqui\",\n \"Talrunis\": \"Lorem est \",\n \"Gads\": 55791739,\n \"Menesis\": 3,\n \"Datums\": \"2000-01-31T00:00:00\",\n \"SamTermins\": \"2000-01-31T00:00:00\",\n \"Statuss\": \"non nostrud ut aute\",\n \"R08\": \"elit aliquip esse culpa ad\",\n \"R09\": \"incididunt cillum ex\",\n \"Sagatavotajs\": \"dolore magna\",\n \"R10\": {\n \"K1\": 56269837.42085248,\n \"K2\": -97298581.74073067,\n \"K3\": 12294961.351833716\n },\n \"R11\": {\n \"K1\": 41022931.67948061,\n \"K2\": -68712318.08074483,\n \"K3\": 90842091.99793217\n },\n \"R12\": {\n \"K1\": 84287865.76155868,\n \"K2\": -75203210.86545718,\n \"K3\": 96069798.82083505\n },\n \"R13\": {\n \"K1\": 19153612.749102816,\n \"K2\": 69191084.53138548,\n \"K3\": -41146809.24410861\n },\n \"R14\": {\n \"K1\": -25589893.00259231,\n \"K2\": -40394478.88604588,\n \"K3\": -67509512.05558807\n },\n \"R15\": {\n \"K1\": -13389900.565754324,\n \"K2\": -67256828.72786547,\n \"K3\": 9963358.057663158\n },\n \"R16\": {\n \"K1\": 40630728.91606638,\n \"K2\": 36694283.38713309,\n \"K3\": -94233825.83611923\n },\n \"R17\": {\n \"K1\": 9514933.913133025,\n \"K2\": -96214731.34989595,\n \"K3\": -40894391.21104315\n },\n \"R18\": {\n \"K1\": -26335901.074957892,\n \"K2\": 89969023.26793891,\n \"K3\": -32821793.514351994\n },\n \"R19\": {\n \"K1\": -66751306.14344158,\n \"K2\": -81422919.1551168,\n \"K3\": 83748164.62387183\n },\n \"R20\": {\n \"K1\": -92844504.24250332,\n \"K2\": 9964276.005876243,\n \"K3\": 55762994.440933555\n },\n \"R21\": {\n \"K1\": 68143846.12130961,\n \"K2\": -70891897.90269752,\n \"K3\": -323941.36614084244\n },\n \"R22\": {\n \"K1\": -59236603.09707017,\n \"K2\": -77585980.67387563,\n \"K3\": 81620375.05168778\n },\n \"R23\": {\n \"K1\": 84614414.77212152,\n \"K2\": -13312758.937248185,\n \"K3\": -19915436.80421537\n },\n \"R24\": {\n \"K1\": 5935688.459061697,\n \"K2\": -69949002.14066488,\n \"K3\": -44295563.71114125\n },\n \"R25\": {\n \"K1\": 35596437.75422415,\n \"K2\": -59318538.3605745,\n \"K3\": 76529327.62100697\n },\n \"R26\": {\n \"K1\": 43057819.54356083,\n \"K2\": 29875064.405484915,\n \"K3\": 64398434.4663541\n },\n \"R27\": {\n \"K1\": 13984380.364867061,\n \"K2\": -32033218.33421868,\n \"K3\": -42390871.13414248\n },\n \"R29\": {\n \"PielikumsRindai11\": {\n \"Fails\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n },\n \"Komentars\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n }\n },\n \"PielikumsRindai25\": {\n \"Fails\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n },\n \"Komentars\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n }\n },\n \"CitiDokumenti\": [\n {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n },\n {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n }\n ]\n },\n \"Id\": -79018099,\n \"UID\": \"eu consequat do\",\n \"NmrKods\": \"est temp\",\n \"Precizejums\": true,\n \"PrecizejamaisDokuments\": -14482926,\n \"PrecizejumaPamatojums\": \"ullamco commodo\"\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/ankbv2/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"ankbv2",
":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/ankbv2/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"ankbv2",
":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/ankbv2/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"ankbv2",
":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": ""
}
]
}
