Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r4523 -r4782
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 4523)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 4782)
@@ -1251,6 +1251,7 @@
  Set ^KPR(PRNr,"J")=""
  Set ^KPR(PRNr,"J"_$P(NewRec("J"),D))=NewRec("J")
  Do:(..ProductGetObjectId()'=PRNr) ..ProductSetObjectId(PRNr)
+ Do Gemaakt^PRODUKT2(PRNr)
  Quit
 ]]></Implementation>
 </Method>