KPVE5 G 1 ;VOORRAADEVOLUTIE ;KPVE1;Quit naar KPVE2, KPVE3, KPVE4 [ 08/05/2002  10:26 AM ]
 ;
T1 ;[] = ok   E[] = einde : .
T2 ;BLZ:
T3 ;IDENTNUMMER : 
T4 ;PRODUKTNAAM : 
 ;
S3 S FP=I*2-1*100+12 W @F,@$P(FG,D,10) S R=C(22-(I*2-1)) S:R<0 R=-R S R=R_"\10",FP=I*200+1 W @F D R3
 S FP=I*200+12 W @F,@$P(FG,D,6) I +R=0 S NLN=I
S3Z Q
 ;
S4 I I=R W @F94,$J(I,2),@F95 G S4Z
S4A W @$P(FG,D,9),$J(I,2),@$P(FG,D,9)
S4Z Q
 ;
S5 G S5E:A(I)=0,S5C:A(I)<0 F R=21:-1:1 Q:C(R)<A(I)
S5A F R=1:1:R-(22-(NLN*2)) S FP=NLN*2-R*VHD+V W @SF,@F5 S FP=FP-4 W @SF,@F4,$J("",3),@F5
S5B G S5E
S5C F R=1:1:21 Q:C(R)>A(I)
S5D F R=1:1:24-(NLN*2)-R S FP=NLN*2+R*VHD+V W @SF,@F5 S FP=FP-4 W @SF,@F4,$J("",3),@F5
S5E S V=V+4
S5Z Q
 ;
S6 I I'=R W "-",$J(I,2),"-" G S6Z
S6A F X=1:1:3 W $C(13),?V,$J(I,3)," "
S6Z Q
 ;
S7 S X="    " I C(K)>0 S:A(I)>C(K-1) X="****"
S7A I C(K)<0 S:A(I)<C(K+1) X="****"
S7B S R=R_X
S7Z Q
 ;
S8 W !?1 F I=1:1:4+(AWK>17*2) S R=$P(K,D,X+(ALN*I)-ALN) I $L(R) W " ",R S R=A($P(R,".",2))_D_11 D R3 I 4+(AWK>17*2)'=I W " |"
S8Z Q
 ;
S9 S R=WK-1+PLT+PBW S:R>52 R=R-52
S9Z Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 G 3:$L(KPS) S FP=114 W @F11,@F1,@F,PID,$J("",3),PC
11 W @F7 F I=1:1:11 D S3
13 D S9 S FP=NLN*2*100+12 W @F,@$P(FG,D,11) F I=WK:1:WK+AWK-1 D S4 Q:I=52
15 I WK+AWK>53 F I=1:1:AWK-(53-WK) D S4
 ;
2 W @F8 S V=17 F I=WK:1:WK+AWK-1 D S5 Q:I=52
21 I WK+AWK>53 F I=1:1:AWK-(53-WK) D S5
23 S FP=2403+F60 W @F,@F1,$P($T(T1),U,2) S FP=2427+F60 W @F,@F0 R K G YZ:K="E",YZ:K="",23
 ;
3 W !!!?2,$P($T(T3),U,2),PID,!?2,$P($T(T4),U,2),PC,!!?11,"|" S K=22
31 S K=K-1 G 6:K=0 W ! I '(K+1#2) S R=C(K) S:R<0 R=-R S R=R_D_10 D R3
33 W ?11,$P("|\+",D,K#2+1) G 5:'C(K) S R="" F I=WK:1:WK+AWK-1 D S7 Q:I=52
35 I WK+AWK>53 F I=1:1:AWK-(53-WK) D S7
37 W R
39 G 31
 ;
5 D S9 S V=12 F I=WK:1:WK+AWK-1 D S6 S V=V+4 Q:I=52
51 I WK+AWK>53 F I=1:1:AWK-(53-WK) D S6 S V=V+4
53 W:K=1 !?11,"|" G 31
 ;
6 G YZ:'KOZ S K="",X=$E(BWK,3,4) F I=WK:1:WK+AWK-1 S R=X_"."_I S:$L(R)<5 R=R_0 S K=K_R_D Q:I=52
61 I WK+AWK>53 S X=X+1 F I=1:1:AWK-(53-WK) S R=X_"."_I S:$L(R)<5 R=R_0 S K=K_R_D
63 S ALN=AWK-1\(4+(AWK>17*2))+1 W ! F X=1:1:ALN D S8
 ;
YZ Q
 ;