Index: PRBS.mac.rou
===================================================================
diff -u -r918 -r1032
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 918)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1032)
@@ -120,6 +120,22 @@
  Set MPRNr=$$SELECT^PRODUKT6()
  Quit
  
+ ; Opvragen en verwerken van de rubriek 'Inkortbaar'
+AskInkortbaar
+ New I,zb,Inkortbaar
+ Set Inkortbaar(1)="NGI"
+ Set Inkortbaar(2)="TVV"
+ Set Inkortbaar(3)="INK"
+ Set Inkortbaar(4)="EXP"
+ For I=1:1 Quit:'$D(Inkortbaar(I))  Set $P(Inkortbaar(I),"`",2)=##class(DOM.PM.Bouwstenen.enu.InkortbaarOptie).LogicalToDisplay(Inkortbaar(I))
+ Set sEr=-1,X=$$WILD^vhPOPUP($P($$POS^vhScherm(sFld),D,2),"-OB1","Inkortbaar",.Inkortbaar,X)
+ Set:X="NGI" X="" Set:zb="CANC" X="-" Set:X="." X="-"
+ Do:X'="-"
+ . Do PUT^vhScherm(sFld,X)
+ . If $P(sFL(1),D,2)'="",X'="INK",X'="EXP" Do PUT^vhScherm("AANTALINK","")
+ . Set %SC=1
+ Quit
+  
 DUPLI(PRNr,NoSa) ; Dupliceren van (intern aan CHUI)
  Do STORE^vhTERMINA()
  Set:$G(PRNr)'?4.7N PRNr=$$SELECT^PRODUKT6(,,,"Dupliceren van product : ")
@@ -314,8 +330,8 @@
 Filler(sRec)
  New Filler
  Set Filler=$P(sRec,D,12)
- Set:$L($P(sRec,D,23)) Filler=Filler_" Inkort:"_$S($P(sRec,D,23):"ja",1:"neen")
- Set:$L($P(sRec,D,24)) Filler=Filler_" (#:"_$P(sRec,D,24)_")"
+ Set:$L($P(sRec,D,23)) Filler="OLM:"_##class(DOM.PM.Bouwstenen.enu.InkortbaarOptie).LogicalToDisplay($P(sRec,D,23))
+ Set:$L($P(sRec,D,24)) Filler=Filler_"("_$P(sRec,D,24)_")"
  Quit Filler
  		 
  ; Extra parameterkolom (Supplement) voor kost