KF0268L G 1 ;TONEN GEGEVENS PRODUKT BIJ ORDERS EN UITLEVERINGEN [ 02/18/93  1:23 PM ]
 ;
1 S FP=2028 W @F,"KLEIN VP : ",$P(R,D,6) S FP=2054 W @F,"LIJSTPR : ",$P(R,D,11)," ",$P(R,D,9),"/",$P(R,D,10)
5 W !?27,"NORM VP  : ",$P(R,D,7),?53,$P("KORTING\CODEX  ",D,$P(R,D,16)+1)," : "
7 I $P(R,D,12) W $J($P(R,D,12),4,1)," %  " I $P(R,D,13) W $J($P(R,D,13),4,1)," %"
9 W !?27,"GROOT VP : ",$P(R,D,8)
11 W ?53,$P("VERK \KAT",D,$P(R,D,14)+1)
13 W "PR",?61,": ",$P(R,D,15)," ",$P(R,D,9),"/",$P(R,D,10)
15 W !?2,"LEVERT  : ",$P(R,D,5) W:$P(R,D,19)="" " (NU/",%WK,")" W:$P(R,D,19)'="" " (",$P(R,D,19),")"
17 W ?27,"ONDERGR  : ",!?2,"M BST H : ",$P(R,D,4)," (",$P(R,D,17)," W)",?27,"BOVENGR  : "
 ;
YZ K R Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31