KAKA14 G 1 ;ARTIKEL/KLANT ANALYSE OVERZICHT ;(VOLGENS LEV.);KAKA1;Go naar KAKA18 [ 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_"LE(LE)",Q7="^"_Q_"PL(LES)",Q8="^"_Q_"PSEL($J,PRCS)"
15 I LE'=0 S X=$D(@Q6) G 19:X
17 S LE=$N(@Q6) I LE=-1!(LE]LEX) G 69
19 S LES=$P(LE," ",2)_" ",LNM=$P(^(LE,0),D,2),X=$D(@Q7) G 17:'X D S9
2 S PRCS=PRC I PRC'=0 S X=$D(@Q8) G 100:X
21 S PRCS=$N(@Q8) I PRCS=-1!(PRCS]PRCX) G 17
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"",LE,PRCS)")=X
31 S I3=(5555555555-TPO)_PRCS S:TPO<0 I3=(9999999999-(2222222222+TPO))_PRCS S @("^"_Q_"HULP($J,""OM"",0,I3)")=X
32 S I3=(5555555555-TPL)_PRCS S:TPL<0 I3=(9999999999-(2222222222+TPL))_PRCS S @("^"_Q_"HULP($J,""AL"",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,I3)")=X
35 S TOTL=TOTL+TPA,TOTO=TOTO+TPO,TOTM=TOTM+TPM G 21
69 K A,@("^"_Q_"PSEL($J)") G ^KAKA18:$D(@("^"_Q_"HULP($J)"))
 ;
YZ Q
 ;
S9 K @("^"_Q_"PSEL($J)") S SL=LES,SM=0,S1="^"_Q_"PL(SL,SM)",S2="^"_Q_"PL(SL,SM,SR)",S3="^"_Q_"PL(SL,SM,SR,SP)"
S9A S SM=$N(@S1) G S9Z:SM=-1 S SR=0
S9B S SR=$N(@S2) G S9A:SR=-1 S SP=0
S9C S SP=$N(@S3) G S9B:SP=-1 S R=+^(SP),@("^"_Q_"PSEL($J,SP)")=R G S9C
S9Z K SL,SM,SR,SP,S1,S2,S3,R Q
 ;