KKAA12 G 1 ;OVERZICHT KLANT/ARTIKEL ANALYSE ;KKAA12; Go van KKAA11, naar KKAA13 [ 04/02/2002  2:09 PM ]
 ;
T8 ;TOTALISEREN GEGEVENS KLANT/ARTIKEL ANALYSE 
 ;
S1 S $P(TOTO(IND),D,$P(BP,".",2))=$P(TOTO(IND),D,$P(BP,".",2))+X,$P(TOTO(IND),D,13)=$P(TOTO(IND),D,13)+X
S1Z Q
 ;
1 ;    totaliseren
3 K @("^"_Q_"KAAJ") S @("^"_Q_"KAAJ(0)")=KL_U_KLX_U_HFBP_U_HLBP_U F I=1:1:23 S $P(TOTO(I),D,13)=D
5 S FP=2403+F60 W @F,@F2,@F4,$P($T(T8),U,2),@F5 H 1 I KL'=0 S X=$D(@Q0) G 7:X
6 S KL=$N(@Q0) I KL=-1!(KL'?.N&(KL]KLX)) K A G 35
7 S KC=$P(KL," ",2) G 6:'$D(@Q2) S (BP,PR)=0,X=@Q4 G 6:'$L($P(X,D,1)) S A(0)=@Q1 F I=1,2 S A(I)=^(I)
11 S KN=$P(A(0),D,2),KLN=$$LAND^vhRtn1($P(A(0),D,8)),KCA=$P(A(2),D,10) S:KLN="LU" KLN="BE"
 S KYW=$$GetKlantType^KLANT5(KC)
12 S FP=2303+F60 W @F,@F2,KC,"   ",KN
13 S:"ABCD1230"'[KYW!(KYW="") KYW=0 K A S PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 6:BP=-1!(BP]LBP) S BP=$J(FBP-.01,0,2)_" "
15 S BP=$N(^(BP)) G 6:BP=-1!(BP]LBP) S X=^(BP),X=$P(X,D,3)
20 S $P(TOTO(1),D,$P(BP,".",2))=$P(TOTO(1),D,$P(BP,".",2))+X,$P(TOTO(1),D,13)=$P(TOTO(1),D,13)+X
21 I KCA S $P(TOTO(16),D,$P(BP,".",2))=$P(TOTO(16),D,$P(BP,".",2))+X,$P(TOTO(16),D,13)=$P(TOTO(16),D,13)+X G 33
23 I KYW=0!("\BE\NL\"'[(D_KLN_D)) S $P(TOTO(17),D,$P(BP,".",2))=$P(TOTO(17),D,$P(BP,".",2))+X,$P(TOTO(17),D,13)=$P(TOTO(17),D,13)+X G 33
27 S IND=$F("ABCD123",KYW)+($F("BN",$E(KLN,1))-2*7) D S1
29 S IND=$F("BN",$E(KLN,1))-2*3+18+(KYW?.N) D S1
31 S IND=$F("BN",$E(KLN,1))-2*3+20 D S1
33 G 15
35 F I=1:1:23 S @("^"_Q_"KAAJ(0,I)")=TOTO(I)
37 K TOTO,IND S X=@("^"_Q_"KAAJ(0)")_1_U,^(0)=X,FP=2301+F60 W @F,@F1
 D INIT^vhPRINTER(132) I $D(Print) S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) G ^KKAA13
 ;
YZ Q
 ;