Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r48390 -r48456
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48390)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48456)
@@ -123,6 +123,7 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
 	Do ..Valideer()
 	
 	#dim IsGewijzigdProduct As %Boolean = 0
@@ -133,12 +134,17 @@
 	}
 	/* check voor gewijzigde leverancier ? -> subscript van de j-node wijzigt dan. */
 	
+	#Dim RecalcProduktNodig as %Boolean = ..DataJ.IsGewijzigd()
+	
 	If IsGewijzigdProduct {
 		For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
 			Do $method($property($this,"Data"_NodeIndex),"Save")
 		}	
 		Set ^KPR(..ProductNummer, "J") = ""
 		Do BLDIND^PRODUKT2(..ProductNummer)
+		
+		Do:(RecalcProduktNodig) RECALC^PRODUKT2(..ProductNummer)
+
 		If ..IsNieuwProduct { Do Gemaakt^PRODUKT2(..ProductNummer) } Else { Do Gewijzigd^PRODUKT2(..ProductNummer) }
 		Set ..IsNieuwProduct = $$$False
 	}
@@ -667,6 +673,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKorting">
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..DataJ.GeefPiece(9)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKorting">
+<FormalSpec>Korting:%Numeric</FormalSpec>
+<Implementation><![CDATA[	Do ..DataJ.ZetPiece(9,Korting)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPPL">
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..DataJ.GeefPiece(19)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBarcodeWaarde">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Data2.GeefPiece(14)
@@ -731,6 +755,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetGrootteOrdeAankoop">
+<FormalSpec>GrootteOrde:DOM.PM.enu.GrootteOrde</FormalSpec>
+<Implementation><![CDATA[	Do ..DataJ.ZetPiece(28,GrootteOrde)
+]]></Implementation>
+</Method>
+
 <Method name="ZetKlasId">
 <FormalSpec>KlasId:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..DataI1.ZetPiece(4,KlasId)
@@ -797,6 +827,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetPPL">
+<FormalSpec>PPL:%Numeric</FormalSpec>
+<Implementation><![CDATA[	Do ..DataJ.ZetPiece(19,PPL)
+]]></Implementation>
+</Method>
+
 <Method name="ZetCifPercentage">
 <FormalSpec>CifPercentage:%Numeric</FormalSpec>
 <Implementation><![CDATA[	Do ..DataJ.ZetPiece(21,CifPercentage * 100)