KPLK10 G 1 ;OVERZICHT PRIJSVERGELIJK ;KPLK10; Go van KPLK9 - Do naar KPLK14 - Go naar KPLK11 [ 02/13/2001  11:23 AM ]
 ;
T8 ;TOTALISEREN GEGEVENS PRIJSVERGELIJK 
 ;
1 ;    totaliseren
3 K ^KPLK S ^KPLK(0)=KL_U_KLX_U_HFBP_U_HLBP_U_U_IsReeel_U_($D(BEPERK)>10) F I=1:1:23 S (TOSO(I),TOSM(I),TOHO(I),TOHM(I))=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 31
 ;Set NwReg=$P(^KKL(KL,0),D,20) G 6:'(NwReg>0&(NwReg<4)!(NwReg=8))
7 S KC=$P(KL," ",2) G 6:'$D(@Q2) S A(0)=@Q1 F I=1,2 S A(I)=^(I)
10 S KN=$P(A(0),D,2),KLN=$$LAND^vhRtn1($P(A(0),D,8)),KV=$P(A(0),D,11),(TKOH,TKMH,TKOS,TKMS)=0,FP=2303+F60 W @F,@F2,KC,"   ",KN S:KLN="LU" KLN="BE"
11 S KPL=$P(A(2),D,3),KKN=$P(A(2),D,5),KCA=$P(A(2),D,10),KPLS=$P(A(2),D,25) S:'$L(KPLS) KPLS=KPL S:KV="" KV=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
12 S:"ABCD1230"'[KYW!(KYW="") KYW=0 K A S PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 6:BP=-1!(BP]LBP)
13 S (UIT,UITS)="" D ^KPLK14 I $D(BEPERK),'TKOS,'TKMS,'TKOH,'TKMH G 6
 S X=KC_D_KN_D_TKOS_D_TKMS_D_TKOH_D_TKMH_D_KYW_D_KPLS_D_KPL_D_UITS_D_UIT_D_KKN_D
15 S IND=(5555555555-TKOH)_KL S:TKOH<0 IND=(9999999999-(2222222222+TKOH))_KL S ^KPLK("KL",IND)=X
17 S TOSO(1)=TOSO(1)+TKOS,TOSM(1)=TOSM(1)+TKMS,TOHO(1)=TOHO(1)+TKOH,TOHM(1)=TOHM(1)+TKMH
19 I KCA S ^KPLK("NAK",IND)=X,TOSO(16)=TOSO(16)+TKOS,TOSM(16)=TOSM(16)+TKMS,TOHO(16)=TOHO(16)+TKOH,TOHM(16)=TOHM(16)+TKMH G 29
21 I KYW=0!("\BE\NL\"'[(D_KLN_D)) S ^KPLK("AKT",IND)=X,TOSO(17)=TOSO(17)+TKOS,TOSM(17)=TOSM(17)+TKMS,TOHO(17)=TOHO(17)+TKOH,TOHM(17)=TOHM(17)+TKMH G 29
22 S ^KPLK(KLN,KYW,IND)=X,^KPLK(KLN,"T",IND)=X,^KPLK(KLN,$P("I\H",D,KYW?.N+1),IND)=X
23 S IND=$F("ABCD123",KYW)+($F("BN",$E(KLN,1))-2*7),TOSO(IND)=TOSO(IND)+TKOS,TOSM(IND)=TOSM(IND)+TKMS,TOHO(IND)=TOHO(IND)+TKOH,TOHM(IND)=TOHM(IND)+TKMH
25 S IND=$F("BN",$E(KLN,1))-2*3+18+(KYW?.N),TOSO(IND)=TOSO(IND)+TKOS,TOSM(IND)=TOSM(IND)+TKMS,TOHO(IND)=TOHO(IND)+TKOH,TOHM(IND)=TOHM(IND)+TKMH
27 S IND=$F("BN",$E(KLN,1))-2*3+20,TOSO(IND)=TOSO(IND)+TKOS,TOSM(IND)=TOSM(IND)+TKMS,TOHO(IND)=TOHO(IND)+TKOH,TOHM(IND)=TOHM(IND)+TKMH
29 G 6
31 S ^KPLK("KL",0)=TOSO(1)_D_TOSM(1)_D_TOHO(1)_D_TOHM(1)_D,^KPLK("NAK",0)=TOSO(16)_D_TOSM(16)_D_TOHO(16)_D_TOHM(16)_D
33 S ^KPLK("AKT",0)=TOSO(17)_D_TOSM(17)_D_TOHO(17)_D_TOHM(17)_D
35 F KLN="BE","NL" F KYW="A","B","C","D",1,2,3 D S1
37 F KLN="BE","NL" F I="I","H" S IND=$F("BN",$E(KLN,1))-2*3+18+(I="H"),^KPLK(KLN,I,0)=TOSO(IND)_D_TOSM(IND)_D_TOHO(IND)_D_TOHM(IND)_D
39 F KLN="BE","NL" S IND=$F("BN",$E(KLN,1))-2*3+20,^KPLK(KLN,"T",0)=TOSO(IND)_D_TOSM(IND)_D_TOHO(IND)_D_TOHM(IND)_D
41 F I=1:1:23 S ^KPLK(0,I)=TOSO(I)_D_TOSM(I)_D_TOHO(I)_D_TOHM(I)_D
43 K TOSO,TOSM,TOHO,TOHM,IND S X=^KPLK(0),$P(X,U,5)=1,^(0)=X G ^KPLK11
 ;
YZ Q
 ;
S1 S IND=$F("ABCD123",KYW)+($F("BN",$E(KLN,1))-2*7),^KPLK(KLN,KYW,0)=TOSO(IND)_D_TOSM(IND)_D_TOHO(IND)_D_TOHM(IND)_D
S1Z Q
 ;