Index: PRODUKT2.mac.rou
===================================================================
diff -u -r38178 -r38179
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 38178)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 38179)
@@ -197,7 +197,7 @@
  Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
 	
 DELETE(PRNr,NoOld) 
- do ##class(DOM.PM.impl.DataM.DataMProductRepository).%New().VerwijderViaID(PRNr,$get(NoOld))
+ do ##class(DOM.PM.impl.DataM.DataMProductRepository).%New().VerwijderViaID(PRNr,'$get(NoOld))
  Quit
  
 DELIND(PRNr,KortT,IdentNr,RecI,RecJ) ; Verwijderen indexen
Index: DOM/PM/impl/DataM/DataMProductRepository.cls.xml
===================================================================
diff -u -r38178 -r38179
--- DOM/PM/impl/DataM/DataMProductRepository.cls.xml	(.../DataMProductRepository.cls.xml)	(revision 38178)
+++ DOM/PM/impl/DataM/DataMProductRepository.cls.xml	(.../DataMProductRepository.cls.xml)	(revision 38179)
@@ -6,14 +6,14 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="VerwijderViaID">
-<FormalSpec>PRNr:%String,NoOld:%Boolean=0</FormalSpec>
+<FormalSpec>PRNr:%String,BewaarHistoriek:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
 
  #dim BSNode,BerekeningsSpecificatie,HoofdingID,I,KGS,KHS,KLNr,KSS,Key,Msg,NoSa,PAKNr,Product,ProductAPI,ProductSpecificatie,Q,rsQuery
  Set Msg=$$DeleteProd^EWPR(PRNr)
  ;Copieren naar OLD
  For I="I","J" Set Key=$O(^KPR(PRNr,I)) Set:$E(Key)=I Key(I)=^KPR(PRNr,Key)
- If $$$Not(NoOld) Do
+ If BewaarHistoriek Do
  . ; Product basis geg
  . For I=0:1:15 Set:$D(^KPR(PRNr,I)) ^KPRO(PRNr,I)=^KPR(PRNr,I)
  . Set:$D(^KPR(PRNr,"G")) ^KPRO(PRNr,"G")=^KPR(PRNr,"G") ; G-node