Index: DOM/PM/impl/DataM/DataMProductRepository.cls.xml
===================================================================
diff -u -r57281 -r65143
--- DOM/PM/impl/DataM/DataMProductRepository.cls.xml	(.../DataMProductRepository.cls.xml)	(revision 57281)
+++ DOM/PM/impl/DataM/DataMProductRepository.cls.xml	(.../DataMProductRepository.cls.xml)	(revision 65143)
@@ -24,6 +24,7 @@
 <Method name="VerwijderViaID">
 <FormalSpec>PRNr:%String,BewaarHistoriek:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
+ Do ..InitVars()
  #dim Msg As %String = $$DeleteProd^EWPR(PRNr)
  ;Copieren naar OLD
  #dim BSNode As %String
@@ -136,6 +137,16 @@
  Quit
 ]]></Implementation>
 </Method>
+
+<Method name="InitVars">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set D = $Get(D,"\")
+	Set U = $Get(U,";")
+	Set Q = $Get(Q,"K")
+]]></Implementation>
+</Method>
 </Class>