1 files changed, 87 insertions, 0 deletions
diff --git a/app/schulis/2.2.1/src/0.listen.schulen b/app/schulis/2.2.1/src/0.listen.schulen
new file mode 100644
index 0000000..c23ade2
--- /dev/null
+++ b/app/schulis/2.2.1/src/0.listen.schulen
@@ -0,0 +1,87 @@
+PACKET schulenlistenDEFINES schulenspezielleteile:LET niltext="",blank=" ",
+mittestrich="-",ueberschriftenzeilen=1,#bestand="c05 schulen",#spalte1breite=
+8,spalte2breite=8,spalte4breite=17,anzspaltentrenner=3,ausgkopflaenge=3,
+ausgfeldlaenge=5,#maxdbwerte=100,##anzdbwerte=8,#AUSGFELD =ROW ausgfeldlaenge
+TEXT ,AUSGKOPF =ROW ausgkopflaengeTEXT ,schuleneingangsmaske=
+"mu liste einfach eingang",schulenanfpos=2;#LET dnrschulen=120,fnrschkennung=
+121,fnrschname=122,fnrschart=123,fnrschamtlnr=127,fnrschbundesland=128,
+fnrschstrnr=124,fnrschplzort=125,fnrschtelnr=126;#INT CONST spalte3bildbreite
+:=bildbreite-anzspaltentrenner-spalte1breite-spalte2breite-spalte4breite;INT 
+VAR spalte3druckbreite,spalte3breite,druckzeilenzahl,bildanf,eingabestatus;
+TEXT VAR schulenueberschrift,schulkennung,schulart,amtlschulkennnr,schulname,
+schulstrnr,schulnat,schulplz,schulort,schulland,schultelnr,anfbuchstabe,
+neueranfbuchstabe;TEXT VAR druckstrich;TEXT CONST bildstrich:=bildbreite*
+mittestrich;AUSGFELD VAR ausgfeld;AUSGKOPF VAR ausgkopf;BOOL PROC multistop:
+TRUE ENDPROC multistop;BOOL PROC multistopsim:setzebestandende(FALSE );TRUE 
+ENDPROC multistopsim;PROC schulenspezielleteile(INT CONST nr):SELECT nrOF 
+CASE 1:schulendialogvorbereitenCASE 2:schuleneingabenrichtigCASE 3:
+schulenlistenvorbereitenCASE 4:schulendruckvorbereitenCASE 5:
+schulenseitedruckenCASE 6:schulenbildschirmvorbereitenCASE 7:
+schulenseitezeigenENDSELECT .END PROC schulenspezielleteile;PROC 
+schulendialogvorbereiten:schulenueberschrift:=text(vergleichsknoten);
+setzeanfangswerte(schuleneingangsmaske,schulenanfpos).END PROC 
+schulendialogvorbereiten;PROC schuleneingabenrichtig:LET fnrausgdrucker=2,
+fnrausgbild=3;standardpruefe(5,fnrausgdrucker,fnrausgbild,0,niltext,
+eingabestatus);IF eingabestatus<>0THEN infeld(eingabestatus);setzeeingabetest
+(FALSE )ELSE setzeausgabedrucker(standardmaskenfeld(fnrausgbild)=niltext);
+setzeeingabetest(TRUE )END IF .END PROC schuleneingabenrichtig;PROC 
+schulenlistenvorbereiten:BOOL VAR b;inittupel(dnrschulen);initobli(3);
+reinitparsing;setzeidentiwert("");objektlistestarten(dnrschulen,"",
+fnrschkennung,TRUE ,b);setzebestandende(b)END PROC schulenlistenvorbereiten;
+PROC schulenbildschirmvorbereiten:LET fnrausganf=2;
+standardkopfmaskeaktualisieren(schulenueberschrift);initspalten;spalte3breite
+:=spalte3bildbreite;ausgfeld(5):=bildbreite*blank;setzespaltenbreiten;
+initausgabekopf(bildstrich);bildanf:=fnrausganf;INT VAR i;FOR iFROM 1UPTO 
+ausgkopflaengeREPEAT ausgkopf(i)IN bildanf;bildanfINCR 1END REPEAT ;
+setzebildanfangsposition(bildanf).END PROC schulenbildschirmvorbereiten;PROC 
+schulenseitezeigen:blaettern(PROC (INT CONST )schulezeigen,aktion,TRUE ,
+FALSE ,BOOL PROC multistop);END PROC schulenseitezeigen;PROC schulezeigen(
+INT CONST dummy):schuleholen;schuleaufbereiten;schuleaufbildschirm.END PROC 
+schulezeigen;PROC schuleaufbildschirm:INT VAR i;FOR iFROM 1UPTO 
+ausgfeldlaengeREPEAT ausgfeld(i)IN ausgabepos;erhoeheausgabeposumeinsEND 
+REPEAT .END PROC schuleaufbildschirm;PROC schulendruckvorbereiten:
+anfbuchstabe:=niltext;druckvorbereiten;variablenfuerdrucksetzen;initdruckkopf
+(zentriert(schulenueberschrift,druckbreite));initspalten;spalte3breite:=
+spalte3druckbreite;ausgfeld(5):=druckbreite*blank;setzespaltenbreiten;
+initausgabekopf(druckstrich);inittupel(dnrschulen);setzebestandende(FALSE );
+lesenvorbereitendruck(PROC (INT CONST ,BOOL PROC ,INT VAR )scanforward,BOOL 
+PROC multistopsim).variablenfuerdrucksetzen:druckstrich:=druckbreite*
+mittestrich;spalte3druckbreite:=druckbreite-anzspaltentrenner-spalte1breite-
+spalte2breite-spalte4breite;druckzeilenzahl:=drucklaenge(ueberschriftenzeilen
+)-ausgkopflaenge.END PROC schulendruckvorbereiten;PROC schulenseitedrucken:
+schulenueberschriftdrucken;seitedrucken(PROC (INT VAR )schuledrucken,
+druckzeilenzahl,ausgfeldlaenge,BOOL PROC multistopsim);seitenwechsel.END 
+PROC schulenseitedrucken;PROC schulenueberschriftdrucken:druckkopfschreiben;
+INT VAR i;FOR iFROM 1UPTO ausgkopflaengeREPEAT druckzeileschreiben(ausgkopf(i
+))END REPEAT .END PROC schulenueberschriftdrucken;PROC schuledrucken(INT VAR 
+zeilenzaehler):LET druckmeldung=101,markiert="#";schuleholen;
+ggfmeldunganfbuchstabe;schuleaufbereiten;zeilenzaehlerINCR ausgfeldlaenge;
+schuleindruckdatei.ggfmeldunganfbuchstabe:IF anfangsbuchstabegeaendertTHEN 
+meldunganfbuchstabeEND IF .anfangsbuchstabegeaendert:neueranfbuchstabe:=
+schulkennungSUB 1;anfbuchstabe<>neueranfbuchstabe.meldunganfbuchstabe:
+standardmeldung(druckmeldung,neueranfbuchstabe+markiert);anfbuchstabe:=
+neueranfbuchstabe.END PROC schuledrucken;PROC schuleindruckdatei:INT VAR i;
+FOR iFROM 1UPTO ausgfeldlaengeREPEAT druckzeileschreiben(ausgfeld(i))END 
+REPEAT .END PROC schuleindruckdatei;PROC setzespaltenbreiten:
+setzespaltenbreite(spalte1breite);setzespaltenbreite(spalte2breite);
+setzespaltenbreite(spalte3breite);setzespaltenbreite(spalte4breite);END PROC 
+setzespaltenbreiten;PROC initausgabekopf(TEXT CONST strich):LET kennung=
+"Kennung",art="Schulart",name="Name",amtlnr="amtl. Nr.",adresse="Adresse",
+telnr="Telefon";spaltenweise(kennung);spaltenweise(art);spaltenweise(name);
+spaltenweise(blank);ausgkopf(1):=zeile;spaltenweise(blank);spaltenweise(
+amtlnr);spaltenweise(adresse);spaltenweise(telnr);ausgkopf(2):=zeile;ausgkopf
+(3):=strich.END PROC initausgabekopf;PROC schuleholen:schulkennung:=wert(
+fnrschkennung);schulname:=wert(fnrschname);schulart:=wert(fnrschart);
+amtlschulkennnr:=wert(fnrschamtlnr);schulland:=wert(fnrschbundesland);
+schulstrnr:=wert(fnrschstrnr);schulort:=wert(fnrschplzort);schultelnr:=wert(
+fnrschtelnr).END PROC schuleholen;PROC schuleaufbereiten:LET deutsch="D";
+schreibekennungartname;schreibeamtlnrstrtelnr;schreibeortland.
+schreibekennungartname:spaltenweise(schulkennung);spaltenweise(schulart);
+spaltenweise(schulname);spaltenweise(blank);ausgfeld(1):=zeile.
+schreibeamtlnrstrtelnr:spaltenweise(blank);spaltenweise(amtlschulkennnr);
+spaltenweise(schulstrnr);spaltenweise(schultelnr);ausgfeld(2):=zeile.
+schreibeortland:spaltenweise(blank);spaltenweise(blank);spaltenweise(schulort
+);spaltenweise(blank);ausgfeld(3):=zeile;spaltenweise(blank);spaltenweise(
+blank);spaltenweise(schulland);spaltenweise(blank);ausgfeld(4):=zeile.END 
+PROC schuleaufbereiten;END PACKET schulenlisten;
+