Index: PRODUKT2.mac.rou
===================================================================
diff -u -r33202 -r38176
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 33202)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 38176)
@@ -197,7 +197,7 @@
  Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
 	
 DELETE(PRNr,NoOld) 
- New Key,I,KLNr,Nm,PAKNr,MPRNr,KPRNr
+ New Key,I,KLNr,Nm,PAKNr,MPRNr,KPRNr,Msg,BSNode,KGS,KHS,KSS
  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)
@@ -240,6 +240,7 @@
  ..If $O(^PAKKET("D",PAKNr,""))=$O(^PAKKET("D",PAKNr,""),-1) Set $P(^PAKKET("D",PAKNr),D,3)="E"
  ..If $O(^PAKKET("D",PAKNr,""))="" Kill ^PAKKET("IK",KLNr,$$UPTRIMAN^vhRtn1($P(^PAKKET("D",PAKNr),D,2))),^PAKKET("D",PAKNr)
  ; Verwijder produkt uitzonderingen
+ New NoSa
  For NoSa="N","S" Do
  .Set KLNr="" 
  .For  Set KLNr=$O(^PRPUTZ(NoSa,PRNr,KLNr)) Quit:KLNr=""  Kill ^PRPUTZ("I"_NoSa,KLNr,PRNr)
@@ -955,3 +956,4 @@
 
 
 
+