KTRWL G 1 ;TONEN GEGEVENS PRODUKT BIJ TOELEVERINGEN
 ;
1 W !?2,$P("NIET-ST\STOCK",D,$P(R,D,1)+1),?10,": ",$P(R,D,2),?27,"LEVERT   : ",$P(R,D,4)
  W ?53,"PPL     : ",$J($P(R,D,6),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalenZichtbaar())
  W " ",$P(R,D,10),"/",$P(R,D,11)
3 W !?2,"BEST/ST : ",$P(R,D,3),?27,"M BST H  : ",$P(R,D,5),?53,"KORTING : "
7 I $P(R,D,7) W $J($P(R,D,7),4,2)," %  " I $P(R,D,8) W $J($P(R,D,8),4,2)," %"
9 W !?27,"GROOT VP : ",$P(R,D,12)
  W ?53,"AANK PR : ",$J($P(R,D,9),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalenZichtbaar())
  W " ",$P(R,D,10),"/",$P(R,D,11)
 ;
YZ K R Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36