KAKA12 G 1 ;ARTIKEL/KLANT ANALYSE OVERZICHT ;(VOLGENS PROD.);KAKA1;Go naar KAKA16 [ 03/28/2001  1:36 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_"PR1(PRC)"
14 I PRC'=0 S X=$D(@Q6) G 100:X
15 S PRC=$N(@Q6) I PRC=-1!(PRC]PRCX) G 69
100 S PR=+^(PRC) D ^KPCHKPR G 15:'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"",PRC)")=X
31 S I3=(5555555555-TPO)_PRC S:TPO<0 I3=(9999999999-(2222222222+TPO))_PRC S @("^"_Q_"HULP($J,""OM"",I3)")=X
32 S I3=(5555555555-TPL)_PRC S:TPL<0 I3=(9999999999-(2222222222+TPL))_PRC S @("^"_Q_"HULP($J,""AL"",I3)")=X
33 I PWD S I3=(5555555555-TPM)_PRC S:TPM<0 I3=(9999999999-(2222222222+TPM))_PRC S @("^"_Q_"HULP($J,""MA"",I3)")=X
35 S TOTL=TOTL+TPA,TOTO=TOTO+TPO,TOTM=TOTM+TPM G 15
69 K A G ^KAKA16:$D(@("^"_Q_"HULP($J)"))
 ;
YZ Q
 ;