1 files changed, 34 insertions, 0 deletions
diff --git a/app/baisy/2.2.1-schulis/src/standarddialog b/app/baisy/2.2.1-schulis/src/standarddialog
new file mode 100644
index 0000000..7e498cb
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/standarddialog
@@ -0,0 +1,34 @@
+PACKET standarddialogDEFINES standardstartproc,standardvproc,standardnproc,
+standardfelderausgeben,standardmaskenfeld,standardfeldlaenge,standardfeldname
+,standardmeldung,standardpruefe,infeld,IN ,feldschutz,feldfrei:LET maxfelder=
+200;TAG VAR maske;INT VAR einstieg;ROW maxfelderTEXT VAR feld;BOOL VAR 
+feldausgeben;LET xruhepos=1,yruhepos=24;INT PROC infeld:einstiegEND PROC 
+infeld;PROC standardstartproc(TEXT CONST maskenname):initmaske(maske,
+maskenname);page;initfeld;einstieg:=2;standardkopfmaskeausgeben(text(
+vergleichsknoten));feldausgeben:=FALSE ;show(maske)END PROC standardstartproc
+;PROC standardvproc(TEXT CONST maskenname):standardstartproc(maskenname);
+standardnprocEND PROC standardvproc;PROC standardnproc:IF feldausgebenTHEN 
+standardfelderausgebenFI ;get(maske,feld,einstieg);loeschemeldung(maske);
+cursor(xruhepos,yruhepos)END PROC standardnproc;PROC standardfelderausgeben:
+INT VAR fnr;INT VAR maxnr:=fields(maske);FOR fnrFROM einstiegUPTO maxnrREP 
+IF fieldexists(maske,fnr)THEN put(maske,feld(fnr),fnr)FI PER ;feldausgeben:=
+falseEND PROC standardfelderausgeben;PROC standardpruefe(INT CONST pruefart,
+INT CONST feldnummer,ug,og,TEXT CONST bestand,INT VAR status):pruefe(pruefart
+,maske,TEXT PROC (INT CONST )standardmaskenfeld,feldnummer,ug,og,bestand,
+status)END PROC standardpruefe;PROC feldschutz(INT CONST feldnr):protect(
+maske,feldnr,TRUE )END PROC feldschutz;PROC feldfrei(INT CONST feldnr):
+protect(maske,feldnr,FALSE )END PROC feldfrei;INT PROC standardfeldlaenge(
+INT CONST i):length(maske,i)END PROC standardfeldlaenge;INT PROC 
+standardfeldname(INT CONST i):symbolicname(maske,i)END PROC standardfeldname;
+TEXT PROC standardmaskenfeld(INT CONST i):feld(i)END PROC standardmaskenfeld;
+PROC standardmaskenfeld(TEXT CONST t,INT CONST i):feld(i):=t;feldausgeben:=
+TRUE END PROC standardmaskenfeld;PROC infeld(INT CONST i):einstieg:=i;cursor(
+maske,i)END PROC infeld;OP IN (TEXT CONST t,INT CONST feldnr):put(maske,t,
+feldnr);feld(feldnr):=tEND OP IN ;PROC standardmeldung(INT CONST mnr,TEXT 
+CONST ergaenzung):IF ergaenzung=""THEN meldeauffaellig(maske,mnr)ELSE melde(
+maske,mnr,ergaenzung)FI END PROC standardmeldung;PROC standardmeldung(TEXT 
+CONST meldungstext,TEXT CONST ergaenzung):IF ergaenzung=""THEN 
+meldeauffaellig(maske,meldungstext)ELSE melde(maske,meldungstext,ergaenzung)
+FI END PROC standardmeldung;PROC initfeld:INT VAR i;FOR iFROM 1UPTO maxfelder
+REP feld(i):=""PER END PROC initfeld;END PACKET standarddialog;
+