Chilkat Online Tools

VB6 / EDS API / Dokuments "Alkoholisko dzērienu, spirta vai denaturētā spirta piegādes reģistrēšana".

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/asprv1/: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)

' {
'   "PiegadesDokumentaNumurs": 41727436,
'   "IesniedzamaInformacija": {
'     "Datums": "2000-01-31T00:00:00",
'     "AbsSpDaudzumsProc": 43.09442046879235,
'     "PiegadatajaLicencesSerija": "pariatur occaecat laboris anim",
'     "PiegadatajaLicencesNumurs": "ipsum Excepteur occaecat laborum",
'     "SanemejaNMRKods": "39872605",
'     "SanemejaAtlaujasSerija": "ullamco cupidatat culpa exercitation ea",
'     "SanemejaAtlaujasNumurs": "eu aliqua",
'     "SanemejaStrukturvienibasNMRKods": "94",
'     "SanemejaJuridiskaAdrese": true,
'     "AbsSpDaudzumsProcNo": 38.53904041128908,
'     "AbsSpDaudzumsProcLidz": 20.03153909715096,
'     "DaudzumsLitros": -65625053.43972598,
'     "DaudzumsAsLitros": -86623943.69480854
'   },
'   "Id": -99695450,
'   "UID": "reprehenderit occaecat",
'   "NmrKods": "ea ullamc",
'   "Talrunis": "7,1",
'   "Precizejums": true,
'   "PrecizejamaisDokuments": -99759646,
'   "PrecizejumaPamatojums": "consequat cillum Excepteur"
' }

' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code

Dim PiegadesDokumentaNumurs As Long
PiegadesDokumentaNumurs = jResp.IntOf("PiegadesDokumentaNumurs")
Dim Datums As String
Datums = jResp.StringOf("IesniedzamaInformacija.Datums")
Dim AbsSpDaudzumsProc As String
AbsSpDaudzumsProc = jResp.StringOf("IesniedzamaInformacija.AbsSpDaudzumsProc")
Dim PiegadatajaLicencesSerija As String
PiegadatajaLicencesSerija = jResp.StringOf("IesniedzamaInformacija.PiegadatajaLicencesSerija")
Dim PiegadatajaLicencesNumurs As String
PiegadatajaLicencesNumurs = jResp.StringOf("IesniedzamaInformacija.PiegadatajaLicencesNumurs")
Dim SanemejaNMRKods As String
SanemejaNMRKods = jResp.StringOf("IesniedzamaInformacija.SanemejaNMRKods")
Dim SanemejaAtlaujasSerija As String
SanemejaAtlaujasSerija = jResp.StringOf("IesniedzamaInformacija.SanemejaAtlaujasSerija")
Dim SanemejaAtlaujasNumurs As String
SanemejaAtlaujasNumurs = jResp.StringOf("IesniedzamaInformacija.SanemejaAtlaujasNumurs")
Dim SanemejaStrukturvienibasNMRKods As String
SanemejaStrukturvienibasNMRKods = jResp.StringOf("IesniedzamaInformacija.SanemejaStrukturvienibasNMRKods")
Dim SanemejaJuridiskaAdrese As Long
SanemejaJuridiskaAdrese = jResp.BoolOf("IesniedzamaInformacija.SanemejaJuridiskaAdrese")
Dim AbsSpDaudzumsProcNo As String
AbsSpDaudzumsProcNo = jResp.StringOf("IesniedzamaInformacija.AbsSpDaudzumsProcNo")
Dim AbsSpDaudzumsProcLidz As String
AbsSpDaudzumsProcLidz = jResp.StringOf("IesniedzamaInformacija.AbsSpDaudzumsProcLidz")
Dim DaudzumsLitros As String
DaudzumsLitros = jResp.StringOf("IesniedzamaInformacija.DaudzumsLitros")
Dim DaudzumsAsLitros As String
DaudzumsAsLitros = jResp.StringOf("IesniedzamaInformacija.DaudzumsAsLitros")
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 Talrunis As String
Talrunis = jResp.StringOf("Talrunis")
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/asprv1/:id

Postman Collection Item JSON

{
  "name": "Dokuments \"Alkoholisko dzērienu, spirta vai denaturētā spirta piegādes reģistrēšana\".",
  "request": {
    "method": "GET",
    "header": [
      {
        "key": "Accept",
        "value": "application/json"
      }
    ],
    "url": {
      "raw": "{{baseUrl}}/api/doc/asprv1/:id",
      "host": [
        "{{baseUrl}}"
      ],
      "path": [
        "api",
        "doc",
        "asprv1",
        ":id"
      ],
      "variable": [
        {
          "key": "id",
          "value": "25210683",
          "description": "(Required) Dokumenta id."
        }
      ]
    }
  },
  "response": [
    {
      "name": "OK",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/doc/asprv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "asprv1",
            ":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  \"PiegadesDokumentaNumurs\": 41727436,\n  \"IesniedzamaInformacija\": {\n    \"Datums\": \"2000-01-31T00:00:00\",\n    \"AbsSpDaudzumsProc\": 43.09442046879235,\n    \"PiegadatajaLicencesSerija\": \"pariatur occaecat laboris anim\",\n    \"PiegadatajaLicencesNumurs\": \"ipsum Excepteur occaecat laborum\",\n    \"SanemejaNMRKods\": \"39872605\",\n    \"SanemejaAtlaujasSerija\": \"ullamco cupidatat culpa exercitation ea\",\n    \"SanemejaAtlaujasNumurs\": \"eu aliqua\",\n    \"SanemejaStrukturvienibasNMRKods\": \"94\",\n    \"SanemejaJuridiskaAdrese\": true,\n    \"AbsSpDaudzumsProcNo\": 38.53904041128908,\n    \"AbsSpDaudzumsProcLidz\": 20.03153909715096,\n    \"DaudzumsLitros\": -65625053.43972598,\n    \"DaudzumsAsLitros\": -86623943.69480854\n  },\n  \"Id\": -99695450,\n  \"UID\": \"reprehenderit occaecat\",\n  \"NmrKods\": \"ea ullamc\",\n  \"Talrunis\": \"7,1᠎\",\n  \"Precizejums\": true,\n  \"PrecizejamaisDokuments\": -99759646,\n  \"PrecizejumaPamatojums\": \"consequat cillum Excepteur\"\n}"
    },
    {
      "name": "Lietotājs nav autentificēts.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/doc/asprv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "asprv1",
            ":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/asprv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "asprv1",
            ":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/asprv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "asprv1",
            ":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": ""
    }
  ]
}