VB6 / EDS API / Dokuments "Dabasgāzes 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/andv3/: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": "pariatur non",
' "Talrunis": "Lo",
' "Gads": 89856646,
' "Menesis": 0,
' "Statuss1": "laboris irure",
' "NmAkcNumurs": "aliquip sunt ullamco nostrud nulla",
' "TirgotajaRegistraNumurs": "consectetur",
' "Sagatavotajs": "nostrud sunt ullamco labore sed",
' "Statuss2": "do magna amet ullam",
' "R08": {
' "K1": 43479401.08687079,
' "K2": -25115727.483524308,
' "K3": 52093319.40605214,
' "K4": 53088020.4272283
' },
' "R09": {
' "K1": 55479857.23477405,
' "K2": -43343200.35181309,
' "K3": 89558542.55489787,
' "K4": -9626345.85793309
' },
' "R10": {
' "K1": -55233950.41534558,
' "K2": 10190249.896600842,
' "K3": -23803934.392564356,
' "K4": 59683139.56412321
' },
' "R11": {
' "K1": 29451733.61450854,
' "K2": -77410979.61039722,
' "K3": -84542776.01395366,
' "K4": 52488739.0201568
' },
' "R13": {
' "K1": 25800316.967996567,
' "K2": -50620762.31726391,
' "K3": 467074.0438347459,
' "K4": 6734436.869221434
' },
' "R14": {
' "K1": -83423344.34523995,
' "K2": 41682940.60446459,
' "K3": 98979603.80025718,
' "K4": 18091026.672749415
' },
' "R15": {
' "K1": -9349252.019126728,
' "K2": -91733629.54750192,
' "K3": 98983267.81678158,
' "K4": 37516653.4633072
' },
' "R16": {
' "K1": 27719897.995097265,
' "K2": -76196836.14936803,
' "K3": 6673434.053774491,
' "K4": 37492541.265842944
' },
' "R17": {
' "K1": 85818825.49581662,
' "K2": 44329872.8681421,
' "K3": 61118917.10957676,
' "K4": -37803773.906996295
' },
' "R18": {
' "K1": 44163544.30818501,
' "K2": 53383400.61807135,
' "K3": -91456639.17136489,
' "K4": 35986156.825020164
' },
' "R19": {
' "K1": 2950296.6990581304,
' "K2": 41732768.321747094,
' "K3": 3729574.809120521,
' "K4": 81120670.7083838
' },
' "R20": {
' "K1": -47456399.84280552,
' "K2": 30288885.827465698,
' "K3": -72183307.12475236,
' "K4": -85531627.04718873
' },
' "R23": {
' "PielikumsRindai9": {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "FailsNavObligats": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' },
' "PielikumsRindai10": {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "FailsNavObligats": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' },
' "PielikumsRindai19": {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "FailsNavObligats": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' },
' "CitiPielikumi": [
' {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' }
' ]
' },
' "Pielikums11": [
' {
' "NmrKods": "incididunt",
' "NmNosaukums": "reprehenderit est consectetur",
' "Apjoms3": -28208375.988708973,
' "Apjoms4": 9058423.22507739
' },
' {
' "NmrKods": "ut se",
' "NmNosaukums": "reprehenderit velit consectetur",
' "Apjoms3": 58844418.88949904,
' "Apjoms4": 83649228.9580771
' }
' ],
' "Pielikums12": [
' {
' "NmrKods": "occaeca",
' "NmNosaukums": "ex aliqua dolor",
' "Apjoms": 56822590.55009076,
' "NaceKods": "fugia",
' "Merkis": "laborum magna"
' },
' {
' "NmrKods": "null",
' "NmNosaukums": "magna quis",
' "Apjoms": 21674703.90391268,
' "NaceKods": "fug",
' "Merkis": "dolor consectetur"
' }
' ],
' "Pielikums17": [
' {
' "NmrKods": "dolor",
' "NmNosaukums": "Duis",
' "NaceKods": "Duis ",
' "Apjoms": -3577220.83637096
' },
' {
' "NmrKods": "dolor mini",
' "NmNosaukums": "elit",
' "NaceKods": "",
' "Apjoms": -53167619.08360226
' }
' ],
' "Id": 60178603,
' "UID": "qui veniam",
' "NmrKods": "fugiat",
' "Precizejums": false,
' "PrecizejamaisDokuments": 1410994,
' "PrecizejumaPamatojums": "dolor la"
' }
' 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 NmNosaukums As String
Dim Apjoms3 As String
Dim Apjoms4 As String
Dim Apjoms As String
Dim NaceKods As String
Dim Merkis 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 Statuss1 As String
Statuss1 = jResp.StringOf("Statuss1")
Dim NmAkcNumurs As String
NmAkcNumurs = jResp.StringOf("NmAkcNumurs")
Dim TirgotajaRegistraNumurs As String
TirgotajaRegistraNumurs = jResp.StringOf("TirgotajaRegistraNumurs")
Dim Sagatavotajs As String
Sagatavotajs = jResp.StringOf("Sagatavotajs")
Dim Statuss2 As String
Statuss2 = jResp.StringOf("Statuss2")
Dim K1 As String
K1 = jResp.StringOf("R08.K1")
Dim K2 As String
K2 = jResp.StringOf("R08.K2")
Dim K3 As String
K3 = jResp.StringOf("R08.K3")
Dim K4 As String
K4 = jResp.StringOf("R08.K4")
Dim R09K1 As String
R09K1 = jResp.StringOf("R09.K1")
Dim R09K2 As String
R09K2 = jResp.StringOf("R09.K2")
Dim R09K3 As String
R09K3 = jResp.StringOf("R09.K3")
Dim R09K4 As String
R09K4 = jResp.StringOf("R09.K4")
Dim R10K1 As String
R10K1 = jResp.StringOf("R10.K1")
Dim R10K2 As String
R10K2 = jResp.StringOf("R10.K2")
Dim R10K3 As String
R10K3 = jResp.StringOf("R10.K3")
Dim R10K4 As String
R10K4 = jResp.StringOf("R10.K4")
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 R11K4 As String
R11K4 = jResp.StringOf("R11.K4")
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 R13K4 As String
R13K4 = jResp.StringOf("R13.K4")
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 R14K4 As String
R14K4 = jResp.StringOf("R14.K4")
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 R15K4 As String
R15K4 = jResp.StringOf("R15.K4")
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 R16K4 As String
R16K4 = jResp.StringOf("R16.K4")
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 R17K4 As String
R17K4 = jResp.StringOf("R17.K4")
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 R18K4 As String
R18K4 = jResp.StringOf("R18.K4")
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 R19K4 As String
R19K4 = jResp.StringOf("R19.K4")
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 R20K4 As String
R20K4 = jResp.StringOf("R20.K4")
Dim Value As String
Value = jResp.StringOf("R23.PielikumsRindai9.Fails.value")
Dim KomentarsValue As String
KomentarsValue = jResp.StringOf("R23.PielikumsRindai9.Komentars.value")
Dim FailsNavObligatsValue As String
FailsNavObligatsValue = jResp.StringOf("R23.PielikumsRindai9.FailsNavObligats.value")
Dim FailsValue As String
FailsValue = jResp.StringOf("R23.PielikumsRindai10.Fails.value")
KomentarsValue = jResp.StringOf("R23.PielikumsRindai10.Komentars.value")
FailsNavObligatsValue = jResp.StringOf("R23.PielikumsRindai10.FailsNavObligats.value")
FailsValue = jResp.StringOf("R23.PielikumsRindai19.Fails.value")
KomentarsValue = jResp.StringOf("R23.PielikumsRindai19.Komentars.value")
FailsNavObligatsValue = jResp.StringOf("R23.PielikumsRindai19.FailsNavObligats.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("R23.CitiPielikumi")
Do While i < count_i
jResp.I = i
value = jResp.StringOf("R23.CitiPielikumi[i].value")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Pielikums11")
Do While i < count_i
jResp.I = i
NmrKods = jResp.StringOf("Pielikums11[i].NmrKods")
NmNosaukums = jResp.StringOf("Pielikums11[i].NmNosaukums")
Apjoms3 = jResp.StringOf("Pielikums11[i].Apjoms3")
Apjoms4 = jResp.StringOf("Pielikums11[i].Apjoms4")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Pielikums12")
Do While i < count_i
jResp.I = i
NmrKods = jResp.StringOf("Pielikums12[i].NmrKods")
NmNosaukums = jResp.StringOf("Pielikums12[i].NmNosaukums")
Apjoms = jResp.StringOf("Pielikums12[i].Apjoms")
NaceKods = jResp.StringOf("Pielikums12[i].NaceKods")
Merkis = jResp.StringOf("Pielikums12[i].Merkis")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Pielikums17")
Do While i < count_i
jResp.I = i
NmrKods = jResp.StringOf("Pielikums17[i].NmrKods")
NmNosaukums = jResp.StringOf("Pielikums17[i].NmNosaukums")
NaceKods = jResp.StringOf("Pielikums17[i].NaceKods")
Apjoms = jResp.StringOf("Pielikums17[i].Apjoms")
i = i + 1
Loop
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/andv3/:id
Postman Collection Item JSON
{
"name": "Dokuments \"Dabasgāzes akcīzes nodokļa deklarācija\".",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/andv3/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"andv3",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/andv3/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"andv3",
":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\": \"pariatur non\",\n \"Talrunis\": \"Lo\",\n \"Gads\": 89856646,\n \"Menesis\": 0,\n \"Statuss1\": \"laboris irure\",\n \"NmAkcNumurs\": \"aliquip sunt ullamco nostrud nulla\",\n \"TirgotajaRegistraNumurs\": \"consectetur\",\n \"Sagatavotajs\": \"nostrud sunt ullamco labore sed\",\n \"Statuss2\": \"do magna amet ullam\",\n \"R08\": {\n \"K1\": 43479401.08687079,\n \"K2\": -25115727.483524308,\n \"K3\": 52093319.40605214,\n \"K4\": 53088020.4272283\n },\n \"R09\": {\n \"K1\": 55479857.23477405,\n \"K2\": -43343200.35181309,\n \"K3\": 89558542.55489787,\n \"K4\": -9626345.85793309\n },\n \"R10\": {\n \"K1\": -55233950.41534558,\n \"K2\": 10190249.896600842,\n \"K3\": -23803934.392564356,\n \"K4\": 59683139.56412321\n },\n \"R11\": {\n \"K1\": 29451733.61450854,\n \"K2\": -77410979.61039722,\n \"K3\": -84542776.01395366,\n \"K4\": 52488739.0201568\n },\n \"R13\": {\n \"K1\": 25800316.967996567,\n \"K2\": -50620762.31726391,\n \"K3\": 467074.0438347459,\n \"K4\": 6734436.869221434\n },\n \"R14\": {\n \"K1\": -83423344.34523995,\n \"K2\": 41682940.60446459,\n \"K3\": 98979603.80025718,\n \"K4\": 18091026.672749415\n },\n \"R15\": {\n \"K1\": -9349252.019126728,\n \"K2\": -91733629.54750192,\n \"K3\": 98983267.81678158,\n \"K4\": 37516653.4633072\n },\n \"R16\": {\n \"K1\": 27719897.995097265,\n \"K2\": -76196836.14936803,\n \"K3\": 6673434.053774491,\n \"K4\": 37492541.265842944\n },\n \"R17\": {\n \"K1\": 85818825.49581662,\n \"K2\": 44329872.8681421,\n \"K3\": 61118917.10957676,\n \"K4\": -37803773.906996295\n },\n \"R18\": {\n \"K1\": 44163544.30818501,\n \"K2\": 53383400.61807135,\n \"K3\": -91456639.17136489,\n \"K4\": 35986156.825020164\n },\n \"R19\": {\n \"K1\": 2950296.6990581304,\n \"K2\": 41732768.321747094,\n \"K3\": 3729574.809120521,\n \"K4\": 81120670.7083838\n },\n \"R20\": {\n \"K1\": -47456399.84280552,\n \"K2\": 30288885.827465698,\n \"K3\": -72183307.12475236,\n \"K4\": -85531627.04718873\n },\n \"R23\": {\n \"PielikumsRindai9\": {\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 \"FailsNavObligats\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n }\n },\n \"PielikumsRindai10\": {\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 \"FailsNavObligats\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n }\n },\n \"PielikumsRindai19\": {\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 \"FailsNavObligats\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n }\n },\n \"CitiPielikumi\": [\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 \"Pielikums11\": [\n {\n \"NmrKods\": \"incididunt\",\n \"NmNosaukums\": \"reprehenderit est consectetur\",\n \"Apjoms3\": -28208375.988708973,\n \"Apjoms4\": 9058423.22507739\n },\n {\n \"NmrKods\": \"ut se\",\n \"NmNosaukums\": \"reprehenderit velit consectetur\",\n \"Apjoms3\": 58844418.88949904,\n \"Apjoms4\": 83649228.9580771\n }\n ],\n \"Pielikums12\": [\n {\n \"NmrKods\": \"occaeca\",\n \"NmNosaukums\": \"ex aliqua dolor\",\n \"Apjoms\": 56822590.55009076,\n \"NaceKods\": \"fugia\",\n \"Merkis\": \"laborum magna\"\n },\n {\n \"NmrKods\": \"null\",\n \"NmNosaukums\": \"magna quis\",\n \"Apjoms\": 21674703.90391268,\n \"NaceKods\": \"fug\",\n \"Merkis\": \"dolor consectetur\"\n }\n ],\n \"Pielikums17\": [\n {\n \"NmrKods\": \"dolor\",\n \"NmNosaukums\": \"Duis\",\n \"NaceKods\": \"Duis \",\n \"Apjoms\": -3577220.83637096\n },\n {\n \"NmrKods\": \"dolor mini\",\n \"NmNosaukums\": \"elit\",\n \"NaceKods\": \"\",\n \"Apjoms\": -53167619.08360226\n }\n ],\n \"Id\": 60178603,\n \"UID\": \"qui veniam\",\n \"NmrKods\": \"fugiat\",\n \"Precizejums\": false,\n \"PrecizejamaisDokuments\": 1410994,\n \"PrecizejumaPamatojums\": \"dolor la\"\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/andv3/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"andv3",
":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/andv3/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"andv3",
":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/andv3/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"andv3",
":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": ""
}
]
}
