blob: 51fbcacb48e990dd6bffbff9eb8e0f902e7ffd6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
PACKET schuliskommandobehandlungDEFINES bsstart,aktuelleskommandolesen,
kommandoausfuehren:LET standardanfang=2,id="mb kommandobearbeitung";TEXT VAR
name:="",fehl:="";#TEXT VAR titel:="";#BOOL VAR fehler:=FALSE ;;TAG VAR
aktuellemaske;INT VAR aktuelleposition;PROC bsstart:
frageentwicklernachkommando;aktuelleskommandolesen.END PROC bsstart;PROC
frageentwicklernachkommando:page;fehl:="";standardkopfmaskeausgeben(text(
vergleichsknoten));aktuelleposition:=standardanfang;initmaske(aktuellemaske,
id);show(aktuellemaske).END PROC frageentwicklernachkommando;PROC
aktuelleskommandolesen:ROW 100TEXT VAR feld;init(feld);feld(2):=name;feld(4)
:=fehl;putget(aktuellemaske,feld,aktuelleposition);name:=feld(2);IF fehler
THEN loeschemeldung(aktuellemaske);put(aktuellemaske,"",4)FI .END PROC
aktuelleskommandolesen;PROC kommandoausfuehren:disablestop;melde(
aktuellemaske,46);store(FALSE );do(name);store(TRUE );IF iserrorTHEN
clearerror;meldefehler;ELSE fehler:=FALSE ;fehl:="";reorganizescreenFI ;
return(1);enablestop.meldefehler:meldeauffaellig(aktuellemaske,45);fehl:=
errormessage.END PROC kommandoausfuehren;PROC init(ROW 100TEXT VAR feld):INT
VAR i;FOR iFROM 1UPTO 100REP feld(i):=""PER END PROC init;END PACKET
schuliskommandobehandlung;
|
