KPSBW1 ;STOCKBEHEER (TONEN WEEKGEGEVENS) ;KPSB ; [ 03/19/2003  8:45 AM ]
 G 1
T1 ;Bufferw   :;Limiet    :
T2 ;Niet-stock;Stock     ;
 ;
S1 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
S1A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
S1B S:$P(R,D,5) R3="*" W ?$P(R,D,3),$J(R0,R1),R4,R3
S1Z K R0,R1,R2,R3,R4,R5,R6 Q
 ;
S2 SET FP=(7-SOffset+I)_"01" WRITE @F WRITE:I=SSelect @F92 I I>SMax W @F2,@F93 Q
S21 SET R=$P(PAR(2),D,I),R=$E(R,1,2)_"/"_$E(R,3,4) WRITE $C(13),$J(R,6),?7,"|" SET R=$P(B(5),D,I)_"\10" D S1
S22 WRITE ?19,"|" SET R=$P(B(4),D,I)_"\10\\\"_$P(B(7),D,I) D S3 WRITE ?31,"|"
S23 S R=$P(B(3),D,I)_"\10\\\"_$P(B(6),D,I) W:$E($P(B(1),D,I),1)="B" @FMTK D S3 W @FMTk
S24 WRITE ?43,"| ",$S($L($P(B(1),D,I)):$E($P(B(1),D,I),1),1:$S(I=1:" ",1:"-"))," |" S R=$P(B(2),D,I)_"\10" D S3
	W " |" S R=$P($G(B(8)),D,I)_"\10" D S3 
	WRITE @F93
S25 Q
 ;
S3 I +R D S1
S3A E  W $J("",11)
S3Z Q
 ;
S6 W @F,$J("",9),@F D S1
S6Z Q
 ;
 ;
1 S WVKT=WVKS+WVKK G YZ:PR=PRX
11 S FP=302 W @F,$P(A(2),D,25) S FP=402 W @F,$P(A(0),D,1) S FP=502 W @F,$P(A(0),D,2),$J("",26-$L($P(A(0),D,2)))
 S FP=602 W @F,$P($T(T2),U,$P(A(1),D,20)+2)_" ("_$$ABCKWOT^PRODUKT2(PR)_")     "
12 S FP=342 W @F92
 S R=$P($G(^PRSTOCK("D",PR)),D,5,6)
 S:$P(R,D) $P(R,D)=$$CV2MAG^MRP(PR,$P(R,D)) S:$P(R,D,2) $P(R,D,2)=$$CV2MAG^MRP(PR,$P(R,D,2))
 S R=$P(R,D)-$P(R,D,2)+$P(A(0),D,14)_"\7" D S6 S FP=442 S R=WVKT_"\7" D S6
13 S FP=450 W @F,$J("",9),@F I WVKS W "(S=" S R=WVKS D S1 S FP=453+$L(WVKS)+($L(WVKS)-1\3) W @F,")"
14 W @F93 I BWST='PSCL S BWST='BWST,FP=530 W @F,$P($T(T1),U,BWST+2)
15 S FP=542
 I 'PSCL S R=$P(A(1),D,17)_"\7" D S6
16 E  S R=$P(A(0),D,24)_"\7" D S6
 S FP=630 W @F,$S(PSCL="L":"Max.l.st.",1:"Scanning")
 S FP=642
 I PSCL="L" S R=$P(A("J"),D,22)_"\7" D S6
 E  S R=$P(A(0),D,18)_"\7" D S6
 S R=$P(A("J"),D,7),FP=373 S:CorLevT R=R_"(+"_CorLevT_")" W @F,$J(R,6)
18 S FP=473 S R=$P(A("J"),D,16)_"\6" D S6 S FP=573 S R=$P(A("J"),D,6)_"\6" D S6
19 S FP=673 S ID=$TR($P(A(2),D,25),".",""),$E(ID)=0 S R=$P(A(2),D,16) S:'R R="      " W:'R @F,R I R S R=R_D_6 D S6
 ;
2 I $L(SCHTYP),"ANWV"[SCHTYP G 23:SSelect<$L(B(1),D) S SSelect=$L(B(1),D)-1 G 23
21 SET SSelect=1 FOR I=1:1:$L(B(1),D)-1 I $L($P(B(1),D,I)),$E($P(B(1),D,I),1)'="T" SET SSelect=I Q
23 SET SOffset=SSelect-6 S:SOffset<0 SOffset=0 S SMax=PSC+1 FOR I=SOffset+1:1:SOffset+6 DO S2
 ;
 ;
YZ Q