summaryrefslogtreecommitdiff
path: root/app/schulis/2.2.1/src/6.ida.auswahl
diff options
context:
space:
mode:
Diffstat (limited to 'app/schulis/2.2.1/src/6.ida.auswahl')
-rw-r--r--app/schulis/2.2.1/src/6.ida.auswahl23
1 files changed, 23 insertions, 0 deletions
diff --git a/app/schulis/2.2.1/src/6.ida.auswahl b/app/schulis/2.2.1/src/6.ida.auswahl
new file mode 100644
index 0000000..be92224
--- /dev/null
+++ b/app/schulis/2.2.1/src/6.ida.auswahl
@@ -0,0 +1,23 @@
+PACKET idaauswahlDEFINES idaauswahleinlesenundbearbeiten,idaauswahleinlesen,
+pruefungidaauswahl:LET niltext="";LET anzahlzeilen=18,erstesausgabefeld=2,
+vorwaerts=3;INT VAR anfang,ende,lv;TAG VAR maske;PROC
+idaauswahleinlesenundbearbeiten(INT CONST nr):BOOL VAR listeexistiertnicht:=
+FALSE ;anfang:=(nr-1)*10+1;ende:=anfang+9;putintwert(fnridanummer,anfang);
+objektlistestarten(dnrida,text(anfang),fnridanummer,TRUE ,listeexistiertnicht
+);IF listeexistiertnichtOR NOT pruefungidaauswahlTHEN return(1)ELSE
+datensatzlistenausgabe(PROC (INT CONST )erfassungdruckausgabe,TRUE ,BOOL
+PROC pruefungidaauswahl);FI END PROC idaauswahleinlesenundbearbeiten;PROC
+idaauswahleinlesen:feldersperren;infeld(erstesausgabefeld);standardnproc;END
+PROC idaauswahleinlesen;BOOL PROC pruefungidaauswahl:intwert(fnridanummer)>=
+anfangCAND intwert(fnridanummer)<=endeEND PROC pruefungidaauswahl;PROC
+datensatzlistenausgabe(PROC (INT CONST )erfassungspeziell,BOOL CONST scanja,
+BOOL PROC pruefungspeziell):BOOL VAR rs:=ruecksprung;initobli;
+listenmaskeholenundausgeben;inlisteblaettern(PROC erfassungspeziell,vorwaerts
+,TRUE ,scanja,BOOL PROC pruefungspeziell);idaauswahleinlesenENDPROC
+datensatzlistenausgabe;PROC listenmaskeholenundausgeben:LET listenmaskenname=
+"mu objektliste";initmaske(maske,listenmaskenname);setzeaktuellemaske(maske);
+standardstartproc(listenmaskenname)END PROC listenmaskeholenundausgeben;PROC
+feldersperren:FOR lvFROM 1UPTO anzahlzeilenREP IF standardmaskenfeld(lv*2+1)=
+niltextTHEN protect(maske,lv*2,TRUE )FI PER END PROC feldersperren;END
+PACKET idaauswahl;
+