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.raumgruppen | 97 ++++++++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100644 app/schulis/2.2.1/src/0.listen.raumgruppen (limited to 'app/schulis/2.2.1/src/0.listen.raumgruppen') diff --git a/app/schulis/2.2.1/src/0.listen.raumgruppen b/app/schulis/2.2.1/src/0.listen.raumgruppen new file mode 100644 index 0000000..9d8b0f4 --- /dev/null +++ b/app/schulis/2.2.1/src/0.listen.raumgruppen @@ -0,0 +1,97 @@ +PACKET raumgruppenlistenDEFINES raumgruppenspezielleteile:LET +raumgruppeneingangsmaske="mu liste einfach eingang",spaltentrenner=" ", +raumgruppenanfpos=2,spaltenbreite1=4,spaltenbreite2=12,niltext="",blank=" ", +strich="-",null=0,ueberschriftenzeilen=2,ausgkopflaenge=2,ausgfeldlaenge=1, +anzahlderobjekteprobildschirm=8,mnrauswahlnichtsinnvoll=56, +mnrbearbeitetwerden=352;TEXT VAR raumgrueberschrift:="Liste der Raumgruppen", +spaltentext:="Raumgruppe Räume",raeumefuerzeile1,raeumefuerzeile2,raum1, +raum2,raum3,raum4,raum5,raum6,raum7,raum8,raum9,raum10,raum11,raum12,raum13, +raum14,raum15,raumgruppe,alteraumgruppe:="",anfbuchstabe,neueranfbuchstabe:= +"",teiltextmeldung:="die Raumgruppe dem Anfangsbuchstaben:";INT VAR +eingabestatus,bildanfang,spalte2druckbreite,druckzeilenzahl;LET AUSGFELD = +ROW ausgfeldlaengeTEXT ,AUSGKOPF =ROW ausgkopflaengeTEXT ,AUSGKOPFDRUCK =ROW +ausgkopflaengeTEXT ;AUSGFELD VAR ausgfeld;AUSGKOPF VAR ausgkopf; +AUSGKOPFDRUCK VAR ausgkopfdruck;BOOL PROC multistop:TRUE END PROC multistop; +PROC raumgruppenspezielleteile(INT CONST nr):SELECT nrOF CASE 1: +raumgrdialogvorbereitenCASE 2:raumgreingabenrichtigCASE 3: +raumgrlistenvorbereitenCASE 4:raumgrdruckvorbereitenCASE 5:raumgrseitedrucken +CASE 6:raumgrbildschirmvorbereitenCASE 7:raumgrseitezeigenENDSELECT .END +PROC raumgruppenspezielleteile;PROC raumgrdialogvorbereiten: +raumgrueberschrift:=text(vergleichsknoten);setzeanfangswerte( +raumgruppeneingangsmaske,raumgruppenanfpos)END PROC raumgrdialogvorbereiten; +PROC raumgreingabenrichtig:LET fnrausgdrucker=2,fnrausgbild=3;standardpruefe( +5,fnrausgdrucker,fnrausgbild,null,niltext,eingabestatus);IF eingabestatus=0 +THEN setzeeingabetest(TRUE );setzeausgabedrucker(standardmaskenfeld( +fnrausgbild)=niltext);ELSE meldefehler;setzeeingabetest(FALSE )FI ;. +meldefehler:standardmeldung(mnrauswahlnichtsinnvoll,niltext).END PROC +raumgreingabenrichtig;PROC raumgrlistenvorbereiten:BOOL VAR b;initspalten; +setzespaltentrenner(spaltentrenner);inittupel(dnrraumgruppen);setzeidentiwert +("");initobli(anzahlderobjekteprobildschirm);objektlistestarten( +dnrraumgruppen,"",fnrrgraumgrp,TRUE ,b);setzebestandende(NOT multistopCOR b); +END PROC raumgrlistenvorbereiten;PROC raumgrbildschirmvorbereiten:LET +fnrausganf=2;standardkopfmaskeaktualisieren(raumgrueberschrift);bildanfang:= +fnrausganf;setzebildanfangsposition(bildanfang);initspalten; +setzespaltenbreite(bildbreite);spaltenweise(spaltentext);ausgfeld(1):=zeile; +ausgfeld(1)IN ausgabepos;erhoeheausgabeposumeins;spaltenweise(blank);ausgfeld +(1):=zeile;ausgfeld(1)IN ausgabepos;erhoeheausgabeposumeins; +setzebildanfangsposition(4);spaltenbreitensetzenEND PROC +raumgrbildschirmvorbereiten;PROC raumgrseitezeigen:blaettern(PROC (INT CONST +)raumgrdatenzeigen,aktion,TRUE ,FALSE ,BOOL PROC multistop)END PROC +raumgrseitezeigen;PROC raumgrdatenzeigen(INT CONST x):raumgrdatenholen; +raumgrdatenaufbereitenbild1;raumgrdatenaufbildschirm; +raumgrdatenaufbereitenbild2;raumgrdatenaufbildschirmEND PROC +raumgrdatenzeigen;PROC raumgrdatenaufbereitenbild1:spaltenweise(raumgruppe); +spaltenweise(raum1);spaltenweise(raum2);spaltenweise(raum3);spaltenweise( +raum4);spaltenweise(raum5);spaltenweise(raum6);spaltenweise(raum7); +spaltenweise(raum8);spaltenweise(raum9);spaltenweise(raum10);END PROC +raumgrdatenaufbereitenbild1;PROC raumgrdatenaufbereitenbild2:spaltenweise( +blank);spaltenweise(raum11);spaltenweise(raum12);spaltenweise(raum13); +spaltenweise(raum14);spaltenweise(raum15);spaltenweise(blank);spaltenweise( +blank);spaltenweise(blank);spaltenweise(blank);spaltenweise(blank);END PROC +raumgrdatenaufbereitenbild2;PROC raumgrdatenaufbildschirm:INT VAR i;FOR i +FROM 1UPTO ausgfeldlaengeREP ausgfeld(i):=zeile;ausgfeld(i)IN ausgabepos; +erhoeheausgabeposumeins;PER ;END PROC raumgrdatenaufbildschirm;PROC +raumgrdruckvorbereiten:setzebestandende(FALSE );anfbuchstabe:=" "; +druckvorbereiten;variablenfuerdrucksetzen;initdruckkopf(zentriert( +raumgrueberschrift,druckbreite),zentriert(length(raumgrueberschrift)*strich, +druckbreite));initausgabekopfdruck;inittupel(dnrraumgruppen); +spaltenbreitensetzen;lesenvorbereitendruck(PROC (INT CONST ,BOOL PROC ,INT +VAR )scanforward,BOOL PROC multistop);.variablenfuerdrucksetzen: +druckzeilenzahl:=drucklaenge(ueberschriftenzeilen)-ausgkopflaenge.END PROC +raumgrdruckvorbereiten;PROC raumgrseitedrucken:raumgrueberschriftdrucken; +seitedrucken(PROC (INT VAR )raumgrdatendrucken,druckzeilenzahl,ausgfeldlaenge +,BOOL PROC multistop);seitenwechsel.END PROC raumgrseitedrucken;PROC +raumgrueberschriftdrucken:INT VAR i;druckkopfschreiben;FOR iFROM 1UPTO +ausgkopflaengeREP druckzeileschreiben(ausgkopfdruck(i))PER END PROC +raumgrueberschriftdrucken;PROC raumgrdatendrucken(INT VAR zeilenzaehler):LET +markiert="#";raumgrdatenholen;ggflmeldunganfbuchstabe; +raumgrdatenaufbereitenbild1;zeilenzaehlerINCR ausgfeldlaenge; +raumgrindruckdatei;IF raeumefuerzeile2<>niltextTHEN +raumgrdatenaufbereitenbild2;zeilenzaehlerINCR ausgfeldlaenge; +raumgrindruckdatei;FI ;.ggflmeldunganfbuchstabe:IF anfbuchstabegeaendertTHEN +meldunganfbuchstabeFI .anfbuchstabegeaendert:neueranfbuchstabe:=raumgruppe +SUB 1;anfbuchstabe<>neueranfbuchstabe.meldunganfbuchstabe:standardmeldung( +mnrbearbeitetwerden,teiltextmeldung+neueranfbuchstabe+markiert);anfbuchstabe +:=neueranfbuchstabe.END PROC raumgrdatendrucken;PROC initausgabekopfdruck: +TEXT VAR unterstreichung:=druckbreite*strich;ausgkopfdruck(1):=spaltentext; +ausgkopfdruck(2):=unterstreichung;END PROC initausgabekopfdruck;PROC +raumgrindruckdatei:ausgfeld(1):=zeile;INT VAR i;FOR iFROM 1UPTO +ausgfeldlaengeREP druckzeileschreiben(ausgfeld(1))PER END PROC +raumgrindruckdatei;PROC spaltenbreitensetzen:initspalten;setzespaltenbreite( +spaltenbreite2);INT VAR x;INT CONST zehnraeumedererstenzeile:=10;FOR xFROM 1 +UPTO zehnraeumedererstenzeileREP setzespaltenbreite(spaltenbreite1);PER ;END +PROC spaltenbreitensetzen;PROC raumgrdatenholen:INT VAR x:=1;raumgruppe:=wert +(fnrrgraumgrp);raeumefuerzeile1:=subtext(wert(fnrrgraeume),1,40); +raeumefuerzeile2:=subtext(wert(fnrrgraeume),41,60);raum1:=subtext( +raeumefuerzeile1,x,x+4);xINCR 4;raum2:=subtext(raeumefuerzeile1,x,x+4);xINCR +4;raum3:=subtext(raeumefuerzeile1,x,x+4);xINCR 4;raum4:=subtext( +raeumefuerzeile1,x,x+4);xINCR 4;raum5:=subtext(raeumefuerzeile1,x,x+4);xINCR +4;raum6:=subtext(raeumefuerzeile1,x,x+4);xINCR 4;raum7:=subtext( +raeumefuerzeile1,x,x+4);xINCR 4;raum8:=subtext(raeumefuerzeile1,x,x+4);xINCR +4;raum9:=subtext(raeumefuerzeile1,x,x+4);xINCR 4;raum10:=subtext( +raeumefuerzeile1,x,x+4);xINCR 4;raum11:=subtext(raeumefuerzeile2,x,x+4);x +INCR 4;raum12:=subtext(raeumefuerzeile2,x,x+4);xINCR 4;raum13:=subtext( +raeumefuerzeile2,x,x+4);xINCR 4;raum14:=subtext(raeumefuerzeile2,x,x+4);x +INCR 4;raum15:=subtext(raeumefuerzeile2,x,x+4);xINCR 4;alteraumgruppe:= +raumgruppe;END PROC raumgrdatenholen;END PACKET raumgruppenlisten; + -- cgit v1.2.3