Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml
===================================================================
diff -u -r69999 -r70005
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 69999)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 70005)
@@ -81,13 +81,37 @@
 	If ($Extract(BarcodeID) '= "Z") {
 		Quit "Geen zijkant"
 	}
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
+	Set InfoID = ""
+	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo WHERE VerwerkingID=:BarcodeID)
+	If (InfoID '= "")
+	{
+		Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
+		Set ..InstellenData = ##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData).%New()
+		
+		Set ..InstellenData.BarcodeID = BarcodeID
+		Set ..InstellenData.Kar = $P(UitvoeringInfo.OptimalisatieData.EtiketLijn2,"KAR ",2)
+		Set ..InstellenData.Kleur = $P(UitvoeringInfo.OptimalisatieData.EtiketLijn1,"/",2)
+		Set ..InstellenData.ProductID = UitvoeringInfo.ProductID
+		Set ..InstellenData.BatchID = UitvoeringInfo.BatchID
+		Set ..InstellenData.KlantID = UitvoeringInfo.PartijID
+		Set ..InstellenData.ToeleveringID = UitvoeringInfo.ToeleveringID
+		Set ..InstellenData.DossierCode = UitvoeringInfo.DossierCode
+		Do ..OphalenKlantInfo()
+		Do ..OphalenProductInfo()
+		Do ..OphalenLaatsteKeer()
+		Do ..OphalenRework()
+	}
+	
+	Quit ..InstellenData
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenKlantInfo">
 <Implementation><![CDATA[
-	Set Klant=##class(Derde.Klant.Klant).%OpenId($P(..InstellenData.KlantID,"||",2))
-	Set ..InstellenData.KlantNaam=Klant.Naam
+	Set Klant = ##class(Derde.Klant.Klant).%OpenId($P(..InstellenData.KlantID,"||",2))
+	Set ..InstellenData.KlantNaam = Klant.Naam
 ]]></Implementation>
 </Method>
 
@@ -108,8 +132,9 @@
 	Set ..InstellenData.HoogteCode = Lade.GeefHoogte()
 	Set ..InstellenData.Hoogte = Zijkant.GeefHoogteInMM() ;( Lade.GeefHoogteInMM()
 	Set ..InstellenData.Diepte = Zijkant.GeefLengteInMM()  ;Lade.GeefDiepteInMM()
-	Set ..InstellenData.AantalHakenCode=..BepaalAantalHaken()
-	Set ..InstellenData.HeeftLaserLogo=''(IngegevenKenmerken.ZijkantLogoID) ; als ID leeg of nul is dan geen log
+	Set ..InstellenData.Dikte = Zijkant.GeefDikteInMM()
+	Set ..InstellenData.AantalHakenCode = ..BepaalAantalHaken()
+	Set ..InstellenData.HeeftLaserLogo = ''(IngegevenKenmerken.ZijkantLogoID) ; als ID leeg of nul is dan geen log
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml
===================================================================
diff -u -r69999 -r70005
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml	(.../OpslaanData.cls.xml)	(revision 69999)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml	(.../OpslaanData.cls.xml)	(revision 70005)
@@ -17,9 +17,13 @@
 </Property>
 
 <Property name="Meting">
-<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.Data</Type>
+<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Metingen</Type>
 </Property>
 
+<Property name="Data">
+<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Data</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Werkpost:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -31,9 +35,91 @@
 
 <Method name="OpslaanMetingData">
 <FormalSpec>Data:APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.Data</FormalSpec>
-<Implementation><![CDATA[	Set ..MetingData = Data
+<Implementation><![CDATA[
+	Set ..MetingData = Data
+	Set ..InstellenData = ##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New(..Werkpost).OphalenData(..MetingData.BarcodeID)
+	If $IsObject(..InstellenData)
+	{
+		Set ..MetingData = ##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Data).%New()
+		
+		Do ..KopieerInstelData()
+		Do ..CopierenMetingData()
+		Do ..CopierenInstelData()
+		Do ..Meting.Save()
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="KopieerInstelData">
+<Implementation><![CDATA[
+	Set ..Data.AServerBarcodeID = ..InstellenData.BarcodeID
+	Set ..Data.AServerBatchID = ..InstellenData.BatchID
+	Set ..Data.AServerKlantID = ..InstellenData.KlantID
+	Set ..Data.AServerKlantNaam = ..InstellenData.KlantNaam
+	Set ..Data.AServerProductID = ..InstellenData.ProductID
+	Set ..Data.AServerAantalKeerGetest = ..InstellenData.AantalKeerGetest
+	Set ..Data.AServerOpmerking = ..InstellenData.Opmerking
+	Set ..Data.AServerTijdstipTest = $$$CurrentTimeStamp
+	
+	Set ..Data.GewenstHoogteCode = ..InstellenData.HoogteCode
+	Set ..Data.GewenstDiepte = ..InstellenData.Diepte
+	Set ..Data.GewenstDikte = ..InstellenData.Dikte
+	Set ..Data.GewenstHoogte = ..InstellenData.Hoogte
+	Set ..Data.GewenstLinksRechts = ..InstellenData.Rol
+	Set ..Data.GewenstVB = ..InstellenData.ValingeOfBalikoRug
+]]></Implementation>
+</Method>
+
+<Method name="CopierenMetingData">
+<Implementation><![CDATA[
+	Set ..Meting.MetingDiepte = ..MetingData.Diepte
+	Set ..Meting.FoutDiepte = ..MetingData.DiepteFout
+	Set ..Meting.MetingHoogteCode = ..MetingData.HoogteCode
+	Set ..Meting.MetingHoogteVoor = ..MetingData.HoogteVoor
+	Set ..Meting.MetingHoogteAchter = ..MetingData.HoogteAchter
+	Set ..Meting.FoutHoogteVoor = ..MetingData.HoogteVoorFout
+	Set ..Meting.FoutHoogteAchter = ..MetingData.HoogteAchterFout
+	Set ..Meting.MetingDikte = ..MetingData.Dikte
+	Set ..Meting.FoutDikte = ..MetingData.DikteFout
+	Set ..Meting.MetingFrontHaakOnderIn = ..MetingData.FrontHaakOnderIn
+	Set ..Meting.MetingFrontHaakOnderuit = ..MetingData.FrontHaakOnderuit
+	Set ..Meting.FoutFrontHaakOnderLP = ..MetingData.FrontHaakOnderLPFout
+	Set ..Meting.FoutFrontHaakOnderHP = ..MetingData.FrontHaakOnderHPFout
+	Set ..Meting.MetingFrontHaakBovenIn = ..MetingData.FrontHaakBovenIn
+	Set ..Meting.MetingFrontHaakBovenUit = ..MetingData.FrontHaakBovenUit
+	Set ..Meting.FoutFrontHaakBovenLP = ..MetingData.FrontHaakBovenLPfout
+	Set ..Meting.FoutFrontHaakBovenHP = ..MetingData.FrontHaakBovenHPfout
+	Set ..Meting.FoutFraxinusGatFout = ..MetingData.FraxinusGatFout
+	Set ..Meting.FrontHaakOnderGewenst = ..MetingData.FrontHaakOnderGewenst
+	Set ..Meting.FrontHaakOnderTol = ..MetingData.FrontHaakOnderTol
+	Set ..Meting.FrontHaakOnderInTol = ..MetingData.FrontHaakOnderInTol
+	Set ..Meting.FrontHaakBovenGewenst = ..MetingData.FrontHaakBovenGewenst
+	Set ..Meting.FrontHaakBovenTol = ..MetingData.FrontHaakBovenTol
+	Set ..Meting.FrontHaakBovenInTol = ..MetingData.FrontHaakBovenInTol
+	Set ..Meting.FrontHaakStelSchroefGewenst = ..MetingData.FrontHaakStelSchroefGewenst
+	Set ..Meting.FrontHaakStelSchroef = ..MetingData.FrontHaakStelSchroef
+	Set ..Meting.FrontHaakStelSchroefTol = ..MetingData.FrontHaakStelSchroefTol
+	Set ..Meting.FrontHaakStelSchroefFout = ..MetingData.FrontHaakStelSchroefFout
+	
+	#dim FrontHaakBovenVerschoven As %Numeric = ((..MetingData.FrontHaakBovenUit - ..MetingData.FrontHaakBovenIn) / ..MetingData.FrontHaakBovenUit) * 100
+	#dim FrontHaakOnderVerschoven As %Numeric = ((..MetingData.FrontHaakOnderuit - ..MetingData.FrontHaakOnderIn) / ..MetingData.FrontHaakOnderuit) * 100
+	
+	Set ..Meting.FrontHaakBovenVerschoven = FrontHaakBovenVerschoven
+	Set ..Meting.FrontHaakOnderVerschoven = FrontHaakOnderVerschoven
+]]></Implementation>
+</Method>
+
+<Method name="CopierenInstelData">
+<Implementation><![CDATA[
+	Set ..Meting.InstelPlankDikte = ..MetingData.InstelPlankDikte
+	Set ..Meting.InstelDieptePos = ..MetingData.InstelDieptePos
+	Set ..Meting.InstelDiepteNeg = ..MetingData.InstelDiepteNeg
+	Set ..Meting.InstelHoogtePos = ..MetingData.InstelHoogtePos
+	Set ..Meting.InstelHoogteNeg = ..MetingData.InstelHoogteNeg
+	Set ..Meting.InstelDiktePos = ..MetingData.InstelDiktePos
+	Set ..Meting.InstelDikteNeg = ..MetingData.InstelDikteNeg
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml
===================================================================
diff -u -r58984 -r70005
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(.../InstellenData.cls.xml)	(revision 58984)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(.../InstellenData.cls.xml)	(revision 70005)
@@ -27,13 +27,15 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Dikte">
+<Type>%Decimal</Type>
+</Property>
+
 <Property name="Diepte">
 <Type>%Decimal</Type>
 </Property>
 
 <Property name="HoogteCode">
-<Description>
-N, M, K, C, F</Description>
 <Type>%String</Type>
 </Property>
 
@@ -79,10 +81,8 @@
 </Property>
 
 <Property name="ValingeOfBalikoRug">
-<Description>
-V of B</Description>
 <Type>%String</Type>
-<Parameter name="VALUELIST" value=";V;B"/>
+<Parameter name="VALUELIST" value=";V;B;VB"/>
 </Property>
 
 <Property name="TijdstipLaatsteTest">