Chilkat Online Tools

Foxpro / EDS API / Dokuments "Sezonas laukstrādnieku ienākuma nodokļa maksātāju ziņojums".

Back to Collection Items

LOCAL loHttp
LOCAL lnSuccess
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcNsKods
LOCAL lcNsVardsUzvards
LOCAL lcNsDarbIenakumi
LOCAL lcNsAprDarbIenNod
LOCAL lcNsAprDarbIenNodVsaa
LOCAL lcNsAprDarbIenNodIin
LOCAL lcNsNodPerSakums
LOCAL lcNsNodPerBeigas
LOCAL lcEpasts
LOCAL lnParskGads
LOCAL lcTalrunis
LOCAL lcSagatavotajs
LOCAL lcParskMen
LOCAL lnId
LOCAL lcUID
LOCAL lcNmrKods
LOCAL lnPrecizejums
LOCAL lnPrecizejamaisDokuments
LOCAL lcPrecizejumaPamatojums
LOCAL i
LOCAL lnCount_i

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat_9_5_0.Http')

loHttp.SetRequestHeader("Accept","application/json")

loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://eds.vid.gov.lv/api/doc/zslv1/:id",loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbResponseBody
    CANCEL
ENDIF

loJResp = CreateObject('Chilkat_9_5_0.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loHttp.LastStatus
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loHttp.LastHeader
    ? "Failed."
    RELEASE loHttp
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

* Sample JSON response:
* (Sample code for parsing the JSON response is shown below)

* {
*   "Epasts": "proiden",
*   "ParskGads": 35993643,
*   "Rows": [
*     {
*       "NsKods": "",
*       "NsVardsUzvards": "laboris Lorem sit",
*       "NsDarbIenakumi": 59350597.88631284,
*       "NsAprDarbIenNod": -79594800.9111087,
*       "NsAprDarbIenNodVsaa": 18090204.875320956,
*       "NsAprDarbIenNodIin": 99734532.28436688,
*       "NsNodPerSakums": "2000-01-31T00:00:00",
*       "NsNodPerBeigas": "2000-01-31T00:00:00"
*     },
*     {
*       "NsKods": "Lor",
*       "NsVardsUzvards": "ea mo",
*       "NsDarbIenakumi": 65826386.003358364,
*       "NsAprDarbIenNod": 73077787.6981282,
*       "NsAprDarbIenNodVsaa": -95033070.46884166,
*       "NsAprDarbIenNodIin": 62367378.140794486,
*       "NsNodPerSakums": "2000-01-31T00:00:00",
*       "NsNodPerBeigas": "2000-01-31T00:00:00"
*     }
*   ],
*   "Talrunis": "quis ex",
*   "Sagatavotajs": "adipisicing sunt ullamco ut eu",
*   "ParskMen": "reprehenderit cupidatat aute id",
*   "Id": -40093190,
*   "UID": "Excepteur pariatur Lorem",
*   "NmrKods": "ut l",
*   "Precizejums": true,
*   "PrecizejamaisDokuments": -70893075,
*   "PrecizejumaPamatojums": "sed dolo"
* }

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

lcEpasts = loJResp.StringOf("Epasts")
lnParskGads = loJResp.IntOf("ParskGads")
lcTalrunis = loJResp.StringOf("Talrunis")
lcSagatavotajs = loJResp.StringOf("Sagatavotajs")
lcParskMen = loJResp.StringOf("ParskMen")
lnId = loJResp.IntOf("Id")
lcUID = loJResp.StringOf("UID")
lcNmrKods = loJResp.StringOf("NmrKods")
lnPrecizejums = loJResp.BoolOf("Precizejums")
lnPrecizejamaisDokuments = loJResp.IntOf("PrecizejamaisDokuments")
lcPrecizejumaPamatojums = loJResp.StringOf("PrecizejumaPamatojums")
i = 0
lnCount_i = loJResp.SizeOfArray("Rows")
DO WHILE i < lnCount_i
    loJResp.I = i
    lcNsKods = loJResp.StringOf("Rows[i].NsKods")
    lcNsVardsUzvards = loJResp.StringOf("Rows[i].NsVardsUzvards")
    lcNsDarbIenakumi = loJResp.StringOf("Rows[i].NsDarbIenakumi")
    lcNsAprDarbIenNod = loJResp.StringOf("Rows[i].NsAprDarbIenNod")
    lcNsAprDarbIenNodVsaa = loJResp.StringOf("Rows[i].NsAprDarbIenNodVsaa")
    lcNsAprDarbIenNodIin = loJResp.StringOf("Rows[i].NsAprDarbIenNodIin")
    lcNsNodPerSakums = loJResp.StringOf("Rows[i].NsNodPerSakums")
    lcNsNodPerBeigas = loJResp.StringOf("Rows[i].NsNodPerBeigas")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loJResp

Curl Command

curl -X GET
	-H "Accept: application/json"
https://eds.vid.gov.lv/api/doc/zslv1/:id

Postman Collection Item JSON

{
  "name": "Dokuments \"Sezonas laukstrādnieku ienākuma nodokļa maksātāju ziņojums\".",
  "request": {
    "method": "GET",
    "header": [
      {
        "key": "Accept",
        "value": "application/json"
      }
    ],
    "url": {
      "raw": "{{baseUrl}}/api/doc/zslv1/:id",
      "host": [
        "{{baseUrl}}"
      ],
      "path": [
        "api",
        "doc",
        "zslv1",
        ":id"
      ],
      "variable": [
        {
          "key": "id",
          "value": "25210683",
          "description": "(Required) Dokumenta id."
        }
      ]
    }
  },
  "response": [
    {
      "name": "OK",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/doc/zslv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "zslv1",
            ":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  \"Epasts\": \"proiden\",\n  \"ParskGads\": 35993643,\n  \"Rows\": [\n    {\n      \"NsKods\": \"\",\n      \"NsVardsUzvards\": \"laboris Lorem sit\",\n      \"NsDarbIenakumi\": 59350597.88631284,\n      \"NsAprDarbIenNod\": -79594800.9111087,\n      \"NsAprDarbIenNodVsaa\": 18090204.875320956,\n      \"NsAprDarbIenNodIin\": 99734532.28436688,\n      \"NsNodPerSakums\": \"2000-01-31T00:00:00\",\n      \"NsNodPerBeigas\": \"2000-01-31T00:00:00\"\n    },\n    {\n      \"NsKods\": \"Lor\",\n      \"NsVardsUzvards\": \"ea mo\",\n      \"NsDarbIenakumi\": 65826386.003358364,\n      \"NsAprDarbIenNod\": 73077787.6981282,\n      \"NsAprDarbIenNodVsaa\": -95033070.46884166,\n      \"NsAprDarbIenNodIin\": 62367378.140794486,\n      \"NsNodPerSakums\": \"2000-01-31T00:00:00\",\n      \"NsNodPerBeigas\": \"2000-01-31T00:00:00\"\n    }\n  ],\n  \"Talrunis\": \"quis ex\",\n  \"Sagatavotajs\": \"adipisicing sunt ullamco ut eu\",\n  \"ParskMen\": \"reprehenderit cupidatat aute id\",\n  \"Id\": -40093190,\n  \"UID\": \"Excepteur pariatur Lorem\",\n  \"NmrKods\": \"ut l\",\n  \"Precizejums\": true,\n  \"PrecizejamaisDokuments\": -70893075,\n  \"PrecizejumaPamatojums\": \"sed dolo\"\n}"
    },
    {
      "name": "Lietotājs nav autentificēts.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/api/doc/zslv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "zslv1",
            ":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/zslv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "zslv1",
            ":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/zslv1/:id",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "api",
            "doc",
            "zslv1",
            ":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": ""
    }
  ]
}