KKAA4 G 1 ;KLANT/ARTIKEL ANALYSE ;KKAA4; Go van KKAA1, naar KKAA5 [ 04/02/2002  10:03 AM ]
 ;
T8 ;TOTALISEREN GEGEVENS KLANT/ARTIKEL ANALYSE 
 ;
S0 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S0C:$L(J)
S0A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S0B G S0Z
S0C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S0D E  S OK="S OK=X"_J_"Y" X OK
S0Z Q
 ;
1 ;    totaliseren
3 K @("^"_Q_"HULP($J)") S:PWD PWD=PWD+29 S (TOTL,TOTO,TOTM)=0
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 23
7 S K=KL S:K?.N K=^(K) S KLI=K,KC=$P(K," ",2)
 G 6:'$D(^KK1(KC))
 S (BP,PR)=0,A(0)=@Q1 F I=1:1:SW3-1 S A(I)=$G(^(I))
8 S I=100
9 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 6:'OK,9
11 S KN=$P(A(0),D,2),KPK=$P(A(2),D,3),KCA=$P(A(2),D,10),UIT="" S:$D(^KLPUTZ("N",KC)) UIT="+" S (TKA,TKL,TKO,TKM)=0,FP=2303+F60 W @F,@F2,KC,"   ",KN
 S KYW=$$GetKlantType^KLANT5(KC)
13 K A S (PR,TPR)=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 17:BP=-1!(BP]LBP)!$D(BEPERK) S BP=$J(FBP-.01,0,2)_" "
15 S BP=$N(^(BP)) G 17:BP=-1!(BP]LBP) S X=^(BP),TKA=TKA+$P(X,D,1),TKL=TKL+$P(X,D,2),TKO=TKO+$P(X,D,3) S:PWD TKM=TKM+$P(X,D,4) G 15
17 S PR=$N(@Q3) G 18:PR=-1
 S X=$N(^KPR(PR,"I")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=^(X) S PHG=$P(X,D,1),PGR=$P(X,D,2),PSG=$P(X,D,3)
 G 17:$$SKIP(PHG,PGR,PSG)
 S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 17:BP=-1!(BP]LBP) S TPR=TPR+1 G 17:'$D(BEPERK) S BP=$J(FBP-.01,0,2)_" "
170 S BP=$N(^(BP)) G 17:BP=-1!(BP]LBP) S X=^(BP),TKA=TKA+$P(X,D,1),TKL=TKL+$P(X,D,2),TKO=TKO+$P(X,D,3) S:PWD TKM=TKM+$P(X,D,4) G 170
18 S X=KC_D_KN_D_TKA_D_TKL_D_TKO_D_TKM_D_KYW_D_KPK_D_KCA_D_UIT_D_TPR_D,@("^"_Q_"HULP($J,""KL"",KLI)")=X
19 S I3=(5555555555-TKO)_KLI_" " S:TKO<0 I3=(9999999999-(2222222222+TKO))_KLI_" " S @("^"_Q_"HULP($J,""OM"",I3)")=X
21 I PWD S I3=(5555555555-TKM)_KLI_" " S:TKM<0 I3=(9999999999-(2222222222+TKM))_KLI_" " S @("^"_Q_"HULP($J,""MA"",I3)")=X
22 S TOTL=TOTL+TKL,TOTO=TOTO+TKO,TOTM=TOTM+TKM G 6
23 G ^KKAA5:$D(@("^"_Q_"HULP($J)"))
25 K @("^"_Q_"SEL($J)")
 ;
YZ Q
 ;
SKIP(PHG,PGR,PSG) 
 ;I PSG="1XX-MCH-MPR/BL" Q 1
 I '$D(BEPERK) Q 0
 I BEPERK="S" Q '$D(BEPERK(PSG))
 I BEPERK="G" Q '$D(BEPERK(PGR))
 I BEPERK="H" Q '$D(BEPERK(PHG))
 I BEPERK="L" Q '$D(BEPERK(+$$LEVNR^PRODUKT2(PR)))
 Q 0
 ;