KPRL6 G 1 ;VERKOOPPRIJZEN ;(VOLGENS UTILIDATA);KPRL1;Go van KPRL1 - Do naar KPSELS [ 08/06/2002   8:52 AM ]
 ;
T1 ;SELEKTIE : 
T2 ;: LEV : IDENTNUMMER : PRODUKTNAAM               : ST : MNT : KATPR :     LIJST :     RABAT :      SPIL :     BASIS ;:     GROOT ;: EV :
T3 ;:-----:-------------:---------------------------:----:-----:-------:-----------:-----------:-----------:-----------;:-----------;:----:
T4 ;BLZ:
 ;
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 S VKP=$$ROUND^KPRIJS(VKP) 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 S PLP=PLP/PPAR,PVK=PVK/PPAR,VKP=PLP*AFE D S2 S XXX=VKP,R=VKP_"\10\68\2" D:+R R3 W ?79,":" S VKP=PLP-(PVK*25/100)*AFE D S2 S R=VKP_"\10\80\2" D:+R R3 W ?91,":"
S1C S VKP=PLP-(PVK*50/100)*AFE D S2 S R=VKP_"\10\92\2" D:+R R3 W ?103,":" S VKP=PLP-(PVK*75/100)*AFE D S2 S R=VKP_"\10\104\2" D:+R R3 W ?115,":"
S1D I KPK S VKP=PLP-PVK*AFE D S2 S R=VKP_"\10\116\2" D:+R R3 W ?127,":"
S1E W ?117+KPK,PEV,?120+KPK,":" S PLNX=PLN
S1Z Q
 ;
1 S BLZ=0
 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
 S (PLN,PLX,PLNX)="",I=100 G 19:$N(B(I))=-1 D HD,^KPSELS
19 S Q1=Q0,Q0="^"_Q_"PR(PR,0)"
23 D HD
25 S UTN=$N(@Q1) I UTN=-1 W !,$P($T(T3),U,2) W:KPK $P($T(T3),U,3) W $P($T(T3),U,4),# G 160
100 S PR=^(UTN) D ^KPCHKPR G 25:'OK
112 S PPL=$P(A(1),D,19),PSN=$P(A(1),D,20),PEV=$$GETROUND^PRODUKT2(PR,KVM)
114 S AFA=$E(PEV,1),AFR=$E(PEV,2),AFE=$P("1\100\1000",D,$F("EHM",AFA)-1)
116 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)
118 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)
120 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)
122 S:KVM'="MTL" PMC=KVM S PPAR=1 S:$L(PMC) PPAR=$$MUNT^vhRtn1(PMC,,12)
124 I PLR&(PLR'=PLX) S PLN=$P(@("^"_Q_"LE(@(""^""_Q_""L1(PLR)""),0)"),D,2),PLX=PLR
126 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 G 126
128 D S1 G 138:'KSCH S:PEA="H" PPLS=PPLS/100 S:PEA="M" PPLS=PPLS/1000
130 I $$FADEF^vhRtn1()'[PMA S X=$$MUNT^vhRtn1(PMA,,11),PPLS=PPLS*X
132 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)
134 S PLP=PPLS+X,PVK=PPLS+X*PVHS/100,PVK=$J(PVK,1,4)
136 S (PLN,PC,PSN,PMC,PPL,PEV,R)="",PNR="SCHADUW    ",VKP=PLP/PPAR*AFE D S2 S:XXX R=VKP-XXX*100/XXX S:R PC=$J(R,24,1)_" %" D S1
138 W !,":",?6,":",?20,":",?48,":",?53,":",?59,":",?67,":",?79,":",?91,":",?103,":",?115,":" W:KPK ?127,":" W ?120+KPK,":"
140 G 25
160 D CLOSE^vhPRINTER
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?113+KPK,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),"IN ",$$MUNT^vhRtn1(KVM,1),@F83,$C(13),?73,$P($T(+1),U,3),?113+KPK,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?114+KPK,TD,!!
HDB I BLZ>1!($N(B(100))=-1) 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
 ;