KAKA13 G 1 ;ARTIKEL/KLANT ANALYSE OVERZICHT ;(VOLGENS KLASS.);KAKA1;Go naar KAKA17 [ 03/28/2001  1:37 PM ]
 ;
T8 ;TOTALISEREN GEGEVENS ARTIKEL/KLANT ANALYSE 
 ;
1 ;    totaliseren
11 K @("^"_Q_"HULP($J)") S:PWD PWD=PWD+29 S (TOTL,TOTO,TOTM)=0,FP=2403+F60 W @F,@F2,@F4,$P($T(T8),U,2),@F5 H 1
13 S Q6="^"_Q_"PH(HG)",Q7="^"_Q_"PH(HG,GRS)",Q8="^"_Q_"PH(HG,GRS,SGS)",Q9="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)"
14 I HG'=0 S X=$D(@Q6) G 16:X
15 S HG=$N(@Q6) I HG=-1!(HG]HGX) G 69
16 S GRS=GR I GR'=0 S X=$D(@Q7) G 18:X
17 S GRS=$N(@Q7) I GRS=-1!(GRS]GRX) G 15
18 S SGS=SG I SG'=0 S X=$D(@Q8) G 2:X
19 S SGS=$N(@Q8) I SGS=-1!(SGS]SGX) G 17
2 S PRCS=PRC I PRC'=0 S X=$D(@Q9) G 100:X
21 S PRCS=$N(@Q9) I PRCS=-1!(PRCS]PRCX) G 19
100 S PR=+^(PRCS) D ^KPCHKPR G 21:'OK
23 S PC=$P(A(0),D,1),PSN=$P(A(1),D,20),PID=$P(A(2),D,25),(TPA,TPL,TPO,TPM)=0,FP=2303+F60 W @F,@F2,PID,"   ",PC
25 S KC=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4),BP=$J(FBP-.01,0,2)_" "
27 S BP=$N(^(BP)) G 29:BP=-1!(BP]LBP) S X=^(BP),TPA=TPA+$P(X,D,1),TPL=TPL+$P(X,D,2),TPO=TPO+$P(X,D,3) S:PWD TPM=TPM+$P(X,D,4) G 27
29 S X=PC_D_PID_D_TPA_D_TPL_D_TPO_D_TPM_D_PSN_D,@("^"_Q_"HULP($J,""PC"",HG,GRS,SGS,PRCS)")=X
31 S I3=(5555555555-TPO)_PRCS S:TPO<0 I3=(9999999999-(2222222222+TPO))_PRCS S @("^"_Q_"HULP($J,""OM"",0,0,0,I3)")=X
32 S I3=(5555555555-TPL)_PRCS S:TPL<0 I3=(9999999999-(2222222222+TPL))_PRCS S @("^"_Q_"HULP($J,""AL"",0,0,0,I3)")=X
33 I PWD S I3=(5555555555-TPM)_PRCS S:TPM<0 I3=(9999999999-(2222222222+TPM))_PRCS S @("^"_Q_"HULP($J,""MA"",0,0,0,I3)")=X
35 S TOTL=TOTL+TPA,TOTO=TOTO+TPO,TOTM=TOTM+TPM G 21
69 K A G ^KAKA17:$D(@("^"_Q_"HULP($J)"))
 ;
YZ Q
 ;