VB6 / EDS API / Dokuments "Taksometra skaitītāja rādījuma nolasīšanas žurnāls".
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/tsrnv1/: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)
' {
' "IerakstaNumurs": "non esse Excepteur ut",
' "OdoRadijums": -38496442.82998539,
' "TaksometraNobraukums": 51035718.91771287,
' "KopejaisNobraukumsAiznemts": 5852470.2247746885,
' "KopejaisBraucienuSkaitsAiznemts": 35970251,
' "NaudasSummaMaksa": 51833542.861971915,
' "NaudasSummaPiemaksa": -47324544.11566413,
' "NaudasSummaInkaseta": -74580904.85162807,
' "SkaititajaSasijasNumurs": "minim",
' "VaditajaRegNum": "TV-25210",
' "VaditajaVardsUzvards": "laborum ex sit eiusmod",
' "TransportRegNum": "dS2",
' "Epasts": "cillum Lorem dolore culpa ullamco",
' "Talrunis": "nostrud e",
' "IerakstaDatumsArLaiku": "2000-01-31T00:00:00",
' "DarbaUzsaksanasDatumsArLaiku": "2000-01-31T00:00:00",
' "DarbaBeigsanasDatumsArLaiku": "2000-01-31T00:00:00",
' "DienestaIzsauksanasDatumsArLaiku": "2000-01-31T00:00:00",
' "Sagatavotajs": "incididunt et in ut",
' "Id": -73183575,
' "UID": "incididunt",
' "NmrKods": "labore",
' "Precizejums": true,
' "PrecizejamaisDokuments": 12119154,
' "PrecizejumaPamatojums": "nulla eiusmod"
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim IerakstaNumurs As String
IerakstaNumurs = jResp.StringOf("IerakstaNumurs")
Dim OdoRadijums As String
OdoRadijums = jResp.StringOf("OdoRadijums")
Dim TaksometraNobraukums As String
TaksometraNobraukums = jResp.StringOf("TaksometraNobraukums")
Dim KopejaisNobraukumsAiznemts As String
KopejaisNobraukumsAiznemts = jResp.StringOf("KopejaisNobraukumsAiznemts")
Dim KopejaisBraucienuSkaitsAiznemts As Long
KopejaisBraucienuSkaitsAiznemts = jResp.IntOf("KopejaisBraucienuSkaitsAiznemts")
Dim NaudasSummaMaksa As String
NaudasSummaMaksa = jResp.StringOf("NaudasSummaMaksa")
Dim NaudasSummaPiemaksa As String
NaudasSummaPiemaksa = jResp.StringOf("NaudasSummaPiemaksa")
Dim NaudasSummaInkaseta As String
NaudasSummaInkaseta = jResp.StringOf("NaudasSummaInkaseta")
Dim SkaititajaSasijasNumurs As String
SkaititajaSasijasNumurs = jResp.StringOf("SkaititajaSasijasNumurs")
Dim VaditajaRegNum As String
VaditajaRegNum = jResp.StringOf("VaditajaRegNum")
Dim VaditajaVardsUzvards As String
VaditajaVardsUzvards = jResp.StringOf("VaditajaVardsUzvards")
Dim TransportRegNum As String
TransportRegNum = jResp.StringOf("TransportRegNum")
Dim Epasts As String
Epasts = jResp.StringOf("Epasts")
Dim Talrunis As String
Talrunis = jResp.StringOf("Talrunis")
Dim IerakstaDatumsArLaiku As String
IerakstaDatumsArLaiku = jResp.StringOf("IerakstaDatumsArLaiku")
Dim DarbaUzsaksanasDatumsArLaiku As String
DarbaUzsaksanasDatumsArLaiku = jResp.StringOf("DarbaUzsaksanasDatumsArLaiku")
Dim DarbaBeigsanasDatumsArLaiku As String
DarbaBeigsanasDatumsArLaiku = jResp.StringOf("DarbaBeigsanasDatumsArLaiku")
Dim DienestaIzsauksanasDatumsArLaiku As String
DienestaIzsauksanasDatumsArLaiku = jResp.StringOf("DienestaIzsauksanasDatumsArLaiku")
Dim Sagatavotajs As String
Sagatavotajs = jResp.StringOf("Sagatavotajs")
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")
Curl Command
curl -X GET
-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/tsrnv1/:id
Postman Collection Item JSON
{
"name": "Dokuments \"Taksometra skaitītāja rādījuma nolasīšanas žurnāls\".",
"request": {
"method": "GET",
"header": [
{
"key": "Accept",
"value": "application/json"
}
],
"url": {
"raw": "{{baseUrl}}/api/doc/tsrnv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"tsrnv1",
":id"
],
"variable": [
{
"key": "id",
"value": "25210683",
"description": "(Required) Dokumenta id."
}
]
}
},
"response": [
{
"name": "OK",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/tsrnv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"tsrnv1",
":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 \"IerakstaNumurs\": \"non esse Excepteur ut\",\n \"OdoRadijums\": -38496442.82998539,\n \"TaksometraNobraukums\": 51035718.91771287,\n \"KopejaisNobraukumsAiznemts\": 5852470.2247746885,\n \"KopejaisBraucienuSkaitsAiznemts\": 35970251,\n \"NaudasSummaMaksa\": 51833542.861971915,\n \"NaudasSummaPiemaksa\": -47324544.11566413,\n \"NaudasSummaInkaseta\": -74580904.85162807,\n \"SkaititajaSasijasNumurs\": \"minim\",\n \"VaditajaRegNum\": \"TV-25210\",\n \"VaditajaVardsUzvards\": \"laborum ex sit eiusmod\",\n \"TransportRegNum\": \"dS2\",\n \"Epasts\": \"cillum Lorem dolore culpa ullamco\",\n \"Talrunis\": \"nostrud e\",\n \"IerakstaDatumsArLaiku\": \"2000-01-31T00:00:00\",\n \"DarbaUzsaksanasDatumsArLaiku\": \"2000-01-31T00:00:00\",\n \"DarbaBeigsanasDatumsArLaiku\": \"2000-01-31T00:00:00\",\n \"DienestaIzsauksanasDatumsArLaiku\": \"2000-01-31T00:00:00\",\n \"Sagatavotajs\": \"incididunt et in ut\",\n \"Id\": -73183575,\n \"UID\": \"incididunt\",\n \"NmrKods\": \"labore\",\n \"Precizejums\": true,\n \"PrecizejamaisDokuments\": 12119154,\n \"PrecizejumaPamatojums\": \"nulla eiusmod\"\n}"
},
{
"name": "Lietotājs nav autentificēts.",
"originalRequest": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{baseUrl}}/api/doc/tsrnv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"tsrnv1",
":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/tsrnv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"tsrnv1",
":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/tsrnv1/:id",
"host": [
"{{baseUrl}}"
],
"path": [
"api",
"doc",
"tsrnv1",
":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": ""
}
]
}
