KPLK14 G 1 ;OVERZICHT PRIJSVERGELIJK ;KPLK14; Quit naar KPLK10 [ 11/06/2001  3:34 PM ]
 ;
S2 S @S=+$J(@S,0,2) Q
 ;
1 ;    totaliseren
 S (UIT,UITS)="" S:$D(^KLPUTZ("N",KC)) UIT="+" I $D(^KLPUTZ("S",KC)) S UITS="+"
13 S PR=$N(@Q3) G YZ:PR=-1,13:'$D(^KPR(PR)),13:$P(^KPR(PR,1),D,25) S BP=0,X=@Q4 G 13:$P(X,D,8) S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 13:BP=-1!(BP]LBP) I '$D(@Q5) K @Q3 G 13
17 S X=$N(^("I")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=$P(^(X),D,1,3)
 S PHG=$P(X,D,1),PGR=$P(X,D,2),PSG=$P(X,D,3),(PK1,PK2,PK1S,PK2S)=""
 S X=$N(^("J")) S:$E(X,1)'="J" X="" S:$E(X,1)="J" X=^(X) S PCP=$P(X,D,23),LEVNr=$P(X,D)
 G 13:$$SKIP(PHG,PGR,PSG,LEVNr)
 S Cif=$P(X,D,21),PPL=$P(X,D,19),GO=$P(X,D,28),UMC=$P(X,D,17),Kort=$P(X,D,9)
 S S="PCP" D S2
 S X=^KPR(PR,2)
 ;S CifS=$P(X,D,7) S:'$L(CifS) CifS=Cif
 ;S PPLS=$P(X,D,3) S:'$L(PPLS) PPLS=PPL
 ;S KortS=$P(X,D,4) S:'$L(KortS) KortS=Kort
 S CifS=Cif
 S PPLS=PPL
 S KortS=Kort
 S PCPS=PPLS/$S(GO="M":1000,GO="H":100,1:1)*(1-(KortS/100))*(1+(CifS/100))*$$MUNT^vhRtn1(UMC,,11)
 S S="PCPS" D S2
 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEPH=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3),UPAR=$P(R,D,9)
 S R=$$KLANTPR^KPRIJS(KC,PR,"S")
 S UEPS=$P(R,D,1),AFE=$P(R,D,11)
41 S (OmzR,MargR)="",BP=0,X=@Q4,TPA=$P(X,D,9) G 45:$L(TPA) S BP=$J(FBP-.01,0,2)_" "
43 S BP=$N(^(BP)) G 45:BP=-1!(BP]LBP) S X=^(BP),TPA=TPA+$P(X,D,1),OmzR=OmzR+$P(X,D,3),MargR=MargR+$P(X,D,4) G 43
45 
 ;S TPOS=UEPS*UPAR/AFE,TPOH=UEPH*UPAR/AFE F S="TPOS","TPOH" D S2 S @S=$J(@S*TPA,0,0)
 S TPOS=UEPS*UPAR/AFE*TPA,TPOH=UEPH*UPAR/AFE*TPA F S="TPOS","TPOH" D S2
 If IsReeel,OmzR'="" Set TKOH=TKOH+OmzR,TKMH=TKMH+MargR
 Else  Set TKOH=TKOH+TPOH,TKMH=TKMH+$J(TPOH-(PCP*TPA),1,0)
46 S TKOS=TKOS+TPOS,TKMS=TKMS+$J(TPOS-(PCPS*TPA),1,0)
47 G 13
 ;
YZ Q
 ;
SKIP(PHG,PGR,PSG,LEVNr) 
 I PSG="1XX-MCH-MPR/BL" Q 1
 I '$D(BEPERK) Q 0
 I $D(BEPERK("LEVER")),BEPERK("LEVER")'=LEVNr Q 1
 I BEPERK="S" Q '$D(BEPERK(PSG))
 I BEPERK="G" Q '$D(BEPERK(PGR))
 I BEPERK="H" Q '$D(BEPERK(PHG))
 Q 0
 ;