Chilkat Online Tools

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

Back to Collection Items

var
http: TChilkatHttp;
success: Integer;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
NsKods: WideString;
NsVardsUzvards: WideString;
NsDarbIenakumi: WideString;
NsAprDarbIenNod: WideString;
NsAprDarbIenNodVsaa: WideString;
NsAprDarbIenNodIin: WideString;
NsNodPerSakums: WideString;
NsNodPerBeigas: WideString;
Epasts: WideString;
ParskGads: Integer;
Talrunis: WideString;
Sagatavotajs: WideString;
ParskMen: WideString;
Id: Integer;
UID: WideString;
NmrKods: WideString;
Precizejums: Integer;
PrecizejamaisDokuments: Integer;
PrecizejumaPamatojums: WideString;
i: Integer;
count_i: Integer;

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

http := TChilkatHttp.Create(Self);

http.SetRequestHeader('Accept','application/json');

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://eds.vid.gov.lv/api/doc/zslv1/:id',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := http.LastStatus;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(http.LastHeader);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// 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

Epasts := jResp.StringOf('Epasts');
ParskGads := jResp.IntOf('ParskGads');
Talrunis := jResp.StringOf('Talrunis');
Sagatavotajs := jResp.StringOf('Sagatavotajs');
ParskMen := jResp.StringOf('ParskMen');
Id := jResp.IntOf('Id');
UID := jResp.StringOf('UID');
NmrKods := jResp.StringOf('NmrKods');
Precizejums := jResp.BoolOf('Precizejums');
PrecizejamaisDokuments := jResp.IntOf('PrecizejamaisDokuments');
PrecizejumaPamatojums := jResp.StringOf('PrecizejumaPamatojums');
i := 0;
count_i := jResp.SizeOfArray('Rows');
while i < count_i do
  begin
    jResp.I := i;
    NsKods := jResp.StringOf('Rows[i].NsKods');
    NsVardsUzvards := jResp.StringOf('Rows[i].NsVardsUzvards');
    NsDarbIenakumi := jResp.StringOf('Rows[i].NsDarbIenakumi');
    NsAprDarbIenNod := jResp.StringOf('Rows[i].NsAprDarbIenNod');
    NsAprDarbIenNodVsaa := jResp.StringOf('Rows[i].NsAprDarbIenNodVsaa');
    NsAprDarbIenNodIin := jResp.StringOf('Rows[i].NsAprDarbIenNodIin');
    NsNodPerSakums := jResp.StringOf('Rows[i].NsNodPerSakums');
    NsNodPerBeigas := jResp.StringOf('Rows[i].NsNodPerBeigas');
    i := i + 1;
  end;

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