KPKNGM G 1 ;MODULE KLEIN-, NORM-, GROOTVERPAKKING, MIN BEST HOEVEELHEID;KPKNGM;
 ;
T1 ;aantal eenheden
T2 ;KLEINVERPAKKING > NORMVERPAKKING
T3 ;NORMVERPAKKING > GROOTVERPAKKING
T4 ;GROOTVERPAKKING MAG NIET 0 ZIJN
T5 ;MIN BEST HOEV GEEN VEELVOUD VAN DE GROOTVERPAKKING
 ;
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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
M1 S MSG=$P($T(T2),U,2) G MY
M2 S MSG=$P($T(T3),U,2) G MY
M3 S MSG=$P($T(T4),U,2) G MY
M4 S MSG=$P($T(T5),U,2) G MY
MY S FP=2403+F60 W @F,@F2,@F4,MSG,"  [] = ok ",@F5,@F0 R K
MZ K MSG Q
 ;
1 S R="K\21\3\"_$P(U2,U,1)_"\"""_$P($T(T1),U,2)_"""\"_$P(U2,U,9) D R0 I $L(K)=1 G YZ:"-,"[K
 ;
2 G 3:$P(U2,D,16)'=114
21 I K>$P(B(1),D,15) D M1 G 1
23 G YZ
 ;
3 G 4:$P(U2,D,16)'=115
31 I K<$P(B(1),D,14) D M1 G 1
33 I K>$P(B(1),D,16) D M2 G 1
35 G YZ
 ;
4 G 5:$P(U2,D,16)'=116
41 I K<$P(B(1),D,15) D M2 G 1
43 I 'K D M3 G 1
45 G YZ
 ;
5 I 'K G YZ:'$P(B(1),D,16) D M4 G 1
51 I K#$P(B(1),D,16) D M4 G 1
 ;
YZ K PROG Q
 ;
Z X ^cZ Q
ZZ ; 11.12.90 - 13 u 12
 ;