1 files changed, 35 insertions, 0 deletions
diff --git a/app/baisy/2.2.1-schulis/src/isp.standardmaskenbehandlung b/app/baisy/2.2.1-schulis/src/isp.standardmaskenbehandlung
new file mode 100644
index 0000000..1ebb1eb
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/isp.standardmaskenbehandlung
@@ -0,0 +1,35 @@
+PACKET ispstandardmaskenbehandlungDEFINES schulkenndatum,
+standardkopfmaskeinitialisieren,standardkopfmaskeausgeben,
+standardkopfmaskeaktualisieren,setzeschulnamen,leseschulnamen:LET maskenname=
+"mu standardkopf",fnrsystem=2,fnrschule=3,fnrdatum=4,fnrversion=5,fnrtitel=6,
+fnrzeit=7;TAG VAR maske;#LET s2="Schulname";#TEXT VAR schuldaten:="";TEXT 
+VAR zeileschulname:="";TEXT VAR systemname:="";PROC 
+standardkopfmaskeinitialisieren(TEXT CONST system):setzeschulnamen(
+zeileschulname);systemname:=system;initmaske(maske,maskenname)END PROC 
+standardkopfmaskeinitialisieren;PROC standardkopfmaskeausgeben(TEXT CONST 
+programmname):TEXT VAR hilfe;hilfe:=systemname;zentrieretext(maske,hilfe,
+fnrsystem);fill(maske,hilfe,fnrsystem);fill(maske,schulisversion,fnrversion);
+fill(maske,date,fnrdatum);fill(maske,timeofday,fnrzeit);hilfe:=programmname;
+zentrieretext(maske,hilfe,fnrtitel);fill(maske,hilfe,fnrtitel);hilfe:=
+zeileschulname;zentrieretext(maske,hilfe,fnrschule);fill(maske,hilfe,
+fnrschule);show(maske).END PROC standardkopfmaskeausgeben;PROC 
+standardkopfmaskeaktualisieren(TEXT CONST programmname):TEXT VAR hilfe;put(
+maske,timeofday,fnrzeit);hilfe:=programmname;zentrieretext(maske,hilfe,
+fnrtitel);put(maske,hilfe,fnrtitel);END PROC standardkopfmaskeaktualisieren;
+PROC standardkopfmaskeaktualisieren:put(maske,timeofday,fnrzeit);END PROC 
+standardkopfmaskeaktualisieren;TEXT PROC leseschulnamen:zeileschulname
+ENDPROC leseschulnamen;PROC setzeschulnamen(TEXT CONST schulname):
+zeileschulname:=schulnameENDPROC setzeschulnamen;TEXT PROC schulkenndatum(
+TEXT CONST schluessel):LET schulkenndaten="c02 schulkenndaten";systemdboff;
+inittupel(dnrschluessel);putwert(fnrschlsachgebiet,schulkenndaten);putwert(
+fnrschlschluessel,schluessel);search(dnrschluessel,TRUE );IF dbstatus=okTHEN 
+schuldaten:=wert(fnrschllangtext)ELSE schuldaten:=""FI ;schuldatenENDPROC 
+schulkenndatum;PROC zentrieretext(TAG CONST maske,TEXT VAR text,INT CONST 
+feld):INT VAR leerlaenge;TEXT VAR leertext;LET leerzeichen=" ";leerlaenge:=(
+length(maske,feld)-length(text));IF (leerlaenge>0)THEN leertext:=(leerlaenge
+DIV 2)*leerzeichen;text:=leertext+text+leertext;IF (leerlaengeMOD 2<>0)THEN 
+text:=text+leerzeichenFI ;FI ;END PROC zentrieretext;END PACKET 
+ispstandardmaskenbehandlung;oeffnedatenbank(schulisdbname);setzeschulnamen(
+schulkenndatum("Schulname"));setzeschulisversion("2.2.1");
+standardkopfmaskeinitialisieren("schulis")
+