OBS/Kostenpflichtige Module/RESTServer/Beispiel4 - Versionsgeschichte

Rademacker am 9. September 2026 um 12:31 Uhr

2026-09-09T12:31:45Z

Rademacker am 1. September 2026 um 09:11 Uhr

2026-09-01T09:11:35Z

← Nächstältere Version		Version vom 1. September 2026, 10:11 Uhr
Zeile 178:		Zeile 178:
	qChk : TqSQL;		qChk : TqSQL;
	xMod : TqSQL;		xMod : TqSQL;
			cModUid: string;
			lOk : Boolean;
	begin		begin
	// Beide Pfad-Parameter		// Beide Pfad-Parameter
Zeile 194:		Zeile 196:
	end;		end;

	// Existenzpruefung		// Existenzpruefung - und zugleich der Schreib-Index. Ein SELECT auf die
	cSql := 'SELECT * FROM auftrag_module' +		// sys_uid liefert beides; ein 'SELECT *' waere hier verschenkte Arbeit.
			cSql := 'SELECT sys_uid FROM auftrag_module' +
	' WHERE am_auftrag = ' + DB_SQLVal(cUid) +		' WHERE am_auftrag = ' + DB_SQLVal(cUid) +
	' AND am_code = ' + DB_SQLVal(cCode);		' AND am_code = ' + DB_SQLVal(cCode) + ' LIMIT 1';
	if (~~not~~ DB_SOpen(oDB, cSql, qChk)) or (qChk.EoF) then begin		cModUid := '';
			if (DB_SOpen(oDB, cSql, qChk)) then begin
			if (not qChk.EoF) then begin
			cModUid := qChk.A2UID();
			end;
			end;
			DB_Close(qChk);

			if (cModUid = '') then begin
	result := _Fehler(oParams, 404, 'NOT_FOUND', 'Modul nicht gefunden');		result := _Fehler(oParams, 404, 'NOT_FOUND', 'Modul nicht gefunden');
	exit;		exit;
Zeile 204:		Zeile 215:

	// Update		// Update
	xMod := ~~qSqlRead~~(oDB, 'auftrag_module',		// Der Satz wird ueber seine sys_uid geschrieben - qSqlRead waere hier
	~~'am_auftrag = ' + DB_SQLVal~~(~~cUid) +~~		// ein zusaetzlicher Lesezugriff, und ein unveraenderter Wert wuerde gar
	' ~~AND am_code =~~ ' ~~+ DB_SQLVal(cCode)~~);		// kein Write erzeugen (SaveData liefert dann False).
			xMod := qSqlInit(oDB, 'auftrag_module');
			xMod.qSet('sys_uid' , cModUid);
	xMod.qSet('am_status', cStatus);		xMod.qSet('am_status', cStatus);
	xMod.SaveData(UPDATE_RECORD);		// Rueckgabewert auswerten - ein Schreibfehler wirft keine Exception
			lOk := xMod.SaveData(UPDATE_RECORD);
	qSqlFree(xMod);		qSqlFree(xMod);

			if (not lOk) then begin
			result := '{"error":{"code":"INTERNAL_ERROR","message":"Status konnte nicht gespeichert werden"},"_OBS_HTTP_STATUS":500}';
			exit;
			end;

	result := '{"status":"ok"}';		result := '{"status":"ok"}';

Rademacker am 18. August 2026 um 06:03 Uhr

2026-08-18T06:03:58Z

@@ Zeile 89: / Zeile 89: @@
 <syntaxhighlight lang="pascal">
 function _OrderAsJSON(qOrder: TqSQL): TJSONObject;
 begin
@@ Zeile 107: / Zeile 131: @@
      cUid := oParams.Values['_OBS_PATH_uid'];
      if (cUid = '') then begin
-         result := '{"error":"uid fehlt"}';
+         result := _Fehler(oParams, 422, 'VALIDATION_FAILED', 'Pfad-Parameter "uid" fehlt');
          exit;
      end;
@@ Zeile 115: / Zeile 139: @@
          result := _OrderAsJSON(qData).ToJSON();
      end else begin
-         result := '{"error":"Auftrag nicht gefunden"}';
+         result := _Fehler(oParams, 404, 'NOT_FOUND', 'Auftrag nicht gefunden');
      end;
 end;
@@ Zeile 123: / Zeile 147: @@
 <syntaxhighlight lang="pascal">
 function Put(oParams: TStrings; oBody: TJSONObject): string;
 var cUid   : string;
@@ Zeile 135: / Zeile 183: @@
      cCode := oParams.Values['_OBS_PATH_code'];
      if (cUid = '') or (cCode = '') then begin
-         result := '{"error":"uid oder code fehlt"}';
+         result := _Fehler(oParams, 422, 'VALIDATION_FAILED', 'Pfad-Parameter "uid" oder "code" fehlt');
          exit;
      end;
@@ Zeile 142: / Zeile 190: @@
      cStatus := _BodyStr(oBody, 'status');
      if (cStatus = '') then begin
-         result := '{"error":"status fehlt"}';
+         result := _Fehler(oParams, 422, 'VALIDATION_FAILED', 'Feld "status" fehlt');
          exit;
      end;
@@ Zeile 151: / Zeile 199: @@
              ' AND am_code = ' + DB_SQLVal(cCode);
      if (not DB_SOpen(oDB, cSql, qChk)) or (qChk.EoF) then begin
-         result := '{"error":"Modul nicht gefunden"}';
+         result := _Fehler(oParams, 404, 'NOT_FOUND', 'Modul nicht gefunden');
          exit;
      end;

Rademacker am 17. August 2026 um 08:14 Uhr

2026-08-17T08:14:55Z

← Nächstältere Version		Version vom 17. August 2026, 09:14 Uhr
Zeile 38:		Zeile 38:

	<syntaxhighlight lang="pascal">		<syntaxhighlight lang="pascal">
			// Hilfsfunktion: ein Feld aus dem JSON-Body als String lesen.
			// Generics gibt es im Skript nicht - oBody.TryGetValue<string>(...) laesst sich
			// nicht uebersetzen. GetValue liefert nil, wenn das Feld fehlt.
			function _BodyStr(oBody: TJSONObject; const cFeld: string): string;
			var oVal: TJSONValue;
			begin
			result := '';
			if (oBody = nil) then begin
			exit;
			end;
			oVal := oBody.GetValue(cFeld);
			if (Assigned(oVal)) then begin
			result := oVal.Value;
			end;
			end;

	// Hilfsfunktion: ein Auftrag als JSON-Objekt		// Hilfsfunktion: ein Auftrag als JSON-Objekt
	function _OrderAsJSON(qOrder: TqSQL): TJSONObject;		function _OrderAsJSON(qOrder: TqSQL): TJSONObject;
Zeile 59:		Zeile 75:
	' WHERE au_status <> ' + DB_SQLVal('9') +		' WHERE au_status <> ' + DB_SQLVal('9') +
	' ORDER BY au_nr';		' ORDER BY au_nr';
	if (DB_SOpen(~~'Y00ORDLST1',~~ oDB, cSql, qData)) then begin		if (DB_SOpen(oDB, cSql, qData)) then begin
	while (not qData.EoF) do begin		while (not qData.EoF) do begin
	oArr.Add(_OrderAsJSON(qData));		oArr.Add(_OrderAsJSON(qData));
Zeile 96:		Zeile 112:

	cSql := 'SELECT * FROM auftraege WHERE sys_uid = ' + DB_SQLVal(cUid);		cSql := 'SELECT * FROM auftraege WHERE sys_uid = ' + DB_SQLVal(cUid);
	if (DB_SOpen(~~'Y00ORDGET1',~~ oDB, cSql, qData)) and (not qData.EoF) then begin		if (DB_SOpen(oDB, cSql, qData)) and (not qData.EoF) then begin
	result := _OrderAsJSON(qData).ToJSON();		result := _OrderAsJSON(qData).ToJSON();
	end else begin		end else begin
Zeile 124:		Zeile 140:

	// Nutzdaten kommen aus dem JSON-Body		// Nutzdaten kommen aus dem JSON-Body
	cStatus := ~~'';~~		cStatus := _BodyStr(oBody, 'status');
	~~if (Assigned~~(oBody~~)) then begin~~
	~~oBody.TryGetValue<string>(~~'status'~~, cStatus~~);
	~~end~~;
	if (cStatus = '') then begin		if (cStatus = '') then begin
	result := '{"error":"status fehlt"}';		result := '{"error":"status fehlt"}';
Zeile 137:		Zeile 150:
	' WHERE am_auftrag = ' + DB_SQLVal(cUid) +		' WHERE am_auftrag = ' + DB_SQLVal(cUid) +
	' AND am_code = ' + DB_SQLVal(cCode);		' AND am_code = ' + DB_SQLVal(cCode);
	if (not DB_SOpen(~~'Y00ORDMOD1',~~ oDB, cSql, qChk)) or (qChk.EoF) then begin		if (not DB_SOpen(oDB, cSql, qChk)) or (qChk.EoF) then begin
	result := '{"error":"Modul nicht gefunden"}';		result := '{"error":"Modul nicht gefunden"}';
	exit;		exit;
Zeile 143:		Zeile 156:

	// Update		// Update
	xMod := qSqlRead(~~'Y00ORDMOD2',~~ oDB, 'auftrag_module',		xMod := qSqlRead(oDB, 'auftrag_module',
	'am_auftrag = ' + DB_SQLVal(cUid) +		'am_auftrag = ' + DB_SQLVal(cUid) +
	' AND am_code = ' + DB_SQLVal(cCode));		' AND am_code = ' + DB_SQLVal(cCode));

Rademacker am 15. Juni 2026 um 07:01 Uhr

2026-06-15T07:01:13Z

← Nächstältere Version		Version vom 15. Juni 2026, 08:01 Uhr
Zeile 34:		Zeile 34:
	\| <code>orders</code> \|\| <code>/orders/{uid}/modules/{code}</code> \|\| <code>Put</code>		\| <code>orders</code> \|\| <code>/orders/{uid}/modules/{code}</code> \|\| <code>Put</code>
	\|}		\|}

	~~{{Hinweis\|Das Feld '''Endpunkt''' (<code>re_endpoint</code>) ist nur informativ –~~
	~~geroutet wird ausschließlich über das '''Pfad-Template'''. Die Berechtigung wird~~
	~~pro Eintrag vergeben, sodass z. B. das ändernde <code>PUT</code> einem anderen~~
	~~Zugang vorbehalten werden kann als die lesenden <code>GET</code>-Endpunkte.}}~~

	== Endpunkt-Skript 1: <code>GET /orders</code> (Liste) ==		== Endpunkt-Skript 1: <code>GET /orders</code> (Liste) ==

Rademacker: Die Seite wurde neu angelegt: „{{Kostenpflichtige Module}} = Beispiel 4 – Pfad-Parameter (REST-Routing über Templates) = Dieses Beispiel zeigt das '''Pfad-Template-Routing''' mit Platzhaltern. Eine Auftrags-Ressource wird über drei Endpunkte abgebildet: {| class="wikitable" ! Methode + Pfad !! Zweck |- | `GET /orders` || Liste aller offenen Aufträge |- | `GET /orders/{uid}` || Einzelner Auftrag per UID |- | `PUT /orders/{uid}/modules/{code}` || S…“

2026-06-15T07:00:36Z

Die Seite wurde neu angelegt: „{{Kostenpflichtige Module}} = Beispiel 4 – Pfad-Parameter (REST-Routing über Templates) = Dieses Beispiel zeigt das '''Pfad-Template-Routing''' mit Platzhaltern. Eine Auftrags-Ressource wird über drei Endpunkte abgebildet: {| class="wikitable" ! Methode + Pfad !! Zweck |- | <code>GET /orders</code> || Liste aller offenen Aufträge |- | <code>GET /orders/{uid}</code> || Einzelner Auftrag per UID |- | <code>PUT /orders/{uid}/modules/{code}</code> || S…“

Änderungen zeigen

Böhrer: Die Seite wurde neu angelegt: „Скачать [http://fstoexua.ru/film/136/ Пираты карибского Моря 5 2017 Мертвецы смотреть] Карибского Моря…“

2017-05-26T06:49:52Z

Die Seite wurde neu angelegt: „Скачать [http://fstoexua.ru/film/136/ Пираты карибского Моря 5 2017 Мертвецы смотреть] Карибского Моря…“

Neue Seite

Скачать [http://fstoexua.ru/film/136/ Пираты карибского Моря 5 2017 Мертвецы смотреть] Карибского Моря 5 посмотреть фильм Пираты Карибского моря 5 http://fstoexua.ru/film/136/ %random_video% Скачать Пираты Карибского Моря 5 Пираты Карибского Моря 5 Смотреть Онлайн Смотреть Фильмы Онлайн Пираты Карибского Моря 5 Фильм Пираты Карибского Моря 5 Мертвецы Скачать Пираты Карибского Моря 5 Скачать Пираты Карибского Моря 5 http://megogoserial.ru/zhenskiy-doktor-35-seriya-smotret-onlayn/smotret-online-hd-720-p-megogo http://megogoserial.ru/revolyuciya-z-sezon-1-epizod-12-21-05-2017-na-russkom/smotret-online-hd-720-p-megogo http://megogoserial.ru/kuhnya-4-sezon-18-21-05-2017-skachat-torrent-vse-serii-kuhnya-4-sezon-18/smotret-online-hd-720-p-megogo http://megogoserial.ru/skins-7-sezon-1-seriya-21-05-2017-novye-serii-smot/smotret-online-hd-720-p-megogo http://megogoserial.ru/domrabotnica-film-2011-21-05-2017-na-russkom-yazy/smotret-online-hd-720-p-megogo http://megogoserial.ru/dnevnicite-na-vampira-sezon-4-epizod-5-21-05-2017/smotret-online-hd-720-p-megogo http://megogoserial.ru/brigada-seriya-12-21-05-2017-vse-serii-podryad-skach/smotret-online-hd-720-p-megogo http://megogoserial.ru/svaty-sezon-2-seriya-1-21-05-2017-sezon-vse-serii-s/smotret-online-hd-720-p-megogo http://megogoserial.ru/kukhnya-1-sezon-20-seriya-smotret-onlayn-21-05-2017/smotret-online-hd-720-p-megogo http://[http://www.becomegorgeous.com/topics/megogoserial megogoserial].ru/pomadnye-dzhungli-2-sezon-smotret-onla-3/smotret-online-hd-720-p-megogo