VBScript / EDS API / Dokuments "Paziņojums par kapitālsabiedrības valsts kapitāla izmantošanu".
Back to Collection Items
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")
http.SetRequestHeader "Accept","application/json"
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://eds.vid.gov.lv/api/doc/kvkiv1/:id",sbResponseBody)
If (success = 0) Then
outFile.WriteLine(http.LastErrorText)
WScript.Quit
End If
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jResp = CreateObject("Chilkat.JsonObject")
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())
respStatusCode = http.LastStatus
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
outFile.WriteLine("Response Header:")
outFile.WriteLine(http.LastHeader)
outFile.WriteLine("Failed.")
WScript.Quit
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "Talrunis": "Duis s",
' "SapulceGadaParskats": "2000-01-31T00:00:00",
' "SapulceIzmaksa": "2000-01-31T00:00:00",
' "Pamatkapitals": 90212148.52912736,
' "Pelna": -72905987.0307577,
' "IemaksajamaSumma": 27706721.681724608,
' "IemaksasDatums": "2000-01-31T00:00:00",
' "TaksGads": -52696560,
' "ValstsParstavji": [
' {
' "ValstsParstavis": "magna in nostrud",
' "ValstsDala": 3.865663881687098
' },
' {
' "ValstsParstavis": "adipisicing amet",
' "ValstsDala": 13.633319635530782
' }
' ],
' "MeituSabiedribas": [
' {
' "ValstsKods": "mo",
' "NmrKods": "elit",
' "Nosaukums": "ipsum consequat deserunt in exercitation"
' },
' {
' "ValstsKods": "d",
' "NmrKods": "exercitatio",
' "Nosaukums": "cillum minim dolor"
' }
' ],
' "PelnaMeitu": -78146907.7543265,
' "IenakumuIemaksa": -94222836.58243935,
' "Pielikumi": [
' {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": "sit nulla tempor"
' },
' {
' "Fails": {
' "value": "<Error: Too many levels of nesting to fake this schema>"
' },
' "Komentars": "aute et cillum mollit"
' }
' ],
' "Id": 62935092,
' "UID": "non ut",
' "NmrKods": "nostrud q",
' "Precizejums": true,
' "PrecizejamaisDokuments": 7244971,
' "PrecizejumaPamatojums": "fugiat officia aliqua ullamco"
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Talrunis = jResp.StringOf("Talrunis")
SapulceGadaParskats = jResp.StringOf("SapulceGadaParskats")
SapulceIzmaksa = jResp.StringOf("SapulceIzmaksa")
Pamatkapitals = jResp.StringOf("Pamatkapitals")
Pelna = jResp.StringOf("Pelna")
IemaksajamaSumma = jResp.StringOf("IemaksajamaSumma")
IemaksasDatums = jResp.StringOf("IemaksasDatums")
TaksGads = jResp.IntOf("TaksGads")
PelnaMeitu = jResp.StringOf("PelnaMeitu")
IenakumuIemaksa = jResp.StringOf("IenakumuIemaksa")
Id = jResp.IntOf("Id")
UID = jResp.StringOf("UID")
NmrKods = jResp.StringOf("NmrKods")
Precizejums = jResp.BoolOf("Precizejums")
PrecizejamaisDokuments = jResp.IntOf("PrecizejamaisDokuments")
PrecizejumaPamatojums = jResp.StringOf("PrecizejumaPamatojums")
i = 0
count_i = jResp.SizeOfArray("ValstsParstavji")
Do While i < count_i
jResp.I = i
ValstsParstavis = jResp.StringOf("ValstsParstavji[i].ValstsParstavis")
ValstsDala = jResp.StringOf("ValstsParstavji[i].ValstsDala")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("MeituSabiedribas")
Do While i < count_i
jResp.I = i
ValstsKods = jResp.StringOf("MeituSabiedribas[i].ValstsKods")
NmrKods = jResp.StringOf("MeituSabiedribas[i].NmrKods")
Nosaukums = jResp.StringOf("MeituSabiedribas[i].Nosaukums")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Pielikumi")
Do While i < count_i
jResp.I = i
Value = jResp.StringOf("Pielikumi[i].Fails.value")
Komentars = jResp.StringOf("Pielikumi[i].Komentars")
i = i + 1
Loop
outFile.Close
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/kvkiv1/:id
Postman Collection Item JSON
{
"name": "Dokuments \"Paziņojums par kapitālsabiedrības valsts kapitāla izmantošanu\".",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/kvkiv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"kvkiv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/kvkiv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"kvkiv1",
":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 \"Talrunis\": \"Duis s\",\n \"SapulceGadaParskats\": \"2000-01-31T00:00:00\",\n \"SapulceIzmaksa\": \"2000-01-31T00:00:00\",\n \"Pamatkapitals\": 90212148.52912736,\n \"Pelna\": -72905987.0307577,\n \"IemaksajamaSumma\": 27706721.681724608,\n \"IemaksasDatums\": \"2000-01-31T00:00:00\",\n \"TaksGads\": -52696560,\n \"ValstsParstavji\": [\n {\n \"ValstsParstavis\": \"magna in nostrud\",\n \"ValstsDala\": 3.865663881687098\n },\n {\n \"ValstsParstavis\": \"adipisicing amet\",\n \"ValstsDala\": 13.633319635530782\n }\n ],\n \"MeituSabiedribas\": [\n {\n \"ValstsKods\": \"mo\",\n \"NmrKods\": \"elit\",\n \"Nosaukums\": \"ipsum consequat deserunt in exercitation\"\n },\n {\n \"ValstsKods\": \"d\",\n \"NmrKods\": \"exercitatio\",\n \"Nosaukums\": \"cillum minim dolor\"\n }\n ],\n \"PelnaMeitu\": -78146907.7543265,\n \"IenakumuIemaksa\": -94222836.58243935,\n \"Pielikumi\": [\n {\n \"Fails\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n },\n \"Komentars\": \"sit nulla tempor\"\n },\n {\n \"Fails\": {\n \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n },\n \"Komentars\": \"aute et cillum mollit\"\n }\n ],\n \"Id\": 62935092,\n \"UID\": \"non ut\",\n \"NmrKods\": \"nostrud q\",\n \"Precizejums\": true,\n \"PrecizejamaisDokuments\": 7244971,\n \"PrecizejumaPamatojums\": \"fugiat officia aliqua ullamco\"\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/kvkiv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"kvkiv1",
":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/kvkiv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"kvkiv1",
":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/kvkiv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"kvkiv1",
":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": ""
}
]
}
