KPLK4 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK4; Go van KPLK1 - Do naar KPLK5, KPLK7 [ 01/08/2001  9:07 AM ]
 ;
T8 ;TOTALISEREN GEGEVENS PRIJSVERGELIJK 
 ;
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+18 S (TOTOS,TOTMS,TOTOH,TOTMH)=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 59
7 S K=KL S:K?.N K=^(K) S KLI=K,KC=$P(K," ",2) G 6:'$D(@Q2) S A(0)=@Q1 F I=1:1:SW3-1 S A(I)=^(I)
8 S I=100
9 S I=$N(B(I)) G 10:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 6:'OK,9
10 S KN=$P(A(0),D,2),KV=$P(A(0),D,11),(TKOH,TKMH,TKOS,TKMS)=0,FP=2303+F60 W @F,@F2,KC,"   ",KN
11 S KPL=$P(A(2),D,3),KKN=$P(A(2),D,5),KPLS=$P(A(2),D,25) S:'$L(KPLS) KPLS=KPL S:KV="" KV=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
12 K A S PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 6:BP=-1!(BP]LBP)
13 D ^KPLK7 I $D(BEPERK),'TKOS,'TKMS,'TKOH,'TKMH G 6
47 S X=KC_D_KN_D_TKOS_D_TKMS_D_TKOH_D_TKMH_D_KYW_D_KPLS_D_KPL_D_UITS_D_UIT_D,@("^"_Q_"HULP($J,""KL"",KL)")=X
49 S IND=(5555555555-TKOS)_KLI_" " S:TKOS<0 IND=(9999999999-(2222222222+TKOS))_KLI_" " S @("^"_Q_"HULP($J,""OMS"",IND)")=X
51 S IND=(5555555555-TKOH)_KLI_" " S:TKOH<0 IND=(9999999999-(2222222222+TKOH))_KLI_" " S @("^"_Q_"HULP($J,""OMH"",IND)")=X
53 G 57:'PWD S IND=(5555555555-TKMS)_KLI_" " S:TKMS<0 IND=(9999999999-(2222222222+TKMS))_KLI_" " S @("^"_Q_"HULP($J,""MAS"",IND)")=X
55 S IND=(5555555555-TKMH)_KLI_" " S:TKMH<0 IND=(9999999999-(2222222222+TKMH))_KLI_" " S @("^"_Q_"HULP($J,""MAH"",IND)")=X
57 S TOTOS=TOTOS+TKOS,TOTMS=TOTMS+TKMS,TOTOH=TOTOH+TKOH,TOTMH=TOTMH+TKMH G 6
59 G ^KPLK5:$D(@("^"_Q_"HULP($J)"))
 ;
YZ Q
 ;