|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6400 (0x1900)
Types: RcTekst, TextFile
Names: »CORN189.WP«
└─⟦1ce066637⟧ Bits:30005845 Dokumenter - Per Cornelius #135 - #236
└─⟦this⟧ »CORN189.WP«
╱04002d4e0a000600000000020a5031000000000000000000000000000000000000000000000000000e18222c36404a545e68727c86909aff04╱
**********************************************************************↲
*** udskrift af projekt status efter sortering corn.189 ***↲
**********************************************************************↲
↲
***********************************************↲
*** ***↲
*** udsøgning ***↲
*** ***↲
***********************************************↲
↲
*** "tekst angiver indtastede værdier ved trimning" ***↲
↲
sæt indeks start til "fra-projektnummer"↲
move T to UDVÆLG↲
↲
UDVÆLG løkke↲
*↲
* læs en projekt record *↲
*↲
læs projekt↲
hvis eof↲
move F to UDVÆLG↲
loop↲
end↲
hvis projektnummer > "til-projektnummer"↲
move F to UDVÆLG↲
loop↲
end↲
*↲
* 1. kriterie projektnummer interval *↲
*↲
* std.: interval 0 - 990000 *↲
*↲
↲
hvis projektnummer < "fra-projektnummer"↲
hvis projektnummer > "til-projektnummer"↲
loop↲
end↲
end↲
*↲
* 2. kriterie afdelingsnummer interval *↲
*↲
* std.: rekvirentens afdelingsnummer *↲
*↲
↲
hvis projektgruppekode1 < "fra-afdelingsnummer"↲
hvis projektgruppekode1 > "til-afdelingsnummer"↲
loop↲
end↲
end↲
*↲
* 3 & 4. kriterie grænser for projektgruppekoderne 1 - 6 *↲
*↲
* std.: under grænse interval er 00'er *↲
* std.: over grænse interval er 99'er *↲
*↲
↲
hvis projektgruppekode1 < "fra-gruppekodeundergrænse1"↲
hvis projektgruppekode1 > "til-gruppekodeovergrænse1"↲
loop↲
end↲
end↲
hvis projektgruppekode2 < "fra-gruppekodeundergrænse2"↲
hvis projektgruppekode2 > "til-gruppekodeovergrænse2"↲
loop↲
end↲
end↲
hvis projektgruppekode3 < "fra-gruppekodeundergrænse3"↲
hvis projektgruppekode3 > "til-gruppekodeovergrænse3"↲
loop↲
end↲
end↲
hvis projektgruppekode4 < "fra-gruppekodeundergrænse4"↲
hvis projektgruppekode4 > "til-gruppekodeovergrænse4"↲
loop↲
end↲
end↲
hvis projektgruppekode5 < "fra-gruppekodeundergrænse5"↲
hvis projektgruppekode5 > "til-gruppekodeovergrænse5"↲
loop↲
end↲
end↲
hvis projektgruppekode6 < "fra-gruppekodeundergrænse6"↲
hvis projektgruppekode6 > "til-gruppekodeovergrænse6"↲
loop↲
end↲
end↲
*↲
* 5. kriterie projekter alle, åbne eller lukkede i perioden *↲
*↲
* std.: 5.2 alle åbne projekter *↲
*↲
↲
hvis 5.1↲
* ok, alt med *↲
end↲
hvis 5.2↲
hvis projekt-slutdato <> "000000"↲
loop↲
end↲
end↲
hvis 5.3↲
hvis projekt-slutdato < "fra-periode-dato"↲
hvis projekt-slutdato > "til-periode-dato"↲
loop↲
end↲
end↲
end↲
*↲
* 6. kriterie projekter ledet af *↲
*↲
hvis 6↲
hvis projekt-ledet-af <> "indtastet-initialer"↲
loop↲
end↲
end↲
*↲
*** nu skal eventuelle tilhørende aktiviteter behandles ***↲
*↲
↲
gem projekt record↲
sæt indeks start til "det-fundne-projektnummer"↲
move T to UDSOG↲
↲
UDSOG løkke↲
*↲
* læs en aktivitets record *↲
*↲
læs aktivitet↲
hvis eof↲
move F to UDSOG↲
loop↲
end↲
hvis projektnummer <> "det-fundne-projektnummer"↲
move F to UDSOG↲
loop↲
end↲
*↲
* 3 & 4. kriterie grænser for aktivitetsgruppekoderne 7 - 11 *↲
*↲
* std.: under grænse interval er 00'er *↲
* std.: over grænse interval er 99'er *↲
*↲
↲
hvis aktivitetgruppekode7 < "fra-gruppekodeundergrænse7"↲
hvis aktivitetgruppekode7 > "til-gruppekodeovergrænse7"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode8 < "fra-gruppekodeundergrænse8"↲
hvis aktivitetgruppekode8 > "til-gruppekodeovergrænse8"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode9 < "fra-gruppekodeundergrænse9"↲
hvis aktivitetgruppekode9 > "til-gruppekodeovergrænse9"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode10 < "fra-gruppekodeundergrænse10"↲
hvis aktivitetgruppekode10 > "til-gruppekodeovergrænse10"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode11 < "fra-gruppekodeundergrænse11"↲
hvis aktivitetgruppekode11 > "til-gruppekodeovergrænse11"↲
loop↲
end↲
end↲
*↲
↲
gem aktivitets record↲
↲
*↲
* 7. kriterie planlinier for alle *↲
*↲
* std.: ikke specificeret på medarbejder *↲
*↲
↲
*↲
* 8. kriterie udskrift af aktivitetsstamdata *↲
*↲
* std.: udskrives ikke *↲
*↲
*↲
* 9. kriterie opgjorte timer omregnes *↲
*↲
* std.: ingen omregning *↲
*↲
*↲
* 10. kriterie antal eksemplarer af udskriften *↲
*↲
* std.: et eksemplar *↲
*↲
↲
loop↲
SLUT-UDSOG↲
loop↲
SLUT-UDVÆLG↲
***********************************************↲
*** ***↲
*** sortering ***↲
*** ***↲
***********************************************↲
↲
hvis sort ej valgt↲
sæt sorteringskriterie lig med nuværende sortering↲
end↲
↲
UDFØR SORTERING AF DE FUNDNE RECORD↲
↲
↲
***********************************************↲
*** ***↲
*** udskrivning ***↲
*** ***↲
***********************************************↲
↲
↲
*↲
* antal tegn på printlinien i dag:↲
*↲
* heraf 'bemærkninger'......: 25↲
*↲
* plan,forbrug,vurd.........: 29↲
* tilvækst,index............: 15↲
*↲
* oplysninger...............: 45↲
* ___↲
* ialt .....................: 114↲
*↲
* overskrifter i dag:↲
*↲
* linie 1 med rc-prosit, tekst , dag, dato ude og side.↲
*↲
* linie 2 & 3 hovedoplysninger om projektet vist på siden.↲
*↲
* linie 4 & 5 forklaring til oplysningerne i søjlerne.↲
*↲
* linie 6 streg.↲
*↲
:↓
┆1a┆┆1a┆┆ff┆┆ff┆┆00┆
0x0000…0020 (0,) 00 00 00 00 00 00 00 00 42 03 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ B N ┆
0x0020…0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0040…0047 00 00 00 00 00 00 00 ┆ ┆
0x0047…0080 Params {
0x0047…0080 04 00 2d 4e 0a 00 06 00 00 00 00 02 0a 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N P1 ┆
0x0047…0080 00 00 00 00 00 00 00 00 0e 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a ff 04 ┆ ",6@JT^hrø ┆
0x0047…0080 }
0x0080…00a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x00c0…00e0 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 75 64 73 6b 72 69 66 74 20 61 66 20 70 72 6f 6a ┆****** *** udskrift af proj┆
0x00e0…0100 65 6b 74 20 73 74 61 74 75 73 20 65 66 74 65 72 20 73 6f 72 74 65 72 69 6e 67 20 20 20 20 20 20 ┆ekt status efter sortering ┆
0x0100…0120 20 20 63 6f 72 6e 2e 31 38 39 20 2a 2a 2a 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ corn.189 *** ****************┆
0x0120…0140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0140…0160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 2a 2a 2a 2a 2a 2a ┆********************** ******┆
0x0160…0180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0180…01a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********* *** ┆
0x01a0…01c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 0d 0a 2a 2a 2a 20 ┆ *** *** ┆
0x01c0…01e0 20 20 20 20 20 20 20 20 20 20 20 75 64 73 7c 67 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 ┆ udsøgning ┆
0x01e0…0200 20 20 20 20 20 20 20 20 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *** *** ┆
0x0200…0220 (1,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 0d 0a 2a 2a ┆ *** **┆
0x0220…0240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0240…0260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 2a 2a 2a 20 20 20 22 74 65 6b 73 74 20 61 6e ┆************* *** "tekst an┆
0x0260…0280 67 69 76 65 72 20 69 6e 64 74 61 73 74 65 64 65 20 76 7b 72 64 69 65 72 20 76 65 64 20 74 72 69 ┆giver indtastede værdier ved tri┆
0x0280…02a0 6d 6e 69 6e 67 22 20 20 2a 2a 2a 0d 0a 0d 0a 73 7b 74 20 69 6e 64 65 6b 73 20 73 74 61 72 74 20 ┆mning" *** sæt indeks start ┆
0x02a0…02c0 74 69 6c 20 22 66 72 61 2d 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 22 0d 0a 6d 6f 76 65 20 54 20 ┆til "fra-projektnummer" move T ┆
0x02c0…02e0 74 6f 20 55 44 56 5b 4c 47 0d 0a 0d 0a 55 44 56 5b 4c 47 20 6c 7c 6b 6b 65 0d 0a 20 20 20 2a 0d ┆to UDVÆLG UDVÆLG løkke * ┆
0x02e0…0300 0a 20 20 20 2a 20 6c 7b 73 20 65 6e 20 70 72 6f 6a 65 6b 74 20 72 65 63 6f 72 64 20 2a 0d 0a 20 ┆ * læs en projekt record * ┆
0x0300…0320 20 20 2a 0d 0a 20 20 20 6c 7b 73 20 70 72 6f 6a 65 6b 74 0d 0a 20 20 20 68 76 69 73 20 65 6f 66 ┆ * læs projekt hvis eof┆
0x0320…0340 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 20 46 20 74 6f 20 55 44 56 5b 4c 47 0d 0a 20 20 20 20 ┆ move F to UDVÆLG ┆
0x0340…0360 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b ┆ loop end hvis projek┆
0x0360…0380 74 6e 75 6d 6d 65 72 20 3e 20 22 74 69 6c 2d 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 22 0d 0a 20 ┆tnummer > "til-projektnummer" ┆
0x0380…03a0 20 20 20 20 20 20 20 6d 6f 76 65 20 46 20 74 6f 20 55 44 56 5b 4c 47 0d 0a 20 20 20 20 20 20 20 ┆ move F to UDVÆLG ┆
0x03a0…03c0 20 6c 6f 6f 70 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 31 2e 20 6b 72 69 ┆ loop end * * 1. kri┆
0x03c0…03e0 74 65 72 69 65 20 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 20 69 6e 74 65 72 76 61 6c 20 2a 0d 0a ┆terie projektnummer interval * ┆
0x03e0…0400 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 69 6e 74 65 72 76 61 6c 20 30 20 2d ┆ * * std.: interval 0 -┆
0x0400…0420 (2,) 20 39 39 30 30 30 30 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 0d 0a 20 20 20 68 ┆ 990000 * * h┆
0x0420…0440 76 69 73 20 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 20 3c 20 22 66 72 61 2d 70 72 6f 6a 65 6b 74 ┆vis projektnummer < "fra-projekt┆
0x0440…0460 6e 75 6d 6d 65 72 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 ┆nummer" hvis projektnumme┆
0x0460…0480 72 20 3e 20 22 74 69 6c 2d 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 22 0d 0a 20 20 20 20 20 20 20 ┆r > "til-projektnummer" ┆
0x0480…04a0 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 2a 0d 0a ┆ loop end end * ┆
0x04a0…04c0 20 20 20 2a 20 32 2e 20 6b 72 69 74 65 72 69 65 20 61 66 64 65 6c 69 6e 67 73 6e 75 6d 6d 65 72 ┆ * 2. kriterie afdelingsnummer┆
0x04c0…04e0 20 69 6e 74 65 72 76 61 6c 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e ┆ interval * * * std.┆
0x04e0…0500 3a 20 72 65 6b 76 69 72 65 6e 74 65 6e 73 20 61 66 64 65 6c 69 6e 67 73 6e 75 6d 6d 65 72 20 2a ┆: rekvirentens afdelingsnummer *┆
0x0500…0520 0d 0a 20 20 20 2a 0d 0a 20 20 20 0d 0a 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 ┆ * hvis projektgrup┆
0x0520…0540 70 65 6b 6f 64 65 31 20 3c 20 22 66 72 61 2d 61 66 64 65 6c 69 6e 67 73 6e 75 6d 6d 65 72 22 0d ┆pekode1 < "fra-afdelingsnummer" ┆
0x0540…0560 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 31 20 3e ┆ hvis projektgruppekode1 >┆
0x0560…0580 20 22 74 69 6c 2d 61 66 64 65 6c 69 6e 67 73 6e 75 6d 6d 65 72 22 0d 0a 20 20 20 20 20 20 20 20 ┆ "til-afdelingsnummer" ┆
0x0580…05a0 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 2a 0d 0a 20 ┆loop end end * ┆
0x05a0…05c0 20 20 2a 20 33 20 26 20 34 2e 20 6b 72 69 74 65 72 69 65 20 67 72 7b 6e 73 65 72 20 66 6f 72 20 ┆ * 3 & 4. kriterie grænser for ┆
0x05c0…05e0 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 72 6e 65 20 31 20 2d 20 36 20 2a 0d 0a 20 20 ┆projektgruppekoderne 1 - 6 * ┆
0x05e0…0600 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 75 6e 64 65 72 20 67 72 7b 6e 73 65 20 69 ┆ * * std.: under grænse i┆
0x0600…0620 (3,) 6e 74 65 72 76 61 6c 20 65 72 20 30 30 27 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nterval er 00'er ┆
0x0620…0640 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 6f 76 65 72 20 20 67 72 7b 6e 73 65 20 69 6e ┆* * std.: over grænse in┆
0x0640…0660 74 65 72 76 61 6c 20 65 72 20 39 39 27 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆terval er 99'er *┆
0x0660…0680 0d 0a 20 20 20 2a 0d 0a 20 20 20 0d 0a 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 ┆ * hvis projektgrup┆
0x0680…06a0 70 65 6b 6f 64 65 31 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 72 67 72 ┆pekode1 < "fra-gruppekodeundergr┆
0x06a0…06c0 7b 6e 73 65 31 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 ┆ænse1" hvis projektgruppe┆
0x06c0…06e0 6b 6f 64 65 31 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 67 72 7b 6e 73 ┆kode1 > "til-gruppekodeovergræns┆
0x06e0…0700 65 31 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 ┆e1" loop end ┆
0x0700…0720 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 32 ┆ end hvis projektgruppekode2┆
0x0720…0740 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 72 67 72 7b 6e 73 65 32 22 0d ┆ < "fra-gruppekodeundergrænse2" ┆
0x0740…0760 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 32 20 3e ┆ hvis projektgruppekode2 >┆
0x0760…0780 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 67 72 7b 6e 73 65 32 22 0d 0a 20 20 ┆ "til-gruppekodeovergrænse2" ┆
0x0780…07a0 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 ┆ loop end end ┆
0x07a0…07c0 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 33 20 3c 20 22 66 72 61 ┆ hvis projektgruppekode3 < "fra┆
0x07c0…07e0 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 72 67 72 7b 6e 73 65 33 22 0d 0a 20 20 20 20 20 20 ┆-gruppekodeundergrænse3" ┆
0x07e0…0800 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 33 20 3e 20 22 74 69 6c 2d 67 ┆hvis projektgruppekode3 > "til-g┆
0x0800…0820 (4,) 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 67 72 7b 6e 73 65 33 22 0d 0a 20 20 20 20 20 20 20 20 6c ┆ruppekodeovergrænse3" l┆
0x0820…0840 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 ┆oop end end hvis ┆
0x0840…0860 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 34 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 ┆projektgruppekode4 < "fra-gruppe┆
0x0860…0880 6b 6f 64 65 75 6e 64 65 72 67 72 7b 6e 73 65 34 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 ┆kodeundergrænse4" hvis pr┆
0x0880…08a0 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 65 34 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f ┆ojektgruppekode4 > "til-gruppeko┆
0x08a0…08c0 64 65 6f 76 65 72 67 72 7b 6e 73 65 34 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 ┆deovergrænse4" loop ┆
0x08c0…08e0 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 ┆ end end hvis projekt┆
0x08e0…0900 67 72 75 70 70 65 6b 6f 64 65 35 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 ┆gruppekode5 < "fra-gruppekodeund┆
0x0900…0920 65 72 67 72 7b 6e 73 65 35 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 ┆ergrænse5" hvis projektgr┆
0x0920…0940 75 70 70 65 6b 6f 64 65 35 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 67 ┆uppekode5 > "til-gruppekodeoverg┆
0x0940…0960 72 7b 6e 73 65 35 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 ┆rænse5" loop end┆
0x0960…0980 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b ┆ end hvis projektgruppek┆
0x0980…09a0 6f 64 65 36 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 72 67 72 7b 6e 73 ┆ode6 < "fra-gruppekodeundergræns┆
0x09a0…09c0 65 36 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 67 72 75 70 70 65 6b 6f 64 ┆e6" hvis projektgruppekod┆
0x09c0…09e0 65 36 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 67 72 7b 6e 73 65 36 22 ┆e6 > "til-gruppekodeovergrænse6"┆
0x09e0…0a00 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e ┆ loop end en┆
0x0a00…0a20 (5,) 64 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 35 2e 20 6b 72 69 74 65 72 69 65 20 70 72 6f 6a 65 6b ┆d * * 5. kriterie projek┆
0x0a20…0a40 74 65 72 20 61 6c 6c 65 2c 20 7d 62 6e 65 20 65 6c 6c 65 72 20 6c 75 6b 6b 65 64 65 20 69 20 70 ┆ter alle, åbne eller lukkede i p┆
0x0a40…0a60 65 72 69 6f 64 65 6e 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 35 ┆erioden * * * std.: 5┆
0x0a60…0a80 2e 32 20 61 6c 6c 65 20 7d 62 6e 65 20 70 72 6f 6a 65 6b 74 65 72 20 20 20 20 20 20 20 20 20 20 ┆.2 alle åbne projekter ┆
0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 0d 0a 20 20 ┆ * * ┆
0x0aa0…0ac0 20 68 76 69 73 20 35 2e 31 0d 0a 20 20 20 20 20 20 2a 20 6f 6b 2c 20 20 61 6c 74 20 6d 65 64 20 ┆ hvis 5.1 * ok, alt med ┆
0x0ac0…0ae0 2a 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 35 2e 32 0d 0a 20 20 20 20 20 20 68 76 ┆* end hvis 5.2 hv┆
0x0ae0…0b00 69 73 20 70 72 6f 6a 65 6b 74 2d 73 6c 75 74 64 61 74 6f 20 3c 3e 20 22 30 30 30 30 30 30 22 0d ┆is projekt-slutdato <> "000000" ┆
0x0b00…0b20 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 ┆ loop end end┆
0x0b20…0b40 0d 0a 20 20 20 68 76 69 73 20 35 2e 33 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b ┆ hvis 5.3 hvis projek┆
0x0b40…0b60 74 2d 73 6c 75 74 64 61 74 6f 20 3c 20 22 66 72 61 2d 70 65 72 69 6f 64 65 2d 64 61 74 6f 22 0d ┆t-slutdato < "fra-periode-dato" ┆
0x0b60…0b80 0a 20 20 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 2d 73 6c 75 74 64 61 74 6f 20 3e ┆ hvis projekt-slutdato >┆
0x0b80…0ba0 20 22 74 69 6c 2d 70 65 72 69 6f 64 65 2d 64 61 74 6f 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ "til-periode-dato" ┆
0x0ba0…0bc0 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 ┆loop end end ┆
0x0bc0…0be0 20 65 6e 64 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 36 2e 20 6b 72 69 74 65 72 69 65 20 70 72 6f ┆ end * * 6. kriterie pro┆
0x0be0…0c00 6a 65 6b 74 65 72 20 6c 65 64 65 74 20 61 66 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 68 76 69 ┆jekter ledet af * * hvi┆
0x0c00…0c20 (6,) 73 20 36 0d 0a 20 20 20 20 20 20 68 76 69 73 20 70 72 6f 6a 65 6b 74 2d 6c 65 64 65 74 2d 61 66 ┆s 6 hvis projekt-ledet-af┆
0x0c20…0c40 20 3c 3e 20 22 69 6e 64 74 61 73 74 65 74 2d 69 6e 69 74 69 61 6c 65 72 22 0d 0a 20 20 20 20 20 ┆ <> "indtastet-initialer" ┆
0x0c40…0c60 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 ┆ loop end end ┆
0x0c60…0c80 2a 0d 0a 20 20 20 2a 2a 2a 20 20 6e 75 20 73 6b 61 6c 20 65 76 65 6e 74 75 65 6c 6c 65 20 74 69 ┆* *** nu skal eventuelle ti┆
0x0c80…0ca0 6c 68 7c 72 65 6e 64 65 20 61 6b 74 69 76 69 74 65 74 65 72 20 62 65 68 61 6e 64 6c 65 73 20 2a ┆lhørende aktiviteter behandles *┆
0x0ca0…0cc0 2a 2a 0d 0a 20 20 20 2a 0d 0a 0d 0a 20 20 20 67 65 6d 20 70 72 6f 6a 65 6b 74 20 72 65 63 6f 72 ┆** * gem projekt recor┆
0x0cc0…0ce0 64 0d 0a 20 20 20 73 7b 74 20 69 6e 64 65 6b 73 20 73 74 61 72 74 20 74 69 6c 20 22 64 65 74 2d ┆d sæt indeks start til "det-┆
0x0ce0…0d00 66 75 6e 64 6e 65 2d 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 22 0d 0a 20 20 20 6d 6f 76 65 20 54 ┆fundne-projektnummer" move T┆
0x0d00…0d20 20 74 6f 20 55 44 53 4f 47 0d 0a 0d 0a 20 20 20 55 44 53 4f 47 20 6c 7c 6b 6b 65 0d 0a 20 20 20 ┆ to UDSOG UDSOG løkke ┆
0x0d20…0d40 2a 0d 0a 20 20 20 2a 20 6c 7b 73 20 65 6e 20 61 6b 74 69 76 69 74 65 74 73 20 72 65 63 6f 72 64 ┆* * læs en aktivitets record┆
0x0d40…0d60 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 6c 7b 73 20 61 6b 74 69 76 69 74 65 74 0d 0a 20 20 20 68 ┆ * * læs aktivitet h┆
0x0d60…0d80 76 69 73 20 65 6f 66 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 20 46 20 74 6f 20 55 44 53 4f 47 ┆vis eof move F to UDSOG┆
0x0d80…0da0 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 ┆ loop end hvis ┆
0x0da0…0dc0 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 20 3c 3e 20 22 64 65 74 2d 66 75 6e 64 6e 65 2d 70 72 6f ┆projektnummer <> "det-fundne-pro┆
0x0dc0…0de0 6a 65 6b 74 6e 75 6d 6d 65 72 22 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 20 46 20 74 6f 20 55 ┆jektnummer" move F to U┆
0x0de0…0e00 44 53 4f 47 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 2a ┆DSOG loop end *┆
0x0e00…0e20 (7,) 0d 0a 20 20 20 2a 20 33 20 26 20 34 2e 20 6b 72 69 74 65 72 69 65 20 67 72 7b 6e 73 65 72 20 66 ┆ * 3 & 4. kriterie grænser f┆
0x0e20…0e40 6f 72 20 61 6b 74 69 76 69 74 65 74 73 67 72 75 70 70 65 6b 6f 64 65 72 6e 65 20 37 20 2d 20 31 ┆or aktivitetsgruppekoderne 7 - 1┆
0x0e40…0e60 31 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 75 6e 64 65 72 20 67 ┆1 * * * std.: under g┆
0x0e60…0e80 72 7b 6e 73 65 20 69 6e 74 65 72 76 61 6c 20 65 72 20 30 30 27 65 72 20 20 20 20 20 20 20 20 20 ┆rænse interval er 00'er ┆
0x0e80…0ea0 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 6f 76 65 72 20 20 67 72 ┆ * * std.: over gr┆
0x0ea0…0ec0 7b 6e 73 65 20 69 6e 74 65 72 76 61 6c 20 65 72 20 39 39 27 65 72 20 20 20 20 20 20 20 20 20 20 ┆ænse interval er 99'er ┆
0x0ec0…0ee0 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 0d 0a 20 20 20 68 76 69 73 20 61 6b 74 69 ┆ * * hvis akti┆
0x0ee0…0f00 76 69 74 65 74 67 72 75 70 70 65 6b 6f 64 65 37 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f ┆vitetgruppekode7 < "fra-gruppeko┆
0x0f00…0f20 64 65 75 6e 64 65 72 67 72 7b 6e 73 65 37 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 61 6b 74 69 ┆deundergrænse7" hvis akti┆
0x0f20…0f40 76 69 74 65 74 67 72 75 70 70 65 6b 6f 64 65 37 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f ┆vitetgruppekode7 > "til-gruppeko┆
0x0f40…0f60 64 65 6f 76 65 72 67 72 7b 6e 73 65 37 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 ┆deovergrænse7" loop ┆
0x0f60…0f80 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 ┆ end end hvis aktivit┆
0x0f80…0fa0 65 74 67 72 75 70 70 65 6b 6f 64 65 38 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 ┆etgruppekode8 < "fra-gruppekodeu┆
0x0fa0…0fc0 6e 64 65 72 67 72 7b 6e 73 65 38 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 ┆ndergrænse8" hvis aktivit┆
0x0fc0…0fe0 65 74 67 72 75 70 70 65 6b 6f 64 65 38 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f ┆etgruppekode8 > "til-gruppekodeo┆
0x0fe0…1000 76 65 72 67 72 7b 6e 73 65 38 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 ┆vergrænse8" loop ┆
0x1000…1020 (8,) 20 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 65 74 67 ┆ end end hvis aktivitetg┆
0x1020…1040 72 75 70 70 65 6b 6f 64 65 39 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 ┆ruppekode9 < "fra-gruppekodeunde┆
0x1040…1060 72 67 72 7b 6e 73 65 39 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 65 74 67 ┆rgrænse9" hvis aktivitetg┆
0x1060…1080 72 75 70 70 65 6b 6f 64 65 39 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 ┆ruppekode9 > "til-gruppekodeover┆
0x1080…10a0 67 72 7b 6e 73 65 39 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 6e ┆grænse9" loop en┆
0x10a0…10c0 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 65 74 67 72 75 70 ┆d end hvis aktivitetgrup┆
0x10c0…10e0 70 65 6b 6f 64 65 31 30 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 72 67 ┆pekode10 < "fra-gruppekodeunderg┆
0x10e0…1100 72 7b 6e 73 65 31 30 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 65 74 67 72 ┆rænse10" hvis aktivitetgr┆
0x1100…1120 75 70 70 65 6b 6f 64 65 31 30 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 72 ┆uppekode10 > "til-gruppekodeover┆
0x1120…1140 67 72 7b 6e 73 65 31 30 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 65 ┆grænse10" loop e┆
0x1140…1160 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 65 74 67 72 75 ┆nd end hvis aktivitetgru┆
0x1160…1180 70 70 65 6b 6f 64 65 31 31 20 3c 20 22 66 72 61 2d 67 72 75 70 70 65 6b 6f 64 65 75 6e 64 65 72 ┆ppekode11 < "fra-gruppekodeunder┆
0x1180…11a0 67 72 7b 6e 73 65 31 31 22 0d 0a 20 20 20 20 20 20 68 76 69 73 20 61 6b 74 69 76 69 74 65 74 67 ┆grænse11" hvis aktivitetg┆
0x11a0…11c0 72 75 70 70 65 6b 6f 64 65 31 31 20 3e 20 22 74 69 6c 2d 67 72 75 70 70 65 6b 6f 64 65 6f 76 65 ┆ruppekode11 > "til-gruppekodeove┆
0x11c0…11e0 72 67 72 7b 6e 73 65 31 31 22 0d 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 0d 0a 20 20 20 20 20 20 ┆rgrænse11" loop ┆
0x11e0…1200 65 6e 64 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 2a 0d 0a 0d 0a 20 20 20 67 65 6d 20 61 6b 74 69 ┆end end * gem akti┆
0x1200…1220 (9,) 76 69 74 65 74 73 20 72 65 63 6f 72 64 0d 0a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 37 ┆vitets record * * 7┆
0x1220…1240 2e 20 6b 72 69 74 65 72 69 65 20 70 6c 61 6e 6c 69 6e 69 65 72 20 66 6f 72 20 61 6c 6c 65 20 20 ┆. kriterie planlinier for alle ┆
0x1240…1260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a ┆ * * *┆
0x1260…1280 20 20 20 20 73 74 64 2e 3a 20 69 6b 6b 65 20 73 70 65 63 69 66 69 63 65 72 65 74 20 70 7d 20 6d ┆ std.: ikke specificeret på m┆
0x1280…12a0 65 64 61 72 62 65 6a 64 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d ┆edarbejder * * ┆
0x12a0…12c0 0a 20 20 20 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 38 2e 20 6b 72 69 74 65 72 69 65 20 ┆ * * 8. kriterie ┆
0x12c0…12e0 75 64 73 6b 72 69 66 74 20 61 66 20 61 6b 74 69 76 69 74 65 74 73 73 74 61 6d 64 61 74 61 20 20 ┆udskrift af aktivitetsstamdata ┆
0x12e0…1300 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 75 ┆ * * * std.: u┆
0x1300…1320 64 73 6b 72 69 76 65 73 20 69 6b 6b 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dskrives ikke ┆
0x1320…1340 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a ┆ * * * *┆
0x1340…1360 20 20 20 20 39 2e 20 6b 72 69 74 65 72 69 65 20 6f 70 67 6a 6f 72 74 65 20 74 69 6d 65 72 20 6f ┆ 9. kriterie opgjorte timer o┆
0x1360…1380 6d 72 65 67 6e 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d ┆mregnes * * ┆
0x1380…13a0 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 69 6e 67 65 6e 20 6f 6d 72 65 67 6e 69 6e 67 20 20 ┆ * std.: ingen omregning ┆
0x13a0…13c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a ┆ * ┆
0x13c0…13e0 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 31 30 2e 20 6b 72 69 74 65 72 69 65 20 ┆ * * * 10. kriterie ┆
0x13e0…1400 61 6e 74 61 6c 20 65 6b 73 65 6d 70 6c 61 72 65 72 20 61 66 20 75 64 73 6b 72 69 66 74 65 6e 20 ┆antal eksemplarer af udskriften ┆
0x1400…1420 (10,) 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 20 20 20 2a 20 20 20 20 73 74 64 2e 3a 20 65 ┆ * * * std.: e┆
0x1420…1440 74 20 65 6b 73 65 6d 70 6c 61 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t eksemplar ┆
0x1440…1460 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 20 20 20 2a 0d 0a 0d 0a 20 20 20 6c 6f 6f 70 0d ┆ * * loop ┆
0x1460…1480 0a 20 20 20 53 4c 55 54 2d 55 44 53 4f 47 0d 0a 6c 6f 6f 70 0d 0a 53 4c 55 54 2d 55 44 56 5b 4c ┆ SLUT-UDSOG loop SLUT-UDVÆL┆
0x1480…14a0 47 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆G *****************************┆
0x14a0…14c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 20 20 ┆****************** *** ┆
0x14c0…14e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14e0…1500 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 72 74 65 72 69 6e 67 20 20 20 ┆*** *** sortering ┆
0x1500…1520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 ┆ *** *** ┆
0x1520…1540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1540…1560 20 20 2a 2a 2a 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *** *************************┆
0x1560…1580 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 68 76 69 73 20 73 ┆********************** hvis s┆
0x1580…15a0 6f 72 74 20 65 6a 20 76 61 6c 67 74 0d 0a 20 20 20 73 7b 74 20 73 6f 72 74 65 72 69 6e 67 73 6b ┆ort ej valgt sæt sorteringsk┆
0x15a0…15c0 72 69 74 65 72 69 65 20 6c 69 67 20 6d 65 64 20 6e 75 76 7b 72 65 6e 64 65 20 73 6f 72 74 65 72 ┆riterie lig med nuværende sorter┆
0x15c0…15e0 69 6e 67 0d 0a 65 6e 64 0d 0a 0d 0a 55 44 46 5c 52 20 53 4f 52 54 45 52 49 4e 47 20 41 46 20 44 ┆ing end UDFØR SORTERING AF D┆
0x15e0…1600 45 20 46 55 4e 44 4e 45 20 52 45 43 4f 52 44 0d 0a 0d 0a 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆E FUNDNE RECORD ***********┆
0x1600…1620 (11,) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x1620…1640 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆**** *** ┆
0x1640…1660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 ┆ *** *** ┆
0x1660…1680 20 20 20 20 20 20 75 64 73 6b 72 69 76 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ udskrivning ┆
0x1680…16a0 20 20 20 2a 2a 2a 0d 0a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *** *** ┆
0x16a0…16c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 0d 0a 2a 2a 2a 2a 2a 2a 2a ┆ *** *******┆
0x16c0…16e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x16e0…1700 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 0d 0a 2a 0d 0a 2a 20 61 6e 74 61 6c 20 74 65 67 6e 20 70 7d ┆******** * * antal tegn på┆
0x1700…1720 20 70 72 69 6e 74 6c 69 6e 69 65 6e 20 69 20 64 61 67 3a 0d 0a 2a 0d 0a 2a 20 68 65 72 61 66 20 ┆ printlinien i dag: * * heraf ┆
0x1720…1740 27 62 65 6d 7b 72 6b 6e 69 6e 67 65 72 27 2e 2e 2e 2e 2e 2e 3a 20 20 32 35 0d 0a 2a 0d 0a 2a 20 ┆'bemærkninger'......: 25 * * ┆
0x1740…1760 70 6c 61 6e 2c 66 6f 72 62 72 75 67 2c 76 75 72 64 2e 2e 2e 2e 2e 2e 2e 2e 2e 3a 20 20 32 39 0d ┆plan,forbrug,vurd.........: 29 ┆
0x1760…1780 0a 2a 20 74 69 6c 76 7b 6b 73 74 2c 69 6e 64 65 78 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 3a 20 20 ┆ * tilvækst,index............: ┆
0x1780…17a0 31 35 0d 0a 2a 0d 0a 2a 20 6f 70 6c 79 73 6e 69 6e 67 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆15 * * oplysninger............┆
0x17a0…17c0 2e 2e 2e 3a 20 20 34 35 0d 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆...: 45 * ┆
0x17c0…17e0 20 20 20 20 20 20 20 20 5f 5f 5f 0d 0a 2a 20 69 61 6c 74 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ ___ * ialt ............┆
0x17e0…1800 2e 2e 2e 2e 2e 2e 2e 2e 2e 3a 20 31 31 34 0d 0a 2a 0d 0a 2a 20 20 6f 76 65 72 73 6b 72 69 66 74 ┆.........: 114 * * overskrift┆
0x1800…1820 (12,) 65 72 20 69 20 64 61 67 3a 0d 0a 2a 0d 0a 2a 20 20 6c 69 6e 69 65 20 31 20 20 20 20 20 20 20 20 ┆er i dag: * * linie 1 ┆
0x1820…1840 20 20 6d 65 64 20 72 63 2d 70 72 6f 73 69 74 2c 20 74 65 6b 73 74 20 2c 20 64 61 67 2c 20 64 61 ┆ med rc-prosit, tekst , dag, da┆
0x1840…1860 74 6f 20 75 64 65 20 6f 67 20 73 69 64 65 2e 0d 0a 2a 0d 0a 2a 20 20 6c 69 6e 69 65 20 32 20 26 ┆to ude og side. * * linie 2 &┆
0x1860…1880 20 33 20 20 20 20 20 20 68 6f 76 65 64 6f 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 70 72 6f 6a ┆ 3 hovedoplysninger om proj┆
0x1880…18a0 65 6b 74 65 74 20 76 69 73 74 20 70 7d 20 73 69 64 65 6e 2e 0d 0a 2a 0d 0a 2a 20 20 6c 69 6e 69 ┆ektet vist på siden. * * lini┆
0x18a0…18c0 65 20 34 20 26 20 35 20 20 20 20 20 20 66 6f 72 6b 6c 61 72 69 6e 67 20 74 69 6c 20 6f 70 6c 79 ┆e 4 & 5 forklaring til oply┆
0x18c0…18e0 73 6e 69 6e 67 65 72 6e 65 20 69 20 73 7c 6a 6c 65 72 6e 65 2e 0d 0a 2a 0d 0a 2a 20 20 6c 69 6e ┆sningerne i søjlerne. * * lin┆
0x18e0…1900 69 65 20 36 20 20 20 20 20 20 20 20 20 20 73 74 72 65 67 2e 0d 0a 2a 0d 0a 3a 0a 1a 1a ff ff 00 ┆ie 6 streg. * : ┆
B▶03◀▶06◀N▶04◀-N
▶06◀▶02◀
P1▶0e◀▶18◀",6@JT^hrø▶86◀▶90◀▶9a◀▶ff◀▶04◀**********************************************************************
*** udskrift af projekt status efter sortering corn.189 ***
**********************************************************************
***********************************************
*** ***
*** udsøgning ***
*** ***
***********************************************
*** "tekst angiver indtastede værdier ved trimning" ***
sæt indeks start til "fra-projektnummer"
move T to UDVÆLG
UDVÆLG løkke
*
* læs en projekt record *
*
læs projekt
hvis eof
move F to UDVÆLG
loop
end
hvis projektnummer > "til-projektnummer"
move F to UDVÆLG
loop
end
*
* 1. kriterie projektnummer interval *
*
* std.: interval 0 - 990000 *
*
hvis projektnummer < "fra-projektnummer"
hvis projektnummer > "til-projektnummer"
loop
end
end
*
* 2. kriterie afdelingsnummer interval *
*
* std.: rekvirentens afdelingsnummer *
*
hvis projektgruppekode1 < "fra-afdelingsnummer"
hvis projektgruppekode1 > "til-afdelingsnummer"
loop
end
end
*
* 3 & 4. kriterie grænser for projektgruppekoderne 1 - 6 *
*
* std.: under grænse interval er 00'er *
* std.: over grænse interval er 99'er *
*
hvis projektgruppekode1 < "fra-gruppekodeundergrænse1"
hvis projektgruppekode1 > "til-gruppekodeovergrænse1"
loop
end
end
hvis projektgruppekode2 < "fra-gruppekodeundergrænse2"
hvis projektgruppekode2 > "til-gruppekodeovergrænse2"
loop
end
end
hvis projektgruppekode3 < "fra-gruppekodeundergrænse3"
hvis projektgruppekode3 > "til-gruppekodeovergrænse3"
loop
end
end
hvis projektgruppekode4 < "fra-gruppekodeundergrænse4"
hvis projektgruppekode4 > "til-gruppekodeovergrænse4"
loop
end
end
hvis projektgruppekode5 < "fra-gruppekodeundergrænse5"
hvis projektgruppekode5 > "til-gruppekodeovergrænse5"
loop
end
end
hvis projektgruppekode6 < "fra-gruppekodeundergrænse6"
hvis projektgruppekode6 > "til-gruppekodeovergrænse6"
loop
end
end
*
* 5. kriterie projekter alle, åbne eller lukkede i perioden *
*
* std.: 5.2 alle åbne projekter *
*
hvis 5.1
* ok, alt med *
end
hvis 5.2
hvis projekt-slutdato <> "000000"
loop
end
end
hvis 5.3
hvis projekt-slutdato < "fra-periode-dato"
hvis projekt-slutdato > "til-periode-dato"
loop
end
end
end
*
* 6. kriterie projekter ledet af *
*
hvis 6
hvis projekt-ledet-af <> "indtastet-initialer"
loop
end
end
*
*** nu skal eventuelle tilhørende aktiviteter behandles ***
*
gem projekt record
sæt indeks start til "det-fundne-projektnummer"
move T to UDSOG
UDSOG løkke
*
* læs en aktivitets record *
*
læs aktivitet
hvis eof
move F to UDSOG
loop
end
hvis projektnummer <> "det-fundne-projektnummer"
move F to UDSOG
loop
end
*
* 3 & 4. kriterie grænser for aktivitetsgruppekoderne 7 - 11 *
*
* std.: under grænse interval er 00'er *
* std.: over grænse interval er 99'er *
*
hvis aktivitetgruppekode7 < "fra-gruppekodeundergrænse7"
hvis aktivitetgruppekode7 > "til-gruppekodeovergrænse7"
loop
end
end
hvis aktivitetgruppekode8 < "fra-gruppekodeundergrænse8"
hvis aktivitetgruppekode8 > "til-gruppekodeovergrænse8"
loop
end
end
hvis aktivitetgruppekode9 < "fra-gruppekodeundergrænse9"
hvis aktivitetgruppekode9 > "til-gruppekodeovergrænse9"
loop
end
end
hvis aktivitetgruppekode10 < "fra-gruppekodeundergrænse10"
hvis aktivitetgruppekode10 > "til-gruppekodeovergrænse10"
loop
end
end
hvis aktivitetgruppekode11 < "fra-gruppekodeundergrænse11"
hvis aktivitetgruppekode11 > "til-gruppekodeovergrænse11"
loop
end
end
*
gem aktivitets record
*
* 7. kriterie planlinier for alle *
*
* std.: ikke specificeret på medarbejder *
*
*
* 8. kriterie udskrift af aktivitetsstamdata *
*
* std.: udskrives ikke *
*
*
* 9. kriterie opgjorte timer omregnes *
*
* std.: ingen omregning *
*
*
* 10. kriterie antal eksemplarer af udskriften *
*
* std.: et eksemplar *
*
loop
SLUT-UDSOG
loop
SLUT-UDVÆLG
***********************************************
*** ***
*** sortering ***
*** ***
***********************************************
hvis sort ej valgt
sæt sorteringskriterie lig med nuværende sortering
end
UDFØR SORTERING AF DE FUNDNE RECORD
***********************************************
*** ***
*** udskrivning ***
*** ***
***********************************************
*
* antal tegn på printlinien i dag:
*
* heraf 'bemærkninger'......: 25
*
* plan,forbrug,vurd.........: 29
* tilvækst,index............: 15
*
* oplysninger...............: 45
* ___
* ialt .....................: 114
*
* overskrifter i dag:
*
* linie 1 med rc-prosit, tekst , dag, dato ude og side.
*
* linie 2 & 3 hovedoplysninger om projektet vist på siden.
*
* linie 4 & 5 forklaring til oplysningerne i søjlerne.
*
* linie 6 streg.
*
:
«eof»