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