Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r58673 -r65012
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 58673)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 65012)
@@ -35,13 +35,13 @@
  
 	New BestaatKprDataVanModPRNr, IsNieuwProductMetHergebruikVanPRNr
 	Set BestaatKprDataVanModPRNr = (ModPRNr > 0) && ($$$aHasData(^KPR(ModPRNr,0)))
-	Set IsHergebruikVanProductId = (ModPRNr > 0) && $$$Not(BestaatKprDataVanModPRNr)   ; Bij "Hergebruik" is de KPR-data vooraf opgekuist. 
+	Set IsNieuwProductMetHergebruikVanPRNr = (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)&&(BestaatKprDataVanModPRNr) DELIND^PRODUKT2(ModPRNr)   ; Added by WimV on 19/04/2010 
-	. If IsHergebruikVanProductId Do
+	. If IsNieuwProductMetHergebruikVanPRNr Do
 	. . Do kpcCOPY(GenPRNr,"",.NewRec)
 	. . Do kpcCLEAN(GenPRNr,,.NewRec)
 	. Else  Do
@@ -57,7 +57,7 @@
 	; Fill ^HADPR en ^PRBS nodes
 	Do:Opties["H" kpcHALFFAB()
 
-	If ('ModPRNr) || (IsHergebruikVanProductId)
+	If ('ModPRNr) || (IsNieuwProductMetHergebruikVanPRNr)
 	{
 	 	Do Gemaakt^PRODUKT2(NewPRNr) 
 	}