Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r4523 -r4782
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 4523)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 4782)
@@ -389,6 +389,7 @@
  Set ^KPR(PRNr,"J")=""
  Set ^KPR(PRNr,"J"_$P(NewRec("J"),"\"))=NewRec("J")
  Do:(..ProductGetObjectId()'=PRNr) ..ProductSetObjectId(PRNr)
+ Do Gemaakt^PRODUKT2(PRNr)
  ;Do RECALC^PRODUKT2(PRNr)
  ;Do BLDIND^PRODUKT2(PRNr)
  ;Do ZEND^EWPR(PRNr)
@@ -718,4 +719,6 @@
  Else  Do  ; append
  . Set Oms(Oms)=$G(Oms(Oms))_$S($L($G(Oms(Oms))):";",1:"")_Txt
  Set Txt=""
- Quit
\ No newline at end of file
+ Quit
+
+