From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 4 Feb 2019 13:09:03 +0100 Subject: Initial import --- app/schulis/2.2.1/src/0.listen.schulen | 87 ++++++++++++++++++++++++++++++++++ 1 file changed, 87 insertions(+) create mode 100644 app/schulis/2.2.1/src/0.listen.schulen (limited to 'app/schulis/2.2.1/src/0.listen.schulen') 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; + -- cgit v1.2.3