Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r51475 -r51915
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 51475)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 51915)
@@ -135,7 +135,8 @@
 	#dim IsGewijzigdProduct As %Boolean = 0
 	#dim IsGewijzigdeNode As %Boolean = 0
 	#dim BestaatSubscript As %Boolean = 0
-	#Dim RecalcProduktNodig as %Boolean = ..DataJ.IsGewijzigd() // check voor gewijzigde leverancier ? -> subscript van de j-node wijzigt dan.
+	#dim IsJNodeGewijzigd As %Boolean = ..DataJ.IsGewijzigd() // Check voor gewijzigde leverancier ? -> subscript van de J-node wijzigt dan => verouderde J-node moet gekilld worden.
+	#Dim RecalcProduktNodig as %Boolean = IsJNodeGewijzigd // Check voor gewijzigde leverancier ? -> subscript van de J-node wijzigt dan => aanmaak nieuwe J-node.
 	
 	#dim NodeIndex As %String
 	For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
@@ -154,6 +155,10 @@
 			Do $method($property($this,"Data"_NodeIndex),"Save")
 		}	
 		Set ^KPR(..ProductNummer, "J") = ""
+		If IsJNodeGewijzigd {
+			Do ..KuisOpVerouderdeJNodes()
+		}
+		
 		Do BLDIND^PRODUKT2(..ProductNummer)
 		
 		if RecalcProduktNodig{
@@ -1154,6 +1159,35 @@
 	Do DLOGMOD^LOG("PR",ProductNummer,BIndex,OudGegeven,NieuwGegeven,,)
 ]]></Implementation>
 </Method>
+
+<Method name="KuisOpVerouderdeJNodes">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim NietOpTeKuisenLeverancierNode As %String = "J"_..DataJ.GeefPiece(1)
+    #dim ProductNummer As %String = ..ProductNummer
+
+    Set LeveranciersNodesIterator = ##class(TECH.ListIterator).%New(..GeefLeveranciersNodes(ProductNummer))
+    While (LeveranciersNodesIterator.HasNext()) {
+        #dim LevNode As %String = LeveranciersNodesIterator.Next()
+        Kill:($$$Not(LevNode = NietOpTeKuisenLeverancierNode)) ^KPR(ProductNummer,LevNode)
+    }
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveranciersNodes">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+    Set LeveranciersNodes = ##class(%ListOfDataTypes).%New()
+    #dim LevNode As %String = "J"
+    For { 
+        Set LevNode = $Order(^KPR(ProductNummer,LevNode))  Quit:(LevNode'?1"J".E)
+        Do LeveranciersNodes.Insert(LevNode)
+    }
+    Quit LeveranciersNodes
+]]></Implementation>
+</Method>
 </Class>