Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/OpdeelzaagUitvoeringInfoAanvuller/VulAan/Test.cls.xml
===================================================================
diff -u -r29059 -r32202
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/OpdeelzaagUitvoeringInfoAanvuller/VulAan/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/OpdeelzaagUitvoeringInfoAanvuller/VulAan/Test.cls.xml	(.../Test.cls.xml)	(revision 32202)
@@ -11,71 +11,93 @@
 <Property name="Overmaat">
 <Type>TECH.Decimal</Type>
 <InitialExpression>0</InitialExpression>
+<Private>1</Private>
 </Property>
 
 <Property name="BreedteInMM">
 <Type>TECH.Decimal</Type>
 <InitialExpression>300</InitialExpression>
+<Private>1</Private>
 </Property>
 
 <Property name="DikteInMM">
 <Type>TECH.Decimal</Type>
 <InitialExpression>5</InitialExpression>
+<Private>1</Private>
 </Property>
 
 <Property name="DiepteInMM">
 <Type>TECH.Decimal</Type>
 <InitialExpression>450</InitialExpression>
+<Private>1</Private>
 </Property>
 
 <Property name="Kleur">
 <Type>DOM.PM.enu.TAORLadeKleur</Type>
 <InitialExpression>##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()</InitialExpression>
+<Private>1</Private>
 </Property>
 
 <Property name="Decor">
 <Type>DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor</Type>
 <InitialExpression>##class(DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor).Fineer()</InitialExpression>
+<Private>1</Private>
 </Property>
 
+<Property name="AantalDelen">
+<Type>TECH.Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	set ..AantalDelen = 1
+]]></Implementation>
+</Method>
+
 <Method name="TestBaliko">
-<Implementation><![CDATA[	Do ..AssertVulAan(##class(DOM.PM.enu.TAORConcept).Baliko(),300)
+<Implementation><![CDATA[	Do ..AssertVulAan(##class(DOM.PM.enu.TAORConcept).Baliko(),300,450)
 ]]></Implementation>
 </Method>
 
 <Method name="TestValinge">
-<Implementation><![CDATA[	Do ..AssertVulAan(##class(DOM.PM.enu.TAORConcept).Valinge(),305)
+<Implementation><![CDATA[
+	Do ..AssertVulAan(##class(DOM.PM.enu.TAORConcept).Valinge(),305,457)
+	
+	Set ..AantalDelen = 2
+	Do ..AssertVulAan(##class(DOM.PM.enu.TAORConcept).Valinge(),305,472.8)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertVulAan">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,VerwachteBreedte:TECH.Numeric</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,VerwachteLengte:TECH.Numeric,VerwachteBreedte:TECH.Numeric</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set OpdeelzaagUitvoeringInfo = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.OpdeelzaagUitvoeringInfo).%New()
 	
 	Set BodemPlaatMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat).%New()
 		Set BodemInfoMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
-		Do BodemInfoMock.VerwachtMethodCall("GeefConcept").DanReturn(Concept)
-	Do BodemPlaatMock.VerwachtMethodCall("GeefBodem").DanReturn(BodemInfoMock)
-	Do BodemPlaatMock.VerwachtMethodCall("GeefKleur").DanReturn(..Kleur)
-	Do BodemPlaatMock.VerwachtMethodCall("GeefDecor").DanReturn(..Decor)
-	Do BodemPlaatMock.VerwachtMethodCall("GeefDikteInMM").DanReturn(..DikteInMM)
-	Do BodemPlaatMock.VerwachtMethodCall("GeefBreedteInMM").DanReturn(..BreedteInMM)
-	Do BodemPlaatMock.VerwachtMethodCall("GeefDiepteInMM").DanReturn(..DiepteInMM)
+		Do BodemInfoMock.IndienMethodCall("GeefConcept").DanReturn(Concept)
+	Do BodemPlaatMock.IndienMethodCall("GeefBodem").DanReturn(BodemInfoMock)
+	Do BodemPlaatMock.IndienMethodCall("GeefKleur").DanReturn(..Kleur)
+	Do BodemPlaatMock.IndienMethodCall("GeefDecor").DanReturn(..Decor)
+	Do BodemPlaatMock.IndienMethodCall("GeefDikteInMM").DanReturn(..DikteInMM)
+	Do BodemPlaatMock.IndienMethodCall("GeefBreedteInMM").DanReturn(..BreedteInMM)
+	Do BodemPlaatMock.IndienMethodCall("GeefDiepteInMM").DanReturn(..DiepteInMM)
+	Do BodemPlaatMock.IndienMethodCall("GeefAantalDelen").DanReturn(..AantalDelen)
 	
 	Set Aanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Bodem.OpdeelzaagOptimalisatieDataAanvuller).%New(BodemPlaatMock)
+	
 	Do Aanvuller.VulAan(.OpdeelzaagUitvoeringInfo)
 	
 	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Aantal,1)
 	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Dikte,..DikteInMM)
-	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Lengte,VerwachteBreedte)
-	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Breedte,(..DiepteInMM + ..Overmaat))
+	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Lengte,VerwachteLengte)
+	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Breedte,VerwachteBreedte)
 	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Kleur,..Kleur)
 	Do $$$AssertEquals(OpdeelzaagUitvoeringInfo.OptimalisatieData.Decor,..Decor)
-	
-	Do BodemInfoMock.Verifieer()
-	Do BodemPlaatMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml
===================================================================
diff -u -r31988 -r32202
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 31988)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 32202)
@@ -133,7 +133,7 @@
 
 <Method name="Test: Lijn 1 - Lengte en breedte voor LadeOnderdeel-platen">
 <Implementation><![CDATA[
-	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(), "505x600")
+	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(), "505x607")
 	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(), "155x600")
 	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(), "505x155")
 	Do ..AssertAfmetingenVoorPlaat(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(), "155x505")