KPRLK6 G 1 ;PRIJSLIJST KLANTEN ;KPRLK6; Quit naar KPRLK2 [ 04/03/2001  2:24 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 ;  opmaken prijslijst
 S OMZ=0
13 S PR=$N(@Q3) G 50: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,PC=$P(X,D,1) D SC
16 S X=@("^"_Q_"PR(PR,0)"),X=^($P("0\1\2\2",D,TL)),PN=$P(X,D,$P("2\22\2\1",D,TL)),X=^($P("0\3\3\3",D,TL)),PN2=$P(X,D,$P("11\21\23\22",D,TL))
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)
 G 13:$$SKIP(PHG,PGR,PSG)
 S PCOL="",X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" "
 I $D(@("^"_Q_"COL(X)")) S PCOL=^(X,KT)
 S X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
 S X=$N(^("J")) S:$E(X,1)'="J" X="" S:$E(X,1)="J" X=^(X) S GVP=$P(X,D,15) I 'GVP S GVP=$P(X,D,16)
 S PCP=$P(X,D,23)
 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEPH=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3)
 S PLPH=$P(R,D,4),PK1H=$P(R,D,5),PK2H=$P(R,D,6)
 S R=$$KLANTPR^KPRIJS(KC,PR,"S")
 S UEPS=$P(R,D,1),AFE=$P(R,D,11)
 S PLPS=$P(R,D,4),PK1S=$P(R,D,5),PK2S=$P(R,D,6)
42 S @("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")=PID_D_PC_D_PN_D_PN2_D_PCOL_D_PLPS_D_UEPS_D_PK1S_D_PK2S_D_PLPH_D_UEPH_D_PK1H_D_PK2H_D_UMC_D_AFA_D_GVP_D
43 G 13:'ZMPC S BP=0,X=@Q4,(TPA,STPA)=$P(X,D,9),BP=$J(FBP-.01,0,2)_" "
44 S BP=$N(^(BP)) G 45:BP=-1!(BP]LBP) S X=^(BP) S:STPA="" TPA=TPA+$P(X,D,1) S OMZ=OMZ+$P(X,D,3) G 44
45 S TOMS=TOMS+$J(UEPS*TPA*UPAR/AFE,1,0),TOMH=TOMH+$J(UEPH*TPA*UPAR/AFE,1,0) G 13
50 S:'$D(BEPERK) OMZ=OOG I OMZ<OOG!(OMZ>OBG) K @("^"_Q_"HULP($J)")
 ;
YZ Q
 ;
SKIP(PHG,PGR,PSG) 
 I $G(NoDoors),$E(PHG,3,4)="DE" 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
 ;