Chilkat Online Tools

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