app/baisy/2.2.1-schulis/src/standarddialog

Raw file
Back to index

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;