Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r51563 -r58672
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 51563)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 58672)
@@ -33,12 +33,20 @@
 	If $G(GenPRNr)'?4.7N Do   ; Defaulting
 	. Set GenPRNr=..GenerischPRNr()
  
+	New BestaatKprDataVanModPRNr, IsNieuwProductMetHergebruikVanPRNr
+	Set BestaatKprDataVanModPRNr = ($$$aHasData(^KPR(ModPRNr,0)))
+	Set IsHergebruikVanProductId = (ModPRNr > 0) && $$$Not(BestaatKprDataVanModPRNr)   ; Bij "Hergebruik" is de KPR-data vooraf opgekuist. 
+	
 	; Fill ^KPR nodes
 	If Opties["C" Do
 	. Lock:(ModPRNr) +^KPR(ModPRNr)
-	. Do:(ModPRNr) DELIND^PRODUKT2(ModPRNr)   ; Added by WimV on 19/04/2010 
-	. Do kpcCOPY(GenPRNr,ModPRNr,.NewRec)
-	. Do:('ModPRNr) kpcCLEAN(GenPRNr,,.NewRec)   ; Alleen bij nieuwe product
+	. Do:(ModPRNr)&&(BestaatKprDataVanModPRNr) DELIND^PRODUKT2(ModPRNr)   ; Added by WimV on 19/04/2010 
+	. If IsHergebruikVanProductId Do
+	. . Do kpcCOPY(GenPRNr,"",.NewRec)
+	. . Do kpcCLEAN(GenPRNr,,.NewRec)
+	. Else  Do
+	. . Do kpcCOPY(GenPRNr,ModPRNr,.NewRec)
+	. . Do:('ModPRNr) kpcCLEAN(GenPRNr,,.NewRec)   ; Alleen bij nieuwe product
 	. Do kpcFILL(.NewRec,Opties["P")
 	. Do kpcSAVE(.NewRec)
 	. Set NewPRNr=..ProductGetObjectId()
@@ -49,7 +57,7 @@
 	; Fill ^HADPR en ^PRBS nodes
 	Do:Opties["H" kpcHALFFAB()
 
-	If ('ModPRNr)
+	If ('ModPRNr) || (IsHergebruikVanProductId)
 	{
 	 	Do Gemaakt^PRODUKT2(NewPRNr) 
 	}