Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r4782 -r5386
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 4782)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 5386)
@@ -47,9 +47,18 @@
 	. Do kpcSAVE(.NewRec)
 	. Set NewPRNr=..ProductGetObjectId()
 	. Do RECALC^PRODUKT2(NewPRNr)
-	. Do BLDIND^PRODUKT2(NewPRNr)   ; Added by WimV on 19/04/2010 
+	. Do BLDIND^PRODUKT2(NewPRNr)   ; Added by WimV on 19/04/2010
 	. Lock:(ModPRNr) -^KPR(ModPRNr)
  
+	If ('ModPRNr)
+	{
+	 	Do Gemaakt^PRODUKT2(NewPRNr) 
+	}
+	Else
+	{
+	 	Do Gewijzigd^PRODUKT2(ModPRNr)
+	}
+ 	
 	; Fill ^HADPR en ^PRBS nodes
 	Do:Opties["H" kpcHALFFAB()
 	;If $G(^KLPUTZ("AS")) Do kpcCalcSchaduwPrijs(ModPRNr)
@@ -389,7 +398,6 @@
  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)