PACKET zeitwuenschedruckenDEFINES zeitwuenschespezielleteile:LET AUSGFELD =
ROW ausgfeldlaengeTEXT ,ausgfeldlaenge=18,zeilenbreite=60,zeilenanzahl=1,sj=
"Schuljahr",hj="Schulhalbjahr",ueberschrzeilen=0,ausgabeparam="#",eingmaske=
"ms liste zeitwuensche",meldungbearb=352,meldungpraez=129,fldsortlehrer=2,
fldsortsugrup=3,fldsortraeume=4,fldsortfaecher=5,fldsortkopplg=6,fldakthj=7,
fldaufdr=9,fldaufbs=8,posanzut=1,posgewut=3,posanzvm=4,posgewvm=6,posanznm=7,
posgewnm=9,ausganzpos=11,ausggewpos=18,minus="-",plus="+",leerzeile=" ",
kennzlehrer="P",kennzsugrup="S",kennzraeume="R",kennzfaecher="F",kennzkoppl=
"K",moeintrag="Mo ",dieintrag="Di ",mieintrag="Mi ",doeintrag="Do ",
freintrag="Fr ",saeintrag="Sa ",anhangl="Lehrer ",anhangs="Schülergruppen "
,anhangr="Räume ",anhangf="Fächer ",anhangk="Kopplungen ",ueberschrift=
"Liste der Zeitwünsche für ",leererunbestwunsch=" ";AUSGFELD VAR
ausgfeld;INT VAR i,status,druckzeilenzahl,fall;TEXT VAR bezug,objekt,
objektbez,druckstrich;TEXT VAR sjahr,hjahr;INT VAR schj,schhj:=0;TEXT VAR
bestwunsch,unbestwunsch,zeitwuenscheueberschrift:="";TEXT VAR bestwzeile,
unbestwtage,unbestwvorm,unbestwnachm,bestwurzeile:=
" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"+
" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ "+
" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ "+
"_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ";TEXT VAR
moobjeintrag,diobjeintrag,miobjeintrag,doobjeintrag,frobjeintrag,saobjeintrag
;BOOL PROC multistop:dbstatus=okCAND wert(fnrzwbezug)=bezugCAND intwert(
fnrzwhj)=schhjCAND intwert(fnrzwsj)=schjEND PROC multistop;BOOL PROC
multistopsim:IF dbstatus=okTHEN IF intwert(fnrzwhj)=schhjCAND intwert(fnrzwsj
)=schjCAND wert(fnrzwbezug)=bezugTHEN LEAVE multistopsimWITH TRUE ELSE
setzebestandende(TRUE );LEAVE multistopsimWITH FALSE FI ELSE setzebestandende
(TRUE )FI ;FALSE END PROC multistopsim;PROC holeakthj:holakthj;holaktj;IF
standardmaskenfeld(fldakthj)=""THEN bergeplhjujFI .holakthj:hjahr:=
schulkenndatum(hj);schhj:=int(hjahr).holaktj:sjahr:=schulkenndatum(sj);schj:=
int(sjahr).bergeplhjuj:geplanteshjundsjberechnen(hjahr,sjahr);schj:=int(sjahr
);schhj:=int(hjahr).END PROC holeakthj;PROC zeitwuenschespezielleteile(INT
CONST anwahl):SELECT anwahlOF CASE 1:zeitwuenschedialogvorbereitenCASE 2:
zeitwuenscherichtigCASE 3:zeitwuenschelistenvorbereitenCASE 4:
zeitwuenschedruckvorbereitenCASE 5:zeitwuenscheseitedruckenCASE 6:
zeitwuenschebsvorbereitenCASE 7:zeitwuenscheseitezeigenEND SELECT .END PROC
zeitwuenschespezielleteile;PROC zeitwuenschedialogvorbereiten:
setzeanfangswerte(eingmaske,fldsortlehrer)END PROC
zeitwuenschedialogvorbereiten;PROC zeitwuenscherichtig:IF standardmaskenfeld(
fldsortlehrer)=""CAND standardmaskenfeld(fldsortsugrup)=""CAND
standardmaskenfeld(fldsortraeume)=""CAND standardmaskenfeld(fldsortfaecher)=
""CAND standardmaskenfeld(fldsortkopplg)=""THEN standardmeldung(meldungpraez,
"");setzeeingabetest(FALSE );infeld(fldsortlehrer);LEAVE zeitwuenscherichtig
ELIF standardmaskenfeld(fldaufdr)=""CAND standardmaskenfeld(fldaufbs)=""THEN
standardmeldung(meldungpraez,"");setzeeingabetest(FALSE );infeld(
fldsortlehrer);LEAVE zeitwuenscherichtigFI ;standardpruefe(5,fldsortlehrer,
fldsortkopplg,0,"",status);IF status<>0THEN infeld(status);setzeeingabetest(
FALSE )ELSE standardpruefe(5,fldaufdr,fldaufbs,0,"",status);IF status<>0THEN
infeld(status);setzeeingabetest(FALSE )ELSE IF standardmaskenfeld(
fldsortlehrer)<>""THEN fall:=fldsortlehrer;objektbez:=anhangl;bezug:=
kennzlehrerELIF standardmaskenfeld(fldsortsugrup)<>""THEN fall:=fldsortsugrup
;objektbez:=anhangs;bezug:=kennzsugrupELIF standardmaskenfeld(fldsortraeume)
<>""THEN fall:=fldsortraeume;objektbez:=anhangr;bezug:=kennzraeumeELIF
standardmaskenfeld(fldsortfaecher)<>""THEN fall:=fldsortfaecher;objektbez:=
anhangf;bezug:=kennzfaecherELIF standardmaskenfeld(fldsortkopplg)<>""THEN
fall:=fldsortkopplg;objektbez:=anhangk;bezug:=kennzkopplFI ;
setzeausgabedrucker(standardmaskenfeld(fldaufdr)<>"");setzeeingabetest(TRUE )
;holeakthj;zeitwuenscheueberschrift:=ueberschrift+objektbez+hjahr+". "+text(
sjahr,2)+"/"+subtext(sjahr,3)FI ;FI END PROC zeitwuenscherichtig;PROC
zeitwuenschelistenvorbereiten:BOOL VAR b;inittupel(dnrzeitwuensche);initobli(
zeilenanzahl);setzeidentiwert("");setzewerte;objektlistestarten(
dnrzeitwuensche,sjahr,fnrzwbezugsobjekt,TRUE ,b);setzebestandende(NOT
multistopCOR b).setzewerte:putintwert(fnrzwsj,schj);putintwert(fnrzwhj,schhj)
;putwert(fnrzwbezug,bezug).END PROC zeitwuenschelistenvorbereiten;PROC
zeitwuenschebsvorbereiten:standardkopfmaskeaktualisieren(zentriert(
zeitwuenscheueberschrift,51));setzebildanfangsposition(3)END PROC
zeitwuenschebsvorbereiten;PROC zeitwuenscheseitezeigen:blaettern(PROC (INT
CONST )zeitwuenschezeigen,aktion,TRUE ,TRUE ,BOOL PROC multistop);END PROC
zeitwuenscheseitezeigen;PROC zeitwuenschezeigen(INT CONST procparameter):
zeitwuenscheholen;zeitwuenscheaufbereiten;zeitwuenscheaufbs;END PROC
zeitwuenschezeigen;PROC zeitwuenscheholen:objekt:=wert(fnrzwbezugsobjekt);
bestwunsch:=wert(fnrzwbestimmtewuensche);unbestwunsch:=wert(
fnrzwunbestimmtewuensche);IF NOT multistopTHEN setzebestandende(TRUE )FI .
END PROC zeitwuenscheholen;PROC zeitwuenscheaufbereiten:bereiteobjektauf(
objekt)END PROC zeitwuenscheaufbereiten;PROC zeitwuenscheaufbs:FOR iFROM 1
UPTO ausgfeldlaengeREP ausgfeld(i)IN ausgabepos;erhoeheausgabeposumeinsPER
END PROC zeitwuenscheaufbs;PROC zeitwuenschedruckvorbereiten:druckvorbereiten
;variablensetzen;initdruckkopf(zentriert(zeitwuenscheueberschrift,druckbreite
));inittupel(dnrzeitwuensche);setzebestandende(FALSE );setzewerte;
lesenvorbereitendruck(PROC (INT CONST ,BOOL PROC ,INT VAR )scanforward,BOOL
PROC multistopsim).variablensetzen:druckstrich:=druckbreite*"-";
druckzeilenzahl:=drucklaenge(ueberschrzeilen).setzewerte:putintwert(fnrzwsj,
schj);putintwert(fnrzwhj,schhj);putwert(fnrzwbezug,bezug).END PROC
zeitwuenschedruckvorbereiten;PROC zeitwuenscheseitedrucken:
zeitwuenscheueberschriftdrucken;seitedrucken(PROC (INT VAR )
zeitwuenschedrucken,druckzeilenzahl,ausgfeldlaenge,BOOL PROC multistopsim);
seitenwechselEND PROC zeitwuenscheseitedrucken;PROC
zeitwuenscheueberschriftdrucken:druckkopfschreibenEND PROC
zeitwuenscheueberschriftdrucken;PROC zeitwuenschedrucken(INT VAR zz):
zeitwuenscheholen;standardmeldung(meldungbearb,objektbez+objekt+ausgabeparam)
;zeitwuenscheaufbereiten(zz);zeitwuenscheindruckdatei(zz)END PROC
zeitwuenschedrucken;PROC zeitwuenscheaufbereiten(INT VAR zz):bereiteobjektauf
(objekt)END PROC zeitwuenscheaufbereiten;PROC zeitwuenscheindruckdatei(INT
VAR zz):FOR iFROM 1UPTO ausgfeldlaengeREP druckzeileschreiben(ausgfeld(i));zz
INCR 1PER ;druckzeileschreiben(leerzeile);zzINCR 1;druckzeileschreiben(
leerzeile);zzINCR 1END PROC zeitwuenscheindruckdatei;PROC bereiteobjektauf(
TEXT CONST objekt):INT VAR suchpos:=1;TEXT VAR wunsch:="";moobjeintrag:=
moeintrag;diobjeintrag:=dieintrag;miobjeintrag:=mieintrag;doobjeintrag:=
doeintrag;frobjeintrag:=freintrag;saobjeintrag:=saeintrag;uebertragwuensche;
ausgfeld(1):=(objekt+":");ausgfeld(2):=leerzeile;ausgfeld(3):=(
"Wünsche zu festen Zeiten:");ausgfeld(4):=(leerzeile);ausgfeld(5):=(
" 1 2 3 4 5 6 7 8 9 10 11 12");ausgfeld(6):=(
moobjeintrag+text(bestwzeile,48));ausgfeld(7):=(diobjeintrag+subtext(
bestwzeile,49,96));ausgfeld(8):=(miobjeintrag+subtext(bestwzeile,97,144));
ausgfeld(9):=(doobjeintrag+subtext(bestwzeile,145,192));ausgfeld(10):=(
frobjeintrag+subtext(bestwzeile,193,240));ausgfeld(11):=(saobjeintrag+subtext
(bestwzeile,241));ausgfeld(12):=(leerzeile);ausgfeld(13):=(
" allgemeine Wünsche:");ausgfeld(14):=(
" Anzahl/Gewicht ");ausgfeld(15):=("ganze Tage "
+unbestwtage);ausgfeld(16):=("zusätzl. Vorm. "+unbestwvorm);ausgfeld(17):=(
"zusätzl. Nachm. "+unbestwnachm);ausgfeld(18):=(leerzeile).uebertragwuensche:
bestwzeile:=bestwurzeile;unbestwtage:=" _ _ ";unbestwvorm:=
" _ _ ";unbestwnachm:=" _ _ ";tragbestwuenscheein
;tragunbestwuenscheein.tragbestwuenscheein:suchpos:=1;WHILE suchpos<>0REP
suchpos:=pos(bestwunsch,minus,suchpos);IF suchpos<>0THEN wunsch:=subtext(
bestwunsch,suchpos,suchpos+1);replace(bestwzeile,suchpos*2-1,wunsch);suchpos
INCR 1FI ;PER ;suchpos:=1;WHILE suchpos<>0REP suchpos:=pos(bestwunsch,plus,
suchpos);IF suchpos<>0THEN wunsch:=subtext(bestwunsch,suchpos,suchpos+1);
replace(bestwzeile,suchpos*2-1,wunsch);suchposINCR 1FI ;PER .
tragunbestwuenscheein:IF unbestwunsch<>leererunbestwunschTHEN wunsch:=
unbestwunschSUB posanzut;IF wunsch<>" "THEN replace(unbestwtage,ausganzpos,
wunsch)FI ;wunsch:=unbestwunschSUB posgewut;IF wunsch<>" "THEN replace(
unbestwtage,ausggewpos,wunsch)FI ;wunsch:=unbestwunschSUB posanzvm;IF wunsch
<>" "THEN replace(unbestwvorm,ausganzpos,wunsch)FI ;wunsch:=unbestwunschSUB
posgewvm;IF wunsch<>" "THEN replace(unbestwvorm,ausggewpos,wunsch)FI ;wunsch
:=unbestwunschSUB posanznm;IF wunsch<>" "THEN replace(unbestwnachm,ausganzpos
,wunsch)FI ;wunsch:=unbestwunschSUB posgewnm;IF wunsch<>" "THEN replace(
unbestwnachm,ausggewpos,wunsch)FI FI .END PROC bereiteobjektauf;END PACKET
zeitwuenschedrucken