KKAA7 G 1 ;OVERZICHT KLANT/ARTIKEL ANALYSE ;KKAA7; Go van KKAA6, naar KKAA8 [ 04/02/2002  10:16 AM ]
 ;
T8 ;TOTALISEREN GEGEVENS KLANT/ARTIKEL ANALYSE 
 ;
1 ;    totaliseren
3 K ^KKAA S ^KKAA(0)=KL_U_KLX_U_HFBP_U_HLBP_U F I=1:1:29 S (TOTO(I),TOTM(I),TOTL(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 35
7 S KC=$P(KL," ",2)
 G 6:'$D(^KK1(KC))
 S (BP,PR)=0,A(0)=@Q1 F I=1,2 S A(I)=^(I)
11 S KN=$P(A(0),D,2),KLN=$$LAND^vhRtn1($P(A(0),D,8)),KREG=$P(A(0),D,20),KPK=$P(A(2),D,3),KCA=$P(A(2),D,10) S:KLN="LU" KLN="BE"
 S KYW=$$GetKlantType^KLANT5(KC)
 I '$D(@("^"_Q_"SEKT(KREG_"" "")")) Set KREG=0
12 S (TKA,TKL,TKO,TKM)=0,FP=2303+F60 W @F,@F2,KC,"   ",KN S UIT="" S:$D(^KLPUTZ("N",KC)) UIT="+"
13 S:"ABCD1230"'[KYW!(KYW="") KYW=0 K A S KTY=$S(KYW=0:"Z",KYW=1:"A",KYW=2:"B",KYW=3:"C",1:KYW),(PR,TPR)=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 17:BP=-1!(BP]LBP) S BP=$J(FBP-.01,0,2)_" "
15 S BP=$N(^(BP)) G 17:BP=-1!(BP]LBP) S X=^(BP),TKA=TKA+$P(X,D,1),TKL=TKL+$P(X,D,2),TKO=TKO+$P(X,D,3),TKM=TKM+$P(X,D,4) G 15
17 S PR=$N(@Q3) I PR=-1 G 18:TKL,6
 S X=$N(^KPR(PR,"I")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=^(X) S PHG=$P(X,D,1),PGR=$P(X,D,2),PSG=$P(X,D,3)
 G 17:$$SKIP(PHG,PGR,PSG)
 S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 17:BP=-1!(BP]LBP) S TPR=TPR+1 G 17
18 D RAP S X=KC_D_KN_D_TKA_D_TKL_D_TKO_D_TKM_D_KYW_D_KPK_D_KCA_D_UIT_D_TPR_D_AB_D_AGB_D_LGB_D
19 S IND=(5555555555-TKO)_KL S:TKO<0 IND=(9999999999-(2222222222+TKO))_KL S ^KKAA("KL",IND)=X
20 S TOTO(1)=TOTO(1)+TKO,TOTM(1)=TOTM(1)+TKM,TOTL(1)=TOTL(1)+TKL
 S ^KKAA("REG",KREG,IND)=X
 S ^KKAA("TYP",KREG,KTY,IND)=X
 S KREG=$S(KREG=9:29,KREG=4:28,KREG=3:27,KREG=1:26,1:25)
 S TOTO(KREG)=TOTO(KREG)+TKO,TOTM(KREG)=TOTM(KREG)+TKM,TOTL(KREG)=TOTL(KREG)+TKL
21 I KCA S ^KKAA("NAK",IND)=X,TOTO(16)=TOTO(16)+TKO,TOTM(16)=TOTM(16)+TKM,TOTL(16)=TOTL(16)+TKL G 33
23 I KYW=0!("\BE\NL\"'[(D_KLN_D)) S ^KKAA("AKT",IND)=X,TOTO(17)=TOTO(17)+TKO,TOTM(17)=TOTM(17)+TKM,TOTL(17)=TOTL(17)+TKL G 33
25 S ^KKAA(KLN,KYW,IND)=X,^KKAA(KLN,"T",IND)=X,^KKAA(KLN,$P("I\H",D,KYW?.N+1),IND)=X
27 S IND=$F("ABCD123",KYW)+($F("BN",$E(KLN,1))-2*7),TOTO(IND)=TOTO(IND)+TKO,TOTM(IND)=TOTM(IND)+TKM,TOTL(IND)=TOTL(IND)+TKL
29 S IND=$F("BN",$E(KLN,1))-2*3+18+(KYW?.N),TOTO(IND)=TOTO(IND)+TKO,TOTM(IND)=TOTM(IND)+TKM,TOTL(IND)=TOTL(IND)+TKL
31 S IND=$F("BN",$E(KLN,1))-2*3+20,TOTO(IND)=TOTO(IND)+TKO,TOTM(IND)=TOTM(IND)+TKM,TOTL(IND)=TOTL(IND)+TKL
33 G 6
35 S ^KKAA("KL",0)=TOTO(1)_D_TOTM(1)_D_TOTL(1)_D,^KKAA("NAK",0)=TOTO(16)_D_TOTM(16)_D_TOTL(16)_D
36 S ^KKAA("AKT",0)=TOTO(17)_D_TOTM(17)_D_TOTL(17)_D
37 F KREG=0,1,3,4,9 D S2
39 F KLN="BE","NL" F KYW="A","B","C","D",1,2,3 D S1
41 F KLN="BE","NL" F I="I","H" S IND=$F("BN",$E(KLN,1))-2*3+18+(I="H"),^KKAA(KLN,I,0)=TOTO(IND)_D_TOTM(IND)_D_TOTL(IND)_D
43 F KLN="BE","NL" S IND=$F("BN",$E(KLN,1))-2*3+20,^KKAA(KLN,"T",0)=TOTO(IND)_D_TOTM(IND)_D_TOTL(IND)_D
45 F I=1:1:23 S ^KKAA(0,I)=TOTO(I)_D_TOTM(I)_D_TOTL(I)_D
47 K TOTO,TOTM,TOTL,IND S X=^KKAA(0)_1_U,^(0)=X
 ;
YZ Q
 ;
RAP S LGB="",(AB,AGB)=0
 S BP=$$CALCDATE^vhDTyp($$INTDATE^vhDTyp(FBP,"DM"),"M","FD")-1
 S EP=$$CALCDATE^vhDTyp($$INTDATE^vhDTyp(LBP,"DM"),"M","LD")
RAP1 S BP=$N(^VERSLAG("IK",KC,BP)) G RAPZ:BP=-1!(BP>EP)
RAP2 S RAP=0
RAP4 S RAP=$N(^VERSLAG("IK",KC,BP,RAP)) G RAP1:RAP=-1
RAP5 S K=^VERSLAG("D",RAP,0),AB=AB+1 S:$P(K,D,9) LGB=$P(K,D,1),AGB=AGB+1 G RAP4
RAPZ S LGB=$$EXTDATE^vhDTyp(LGB,"DKP")
 Q
 ;
S1 S IND=$F("ABCD123",KYW)+($F("BN",$E(KLN,1))-2*7),^KKAA(KLN,KYW,0)=TOTO(IND)_D_TOTM(IND)_D_TOTL(IND)_D
S1Z Q
 ;
S2 S IND=$S(KREG=9:29,KREG=4:28,KREG=3:27,KREG=1:26,1:25)
S2A S ^KKAA("REG",KREG,0)=TOTO(IND)_D_TOTM(IND)_D_TOTL(IND)_D
S2Z Q
 ;
SKIP(PHG,PGR,PSG) 
 ;I PSG="1XX-MCH-MPR/BL" Q 1
 I '$D(BEPERK) Q 0
 I BEPERK="S" Q '$D(BEPERK(PSG))
 I BEPERK="G" Q '$D(BEPERK(PGR))
 I BEPERK="H" Q '$D(BEPERK(PHG))
 Q 0
 ;