Index: PRODUKT2.mac.rou
===================================================================
diff -u -r38179 -r38181
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 38179)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 38181)
@@ -225,6 +225,7 @@
  If '$D(Rec) S PR=$O(^KPR(PRNr,"J")) I $E(PR)="J" s Rec=^KPR(PRNr,PR)
  Set B(1)=Rec
  Set PR=PRNr
+ New RLPP,RPLL,RVV
  Do ^KP0 
  Set ^KPR(PRNr,"J")="",^KPR(PRNr,"J"_+B(1))=B(1)
  ;Do UPDATE^LOG("PR",PRNr) ; Om zekere te zijn dat de VTW's de update krijgen
@@ -848,3 +849,4 @@
 
 
 
+