KKAA8 G 1 ;OVERZICHT KLANT/ARTIKEL ANALYSE ;KKAA8; Go van KKAA6, KKAA7 - Do naar KKAA9 [ 11/29/2003   1:16 PM ]
 ;
T1 ;GLOBAALLIJST
T2 ;BELUX 
T3 ;NEDERL 
T4 ;NON AKTIEF
T5 ;AKTIEF EN NIET BENELUX
T6 ;A\B\C\D\IND\1\2\3\HAN
T7 ; = 
T8 ;SELEKTIE LIJST
T9 ;SC1
T10 ;xx[] = bepaalde lijst   xx,xx ... xx,xx[] = opeenvolgende lijsten
T11 ; A[] = alle lijsten
T12 ;BELGIE / LUXEMBURG
T13 ;NEDERLAND
T14 ;TOTAALOVERZICHT
T15 ;REGIO 
T16 ;0\1\3\4\9
 ;
1 S FP=301 W @F,@F1,!?14,1,$P($T(T7),U,2),$P($T(T1),U,2),!
3 F I=1:1:9 W !?2,$J(I+1,2),$P($T(T7),U,2),$P($T(T2),U,2),$P($P($T(T6),U,2),D,I),?30,I+11,$P($T(T7),U,2),$P($T(T3),U,2),$P($P($T(T6),U,2),D,I) I I<6 w ?52,I+24,$P($T(T7),U,2),$P($T(T15),U,2),$P($P($T(T16),U,2),D,I)
5 W !?2,11,$P($T(T7),U,2),$P($T(T12),U,2),?30,21,$P($T(T7),U,2),$P($T(T13),U,2)
7 W !!?14,22,$P($T(T7),U,2),$P($T(T4),U,2),!?14,23,$P($T(T7),U,2),$P($T(T5),U,2),!?14,24,$P($T(T7),U,2),$P($T(T14),U,2)
9 S R="LST\22\3\"_$P($T(T8),U,2)_D_$P($T(T9),U,2)_"\40\\$L(K)" D R0
11 G YZ:K="-" I K="A" S LST="" F I=1:1:30 S LST=LST_I_","
13 S K=0 F I=1:1 Q:'$L($P(LST,",",I))  I '$P(LST,",",I)!($P(LST,",",I)<0)!($P(LST,",",I)>29) S K=1
15 G 9:K ;G 17:PWD
 Do INIT^vhPRINTER("B",132,"P"):PWD,INIT^vhPRINTER("S;L;B",83,"P"):'PWD G 9:'$D(Print)
16 ;S R=72 D ^KFOLE
17 I '$L($P(LST,",",1)) G 31
18 S K=+$P(LST,",",1),LST=$P(LST,",",2,99),IND=0 I K=24 S K=$P($T(T14),U,2) D ^KKAA10 G 17
19 I K=1 S IND=$N(^KKAA("KL",IND)),K=$P($T(T1),U,2) G 30
20 I K=6 S IND=$N(^KKAA("BE","I",IND)),K=$P($T(T2),U,2)_$P($P($T(T6),U,2),D,5) G 30
21 I K<10 S IND=$N(^KKAA("BE",$P($P($T(T6),U,2),D,K-1),IND)),K=$P($T(T2),U,2)_$P($P($T(T6),U,2),D,K-1) G 30
22 I K=10 S IND=$N(^KKAA("BE","H",IND)),K=$P($T(T2),U,2)_$P($P($T(T6),U,2),D,9) G 30
23 I K=11 S IND=$N(^KKAA("BE","T",IND)),K=$P($T(T12),U,2) G 30
24 I K=16 S IND=$N(^KKAA("NL","I",IND)),K=$P($T(T3),U,2)_$P($P($T(T6),U,2),D,5) G 30
25 I K<20 S IND=$N(^KKAA("NL",$P($P($T(T6),U,2),D,K-11),IND)),K=$P($T(T3),U,2)_$P($P($T(T6),U,2),D,K-11) G 30
26 I K=20 S IND=$N(^KKAA("NL","H",IND)),K=$P($T(T3),U,2)_$P($P($T(T6),U,2),D,9) G 30
27 I K=21 S IND=$N(^KKAA("NL","T",IND)),K=$P($T(T13),U,2) G 30
28 I K=22 S IND=$N(^KKAA("NAK",IND)),K=$P($T(T4),U,2) G 30
29 I K=23 S IND=$N(^KKAA("AKT",IND)),K=$P($T(T5),U,2) G 30
 I K=25 S IND=$N(^KKAA("REG",0,IND)),K=$P($T(T15),U,2)_0 G 30
 I K=26 S IND=$N(^KKAA("REG",1,IND)),K=$P($T(T15),U,2)_1 G 30
 I K=27 S IND=$N(^KKAA("REG",3,IND)),K=$P($T(T15),U,2)_3 G 30
 I K=28 S IND=$N(^KKAA("REG",4,IND)),K=$P($T(T15),U,2)_4 G 30
 I K=29 S IND=$N(^KKAA("REG",9,IND)),K=$P($T(T15),U,2)_9 G 30
30 D ^KKAA9 G 17
31 ;S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
33 D CLOSE^vhPRINTER S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 G 1
 ;
YZ Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,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),R8="",$P(R8,".",R6)="."
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,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V8 05.07.88
 ;
SC1 W !?2,$P($T(T10),U,2),!?2,$P($T(T11),U,2) Q
 ;