KKAA15 ;VOORBEREIDEN PRODUKTOVERZICHT KLANTEN ;KKAA14; Go van KKAA14 [ 10/10/2003  11:28 AM ]
 G 1
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 L +^KKAAP:5 E  Q
 K @("^"_Q_"KAAP") S @("^"_Q_"KAAP(0)")=KL_U_KLX_U_HFBP_U_HLBP_U
 S GloRef="^KKAAP(KC)"
 F  S KL=$N(@Q0) Q:KL=-1  S KC=$P(@("^"_Q_"KL(KL,0)"),D,1) D CALC
 S K=@("^"_Q_"KAAP(0)")_1_U_DT_U_TD_U D ^cA105 S K=K_TD,^(0)=K
YZ Q
 ;
ONE(KC,BeperkLC,GloRef) ; Een klant behandelen, eventueel beperking op leverancier, eventueel niet in ^KKAAP
 N KL,FBP,LBP,Q0,Q1,Q2,Q3,Q4,Q5,KTO,APR,PR,BP,PID,X,PC,PHG,PGR,PSG,UEP,UMC,AFA
 N I,DLP,LPR,LFA,KVV,U26,TPA,TPL,TPO,TPM,PCC,R
 Do INIT
 Set:'$G(KC) KC=$$SELECT^KLANT6(1)
 Quit:'KC
 Set KL=@("^"_Q_"K1(KC)")
 Set KC=$P(@("^"_Q_"KL(KL,0)"),D,1)
 Kill @GloRef
 Do CALC
 Quit
 ;
INIT If '$D(Q) Do  Set $ZT="^cA406"
 .New KC,BeperkLC,GloRef
 .Set Q="K" DO ^cA604
 Set GloRef=$G(GloRef,"^KKAAP(KC)")
 Set FBP=DJ-1_"."_DM_" ",LBP=DJ_"."_DM_" "
 Set Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^"_Q_"STKL(KC)"
 Set Q3="^"_Q_"STKL(KC,PR)",Q4="^"_Q_"STKL(KC,PR,BP)",Q5="^"_Q_"PR(PR,0)"
 Quit
 ;
CALC 
 N IsEuro,NoMBon
 S IsEuro=$$ISEURO^vhRtn1()
 ;Q:$P(^KKL(^KK1(KC),2),D,10)
5 S (KTO,APR,MargTO)=0
6 S PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) Q:BP=-1!(BP]LBP)
13 S PR=$N(@Q3) G 49:PR=-1 S BP=0,X=@Q4 G 13:$P(X,D,7) S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4)
14 G 13:BP=-1!(BP]LBP) I '$D(@Q5) K @Q3 G 13
15 S X=@Q5,PC=$P(X,D,1) D SC
29 S X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
30 S X=$N(^("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 13:$$SKIP(PHG,PGR,PSG)
 I $G(BeperkLC),BeperkLC'=$$LEVNR^PRODUKT2(PR) G 13 ; Beperking op leverancier
37 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3)
 Set CifPPL=$P(R,D,13),VKPrijs=$P(R,D,14)
 Set MargePc="" Set:VKPrijs MargePc=+$J(VKPrijs-CifPPL/VKPrijs,0,4)
43 S BP=0,X=@Q4,DLP=$P(X,D,1),LPR=$P(X,D,2),LFA=$E($P(X,D,3),1),KVV=$P(X,D,4),NoMBon=$P(X,D,11) S:KVV="" KVV=$$FADEF^vhRtn1()
 S BP=0,X=@Q4,U26=$P(X,D,6),(TPA,TPL,TPO,TPM)=0
44 S BP=$J(FBP-.01,0,2)_" "
45 S BP=$N(^(BP)) G 47: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),TPM=TPM+$P(X,D,4) G 45
47 S @GloRef@(PHG,PGR,PSG,PCC)=PID_D_PC_D_TPA_D_TPL_D_DLP_D_LPR_D_KVV_D_LFA_D_UEP_D_UMC_D_AFA_D_TPO_D_TPM_D_U26_D_PR_D_MargePc_D_NoMBon
48 S KTO=KTO+TPO,APR=APR+1,MargTO=MargTO+TPM G 13
49 I $N(@GloRef@(0))'=-1 S ^(0,0,0,0)=$J(KTO,0,$S(IsEuro:2,1:0))_D_APR_D_MargTO
 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
 ;