Index: PERS2.mac.rou
===================================================================
diff -u -r734 -r1032
--- PERS2.mac.rou	(.../PERS2.mac.rou)	(revision 734)
+++ PERS2.mac.rou	(.../PERS2.mac.rou)	(revision 1032)
@@ -236,7 +236,6 @@
  . Do strmBody.Write($$$fmtBeginHtml)
  . Set Subject="Betreft "_$P(^KKL(^KK1(KLNr),0),D,2)
  . Set From=$$USERNAME^vhUSER(,"@1"),To=$$EXTVW^KLOPV(KLNr,,"@")
- . Set:$L(To) To=To_";"_$$USERNAME^vhUSER("SYS","@") ; Tijdelijk PV en CW toevoegen tijdens de testperiode 25.02.10
  . Set:To="" To=$$USERNAME^vhUSER("SYS","@")
  . Set To=$$PiecesToList^vhLib(To,";")
  . Do strmBody.Write("Bij "_$P(^KKL(^KK1(KLNr),0),D,2)_" werd(en) volgend(e) e-mailadres(sen) gedeactiveerd door "_$$USERNAME^vhUSER(,1)_":")
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