Chilkat Online Tools

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": ""
    }
  ]
}