Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r62978 -r64980
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 62978)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 64980)
@@ -1086,15 +1086,27 @@
  Set:(ModPRNr'?4.7N) ModPRNr=""
  If $G(GenPRNr)'?4.7N Do   ; Defaulting
  . Set GenPRNr=..GenerischPRNr()
+
+ 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. 
+	
  ; Fill ^KPR nodes
 	
  If ('ModPRNr) {
 	Do ..BeslagDummiesNietOpnemen()
  }
 
  Lock:(ModPRNr) +^KPR(ModPRNr)
- Do kpcCOPY(GenPRNr,ModPRNr,.NewRec)
- Do:('ModPRNr) kpcCLEAN(GenPRNr,,.NewRec)   ; Alleen bij nieuwe product
+ Do:(ModPRNr)&&(BestaatKprDataVanModPRNr) DELIND^PRODUKT2(ModPRNr)   ; Added by WimV on 01/07/2021 
+ If IsHergebruikVanProductId {
+	Do kpcCOPY(GenPRNr,"",.NewRec)
+	Do kpcCLEAN(GenPRNr,,.NewRec)
+ }
+ Else {
+	Do kpcCOPY(GenPRNr,ModPRNr,.NewRec)
+	Do:('ModPRNr) kpcCLEAN(GenPRNr,,.NewRec)   ; Alleen bij nieuwe product
+ }
  Do kpcFILL(.NewRec,MetPrijs)
  Do kpcSAVE(.NewRec)
  Set NewPRNr=..ProductGetObjectId()