1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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")
|
