Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml
===================================================================
diff -u -r70006 -r70007
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml	(.../OpslaanData.cls.xml)	(revision 70006)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml	(.../OpslaanData.cls.xml)	(revision 70007)
@@ -40,6 +40,7 @@
 		
 		Do ..KopieerInstelData()
 		Do ..KopieerMetingData()
+		Do ..ZetBerekendeWaarden()
 		Do ..Data.Save()
 	}
 ]]></Implementation>
@@ -110,6 +111,16 @@
 	Set ..Data.GewenstStelSchroef = ..MetingData.GewenstStelSchroef
 ]]></Implementation>
 </Method>
+
+<Method name="ZetBerekendeWaarden">
+<Implementation><![CDATA[
+	#dim FrontHaakBovenVerschoven As %Numeric = ((..MetingData.MetingFrontHaakBovenAanwezig - ..MetingData.MetingFrontHaakBovenIn) / ..MetingData.MetingFrontHaakBovenAanwezig) * 100
+	#dim FrontHaakOnderVerschoven As %Numeric = ((..MetingData.MetingFrontHaakOnderAanwezig - ..MetingData.MetingFrontHaakOnderIn) / ..MetingData.MetingFrontHaakOnderAanwezig) * 100
+	
+	Set ..Data.MetingFrontHaakBovenVerschoven = FrontHaakBovenVerschoven
+	Set ..Data.MetingFrontHaakOnderVerschoven = FrontHaakOnderVerschoven
+]]></Implementation>
+</Method>
 </Class>