KPBPVE ;BEHEER PARAMETERS VOORRAADEVOLUTIE ;KPBPVE;
 ;
T1 ;BOVENGRENS; WEEK\ WEKEN\ STOCKPREVISIE
T2 ;AANTAL WEKEN
T10 ;:
T11 ;NUMMER ELEMENT
T12 ;-[] = einde programma
T13 ;[] = 
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S I=100
13 S I=I+1,R=$P($T(@I),U,2,99) G 2:'$L(R) S FP=$P(R,U,2)*100+$P(R,U,4)-3 W @F,@F5,$P($T(T10),U,2)
15 S FP=$P(R,U,2)*100+$P(R,U,3) W @F,$J(I#100,2),@F6,@$P(R,U,1),@F5 S K="" I @$P(R,U,11) X "S K="_$P(R,U,10)
17 X:$L($P(R,U,5)) "S K="_$P(R,U,5) S FP=$P(R,U,2)*100+$P(R,U,4) W @F,K G 13
 ;
2 S R="K\22\3\"_$P($T(T11),U,2)_"\"""_$P($T(T12),U,2)_"""\1\\$L($T(@(100+K)))!(K=""-"")" D R0 G YZ:K="-"
21 S U2=$P($T(@(100+K)),U,2,99),R="K\22\3\" X "S R=R_"_$P(U2,U,1) S R=R_"\"""_$P(U2,U,7)
23 I $L($P(U2,U,12)) X $P(U2,U,12) S R=R_$P($T(T13),U,2)_K
25 S R=R_"""\"_$P(U2,U,6)_"\\"_$P(U2,U,8)_"!(K=""-"")" D R0 G 2:K="-" I K="",$L($P(U2,U,12)) X $P(U2,U,12)
27 X "S "_$P(U2,U,10)_"=K"  X:$L($P(U2,U,5)) "S K="_$P(U2,U,5)
29 S FP=$P(U2,U,2)*100+$P(U2,U,4) W @F,$J("",$P(U2,U,6)),$J("",$P(U2,U,9)),@F,K G 2
 ;
YZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
101 ;$P($T(T1),U,2);4;2;24;+K_$P($P($T(T1),U,3),D,K'=1+1)_$P($P($T(T1),U,3),D,3);1;;K?.N;20;$P(@("^"_Q_"BA(172)"),D,1);$D(@("^"_Q_"BA(172)"));S K=6
102 ;$P($T(T2),U,2);5;2;24;;2;;K?.N&K&(K<31)!(K="");;$P(@("^"_Q_"BA(172)"),D,2);$D(@("^"_Q_"BA(172)"));S K=30
 ;
 Q
Z X ^cZ Q
ZZ ; 31.05.88 - 10 u 54