app/baisy/2.2.1-schulis/src/schulis kommandobehandlung

Raw file
Back to index

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;