VBScript / EDS API / Dokumenta pamatdati.
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/: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)
' {
' "ParbaudesRezultats": {
' "Kluda": [
' "dolor ad aliqua",
' "commodo enim est"
' ],
' "Bridinajums": [
' "aliqua adipisicing eiusmod incididunt",
' "Ut eiusmod laborum"
' ],
' "Informacija": [
' "exercitation inc",
' "irure amet ut"
' ],
' "Apstiprinajums": [
' "labore eu magna irure",
' "dolor laboris tempor"
' ]
' },
' "SanemtasAtbildes": [
' {
' "Tips": "ex dolore amet",
' "Datums": "2000-01-31T00:00:00",
' "Teksts": "commodo sint minim"
' },
' {
' "Tips": "in laborum",
' "Datums": "2000-01-31T00:00:00",
' "Teksts": "in fugiat"
' }
' ],
' "Id": -19950873,
' "Izveidots": "2000-01-31T00:00:00",
' "Iesniegts": "2000-01-31T00:00:00",
' "DokumentaVersija": "cillum ut magna adipisicing aliqua",
' "DokumentaVeids": "ex magna reprehenderit",
' "PeriodsNo": "2000-01-31T00:00:00",
' "PeriodsLidz": "2000-01-31T00:00:00",
' "Papildinformacija": "pariatur tempor occ",
' "StatussId": 94653878,
' "Statuss": "aliquip occaec",
' "IrBridinajumi": true,
' "VarIesniegt": true,
' "VarDzest": true,
' "IrSanemtasAtbildes": true,
' "Arhivets": false
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Id = jResp.IntOf("Id")
Izveidots = jResp.StringOf("Izveidots")
Iesniegts = jResp.StringOf("Iesniegts")
DokumentaVersija = jResp.StringOf("DokumentaVersija")
DokumentaVeids = jResp.StringOf("DokumentaVeids")
PeriodsNo = jResp.StringOf("PeriodsNo")
PeriodsLidz = jResp.StringOf("PeriodsLidz")
Papildinformacija = jResp.StringOf("Papildinformacija")
StatussId = jResp.IntOf("StatussId")
Statuss = jResp.StringOf("Statuss")
IrBridinajumi = jResp.BoolOf("IrBridinajumi")
VarIesniegt = jResp.BoolOf("VarIesniegt")
VarDzest = jResp.BoolOf("VarDzest")
IrSanemtasAtbildes = jResp.BoolOf("IrSanemtasAtbildes")
Arhivets = jResp.BoolOf("Arhivets")
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Kluda")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Kluda[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Bridinajums")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Bridinajums[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Informacija")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Informacija[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("ParbaudesRezultats.Apstiprinajums")
Do While i < count_i
jResp.I = i
strVal = jResp.StringOf("ParbaudesRezultats.Apstiprinajums[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("SanemtasAtbildes")
Do While i < count_i
jResp.I = i
Tips = jResp.StringOf("SanemtasAtbildes[i].Tips")
Datums = jResp.StringOf("SanemtasAtbildes[i].Datums")
Teksts = jResp.StringOf("SanemtasAtbildes[i].Teksts")
i = i + 1
Loop
outFile.Close
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/:id
Postman Collection Item JSON
{
"name": "Dokumenta pamatdati.",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":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 \"ParbaudesRezultats\": {\n \"Kluda\": [\n \"dolor ad aliqua\",\n \"commodo enim est\"\n ],\n \"Bridinajums\": [\n \"aliqua adipisicing eiusmod incididunt\",\n \"Ut eiusmod laborum\"\n ],\n \"Informacija\": [\n \"exercitation inc\",\n \"irure amet ut\"\n ],\n \"Apstiprinajums\": [\n \"labore eu magna irure\",\n \"dolor laboris tempor\"\n ]\n },\n \"SanemtasAtbildes\": [\n {\n \"Tips\": \"ex dolore amet\",\n \"Datums\": \"2000-01-31T00:00:00\",\n \"Teksts\": \"commodo sint minim\"\n },\n {\n \"Tips\": \"in laborum\",\n \"Datums\": \"2000-01-31T00:00:00\",\n \"Teksts\": \"in fugiat\"\n }\n ],\n \"Id\": -19950873,\n \"Izveidots\": \"2000-01-31T00:00:00\",\n \"Iesniegts\": \"2000-01-31T00:00:00\",\n \"DokumentaVersija\": \"cillum ut magna adipisicing aliqua\",\n \"DokumentaVeids\": \"ex magna reprehenderit\",\n \"PeriodsNo\": \"2000-01-31T00:00:00\",\n \"PeriodsLidz\": \"2000-01-31T00:00:00\",\n \"Papildinformacija\": \"pariatur tempor occ\",\n \"StatussId\": 94653878,\n \"Statuss\": \"aliquip occaec\",\n \"IrBridinajumi\": true,\n \"VarIesniegt\": true,\n \"VarDzest\": true,\n \"IrSanemtasAtbildes\": true,\n \"Arhivets\": false\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":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/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":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/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
":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": ""
}
]
}
