KPLK6 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK6; Do van KPLK2 - Do naar KPLK3 [ 11/06/2001  3:36 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
S2 S @S=$$ROUND^KPRIJS(@S) Q
 ;
1 S KN=$P(A(0),D,2),KS=$P(A(0),D,5),KP=$P(A(0),D,6),KW=$P(A(0),D,7),KV=$P(A(0),D,11),KT1=$P(A(0),D,13)
12 S KPL=$P(A(2),D,3),KKN=$P(A(2),D,5),KPLS=$P(A(2),D,25) S:'$L(KPLS) KPLS=KPL S:KV="" KV=$$FADEF^vhRtn1() S (TPOST,TPOHT,TPMST,TPMHT)=0 K A
 S KYW=$$GetKlantType^KLANT5(KC)
 S LINES=0,MAXLINES=Print("MAXLIJN")-$S($P(Print("PRINTER"),";",2)="CA":8,1:6)
13 S PR=$N(@Q3) G 46:PR=-1 S BP=0,X=@Q4,PLCode=$P(X,D,8) G 13:PLCode S BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 13:(BP=-1!(BP]LBP))&('$P(X,D,9)) I '$D(@Q5) K @Q3 G 13
15 S X=@Q5,PC=$P(X,D,1),GenAfgel=$P(X,D,3) D SC
17 S X=$N(@("^"_Q_"PR(PR,""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 X=@("^"_Q_"PR(PR,1)") G 13:$P(X,D,25)
 S X=@("^"_Q_"PR(PR,2)"),PID=$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),PPLH=$P(R,D,13),UEPBF=$P(R,D,14)
 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),UEPBFS=$P(R,D,14)
 S UMC=UMCH,AFR=AFRH,S="PCP" D S2
 I $L($G(VER)) G 13:VER="V"&(+UEPS=+UEPH),13:VER="S"&(+UEPS'>+UEPH),13:VER="D"&(UEPS'<UEPH)
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=$J(UEPS*TPA*UPARS/AFES,1,0),TPOH=$J(UEPH*TPA*UPARH/AFEH,1,0),(TPMS,TPMH)=0 I PWD S TPMS=$J(TPOS-(PPLS*TPA),1,0),TPMH=$J(TPOH-(PPLH*TPA),1,0)
 ;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
452 S (TPMS,TPMH)=0 I PWD S TPMS=$J(TPOS-(PPLS*TPA),1,0),TPMH=$J(TPOH-(PPLH*TPA),1,0)
456 S @("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")=PID_D_PC_D_UEPS_D_UEPH_D_UMCS_D_UMCH_D_AFAH_D_TPOS_D_TPOH_D_TPMS_D_TPMH_D_TPA_D_UEPBFS_D_UEPBF_D_AFAS_D_AFES_D_AFEH_D_PLCode
 I $D(LINES) S LINES=LINES+1
 G 13
46 G YZ:'$D(@("^"_Q_"HULP($J)")) S (PHG,UU26)=""
47 D ^KPLK3
 ;
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
 ;