KKAA19 G 1 ;OVERZICHT KLANT/ARTIKEL ANALYSE PER REGIO ;KKAA18; Quit naar KKAA18 [ 08/16/2002  3:38 PM ]
 ;
S1 S (TKO,TKM,PR)=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G S1B:BP=-1!(BP]LBP) S BP=$J(FBP-.01,0,2)_" "
S1A S BP=$N(^(BP)) G S1B:BP=-1!(BP]LBP) S X=^(BP),TKO=TKO+$P(X,D,3),TKM=TKM+$P(X,D,4) G S1A
S1B S TKO=$J(TKO,0,0),TKM=$J(TKM,0,0)
S1Z Q
 ;
1 B 1 K ^HULP($J) I KL'=0 S X=$D(@Q0) G 13:X
11 S KL=$N(@Q0) I KL=-1!(KL'?.N&(KL]KLX)) K A G 3
13 S K=KL S:K?.N K=^(K) S KC=$P(K," ",2),(BP,PR)=0,A(0)=@Q1,A(1)=^(1)
15 S KN=$P(A(0),D,2),KZ=$P(A(0),D,20),KZ=$E(KZ,$L(KZ)) G 11:KZ="" S KAKT=$E($P(A(1),D,11),1,2) G 11:KAKT=""
17 K A
 ;
2 S FBP=BPHJ,LBP=EPHJ D S1 S X="",$P(X,D,10)=D,$P(X,D,1)=KC,$P(X,D,2)=KN,$P(X,D,3)=TKO,$P(X,D,4)=TKM,^HULP($J,KZ_KAKT,KL)=X
21 S FBP=BPVJ,LBP=EPVJ D S1 S X=^HULP($J,KZ_KAKT,KL),$P(X,D,5)=TKO,$P(X,D,6)=TKM,^(KL)=X
23 S FBP=BPHM,LBP=EPHM D S1 S X=^HULP($J,KZ_KAKT,KL),$P(X,D,7)=TKO,$P(X,D,8)=TKM,^(KL)=X
25 S FBP=BPVM,LBP=EPVM D S1 S X=^HULP($J,KZ_KAKT,KL),$P(X,D,9)=TKO,$P(X,D,10)=TKM,^(KL)=X
27 G 11
 ;
3 S KZAK=-1
31 S KZAK=$N(^HULP($J,KZAK)) G 4:KZAK=-1 S KL=-1,KZ=$E(KZAK,1),KAKT=$E(KZAK,2,99)
33 S KL=$N(^HULP($J,KZAK,KL)) G 31:KL=-1 S K=^(KL) W KZ,$C(9),KAKT,$C(9) F I=1,2,3,5,7,9,4,6,8,10 W $P(K,D,I),$C(9)
35 W $C(13) G 33
 ;
4 W "#"
 ;
YZ Q
 ;