1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;
|
