KOF02 G 1 ;TONEN GEGEVENS PRODUKT BIJ OFFERTES [ 12/07/94  4:10 PM ]
 ;
1 N IsPerDag
 Set IsPerDag=$P($P(R,D,5),"#",2)="A"
 S FP=2012 W @F,@F5 S FP=2002 W @F W:'$P(R,D,1) @F4,"NIET-ST ",@F5 W:$P(R,D,1) " STOCK"
3 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 !?2,"LEVERT  : ",$S($P(R,D,5)=".":"STOCK",1:$P($P(R,D,5),"#"))
 W:$P(R,D,5)'="." " ",$S(+$P(R,D,5)=1:$S(IsPerDag:"DAG",1:"WEEK"),1:$S(IsPerDag:"DAGEN",1:"WEKEN"))
 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,"M BST H : ",$P(R,D,4)," (",$P(R,D,17)," W)" W ?27,"ONDERGR  : ",!?27,"BOVENGR  : "
 ;
YZ K R Q
 ;