Index: PVB.mac.rou
===================================================================
diff -u -r734 -r4782
--- PVB.mac.rou	(.../PVB.mac.rou)	(revision 734)
+++ PVB.mac.rou	(.../PVB.mac.rou)	(revision 4782)
@@ -268,6 +268,7 @@
  s ^KPR(PRNr,"I")="",^KPR(PRNr,"I1")=TT("I")
  d RECALC^PRODUKT2(PRNr,TT("J"))
  D BLDIND^PRODUKT2(PRNr)
+ Do Gemaakt^PRODUKT2(PRNr)
  Quit
  
 EXTRACT S OmschE=$P(Rec,Tab,2)
@@ -441,4 +442,6 @@
  .For  Set KLNr=$O(^KLPUTZ("IS",HoofdGr,Groep,SubGroep,PRNr,KLNr)) Quit:KLNr=""  Set List=List_","_KLNr
  
  Quit Res
- 
\ No newline at end of file
+ 
+
+