OBS/Kostenpflichtige Module/RESTServer/Beispiel2 - Versionsgeschichte

Rademacker am 1. September 2026 um 09:11 Uhr

2026-09-01T09:11:05Z

← Nächstältere Version		Version vom 1. September 2026, 10:11 Uhr
Zeile 213:		Zeile 213:
	xZeit.qSet('sys_uid' , cUSER_SYSUID);		xZeit.qSet('sys_uid' , cUSER_SYSUID);

	xZeit.SaveData(lNew);		// SaveData meldet einen Fehler ueber den RUECKGABEWERT, nicht ueber eine
			// Exception. Ohne diese Pruefung antwortet der Endpunkt mit Erfolg,
			// obwohl nichts geschrieben wurde.
			if (not xZeit.SaveData(lNew)) then begin
			qSQLFree(xZeit);
			result := 'ERROR: Zeiterfassung konnte nicht gespeichert werden';
			exit;
			end;
	qSQLFree(xZeit);		qSQLFree(xZeit);

Zeile 232:		Zeile 239:
	xZeit.qSet('sys_uid' , cKOMM_SYSUID);		xZeit.qSet('sys_uid' , cKOMM_SYSUID);

	xZeit.SaveData(lNew);		if (not xZeit.SaveData(lNew)) then begin
			qSQLFree(xZeit);
			result := 'ERROR: Kommentar konnte nicht gespeichert werden';
			exit;
			end;
	qSQLFree(xZeit);		qSQLFree(xZeit);

Zeile 240:		Zeile 251:
	begin		begin

			// Jeder Wert aus oParams geht durch DB_SQLVal - auch die, die wie
			// Zahlen aussehen. Der Kommentar ist Freitext aus dem Browser, und
			// ohne Quoting beendet ein Apostroph darin das SQL-Statement.
	cSql := 'UPDATE zeiterfuser, zeiterfkomm ' +		cSql := 'UPDATE zeiterfuser, zeiterfkomm ' +
	' SET zeiterfuser.ze_zeit = ' + oParams.values['elapsedTime'] +		' SET zeiterfuser.ze_zeit = ' + DB_SQLVal(oParams.values['elapsedTime']) +
	', zeiterfuser.ze_endtime = ' + oParams.values['vergZeit'] +		', zeiterfuser.ze_endtime = ' + DB_SQLVal(oParams.values['vergZeit']) +
	', zeiterfuser.ze_enddate = ' + oParams.values['stopTimeValue'] +		', zeiterfuser.ze_enddate = ' + DB_SQLVal(oParams.values['stopTimeValue']) +
	', zeiterfuser.ze_pausezeit = ' + oParams.values['elapsedPauseTime'] +		', zeiterfuser.ze_pausezeit = ' + DB_SQLVal(oParams.values['elapsedPauseTime']) +
	', zeiterfuser.ze_status = ' + oParams.values['status'] +		', zeiterfuser.ze_status = ' + DB_SQLVal(oParams.values['status']) +
	', zeiterfkomm.zk_kommentar = ' + oParams.values['comment'] +		', zeiterfkomm.zk_kommentar = ' + DB_SQLVal(oParams.values['comment']) +
	' WHERE zeiterfuser.sys_uid = ' + DB_SQLVal(oParams.values['uid']) +		' WHERE zeiterfuser.sys_uid = ' + DB_SQLVal(oParams.values['uid']) +
	' AND zeiterfkomm.zk_messunguid = ' + DB_SQLVal(oParams.values['uid']);		' AND zeiterfkomm.zk_messunguid = ' + DB_SQLVal(oParams.values['uid']);
Zeile 260:		Zeile 274:
	writeln('Pausezeit: ' + oParams.values['pauseTime']);		writeln('Pausezeit: ' + oParams.values['pauseTime']);
	cSql := 'UPDATE zeiterfuser SET ze_pausezeit ' +		cSql := 'UPDATE zeiterfuser SET ze_pausezeit ' +
	'= ze_pausezeit + ' + oParams.values['pauseTime'] +		'= ze_pausezeit + ' + DB_SQLVal(oParams.values['pauseTime']) +
	' WHERE sys_uid = ' + DB_SQLVal(oParams.values['sysuid']);		' WHERE sys_uid = ' + DB_SQLVal(oParams.values['sysuid']);

Rademacker am 17. August 2026 um 06:53 Uhr

2026-08-17T06:53:37Z

← Nächstältere Version		Version vom 17. August 2026, 07:53 Uhr
Zeile 1:		Zeile 1:
	{{Kostenpflichtige Module}}		{{Kostenpflichtige Module}}

			=Beispiel 2: Zeiterfassung als komplette Webanwendung=

	Dieses Script dient zur Zeiterfassung über den REST-Server. Bei Seitenaufruf wird eine Liste von Kunden geladen und in einer Liste angezeigt.		Dieses Script dient zur Zeiterfassung über den REST-Server. Bei Seitenaufruf wird eine Liste von Kunden geladen und in einer Liste angezeigt.

Rademacker am 19. Mai 2026 um 05:47 Uhr

2026-05-19T05:47:48Z

← Nächstältere Version		Version vom 19. Mai 2026, 06:47 Uhr
Zeile 143:		Zeile 143:
	//----------------Funktionen----------------------------------//		//----------------Funktionen----------------------------------//

	function POST(oParams: TStrings): string;		function POST(oParams: TStrings; oBody: TJSONObject): string;
	var		var
	oArr1 : TJSONArray;		oArr1 : TJSONArray;
Zeile 172:		Zeile 172:
	end;		end;

	function PUT(oParams: TStrings): string;		function PUT(oParams: TStrings; oBody: TJSONObject): string;
	var		var
	xZeit : TqSQL;		xZeit : TqSQL;

Prakti am 18. Oktober 2023 um 08:39 Uhr

2023-10-18T08:39:55Z

← Nächstältere Version		Version vom 18. Oktober 2023, 09:39 Uhr
Zeile 896:		Zeile 896:
	var status = '01';		var status = '01';
	zaehler++;		zaehler++;
	~~alert(selJob);~~
	startTimeValue = new Date();		startTimeValue = new Date();

Prakti: /

2023-10-18T08:37:46Z

← Nächstältere Version		Version vom 18. Oktober 2023, 09:37 Uhr
Zeile 238:		Zeile 238:
	begin		begin

	cSql := 'UPDATE zeiterfuser SET ze_zeit = ' + oParams.values['elapsedTime'] +		cSql := 'UPDATE zeiterfuser, zeiterfkomm ' +
	', ze_endtime = ' + oParams.values['vergZeit'] +		' SET zeiterfuser.ze_zeit = ' + oParams.values['elapsedTime'] +
	', ze_enddate = ' + oParams.values['stopTimeValue'] +		', zeiterfuser.ze_endtime = ' + oParams.values['vergZeit'] +
	', ze_pausezeit = ' + oParams.values['elapsedPauseTime'] +		', zeiterfuser.ze_enddate = ' + oParams.values['stopTimeValue'] +
	', ze_status = ' + oParams.values['status'] +		', zeiterfuser.ze_pausezeit = ' + oParams.values['elapsedPauseTime'] +
	' WHERE sys_uid = ' + DB_SQLVal(oParams.values['uid']);		', zeiterfuser.ze_status = ' + oParams.values['status'] +
			', zeiterfkomm.zk_kommentar = ' + oParams.values['comment'] +
			' WHERE zeiterfuser.sys_uid = ' + DB_SQLVal(oParams.values['uid']) +
			' AND zeiterfkomm.zk_messunguid = ' + DB_SQLVal(oParams.values['uid']);

	if DB_SQLExec(oDB,cSql) then		if DB_SQLExec(oDB,cSql) then
Zeile 685:		Zeile 688:
	//----Stopzeit und -datum wird gespeichert----//		//----Stopzeit und -datum wird gespeichert----//

	function saveStopTime(stopTimeValue, elapsedTime, elapsedPauseTime, status, uid, vergZeit) {		function saveStopTime(stopTimeValue, elapsedTime, elapsedPauseTime, status, uid, vergZeit, comment) {

	var method = 'PUT';		var method = 'PUT';
Zeile 699:		Zeile 702:
	"&status=" + encodeURIComponent(status) +		"&status=" + encodeURIComponent(status) +
	"&uid=" + encodeURIComponent(uid) +		"&uid=" + encodeURIComponent(uid) +
	"&vergZeit=" + encodeURIComponent(vergZeit);		"&vergZeit=" + encodeURIComponent(vergZeit)+
			"&comment=" + encodeURIComponent(comment);

	var request = new XMLHttpRequest();		var request = new XMLHttpRequest();
Zeile 892:		Zeile 896:
	var status = '01';		var status = '01';
	zaehler++;		zaehler++;
			alert(selJob);
	startTimeValue = new Date();		startTimeValue = new Date();

Zeile 1.322:		Zeile 1.326:
	elapsedTime = time;		elapsedTime = time;

	var ~~Job~~ = ~~selectedJob[idStop]~~.value;		var comment = '"' + document.getElementById("comment").value + '"';
	~~var Kunde = selectedKunde[idStop].value;~~

	var hPEnd = document.getElementById("outStd2").value;		var hPEnd = document.getElementById("outStd2").value;
	var mPEnd = document.getElementById("outMin2").value;		var mPEnd = document.getElementById("outMin2").value;
Zeile 1.335:		Zeile 1.338:
	var day = startTimeValue.getDate();		var day = startTimeValue.getDate();
	month += 1;		month += 1;
	stopTimeValue = '"' + startTimeValue.getFullYear() + "-" + (month < 10 ? "0" + month : month) + "-" + (day < 10 ? "0" + day : day) + '"';		var stopTimeValue = '"' + startTimeValue.getFullYear() + "-" + (month < 10 ? "0" + month : month) + "-" + (day < 10 ? "0" + day : day) + '"';

	var status = 21;		var status = 21;
Zeile 1.357:		Zeile 1.360:
	}		}

	saveStopTime(stopTimeValue, elapsedTime, pTime, status, uid, vergZeit);		saveStopTime(stopTimeValue, elapsedTime, pTime, status, uid, vergZeit, comment);
	}		}

Prakti am 18. Oktober 2023 um 07:04 Uhr

2023-10-18T07:04:19Z

← Nächstältere Version		Version vom 18. Oktober 2023, 08:04 Uhr
Zeile 18:		Zeile 18:
	<syntaxhighlight lang="pascal">		<syntaxhighlight lang="pascal">
	procedure _AddJob(oArr: TJSONArray; id: String);		procedure _AddJob(oArr: TJSONArray; id: String);
	var ~~oWert : TJSONObject;~~		var cSql : String;
	cSql : String;
	A_Query : TxFQuery;		A_Query : TxFQuery;
	begin		begin
Zeile 35:		Zeile 34:

	procedure _AddCustomer(oArr: TJSONArray);		procedure _AddCustomer(oArr: TJSONArray);
	var ~~oWert : TJSONObject;~~		var cSql : String;
	cSql : String;
	A_Query : TxFQuery;		A_Query : TxFQuery;
	begin		begin
Zeile 69:		Zeile 67:

	procedure _AddID(kunde: String; oArr: TJSONArray);		procedure _AddID(kunde: String; oArr: TJSONArray);
	var ~~oWert : TJSONObject;~~		var cSql : String;
	cSql : String;
	A_Query : TxFQuery;		A_Query : TxFQuery;
	begin		begin
Zeile 104:		Zeile 101:

	procedure _AddCHECK(oArr: TJSONArray);		procedure _AddCHECK(oArr: TJSONArray);
	var ~~oWert : TJSONObject;~~		var cSql : String;
	cSql : String;
	A_Query : TxFQuery;		A_Query : TxFQuery;
	begin		begin
Zeile 131:		Zeile 127:

	procedure _getPauseTime(sysuid: String; oArr: TJSONArray);		procedure _getPauseTime(sysuid: String; oArr: TJSONArray);
	var ~~oWert : TJSONObject;~~		var cSql : String;
	cSql : String;
	A_Query : TxFQuery;		A_Query : TxFQuery;
	begin		begin
Zeile 152:		Zeile 147:
	oArr1 : TJSONArray;		oArr1 : TJSONArray;
	cSql : String;		cSql : String;
	~~startTime : TDateTime;~~
	~~elapsedTime : Integer;~~
	~~millisec, seconds, minutes, hours : Word;~~
	~~year, month, day : Word;~~
	~~uhrzeit, datum : String;~~
	begin		begin
	if (oParams.values['choice']='job') then begin		if (oParams.values['choice']='job') then begin

Prakti am 18. Oktober 2023 um 06:44 Uhr

2023-10-18T06:44:52Z

Änderungen zeigen

Prakti am 17. Oktober 2023 um 13:18 Uhr

2023-10-17T13:18:25Z

← Nächstältere Version		Version vom 17. Oktober 2023, 14:18 Uhr
Zeile 1.112:		Zeile 1.112:
	pauseButton.style.height = "9.4%";		pauseButton.style.height = "9.4%";
	pauseButton.style.minWidth = "3%";		pauseButton.style.minWidth = "3%";
	pauseButton.textContent = ~~'Pause'~~;		var buttonText = 'Pause';
			var buttonHeight = parseFloat(pauseButton.style.height);
			var buttonWidth = parseFloat(pauseButton.style.width);
			var fontSize = (buttonHeight * 0.1) + "em";
			pauseButton.style.fontSize = fontSize;
			pauseButton.textContent = buttonText;
	pauseButton.addEventListener('click', function() {toggleButton(job, item, kundeItem, this.id)});		pauseButton.addEventListener('click', function() {toggleButton(job, item, kundeItem, this.id)});
	timerList.appendChild(pauseButton);		timerList.appendChild(pauseButton);
Zeile 1.124:		Zeile 1.129:
	pauseButton.style.left = "90%";		pauseButton.style.left = "90%";
	pauseButton.style.height = "9.4%";		pauseButton.style.height = "9.4%";
	pauseButton.style.~~minWidth~~ = "3%";		pauseButton.style.width = "3%";
	pauseButton.textContent = ~~'Start'~~;		var buttonText = 'Start';
			var buttonHeight = parseFloat(pauseButton.style.height);
			var buttonWidth = parseFloat(pauseButton.style.width);
			var fontSize = (buttonHeight * 0.1) + "em";
			pauseButton.style.fontSize = fontSize;
			pauseButton.textContent = buttonText;
	pauseButton.addEventListener('click', function() {toggleButton(job, item, kundeItem, this.id)});		pauseButton.addEventListener('click', function() {toggleButton(job, item, kundeItem, this.id)});
	timerList.appendChild(pauseButton);		timerList.appendChild(pauseButton);
Zeile 1.140:		Zeile 1.150:
	stopButton.style.left = "94%";		stopButton.style.left = "94%";
	stopButton.style.height = "9.4%";		stopButton.style.height = "9.4%";
	stopButton.style.~~minWidth~~ = "3%";		stopButton.style.width = "3%";
	stopButton.textContent = ~~'Stop'~~;		var buttonText = 'Stop';
			var buttonHeight = parseFloat(stopButton.style.height);
			var buttonWidth = parseFloat(stopButton.style.width);
			var fontSize = (buttonHeight * 0.1) + "em";
			stopButton.style.fontSize = fontSize;
			stopButton.textContent = buttonText;
	stopButton.addEventListener('click', function() {stopTimer(job, item, kundeItem, index, this.id)});		stopButton.addEventListener('click', function() {stopTimer(job, item, kundeItem, index, this.id)});
	timerList.appendChild(stopButton);		timerList.appendChild(stopButton);

Prakti am 17. Oktober 2023 um 13:10 Uhr

2023-10-17T13:10:52Z

← Nächstältere Version		Version vom 17. Oktober 2023, 14:10 Uhr
Zeile 1.150:		Zeile 1.150:
	timerList.appendChild(neueReihe);		timerList.appendChild(neueReihe);
	}		}
	~~timerList.parentElement.scrollTop = timerList.parentElement.scrollHeight;~~
	}		}

Prakti am 17. Oktober 2023 um 13:00 Uhr

2023-10-17T13:00:00Z

← Nächstältere Version		Version vom 17. Oktober 2023, 14:00 Uhr
Zeile 1.624:		Zeile 1.624:
	left: 50%;		left: 50%;
	transform: translate(-50%, -50%);		transform: translate(-50%, -50%);
	~~/* border-top: 0.14em solid #ccc;~~
	~~border-bottom: 0.14em solid #ccc; */~~
	background-color: white;		background-color: white;
	box-shadow: 0 0px 3px rgba(0, 0, 0, 0.5);		box-shadow: 0 0px 3px rgba(0, 0, 0, 0.5);