KPLK7 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK7; Quit naar KPLK4 [ 11/06/2001  3:37 PM ]
 ;
S2 S @S=$$ROUND^KPRIJS(@S) 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 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
15 S X=@Q5,GenAfgel=$P(X,D,3)
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)
 I $G(SKIPNOA) S X=@("^"_Q_"PR(PR,1)") G 13:$P(X,D,25)
 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEPH=$P(R,D,1),UMCH=$P(R,D,2),UPARH=$P(R,D,9),AFAH=$P(R,D,3),AFEH=$P(R,D,11),AFRH=$P(R,D,12)
 S R=$$KLANTPR^KPRIJS(KC,PR,"S")
 S UEPS=$P(R,D,1),UMCS=$P(R,D,2),UPARS=$P(R,D,9),AFAS=$P(R,D,3),AFES=$P(R,D,11),AFRS=$P(R,D,12),PPLS=$P(R,D,13)
 S UMC=UMCH,AFR=AFRH,S="PCP" D S2
41 S 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) G 43
45 
 ;S TPOS=UEPS*UPARS/AFES,TPOH=UEPH*UPARH/AFEH F S="TPOS","TPOH" S UMC=$S(S="TPOS":UMCS,1:UMCH),AFR=$S(S="TPOS":AFRS,1:AFRH) D S2 S @S=$J(@S*TPA,0,0)
 S TPOS=UEPS*UPARS/AFES*TPA,TPOH=UEPH*UPARH/AFEH*TPA F S="TPOS","TPOH" S UMC=$S(S="TPOS":UMCS,1:UMCH),AFR=$S(S="TPOS":AFRS,1:AFRH) D S2
46 S TKOS=TKOS+TPOS,TKOH=TKOH+TPOH I PWD S TKMS=TKMS+$J(TPOS-(PPLS*TPA),1,0),TKMH=TKMH+$J(TPOH-(PCP*TPA),1,0)
47 G 13
 ;
YZ Q
 ;
SKIP(PHG,PGR,PSG,LEVNr) 
 I PSG="1XX-MCH-MPR/BL" Q 1
 I $G(NoGenPr),$L(GenAfgel) Q 1
 I $G(NoDoors),$E(PHG,3,4)="DE" 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
 ;