PPRLP ;VERKOOPPRIJZEN ;(BEPAALDE PRODUKTEN);KPRL1;Go van KPRL1 - Do naar KPSELS [ 08/16/2002  4:03 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;: LEV : IDENTNUMMER : PRODUKTNAAM               : ST : MNT : KATPR :   EENHEID :        KV :     LIJST :      SPIL ;:     GROOT ;: EV :
T3 ;:-----:-------------:---------------------------:----:-----:-------:-----------:-----------:-----------:-----------;:-----------;:----:
T4 ;BLZ:
T10 ;"Leverancier",$C(9),"Identnummer",$C(9),"Produktnaam",$C(9),"Stock",$C(9),"Munt",$C(9),"Katprijs",$C(9),"Eenheid",$C(9),"KV",$C(9),"Lijst",$C(9),"Spil";$C(9),"Groot";$C(9),"Afronding"
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
S2(PK) 
 S VKP=$P($$PROD^KPRIJS(PR,PK,"",KVM,"","",NoSa),D)
 Q
 ;
S1 W !,": " W:$L(PC)&($E(PC,$L(PC))'="%") $S(PLN=PLNX:" "" ",1:$E(PLN,1,3)) W ?6,": ",$J($E(PNR,1,11),11),?20,": ",PC,?48,": "
S1A W:PSN "ST" W ?53,": ",$S($L(PMC):$$MUNT^vhRtn1(PMC,1),1:""),?59,": ",$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",PPL)-1),?67,":"
S1B D S2("E") S R=VKP_"\10\68\2" D:+R&$L(KS) R3 W ?79,":" D S2("K") S R=VKP_"\10\80\2" D:+R&$L(KS) R3 W ?91,":"
S1C D S2("L") S XXX=VKP,R=VKP_"\10\92\2" D:+R R3 W ?103,":" D S2("S") S R=VKP_"\10\104\2" D:+R R3 W ?115,":"
S1D I KPK D S2("G") S R=VKP_"\10\116\2" D:+R R3 W ?127,":"
S1E W ?117+KPK,PEV,?120+KPK,":" S PLNX=PLN
S1Z Q
 ; Afdruk naar Mac
S3 W:$L(PC)&($E(PC,$L(PC))'="%") $S(PLN=PLNX:"",1:$E(PLN,1,3)) W $C(9),$J($E(PNR,1,11),11),$C(9),PC,$C(9)
S3A W:PSN "ST" W $C(9),$S($L(PMC):$$MUNT^vhRtn1(PMC,1),1:""),$C(9),$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",PPL)-1),$C(9)
S3B D S2("E") S R=VKP_"\\\2" D:+R&$L(KS) R3 W $C(9) D S2("K") S R=VKP_"\\\2" D:+R&$L(KS) R3 W $C(9)
S3C D S2("L") S XXX=VKP,R=VKP_"\\\2" D:+R R3 W $C(9) D S2("S") S R=VKP_"\\\2" D:+R R3 W $C(9)
S3D I KPK D S2("G") S R=VKP_"\\\2" D:+R R3 W $C(9)
S3E W PEV,$C(13) S PLNX=PLN
S3Z Q
 ;
PRINT(Titel) 
 S KS=$$STAFFEL^KS(PR),NoSa=""
 S PPL=$P(A(1),D,19),PSN=$P(A(1),D,20),PEV=$$GETROUND^PRODUKT2(PR,KVM)
 S AFA=$E(PEV,1),AFR=$E(PEV,2),AFE=$P("1\100\1000",D,$F("EHM",AFA)-1)
 S PC=$P(A(0),D,1),PNR=$P(A(2),D,25),PPLS=$$SchaduwPPL^KPRIJS(PR),PKS=$P(A(2),D,4),PVHS=$P(A(2),D,5),PWHS=$P(A(2),D,6),PCHS=$P(A(2),D,7)
 S (PLP,PLR,PVK)=0,(PMA,PMC)=$$FADEF^vhRtn1(),X="" S:$D(A("J")) X=A("J") S PLR=$P(X,D,1),PLP=$P(X,D,25),PVK=$P(X,D,26),(PMA,PMC)=$P(X,D,17),PEA=$P(X,D,28)
 S:'$L(PPLS) PPLS=$P(X,D,19) S:'$L(PKS) PKS=$P(X,D,9) S:'$L(PVHS) PVHS=$P(X,D,27) S:'$L(PWHS) PWHS=$P(X,D,24) S:'$L(PCHS) PCHS=$P(X,D,21)
 S:KVM'="MTL" PMC=KVM
 I PLR&(PLR'=PLX) S PLN=$P(@("^"_Q_"LE(@(""^""_Q_""L1(PLR)""),0)"),D,2),PLX=PLR
126 IF 'MAC S LN=LN+2+KSCH I LN'<LNMAX W !,$P($T(T3),U,2) W:KPK $P($T(T3),U,3) W $P($T(T3),U,4),# D HD(Titel) G 126
 D S1:'MAC,S3:MAC G 138:'KSCH S NoSa="S" S:PEA="H" PPLS=PPLS/100 S:PEA="M" PPLS=PPLS/1000
 I $$FADEF^vhRtn1()'[PMA S X=$$MUNT^vhRtn1(PMA,,11),PPLS=PPLS*X
 S PPLS=PPLS*(100-PKS)/100*(100+PCHS)/100,PPLS=$J(PPLS,1,4) S:'PPLS PWHS=0 S X=PPLS/(100-PWHS/100)*PWHS/100,X=$J(X,1,4)
 S PLP=PPLS+X,PVK=PPLS+X*PVHS/100,PVK=$J(PVK,1,4)
 S (PLN,PC,PSN,PMC,PPL,PEV,R)="",PNR="SCHADUW    " D S2("L") S:XXX R=VKP-XXX*100/XXX S:R PC=$J(R,24,1)_" %" D S1:'MAC,S3:MAC
138 IF 'MAC W !,":",?6,":",?20,":",?48,":",?53,":",?59,":",?67,":",?79,":",?91,":",?103,":",?115,":" W:KPK ?127,":" W ?120+KPK,":"
 Q
 ;
HD(Titel) 
 IF MAC W @$P($T(T10),U,2) W:KPK @$P($T(T10),U,3) W @$P($T(T10),U,4),$C(13) G HDZ
 S BLZ=BLZ+1,LN=0 W !,QN,?113+KPK,$P($T(T4),U,2),$J(BLZ,4)
 W !,NM2,?30,@F82,$P($T(+1),U,2),"IN ",KVM,@F83,$C(13),?73,Titel,?113+KPK,DT,!,NM3
 W ?30,$P($T(T1),U,2),X1,"   ",X2,?114+KPK,TD,!!
 I BLZ>1!($N(B(100))=-1) D
 .I $D(EXH),$D(GRX),$D(EXS) W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99)
 .I $D(LEX),LE'=-1,LE']LEX W LNM
 .W !!,$P($T(T3),U,2) W:KPK $P($T(T3),U,3) W $P($T(T3),U,4),!,$P($T(T2),U,2)
 .W:KPK $P($T(T2),U,3) W $P($T(T2),U,4),!,$P($T(T3),U,2) W:KPK $P($T(T3),U,3) W $P($T(T3),U,4)
HDZ Q
 ;