Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml
===================================================================
diff -u -r32273 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 32273)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -12,8 +12,8 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	
-	Set ..LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+
+	Set ..LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml
===================================================================
diff -u -r31022 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 31022)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 32363)
@@ -63,7 +63,7 @@
 	Do Lijn.ZetTotaalPrijs("Niet Te Gebruiken TotaalPrijs")
 	Do Lijn.ZetEindklantEenheidPrijsNettoExclBTW("Te Gebruiken EenheidsPrijs Eindklant")
 	Do Lijn.ZetEindklantTotaalPrijs("Te Gebruiken TotaalPrijs Eindklant")
-	Do Lijn.ZetIngegevenKenmerken(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1))
+	Do Lijn.ZetIngegevenKenmerken(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade())
 	
 	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
 	Set WinkelkarDto.Lijnen = ##class(%ListOfObjects).%New()
@@ -89,7 +89,7 @@
 	Do Lijn.ZetTotaalPrijs("Niet Te Gebruiken TotaalPrijs")
 	Do Lijn.ZetEindklantEenheidPrijsNettoExclBTW("Te Gebruiken EenheidsPrijs Eindklant")
 	Do Lijn.ZetEindklantTotaalPrijs("Te Gebruiken TotaalPrijs Eindklant")
-	Do Lijn.ZetIngegevenKenmerken(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1))
+	Do Lijn.ZetIngegevenKenmerken(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade())
 	
 	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
 	Set WinkelkarDto.Lijnen = ##class(%ListOfObjects).%New()
Index: vhUnitTest/DOM/PM/impl/DataM/GekoppeldeIngegevenKenmerkenLangtekstBepaler/GeefGekoppeldeIngegevenKenmerkenLangtekst/TestLBX.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/PM/impl/DataM/GekoppeldeIngegevenKenmerkenLangtekstBepaler/GeefGekoppeldeIngegevenKenmerkenLangtekst/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/impl/DataM/GekoppeldeIngegevenKenmerkenLangtekstBepaler/GeefGekoppeldeIngegevenKenmerkenLangtekst/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
@@ -6,17 +6,15 @@
 <Method name="Test">
 <Implementation><![CDATA[
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Nog niet geïmplementeerd.")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException",Substrings))
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException", Substrings))
 	#dim DeelLangtekst As %String = ..GeefDeelLangtekst()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGekoppeldKenmerk">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	set Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	quit Kenmerken
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefOpmerking.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefOpmerking.cls.xml	(.../TestGeefOpmerking.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefOpmerking.cls.xml	(.../TestGeefOpmerking.cls.xml)	(revision 32363)
@@ -1,25 +1,27 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.TestGeefOpmerking">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Method name="TestNietBinnenlade">
 <Implementation><![CDATA[
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
-	Set IK.IsBinnenlade = 0
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Do $$$AssertFalse(Utils.GeefOpmerking(IK)["FRONT","Geen 'FRONT' in opmerking.")
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
+	Set LBXKenmerken.IsBinnenlade = 0	
+	
+	Do $$$AssertFalse((..Utils.GeefOpmerking(LBXKenmerken) [ "FRONT"), "Geen 'FRONT' in opmerking.")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenlade">
 <Implementation><![CDATA[
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
-	Set IK.IsBinnenlade = 1
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Do $$$AssertContains(Utils.GeefOpmerking(IK),"FRONT","'FRONT' in opmerking.")
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
+	Set LBXKenmerken.IsBinnenlade = 1	
+	
+	Do $$$AssertContains(..Utils.GeefOpmerking(LBXKenmerken), "FRONT", "'FRONT' in opmerking.")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml	(.../TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml	(.../TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml)	(revision 32363)
@@ -7,32 +7,36 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IKVPK1 As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IKVPK1.VerpakkingType = VerpakkingType
-	#dim LegraboxVPK1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do LegraboxVPK1.ZetIngegevenKenmerken(IKVPK1)
-	Do LegraboxVPK1.ZetAantal(Aantal)
-	Do Winkelkar.VoegToe(LegraboxVPK1)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken() 
+	
+	Set TAORKenmerken.VerpakkingType = VerpakkingType
+	
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeLegraboxLadenInWinkelkar">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IKVPK1 As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IKVPK1.VerpakkingType = VerpakkingType
-	#dim LegraboxVPK1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do LegraboxVPK1.ZetIngegevenKenmerken(IKVPK1)
-	Do LegraboxVPK1.ZetAantal(Aantal)
-	Do Winkelkar.VoegToe(LegraboxVPK1)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(..GeefLBXKenmerken(VerpakkingType))
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="TestTweeKeerTeWeinigAantal">
 <Implementation><![CDATA[
-	#Dim Exception As TECH.String = "ControleerTweeKeerTeWeinigAantal"
-	#Dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk."
+	#dim Exception As TECH.String = "ControleerTweeKeerTeWeinigAantal"
+	#dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk."
 	
 	Do ..AssertInvalidUserInputException(Exception, Omschrijving)
 ]]></Implementation>
@@ -45,8 +49,8 @@
 
 <Method name="TestGenoegAantalEnTeWeinigAantal">
 <Implementation><![CDATA[
-	#Dim Exception As TECH.String = "ControleerGenoegAantalEnTeWeinigAantal"
-	#Dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk."
+	#dim Exception As TECH.String = "ControleerGenoegAantalEnTeWeinigAantal"
+	#dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk."
 	
 	Do ..AssertInvalidUserInputException(Exception, Omschrijving)
 ]]></Implementation>
@@ -58,7 +62,8 @@
 <Implementation><![CDATA[
 	#dim AantalTaorboxMetProbox As %Integer = 4
 	#dim AantalLegraboxMetProbox As %Integer = 4
-	Quit ..Controleer(AantalTaorboxMetProbox,AantalLegraboxMetProbox)
+	
+	Quit ..Controleer(AantalTaorboxMetProbox, AantalLegraboxMetProbox)
 ]]></Implementation>
 </Method>
 
@@ -68,7 +73,8 @@
 <Implementation><![CDATA[
 	#dim AantalTaorboxMetProbox As %Integer = 8
 	#dim AantalLegraboxMetProbox As %Integer = 6
-	Quit ..Controleer(AantalTaorboxMetProbox,AantalLegraboxMetProbox)
+	
+	Quit ..Controleer(AantalTaorboxMetProbox, AantalLegraboxMetProbox)
 ]]></Implementation>
 </Method>
 
@@ -78,7 +84,8 @@
 <Implementation><![CDATA[
 	#dim AantalTaorboxMetProbox As %Integer = 8
 	#dim AantalLegraboxMetProbox As %Integer = 2
-	Quit ..Controleer(AantalTaorboxMetProbox,AantalLegraboxMetProbox)
+	
+	Quit ..Controleer(AantalTaorboxMetProbox, AantalLegraboxMetProbox)
 ]]></Implementation>
 </Method>
 
@@ -87,10 +94,12 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..GeefWinkelkarMetEenVerpakkingType(##class(DOM.PM.enu.TAORVerpakkingType).Probox(),AantalTaorboxMetProbox)
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..GeefWinkelkarMetEenVerpakkingType(##class(DOM.PM.enu.TAORVerpakkingType).Probox(), AantalTaorboxMetProbox)
+	
 	Do Winkelkar.ZetKlantID("UTKlantID")
 	Do ..VoegToeLegraboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.LBXVerpakkingType).Probox(),AantalLegraboxMetProbox)
 	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
+	
 	Quit 1
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftOnderdelenDoos/TestLBX.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftOnderdelenDoos/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftOnderdelenDoos/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
@@ -71,8 +71,10 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
 	Set LBXKenmerken.VerpakkingType = VerpakkingType	
+	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
@@ -82,12 +84,14 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
 	Do:Geleider HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider()))
 	Do:Zijstab HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering()))
 	Do:TiponStang HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang()))
 	Do:TiponSet HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet()))
 	Do:Opvullijst HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst()))
+	
 	Quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefAantalBoringen.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefAantalBoringen.cls.xml	(.../TestGeefAantalBoringen.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefAantalBoringen.cls.xml	(.../TestGeefAantalBoringen.cls.xml)	(revision 32363)
@@ -1,81 +1,65 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.TestGeefAantalBoringen">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Method name="TestHoutenRugGeenBoring">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),300),0)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 300), 0)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugEenBoring">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),520),1)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 520), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugTweeBoringen">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),750),2)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 750), 2)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugRandgeval1">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),400),0)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 400), 0)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugRandgeval2">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),401),1)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 401), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugRandgeval3">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),700),1)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 700), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugRandgeval4">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(),701),2)
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 701), 2)
 ]]></Implementation>
 </Method>
 
 <Method name="TestStaalKlein">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(),300),0,"Nooit boring voor stalen rug.")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(), 300), 0, "Nooit boring voor stalen rug.")
 ]]></Implementation>
 </Method>
 
 <Method name="TestStaalGroot">
-<Implementation><![CDATA[
-	
-	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(),7500),0,"Nooit boring voor stalen rug.")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefAantalBoringen(##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(), 7500), 0, "Nooit boring voor stalen rug.")
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAantalBoringen">
 <FormalSpec>RugWandMateriaal:DOM.PM.enu.LBXRugWandMateriaal,InterneBreedte:%Float</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = RugWandMateriaal
-	Set IK.InterneBreedte = InterneBreedte
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()
-	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(IK)
-	Quit Utils.GeefAantalBoringen(IK, ItemsBoom)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.RugWandMateriaal = RugWandMateriaal
+	Set LBXKenmerken.InterneBreedte = InterneBreedte
+	
+	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(LBXKenmerken)	
+
+	Quit ..Utils.GeefAantalBoringen(LBXKenmerken, ItemsBoom)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/LBX/Test.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -10,7 +10,7 @@
 
 <Method name="Test:LBXKenmerken">
 <Implementation><![CDATA[
-	set ..Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	set ..Kenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart()
 	set ..Kenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
 	
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Legrabox/GeefDefaults/Test002.cls.xml
===================================================================
diff -u -r31568 -r32363
--- vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Legrabox/GeefDefaults/Test002.cls.xml	(.../Test002.cls.xml)	(revision 31568)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Legrabox/GeefDefaults/Test002.cls.xml	(.../Test002.cls.xml)	(revision 32363)
@@ -76,14 +76,16 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set Kenmerken.LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set Kenmerken.BodemKleur=##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart()   ; Bewust andere kleur gekozen dan de DefaultsViaProductProgramma 
-	Set Kenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set Kenmerken.InterneBreedte=600
-	Set Kenmerken.GUIKenmerken.WandDikte=16
-	Set Kenmerken.GUIKenmerken.IsBinnenbreedte=0
-	Set Kenmerken.RugWandMateriaal=##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set Kenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
+	Set Kenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart()   ; Bewust andere kleur gekozen dan de DefaultsViaProductProgramma 
+	Set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set Kenmerken.InterneBreedte = 600
+	Set Kenmerken.GUIKenmerken.WandDikte = 16
+	Set Kenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
+	Set Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	
 	Quit Kenmerken
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/TestSFSLegrabox.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/TestSFSLegrabox.cls.xml	(.../TestSFSLegrabox.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/TestSFSLegrabox.cls.xml	(.../TestSFSLegrabox.cls.xml)	(revision 32363)
@@ -14,17 +14,22 @@
 
 <Method name="TestPrijsFactorMetGeleiders">
 <Implementation><![CDATA[
-	#dim InclusiefGeleiders As %Boolean = 1
-	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(InclusiefGeleiders))
-	Do $$$AssertEquals(EindklantEenheidPrijs,12*..#EenheidPrijs,"Factor 12 voor Legrabox met Geleiders.")
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(LBXKenmerken)
+	
+	Do $$$AssertEquals(EindklantEenheidPrijs, 12 * ..#EenheidPrijs, "Factor 12 voor Legrabox met Geleiders.")
 ]]></Implementation>
 </Method>
 
 <Method name="TestPrijsFactorZonderGeleiders">
 <Implementation><![CDATA[
-	#dim InclusiefGeleiders As %Boolean = 0
-	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(InclusiefGeleiders))
-	Do $$$AssertEquals(EindklantEenheidPrijs,13*..#EenheidPrijs,"Factor 13 voor Legrabox zonder Geleiders.")
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())	
+	
+	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(LBXKenmerken)
+	
+	Do $$$AssertEquals(EindklantEenheidPrijs, 13 * ..#EenheidPrijs, "Factor 13 voor Legrabox zonder Geleiders.")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemMetIngekorteZijstabil.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemMetIngekorteZijstabil.cls.xml	(.../TestItemMetIngekorteZijstabil.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemMetIngekorteZijstabil.cls.xml	(.../TestItemMetIngekorteZijstabil.cls.xml)	(revision 32363)
@@ -7,17 +7,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1)
-	Set IngegevenKenmerken.HeeftZijstabilisering=1
-	Set IngegevenKenmerken.InterneBreedte=300
-	Quit IngegevenKenmerken
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.HeeftZijstabilisering = $$$True
+	Set LBXKenmerken.InterneBreedte = 300
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>Aantal:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do $$$AssertEquals(Aantal,1)
+<Implementation><![CDATA[	Do $$$AssertEquals(Aantal, 1)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemIsBinnenlade.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemIsBinnenlade.cls.xml	(.../TestItemIsBinnenlade.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemIsBinnenlade.cls.xml	(.../TestItemIsBinnenlade.cls.xml)	(revision 32363)
@@ -6,17 +6,14 @@
 <Method name="GeefIngegevenKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1)
-	Set IngegevenKenmerken.IsBinnenlade = 1
-	Quit IngegevenKenmerken
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>Aantal:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do $$$AssertEquals(Aantal,1)
+<Implementation><![CDATA[	Do $$$AssertEquals(Aantal, 1)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestLBXPrijzen.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestLBXPrijzen.cls.xml	(.../TestLBXPrijzen.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestLBXPrijzen.cls.xml	(.../TestLBXPrijzen.cls.xml)	(revision 32363)
@@ -195,32 +195,17 @@
 <Method name="TestWillekeurigeLadeDieWeEensUitAdminGepluktHebben">
 <Implementation><![CDATA[
 	// ProductID 929629
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set IngegevenKenmerken.BodemKleur = "DG"
-	set IngegevenKenmerken.Draagkracht = "70"
-	set IngegevenKenmerken.FrontBevestiging = "E"
-	set IngegevenKenmerken.GeleiderTechnologie = "B"
-	set IngegevenKenmerken.HeeftDiepteVerstelling = ""
-	set IngegevenKenmerken.HeeftOpvullijstLinks = "0"
-	set IngegevenKenmerken.HeeftOpvullijstRechts = "0"
-	set IngegevenKenmerken.HeeftZijstabilisering = "0"
-	set IngegevenKenmerken.InterneBreedte = "964"
-	set IngegevenKenmerken.IsBinnenlade = "0"
-	set IngegevenKenmerken.LadeDiepte = "600"
-	set IngegevenKenmerken.LadeHoogte = "C"
-	set IngegevenKenmerken.LadeKleur = "OG-M"
-	set IngegevenKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set IngegevenKenmerken.OpvullijstKleur = ""
-	set IngegevenKenmerken.ProductieWijze = ""
-	set IngegevenKenmerken.RugHoogte = "C"
-	set IngegevenKenmerken.RugWandMateriaal = "Hout"
-	set IngegevenKenmerken.VerpakkingType = "Probox"
-	set IngegevenKenmerken.VoorWandType = "Vulling"
-	set IngegevenKenmerken.VoorWandVerhogingHoogte = "Laag"
-	set IngegevenKenmerken.VoorWandVerhogingMateriaal = "DIA10"
-	set IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Set IngegevenKenmerken.AantalDwarsverdelingen = 0
-	Do ..AssertBestanden(IngegevenKenmerken)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht70()
+	Set LBXKenmerken.InterneBreedte = 964
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte600()
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	
+	Do ..AssertBestanden(LBXKenmerken)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/Base.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/Base.cls.xml	(.../Base.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/Base.cls.xml	(.../Base.cls.xml)	(revision 32363)
@@ -11,11 +11,13 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Quit IngegevenKenmerken
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestBase.cls.xml
===================================================================
diff -u -r31253 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 31253)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32363)
@@ -7,37 +7,51 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestCase)
+	Do ##super(aTestCase)
+	
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
 ]]></Implementation>
 </Method>
 
 <Method name="TestControleerWinkelkarTweeVerpakkingTypes">
 <Implementation><![CDATA[
-	#Dim Exception As TECH.String = "ControleerWinkelkarTweeVerpakkingTypes"
-	#Dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Het is niet mogelijk om verschillende types verpakking te combineren in één bestelling."
+	#dim Exception As TECH.String = "ControleerWinkelkarTweeVerpakkingTypes"
+	#dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Het is niet mogelijk om verschillende types verpakking te combineren in één bestelling."
 	
 	Do ..AssertInvalidUserInputException(Exception, Omschrijving)
 ]]></Implementation>
 </Method>
 
 <Method name="TestControleerWinkelkarVerpakkingTypeProboxNietGerechtigd">
 <Implementation><![CDATA[
-	#Dim Exception As TECH.String = "ControleerWinkelkarVerpakkingTypeProboxNietGerechtigd"
-	#Dim Omschrijving As TECH.String = "De winkelkar is niet besteld. U kan verpakkingtype 'Probox' niet gebruiken."
+	#dim Exception As TECH.String = "ControleerWinkelkarVerpakkingTypeProboxNietGerechtigd"
+	#dim Omschrijving As TECH.String = "De winkelkar is niet besteld. U kan verpakkingtype 'Probox' niet gebruiken."
 	
 	Do ..AssertInvalidUserInputException(Exception, Omschrijving)
 ]]></Implementation>
 </Method>
 
 <Method name="TestControleerWinkelkarVerpakkingTypeProboxTeWeinigAantal">
 <Implementation><![CDATA[
-	#Dim Exception As TECH.String = "ControleerWinkelkarVerpakkingTypeProboxTeWeinigAantal"
-	#Dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk."
+	#dim Exception As TECH.String = "ControleerWinkelkarVerpakkingTypeProboxTeWeinigAantal"
+	#dim Omschrijving As TECH.String = "De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk."
 	
 	Do ..AssertInvalidUserInputException(Exception, Omschrijving)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLBXKenmerken">
+<FormalSpec>VerpakkingType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.VerpakkingType = VerpakkingType
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHFTiponSynchronisatieSetv000.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHFTiponSynchronisatieSetv000.cls.xml	(.../TestHFTiponSynchronisatieSetv000.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHFTiponSynchronisatieSetv000.cls.xml	(.../TestHFTiponSynchronisatieSetv000.cls.xml)	(revision 32363)
@@ -8,13 +8,12 @@
 <Method name="TestTiponSynchronisatieSet">
 <Implementation><![CDATA[
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	Set IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	
 	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefSynchroStang(Context))
 	
-	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000).%New("")
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HFBuilder As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000).%New("")
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(LBXKenmerken, Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem))
 	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"))
@@ -28,19 +27,18 @@
 <Method name="TestZonderTiponSynchronisatieSet">
 <Implementation><![CDATA[
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
-	
-	Set IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 
-	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000).%New("")
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HFBuilder As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000).%New("")
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(LBXKenmerken, Context)
 	
 	Do $$$AssertFalse($IsObject(HalffabItem))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSynchroStang">
 <FormalSpec>Context:vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context,##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang(),##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(1000))
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang(), ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(1000))
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/GeefMaximumBreedte/LBX/Test.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/GeefMaximumBreedte/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/GeefMaximumBreedte/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -12,57 +12,64 @@
 
 <Method name="ZetLegeIngegevenKenmerken">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+<Implementation><![CDATA[	Set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeMetHoutenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	set ..Kenmerken.IsBinnenlade = 0
+	Set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set ..Kenmerken.IsBinnenlade = $$$False
+	
 	Do ..AssertMaximumBreedte(1430)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenLadeMetHoutenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	set ..Kenmerken.IsBinnenlade = 1
+	Set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set ..Kenmerken.IsBinnenlade = $$$True
+	
 	Do ..AssertMaximumBreedte(1168)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeMetStalenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	
 	Do ..AssertMaximumBreedte(1168)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenladeMetStalenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.IsBinnenlade = 1
+	Set ..Kenmerken.IsBinnenlade = $$$True
+	
 	Do ..AssertMaximumBreedte(1168)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeZonderRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.IsBinnenlade = 0
+	Set ..Kenmerken.IsBinnenlade = $$$False
+	
 	Do ..AssertMaximumBreedte(1430)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeMetDwarsverdeling">
 <Implementation><![CDATA[
-	set ..Kenmerken.GUIKenmerken.HeeftDwarsverdeling = $$$True
+	Set ..Kenmerken.GUIKenmerken.HeeftDwarsverdeling = $$$True
+	
 	Do ..AssertMaximumBreedte(1168)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLLadeZonderDwarsverdeling">
 <Implementation><![CDATA[
-	set ..Kenmerken.GUIKenmerken.HeeftDwarsverdeling = $$$False
+	Set ..Kenmerken.GUIKenmerken.HeeftDwarsverdeling = $$$False
+	
 	Do ..AssertMaximumBreedte(1430)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestLBX.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/AfbeeldingService/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
@@ -8,14 +8,16 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim InclusiefGeleiders As %Boolean = 1
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(InclusiefGeleiders)
-	Set IngegevenKenmerken.IsBinnenlade = IsBinnenlade
-	If IsBinnenlade {
-		Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-		Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
+	Set LBXKenmerken.IsBinnenlade = IsBinnenlade
+	
+	If (IsBinnenlade) {
+		Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+		Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
 	}
-	Quit IngegevenKenmerken
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestLegrabox.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 32363)
@@ -7,12 +7,12 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IKVPK1 As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IKVPK1.VerpakkingType = VerpakkingType
-	#dim LegraboxVPK1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do LegraboxVPK1.ZetIngegevenKenmerken(IKVPK1)
-	Do LegraboxVPK1.ZetAantal(Aantal)
-	Do Winkelkar.VoegToe(LegraboxVPK1)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(..GeefLBXKenmerken(VerpakkingType))
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHFInschuifElementVoorv000.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHFInschuifElementVoorv000.cls.xml	(.../TestHFInschuifElementVoorv000.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHFInschuifElementVoorv000.cls.xml	(.../TestHFInschuifElementVoorv000.cls.xml)	(revision 32363)
@@ -87,44 +87,44 @@
 <Implementation><![CDATA[
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
-	Set IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IngegevenKenmerken.IsBinnenlade = 1
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-	Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
-	Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-	Set IngegevenKenmerken.InterneBreedte = 261
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set LBXKenmerken.IsBinnenlade = $$$True
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.InterneBreedte = 261
 	
-	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFInschuifElementVoorv000).%New("")
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HFBuilder As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFInschuifElementVoorv000 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFInschuifElementVoorv000).%New("")
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(LBXKenmerken, Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem))
 	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"))
-	Do $$$AssertTrue($IsObject(HalffabItem.GeefHalffab()),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HalffabItem.GeefHalffab().GeefProductID(),1001)
-	Do $$$AssertEquals($P(HalffabItem.BewerkingDimensiesToString(),"="),##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Do $$$AssertTrue($IsObject(HalffabItem.GeefHalffab()), "HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.GeefHalffab().GeefProductID(), 1001)
+	Do $$$AssertEquals($P(HalffabItem.BewerkingDimensiesToString(), "="),##class(DOM.PM.enu.BewerkingDimensie).Lengte())
 ]]></Implementation>
 </Method>
 
 <Method name="TestInschuifElementVoorStandaard">
 <Implementation><![CDATA[
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
-	Set IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IngegevenKenmerken.IsBinnenlade = 1
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-	Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
-	Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-	Set IngegevenKenmerken.InterneBreedte = 262
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set LBXKenmerken.IsBinnenlade = $$$True
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.InterneBreedte = 262
 	
-	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFInschuifElementVoorv000).%New("")
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HFBuilder As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFInschuifElementVoorv000 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFInschuifElementVoorv000).%New("")
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(LBXKenmerken, Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem))
 	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"))
-	Do $$$AssertTrue($IsObject(HalffabItem.GeefHalffab()),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HalffabItem.GeefHalffab().GeefProductID(),1000)
+	Do $$$AssertTrue($IsObject(HalffabItem.GeefHalffab()), "HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.GeefHalffab().GeefProductID(), 1000)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/TestVHLegrabox.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/TestVHLegrabox.cls.xml	(.../TestVHLegrabox.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/TestVHLegrabox.cls.xml	(.../TestVHLegrabox.cls.xml)	(revision 32363)
@@ -1,31 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.TestVHLegrabox">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.TestSFSLegrabox")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.BasisTest</Super>
 
 <Method name="TestEindklantEenheidPrijs">
 <Implementation><![CDATA[
 	#dim EindklantEenheidPrijs As  %Decimal = ..GeefEindklantEenheidPrijs(..GeefIngegevenKenmerken())
-	Do $$$AssertEquals(EindklantEenheidPrijs,..EenheidPrijs,"Prijzen zijn gelijk, geen factor voor VH")
+	
+	Do $$$AssertEquals(EindklantEenheidPrijs, ..EenheidPrijs, "Prijzen zijn gelijk, geen factor voor VH")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenPrijsFactorBepaler">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set PrijsFactorBepaler=##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.GeenPrijsFactorBepaler).%New()
-	Do $$$AssertEquals(PrijsFactorBepaler.GeefPrijsFactor(IngegevenKenmerken),1)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	#dim PrijsFactorBepaler As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.GeenPrijsFactorBepaler= ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.GeenPrijsFactorBepaler).%New()
+	
+	Do $$$AssertEquals(PrijsFactorBepaler.GeefPrijsFactor(IngegevenKenmerken), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIngegevenKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1)
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieInformatie/Utils/TestGeefVerpakkingInfo.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieInformatie/Utils/TestGeefVerpakkingInfo.cls.xml	(.../TestGeefVerpakkingInfo.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieInformatie/Utils/TestGeefVerpakkingInfo.cls.xml	(.../TestGeefVerpakkingInfo.cls.xml)	(revision 32363)
@@ -1,20 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieInformatie.Utils.TestGeefVerpakkingInfo">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Method name="TestStuk">
-<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).V1()),"Stuk")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).V1()), "Stuk")
 ]]></Implementation>
 </Method>
 
 <Method name="TestKast">
-<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).VHoss()),"Kast")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).VHoss()), "Kast")
 ]]></Implementation>
 </Method>
 
 <Method name="TestProbox">
-<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).Probox()),"Probox")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).Probox()), "Probox")
 ]]></Implementation>
 </Method>
 
@@ -23,10 +23,11 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.VerpakkingType = VerpakkingType
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Quit Utils.GeefVerpakkingType(IK)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.VerpakkingType = VerpakkingType	
+	
+	Quit ..Utils.GeefVerpakkingType(LBXKenmerken)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 32363)
@@ -7,11 +7,15 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IKVPK1 As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IKVPK1.VerpakkingType = VerpakkingType
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.VerpakkingType = VerpakkingType
+	
 	#dim LegraboxVPK1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do LegraboxVPK1.ZetIngegevenKenmerken(IKVPK1)
+	
+	Do LegraboxVPK1.ZetIngegevenKenmerken(LBXKenmerken)
 	Do LegraboxVPK1.ZetAantal(Aantal)
+	
 	Do Winkelkar.VoegToe(LegraboxVPK1)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseLBXv01.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseLBXv01.cls.xml	(.../BaseLBXv01.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseLBXv01.cls.xml	(.../BaseLBXv01.cls.xml)	(revision 32363)
@@ -8,43 +8,38 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
 	
-	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
 	Set LBXKenmerken.InterneBreedte = 580
-	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
 	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
 	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
-	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
 	Set LBXKenmerken.GUIKenmerken.WandDikte = 10
-	Set LBXKenmerken.HeeftDiepteVerstelling = 1
-	Set LBXKenmerken.HeeftOpvullijstLinks = 1
-	Set LBXKenmerken.HeeftOpvullijstRechts = 1
-	Set LBXKenmerken.HeeftZijstabilisering = 1
-	Set LBXKenmerken.IsBinnenlade = 1
+	Set LBXKenmerken.HeeftDiepteVerstelling = $$$True
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$True
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$True
+	Set LBXKenmerken.HeeftZijstabilisering = $$$True
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270()
 	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
 	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
 	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
 	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
 	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
 	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).N()
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Set LBXKenmerken.AantalDwarsverdelingen = 0
+
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLBXSpoelbakKenmerken">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set LBXSpoelbakKenmerken = 	##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	#dim LBXSpoelbakKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	
 	Set LBXSpoelbakKenmerken.UitsparingBreedte1 = 100
 	Set LBXSpoelbakKenmerken.UitsparingPositie1 = 200
+	
 	Quit LBXSpoelbakKenmerken
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarDataTransferObject/Base.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarDataTransferObject/Base.cls.xml	(.../Base.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarDataTransferObject/Base.cls.xml	(.../Base.cls.xml)	(revision 32363)
@@ -16,8 +16,9 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	do ##super()
-	set ..Converter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
+	Do ##super()
+	
+	Set ..Converter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
 ]]></Implementation>
 </Method>
 
@@ -32,24 +33,19 @@
 <Method name="InitLBXKenmerken">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
 	Set ..IngegevenKenmerken.InterneBreedte = 580
-	Set ..IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set ..IngegevenKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
 	Set ..IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
 	Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
 	Set ..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = 0
 	Set ..IngegevenKenmerken.GUIKenmerken.WandDikte = 10
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = 1
-	Set ..IngegevenKenmerken.HeeftOpvullijstLinks = 1
-	Set ..IngegevenKenmerken.HeeftOpvullijstRechts = 1
-	Set ..IngegevenKenmerken.HeeftZijstabilisering = 1
-	Set ..IngegevenKenmerken.IsBinnenlade = 1
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
+	Set ..IngegevenKenmerken.HeeftOpvullijstLinks = $$$True
+	Set ..IngegevenKenmerken.HeeftOpvullijstRechts = $$$True
+	Set ..IngegevenKenmerken.HeeftZijstabilisering = $$$True
 	Set ..IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270()
 	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	Set ..IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set ..IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
 	Set ..IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
 	Set ..IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
 ]]></Implementation>
@@ -58,7 +54,7 @@
 <Method name="VoegToeGekoppeldKenmerk">
 <FormalSpec>GekoppeldeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,GekoppeldIKType:DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(GekoppeldeKenmerken,GekoppeldIKType)
+<Implementation><![CDATA[	Do ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(GekoppeldeKenmerken, GekoppeldIKType)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestTiponMtIngkrteSynchrostang.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestTiponMtIngkrteSynchrostang.cls.xml	(.../TestTiponMtIngkrteSynchrostang.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestTiponMtIngkrteSynchrostang.cls.xml	(.../TestTiponMtIngkrteSynchrostang.cls.xml)	(revision 32363)
@@ -7,17 +7,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1)
-	Set IngegevenKenmerken.GeleiderTechnologie=##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
-	Set IngegevenKenmerken.InterneBreedte=950
-	Quit IngegevenKenmerken
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.GeleiderTechnologie=##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
+	Set LBXKenmerken.InterneBreedte = 950
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>Aantal:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do $$$AssertEquals(Aantal,1)
+<Implementation><![CDATA[	Do $$$AssertEquals(Aantal, 1)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestMatAfmetingenVoorLadeMetUitsparing.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestMatAfmetingenVoorLadeMetUitsparing.cls.xml	(.../TestMatAfmetingenVoorLadeMetUitsparing.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestMatAfmetingenVoorLadeMetUitsparing.cls.xml	(.../TestMatAfmetingenVoorLadeMetUitsparing.cls.xml)	(revision 32363)
@@ -45,11 +45,11 @@
 
 	Do ..BerekenHalffabDetails(IngegevenKenmerken)
 	
-	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX(),VerwachteBreedteMatX,VerwachteDiepteXIndienBewerkt)
-	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY(),VerwachteBreedteMatY,VerwachteDiepteXIndienBewerkt)
-	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM(),VerwachteBreedteMatM,VerwachteDiepteXIndienBewerkt)
-	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1(),VerwachteBreedteMatZ1,VerwachteDiepteBijUitsparing)
-	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2(),VerwachteBreedteMatZ2,VerwachteDiepteBijUitsparing)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX(), VerwachteBreedteMatX, VerwachteDiepteXIndienBewerkt)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY(), VerwachteBreedteMatY, VerwachteDiepteXIndienBewerkt)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM(), VerwachteBreedteMatM, VerwachteDiepteXIndienBewerkt)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1(), VerwachteBreedteMatZ1, VerwachteDiepteBijUitsparing)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2(), VerwachteBreedteMatZ2, VerwachteDiepteBijUitsparing)
 ]]></Implementation>
 </Method>
 
@@ -59,66 +59,71 @@
 <FormalSpec>GekoppeldIKType:DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType,VerwachteBreedte:%Decimal,VerwachteDiepteIndienBewerkt:%Decimal=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set HalffabRolBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.GekoppeldeIK.HalffabRolBepaler).%New()
+	#dim HalffabRolBepaler As DOM.PM.Maatwerk.Calc.Common.GekoppeldeIK.HalffabRolBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.GekoppeldeIK.HalffabRolBepaler).%New()
 	#dim HalffabRol As %String = HalffabRolBepaler.GeefRolNaamVoorGekoppeldeIK(##class(DOM.PM.enu.Variant).LogicalToDisplay(##class(DOM.PM.enu.Variant).MatStandaard()),GekoppeldIKType)
 	#dim MatProduct As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..HalffabContext.HalffabItemsBoom.GeefHalffabItem(HalffabRol)
-	If $$$AssertTrue($IsObject(MatProduct),"Rol: "_HalffabRol) {
+	
+	If $$$AssertTrue($IsObject(MatProduct),"Rol: " _ HalffabRol) {
 		#dim HFItemMat As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = MatProduct.GeefHalffabItem("Mat")
-		If $$$AssertTrue($IsObject(HFItemMat),"Rol: "_HalffabRol) {
-			Do $$$AssertEquals(HFItemMat.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()),VerwachteBreedte,"Breedte Rol: "_HalffabRol)
-			Do $$$AssertFalse(HFItemMat.IsBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte()), "LengteBewerkt Rol: "_HalffabRol)
+		
+		If $$$AssertTrue($IsObject(HFItemMat), "Rol: " _ HalffabRol) {
+			Do $$$AssertEquals(HFItemMat.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()), VerwachteBreedte,"Breedte Rol: " _ HalffabRol)
+			Do $$$AssertFalse(HFItemMat.IsBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte()), "LengteBewerkt Rol: " _ HalffabRol)
 
 			#dim IsHFItemDiepteBewerkt As %Boolean = (HFItemMat.IsBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()))
-			#dim IsBewerkteDiepteVerwacht As %Boolean = (VerwachteDiepteIndienBewerkt>0)
+			#dim IsBewerkteDiepteVerwacht As %Boolean = (VerwachteDiepteIndienBewerkt > 0)
+			
 			If (IsBewerkteDiepteVerwacht) {
 				If $$$AssertTrue(IsHFItemDiepteBewerkt,"DiepteBewerkt Rol: "_HalffabRol) {
-					Do $$$AssertEquals(HFItemMat.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()), VerwachteDiepteIndienBewerkt, "Diepte Rol: "_HalffabRol)
+					Do $$$AssertEquals(HFItemMat.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()), VerwachteDiepteIndienBewerkt, "Diepte Rol: " _ HalffabRol)
 				}
+			} Else {
+				Do $$$AssertFalse(IsHFItemDiepteBewerkt, "DiepteNietBewerkt Rol: " _ HalffabRol)
 			}
-			Else {
-				Do $$$AssertFalse(IsHFItemDiepteBewerkt, "DiepteNietBewerkt Rol: "_HalffabRol)
-			}
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIngegevenKenmerkenSpoelbak">
 <Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefBasisLBXKenmerken()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
 	Set IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
 	Set IngegevenKenmerken.SpoelbakKenmerken = ..GeefLBXSpoelbakKenmerken()
 
-	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())	
-	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())	
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(), ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())	
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(), ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())	
 	
 	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIngegevenKenmerkenSifonBinnenlade">
 <Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefIngegevenKenmerkenSifonlade()
-	Set IngegevenKenmerken.IsBinnenlade = 1
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerkenSifonlade()
+	
+	Set IngegevenKenmerken.IsBinnenlade = $$$True
 	Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
 	Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
 	Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	
 	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIngegevenKenmerkenSifonlade">
 <Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefBasisLBXKenmerken()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
 	Set IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
 	Set IngegevenKenmerken.UitsparingData = ..GeefLadeUitsparingDubbeleSifon()
-
 	Set IngegevenKenmerken.InterneBreedte = 824   ; --> geeft totale MatBreedte=782
 
 	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
@@ -135,55 +140,29 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData</ReturnType>
 <Implementation><![CDATA[
-	Set UitsparingData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+	#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+	
 	Set UitsparingData.AantalUitsparingen=##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
 	Set UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Breed()
 	Set UitsparingData.UitsparingZ2 = ##class(DOM.PM.enu.UitsparingCode).Smal()
 	Set UitsparingData.RugDeelX = 120
 	Set UitsparingData.RugDeelY = 129
 	Set UitsparingData.RugDeelM = 125
 	Set UitsparingData.UitsparingZ2 = ##class(DOM.PM.enu.UitsparingCode).Smal()
+	
 	Quit UitsparingData
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBasisLBXKenmerken">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01</ReturnType>
-<Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	
-	Set IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	Set IngegevenKenmerken.InterneBreedte = 580
-	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set IngegevenKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
-	Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	Set IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = 0
-	Set IngegevenKenmerken.GUIKenmerken.WandDikte = 10
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = 0
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
-	Set IngegevenKenmerken.HeeftZijstabilisering = 0
-	Set IngegevenKenmerken.IsBinnenlade = 0
-	Set IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	Set IngegevenKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
-	Set IngegevenKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Quit IngegevenKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="GeefLBXSpoelbakKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set LBXSpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	#dim LBXSpoelbakKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	
 	Set LBXSpoelbakKenmerken.UitsparingBreedte1 = 100
 	Set LBXSpoelbakKenmerken.UitsparingPositie1 = 200
+	
 	Quit LBXSpoelbakKenmerken
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefVerpakkingInfo.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefVerpakkingInfo.cls.xml	(.../TestGeefVerpakkingInfo.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefVerpakkingInfo.cls.xml	(.../TestGeefVerpakkingInfo.cls.xml)	(revision 32363)
@@ -1,20 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.TestGeefVerpakkingInfo">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Method name="TestStuk">
-<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).V1()),"Stuk")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).V1()), "Stuk")
 ]]></Implementation>
 </Method>
 
 <Method name="TestKast">
-<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).VHoss()),"Kast")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).VHoss()), "Kast")
 ]]></Implementation>
 </Method>
 
 <Method name="TestProbox">
-<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).Probox()),"Probox")
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefVerpakkingType(##class(DOM.PM.enu.LBXVerpakkingType).Probox()), "Probox")
 ]]></Implementation>
 </Method>
 
@@ -23,10 +23,12 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.VerpakkingType = VerpakkingType
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Quit Utils.GeefVerpakkingType(IK)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set LBXKenmerken.VerpakkingType = VerpakkingType
+	
+	Quit ..Utils.GeefVerpakkingType(LBXKenmerken)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Base.cls.xml
===================================================================
diff -u -r29927 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Base.cls.xml	(.../Base.cls.xml)	(revision 29927)
+++ vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Base.cls.xml	(.../Base.cls.xml)	(revision 32363)
@@ -19,6 +19,7 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	Do ..ZetLegeIngegevenKenmerken()
+	
 	Set ..Bepaler = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler).%New()
 ]]></Implementation>
 </Method>
@@ -32,14 +33,14 @@
 <Method name="AssertMaximumBreedte">
 <FormalSpec>VerwachteBreedte:%Double</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do $$$AssertEquals(..Bepaler.GeefMaximumBreedte(..Kenmerken),VerwachteBreedte)
+<Implementation><![CDATA[	Do $$$AssertEquals(..Bepaler.GeefMaximumBreedte(..Kenmerken), VerwachteBreedte)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertMinimumBreedte">
 <FormalSpec>VerwachteBreedte:%Double</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do $$$AssertEquals(..Bepaler.GeefMinimumBreedte(..Kenmerken),VerwachteBreedte)
+<Implementation><![CDATA[	Do $$$AssertEquals(..Bepaler.GeefMinimumBreedte(..Kenmerken), VerwachteBreedte)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemIsGeenBinnenlade.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemIsGeenBinnenlade.cls.xml	(.../TestItemIsGeenBinnenlade.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemIsGeenBinnenlade.cls.xml	(.../TestItemIsGeenBinnenlade.cls.xml)	(revision 32363)
@@ -6,17 +6,14 @@
 <Method name="GeefIngegevenKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1)
-	Set IngegevenKenmerken.IsBinnenlade = 0
-	Quit IngegevenKenmerken
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>Aantal:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do $$$AssertEquals(Aantal,0)
+<Implementation><![CDATA[	Do $$$AssertEquals(Aantal, 0)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaGebruikerToepasser/Test.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaGebruikerToepasser/Test.cls.xml	(.../Test.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaGebruikerToepasser/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -5,136 +5,131 @@
 
 <Method name="TestInitieleCallMetLegeLBXKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestFrontBevestigingIsNietExplicietGekozen">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.FrontBevestiging = $$$DummyString
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.FrontBevestiging = $$$DummyString
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMetExplicietGekozenKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.FrontBevestiging = $$$DummyString
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("FrontBevestiging")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.FrontBevestiging = $$$DummyString
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("FrontBevestiging")
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("FrontBevestiging")
-	do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("FrontBevestiging")
+	Do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMetExplicietGelijkGekozenKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	do BewaardeKenmerkenStub.ExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Do BewaardeKenmerkenStub.ExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeKleur = $$$DummyString
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeKleur = $$$DummyString
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGedefaultDoorAndereDefaulter">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeKleur = $$$DummyString
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeKleur = $$$DummyString
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenBewaardeKenmerkenMetExplicietGekozenKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeKleur = $$$DummyString
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeKleur = $$$DummyString
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
 
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertGebruikerToepasser">
 <FormalSpec>BewaardeKenmerkenStub:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteExplicietGekozenKenmerken:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	;Arrange
-	do ##class(APPS.ApplicatieContext).Instance().PushVerkoopAPIClassName(##class(vhTest.Mock.APPS.VKP.VerkoopAPI).%ClassName(1))
-	
-	#dim VerkoopAPI As vhTest.Mock.APPS.VKP.VerkoopAPI = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI()
-	
-	set MaatwerkConfiguratieServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
-	do VerkoopAPI.IndienMethodCall("GeefMaatwerkConfiguratorService").DanReturn(MaatwerkConfiguratieServiceStub)
-
 	#dim DummydtoBewaardeKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = $$$DummyObject
 	#dim DummyPad As APPS.VKP.Maatwerk.dto.Pad = $$$DummyObject
-	do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",0).DanReturn(DummydtoBewaardeKenmerken)
-	do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",1).DanReturn(DummydtoBewaardeKenmerken)
-	do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefIngegevenKenmerkenVanDto",DummydtoBewaardeKenmerken).DanReturn(BewaardeKenmerkenStub)
-	
-	;Act
-	set MaakwerkDefaultsViaGebruikerToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser).%New(DummyPad)
-	do Kenmerken.Accept(MaakwerkDefaultsViaGebruikerToepasser)
-	
-	;Assert
-	if $$$AssertEqualsList(Kenmerken.ExplicietGekozenKenmerken,VerwachteExplicietGekozenKenmerken)
+	#dim VerkoopAPIMock As vhTest.Mock.APPS.VKP.VerkoopAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopAPI).MockInstance()
+	#dim MaakwerkDefaultsViaGebruikerToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser).%New(DummyPad)
+	#dim MaatwerkConfiguratieServiceStub As vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
+
+	Do VerkoopAPIMock.IndienMethodCall("GeefMaatwerkConfiguratorService").DanReturn(MaatwerkConfiguratieServiceStub)
+
+	Do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",0).DanReturn(DummydtoBewaardeKenmerken)
+	Do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",1).DanReturn(DummydtoBewaardeKenmerken)
+	Do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefIngegevenKenmerkenVanDto",DummydtoBewaardeKenmerken).DanReturn(BewaardeKenmerkenStub)
+
+	Do Kenmerken.Accept(MaakwerkDefaultsViaGebruikerToepasser)
+
+	Do $$$AssertEqualsList(Kenmerken.ExplicietGekozenKenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerken.cls.xml
===================================================================
diff -u -r31569 -r32363
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerken.cls.xml	(.../LBXKenmerken.cls.xml)	(revision 31569)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerken.cls.xml	(.../LBXKenmerken.cls.xml)	(revision 32363)
@@ -3,42 +3,56 @@
 <Class name="vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VersieNummer:%Integer=""</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
+	
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
+	Set:(VersieNummer = 0) LBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv00).%New()
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="StandaardLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..LegeKenmerken()
 	
-	set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
-	set LBXKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
-	set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	set LBXKenmerken.HeeftDiepteVerstelling = $$$False
-	set LBXKenmerken.HeeftOpvullijstLinks = $$$False
-	set LBXKenmerken.HeeftOpvullijstRechts = $$$False
-	set LBXKenmerken.HeeftZijstabilisering = $$$False
-	set LBXKenmerken.InterneBreedte = 564
-	set LBXKenmerken.IsBinnenlade = $$$False
-	set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
-	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.OpvullijstKleur = ""
-	set LBXKenmerken.ProductieWijze = ""
-	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	set LBXKenmerken.VersieNr = ""
-	set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
-	set LBXKenmerken.VoorWandVerhogingHoogte = ""
-	set LBXKenmerken.VoorWandVerhogingMateriaal = ""
-	set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	set LBXKenmerken.AantalDwarsverdelingen = 0
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
+	Set LBXKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
+	Set LBXKenmerken.HeeftDiepteVerstelling = $$$False
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$False
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$False
+	Set LBXKenmerken.HeeftZijstabilisering = $$$False
+	Set LBXKenmerken.InterneBreedte = 564
+	Set LBXKenmerken.IsBinnenlade = $$$False
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.OpvullijstKleur = ""
+	Set LBXKenmerken.ProductieWijze = ""
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	Set LBXKenmerken.VersieNr = ""
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ""
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ""
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	Set LBXKenmerken.AantalDwarsverdelingen = 0
 	
-	quit LBXKenmerken
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
@@ -48,9 +62,9 @@
 <Implementation><![CDATA[
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..StandaardLade()
 	
-	set LBXKenmerken.IsBinnenlade = $$$True
+	Set LBXKenmerken.IsBinnenlade = $$$True
 	
-	quit LBXKenmerken
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
@@ -59,11 +73,11 @@
 <FormalSpec>Verpakking:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLade()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..StandaardLade()
 	
-	set LBXKenmerken.VerpakkingType = Verpakking
+	Set LBXKenmerken.VerpakkingType = Verpakking
 
-	quit LBXKenmerken
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
@@ -78,48 +92,53 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerkenv01 = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
-	set LBXKenmerkenv01.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	set LBXKenmerkenv01.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
-	set LBXKenmerkenv01.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerkenv01.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
-	do LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.SetAt(##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New(),"MatX")
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").Breedte = ""
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").Diepte = ""
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").Onderdelen = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").ProductieWijze = ""
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").Type = ""
-	set LBXKenmerkenv01.GekoppeldeIngegevenKenmerken.GetAt("MatX").VersieNr = "0"
-	set LBXKenmerkenv01.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	set LBXKenmerkenv01.HeeftDiepteVerstelling = ""
-	set LBXKenmerkenv01.HeeftOpvullijstLinks = "0"
-	set LBXKenmerkenv01.HeeftOpvullijstRechts = "0"
-	set LBXKenmerkenv01.HeeftZijstabilisering = "0"
-	set LBXKenmerkenv01.InterneBreedte = "564"
-	set LBXKenmerkenv01.IsBinnenlade = "0"
-	set LBXKenmerkenv01.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	set LBXKenmerkenv01.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300()
-	set LBXKenmerkenv01.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	set LBXKenmerkenv01.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	set LBXKenmerkenv01.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerkenv01.Onderdelen = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerkenv01.OpvullijstKleur = ""
-	set LBXKenmerkenv01.ProductieWijze = ""
-	set LBXKenmerkenv01.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	set LBXKenmerkenv01.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
-	set LBXKenmerkenv01.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	set LBXKenmerkenv01.VersieNr = ""
-	set LBXKenmerkenv01.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
-	set LBXKenmerkenv01.VoorWandVerhogingHoogte = ""
-	set LBXKenmerkenv01.VoorWandVerhogingMateriaal = ""
-	set LBXKenmerkenv01.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Set LBXKenmerkenv01.AantalDwarsverdelingen = 0
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
 	
-	quit LBXKenmerkenv01
+	Set MATKenmerken.Breedte = ""
+	Set MATKenmerken.Diepte = ""
+	Set MATKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+	Set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.ProductieWijze = ""
+	Set MATKenmerken.Type = ""
+	Set MATKenmerken.VersieNr = "0"
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..LegeKenmerken()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
+	Set LBXKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
+	Set LBXKenmerken.HeeftDiepteVerstelling = ""
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$False
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$False
+	Set LBXKenmerken.HeeftZijstabilisering = $$$False
+	Set LBXKenmerken.InterneBreedte = 564
+	Set LBXKenmerken.IsBinnenlade = $$$False
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.OpvullijstKleur = ""
+	Set LBXKenmerken.ProductieWijze = ""
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	Set LBXKenmerken.VersieNr = ""
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ""
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ""
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	Set LBXKenmerken.AantalDwarsverdelingen = 0
+	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MATKenmerken, "MatX")
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
@@ -128,9 +147,11 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..CLade()
-	set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400()
+	
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400()
 	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
 	Set LBXKenmerken.ZijWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant()
+	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
@@ -139,21 +160,29 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
+	#dim MATKenmerkenZ1 As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	Set MATKenmerkenZ1.Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	Set MATKenmerkenZ1.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+	
+	#dim MATKenmerkenY As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	Set MATKenmerkenY.Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	Set MATKenmerkenY.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..CLadeZijwandTypeFree()
+	
   	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
-  	
-	do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New(),"MatZ1")
-	set LBXKenmerken.GekoppeldeIngegevenKenmerken.GetAt("MatZ1").Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
-	set LBXKenmerken.GekoppeldeIngegevenKenmerken.GetAt("MatZ1").Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
-	do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New(),"MatY")
-	set LBXKenmerken.GekoppeldeIngegevenKenmerken.GetAt("MatY").Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
-	set LBXKenmerken.GekoppeldeIngegevenKenmerken.GetAt("MatY").Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
-	Set LBXKenmerken.UitsparingData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+  	Set LBXKenmerken.UitsparingData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
 	Set LBXKenmerken.UitsparingData.AantalUitsparingen = 1
 	Set LBXKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
 	Set LBXKenmerken.UitsparingData.RugDeelX = 200
 	Set LBXKenmerken.UitsparingData.RugDeelY = 300
 	Set LBXKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal()
+  	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MATKenmerkenZ1, "MatZ1")
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MATKenmerkenY, "MatY")
+
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
@@ -163,12 +192,14 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..CLadeZijwandTypeFree()
+	
   	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
-	set LBXKenmerken.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
-	set LBXKenmerken.SpoelbakKenmerken.UitsparingBreedte1 = 248
-	set LBXKenmerken.SpoelbakKenmerken.UitsparingPositie1 = 158
-	set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	set LBXKenmerken.VoorWandType = ""
+	Set LBXKenmerken.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	Set LBXKenmerken.SpoelbakKenmerken.UitsparingBreedte1 = 248
+	Set LBXKenmerken.SpoelbakKenmerken.UitsparingPositie1 = 158
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set LBXKenmerken.VoorWandType = ""
+	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
@@ -187,7 +218,9 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..CLade()
+	
 	Set Kenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Pallet()
+	
 	Do Kenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
 	Do Kenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering())
 	Do Kenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang())
@@ -207,6 +240,7 @@
 	Do Kenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
 	Do Kenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang())
 	Do Kenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet())
+	
 	Quit Kenmerken
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemTiponZnderSynchrostang.cls.xml
===================================================================
diff -u -r29059 -r32363
--- vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemTiponZnderSynchrostang.cls.xml	(.../TestItemTiponZnderSynchrostang.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/VoormontageSequentieProcessor/VerwerkProductieSequentieItem/LBX/TestItemTiponZnderSynchrostang.cls.xml	(.../TestItemTiponZnderSynchrostang.cls.xml)	(revision 32363)
@@ -7,17 +7,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefLBXKenmerken(1)
-	Set IngegevenKenmerken.GeleiderTechnologie=##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
-	Set IngegevenKenmerken.InterneBreedte=300
-	Quit IngegevenKenmerken
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.GeleiderTechnologie=##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
+	Set LBXKenmerken.InterneBreedte = 300
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>Aantal:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do $$$AssertEquals(Aantal,0)
+<Implementation><![CDATA[	Do $$$AssertEquals(Aantal, 0)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/ExterneVerkoopService/MagWinkelkarInHistoriek/Test.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/EC/ExterneVerkoopService/MagWinkelkarInHistoriek/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/EC/ExterneVerkoopService/MagWinkelkarInHistoriek/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -13,33 +13,28 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..MagOfferteInSamenvattingenBepaler = ##class(APPS.EC.impl.MagOfferteInSamenvattingenBepaler).%New()
+	
 	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMagWinkelkarInHistoriekIndienLegraboxWinkelkar">
-<Implementation><![CDATA[
-	Do ..AssertMagWinkelkarInHistoriek( 
-		##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken(),
-		1)
+<Implementation><![CDATA[	Do ..AssertMagWinkelkarInHistoriek(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken(), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMagWinkelkarInHistoriekIndienTaorboxWinkelkar">
-<Implementation><![CDATA[
-	Do ..AssertMagWinkelkarInHistoriek( 
-		##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New(),
-		1)
+<Implementation><![CDATA[	Do ..AssertMagWinkelkarInHistoriek(##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New(), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertMagWinkelkarInHistoriek">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteMagInHistoriek:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("")
 	#dim Maatwerklijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
 	Do Maatwerklijn.ZetIngegevenKenmerken(IngegevenKenmerken)
 	Do Winkelkar.VoegToe(Maatwerklijn)
 	
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugInfo.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugInfo.cls.xml	(.../TestGeefRugInfo.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugInfo.cls.xml	(.../TestGeefRugInfo.cls.xml)	(revision 32363)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.TestGeefRugInfo">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Parameter name="ProductID">
 <Type>%String</Type>
@@ -11,59 +11,67 @@
 <Method name="TestHoutenRugRugHoogteGelijkAanLadeHoogtexxxRugHoogteInMMLengteRugAantalBoringen">
 <Implementation><![CDATA[
 	Do ..InitMock()
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout() 
-	Set IK.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set IK.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set IK.InterneBreedte = 527
-	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(IK)
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()
-	Do $$$AssertEquals(Utils.GeefRugInfo(IK,..#ProductID,150, ItemsBoom),"Rug: 200 150 #1")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), ##class(DOM.PM.enu.LBXLadeHoogte).M())	
+	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(LBXKenmerken)
+	
+	Do $$$AssertEquals(..Utils.GeefRugInfo(LBXKenmerken, ..#ProductID, 150, ItemsBoom), "Rug: 200 150 #1")
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRugRugHoogteVerschillendVanLadeHoogtexxxPrefixVRugHoogteRugHoogteInMMLengteRugAantalBoringen">
 <Implementation><![CDATA[
 	Do ..InitMock()
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IK.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set IK.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
-	Set IK.InterneBreedte = 527
-	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(IK)
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()
-	Do $$$AssertEquals(Utils.GeefRugInfo(IK,..#ProductID,150, ItemsBoom),"VRug M: 200 150 #1")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), ##class(DOM.PM.enu.LBXLadeHoogte).N())
+	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(LBXKenmerken)
+
+	Do $$$AssertEquals(..Utils.GeefRugInfo(LBXKenmerken, ..#ProductID, 150, ItemsBoom), "VRug M: 200 150 #1")
 ]]></Implementation>
 </Method>
 
 <Method name="TestStalenRugxxxStalenRugMetKleurHoogteBreedteRug">
 <Implementation><![CDATA[
 	Do ..InitMock()
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
-	Set IK.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set IK.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
-	Set IK.InterneBreedte = 527
-	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(IK)
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()
-	Do $$$AssertEquals(Utils.GeefRugInfo(IK,..#ProductID,150, ItemsBoom),"StalenRug: OG M 496")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(), ##class(DOM.PM.enu.LBXLadeHoogte).N())
+	#dim ItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.RugBodemSchroefUtils).%New().GeefHalffabItemsBoomMetRugBodemSchroef(LBXKenmerken)
+
+	Do $$$AssertEquals(..Utils.GeefRugInfo(LBXKenmerken, ..#ProductID, 150, ItemsBoom), "StalenRug: OG M 496")
 ]]></Implementation>
 </Method>
 
 <Method name="InitMock">
 <Implementation><![CDATA[
-	Set RugLadeUtils = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.RugUtils).%New()
+	#dim MaatwerkCalcAPIMock As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+	#dim RugLadeUtils As vhTest.Mock.DOM.PM.Maatwerk.Lade.RugUtils = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.RugUtils).%New()
+	
 	Do RugLadeUtils.IndienMethodCall("GeefStalenRugBreedte", ..#ProductID).DanReturn(496)
 	Do RugLadeUtils.IndienMethodCall("GeefRugKleur", ..#ProductID).DanReturn("OG-M")
 	Do RugLadeUtils.IndienMethodCall("GeefRugHoogte", ..#ProductID).DanReturn(##class(DOM.PM.enu.LBXRugHoogte).M())
 	Do RugLadeUtils.IndienMethodCall("GeefRugHoogteInMm", ##class(DOM.PM.enu.LBXLadeHoogte).M()).DanReturn(200)
 	
-	#dim MaatwerkCalcAPI As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
-	Do MaatwerkCalcAPI.IndienMethodCall("GeefLadeRugUtils", ##class(DOM.PM.enu.Variant).LegraboxPure()).DanReturn(RugLadeUtils)
+	Do MaatwerkCalcAPIMock.IndienMethodCall("GeefLadeRugUtils", ##class(DOM.PM.enu.Variant).LegraboxPure()).DanReturn(RugLadeUtils)
 	
 	Do ##class(vhTest.Fake.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).FakeInstance()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLBXKenmerken">
+<FormalSpec>RugWandMateriaal:DOM.PM.enu.LBXRugWandMateriaal,LadeHoogte:DOM.PM.enu.LBXLadeHoogte</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.RugWandMateriaal = RugWandMateriaal
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	Set LBXKenmerken.LadeHoogte = LadeHoogte
+	Set LBXKenmerken.InterneBreedte = 527
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaConfiguratieToepasser.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaConfiguratieToepasser.cls.xml	(.../TestMaatwerkDefaultsViaConfiguratieToepasser.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaConfiguratieToepasser.cls.xml	(.../TestMaatwerkDefaultsViaConfiguratieToepasser.cls.xml)	(revision 32363)
@@ -1,19 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.MaatwerkDefaultsToepasser.TestMaatwerkDefaultsViaConfiguratieToepasser">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.MaatwerkDefaultsToepasser.TestMaatwerkDefaultsViaConfiguratieToepasser")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="TestVerwerkLBXKenmerkenLadeKleurOriongrijs">
 <Implementation><![CDATA[
-	Set LBXKenmerken=##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set LBXKenmerken.LadeKleur=##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
 	
-	#Dim Visitor = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser).%New()
+	#dim Visitor As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser).%New()
 	Do LBXKenmerken.Accept(Visitor)
 	
-	Do $$$AssertEquals(LBXKenmerken.BodemKleur,"","Geen defaulting van de BodemKleur")   ; ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs())
+	Do $$$AssertEquals(LBXKenmerken.BodemKleur, "", "Geen defaulting van de BodemKleur")   ; ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/LBX/impl/SpoelbakAfmetingBepaler/Test.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/LBX/impl/SpoelbakAfmetingBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/PM/Maatwerk/LBX/impl/SpoelbakAfmetingBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -19,65 +19,69 @@
 
 <Method name="TestGeefAfmetingZijstukLinks">
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefLBXKenmerkenv01(800,150,500)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(LBXKenmerken),150)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..GeefLBXKenmerkenv01(800,250,100)),250)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(800, 150, 500)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(LBXKenmerken), 150)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..GeefLBXKenmerken(800, 250, 100)), 250)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefAfmetingZijstukRechts">
 <Implementation><![CDATA[
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..GeefLBXKenmerkenv01(800,150,500)),150)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..GeefLBXKenmerkenv01(800,333,134)),333)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..GeefLBXKenmerken(800, 150, 500)), 150)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..GeefLBXKenmerken(800, 333, 134)), 333)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefAfmetingUitsparing">
 <Implementation><![CDATA[
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..GeefLBXKenmerkenv01(800,150,500)),500)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..GeefLBXKenmerkenv01(800,333,134)),134)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..GeefLBXKenmerken(800, 150, 500)), 500)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..GeefLBXKenmerken(800, 333, 134)), 134)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefLadeBreedteZonderUitsparing">
 <Implementation><![CDATA[
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(..GeefLBXKenmerkenv01(800,150,500)),300)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(..GeefLBXKenmerkenv01(800,333,134)),666)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(..GeefLBXKenmerken(800, 150, 500)), 300)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(..GeefLBXKenmerken(800, 333, 134)), 666)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeSymmetrisch158x448x158">
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefLBXKenmerkenv01(764,158,448)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(LBXKenmerken),158)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(LBXKenmerken),448)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(LBXKenmerken),158)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(LBXKenmerken),316)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(764, 158, 448)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(LBXKenmerken), 158)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(LBXKenmerken), 448)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(LBXKenmerken), 158)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(LBXKenmerken), 316)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeAsymmetrisch158x333x273">
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefLBXKenmerkenv01(764,158,333)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(LBXKenmerken),158)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(LBXKenmerken),333)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(LBXKenmerken),273)
-	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(LBXKenmerken),431)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(764, 158, 333)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(LBXKenmerken), 158)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(LBXKenmerken), 333)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(LBXKenmerken), 273)
+	Do $$$AssertEquals(..SpoelbakAfmetingBepaler.GeefAfmetingZonderUitsparing(LBXKenmerken), 431)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLBXKenmerkenv01">
+<Method name="GeefLBXKenmerken">
 <FormalSpec>InterneBreedte:%Integer,UitsparingPositie1:%Integer,UitsparingBreedte1:%Integer</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
-	Set SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	#dim SpoelbakKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
+	
 	Set SpoelbakKenmerken.UitsparingPositie1 = UitsparingPositie1
 	Set SpoelbakKenmerken.UitsparingBreedte1 = UitsparingBreedte1
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
 	Set LBXKenmerken.SpoelbakKenmerken = SpoelbakKenmerken
 	Set LBXKenmerken.InterneBreedte = InterneBreedte
-	quit LBXKenmerken
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/SpoelbakIngegevenKenmerkenAanpasser/PasAan/Test.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/SpoelbakIngegevenKenmerkenAanpasser/PasAan/Test.cls.xml	(.../Test.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/SpoelbakIngegevenKenmerkenAanpasser/PasAan/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -18,7 +18,7 @@
 
 <Method name="TestGewoneLade">
 <Implementation><![CDATA[
-	#dim AanTePassenIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim AanTePassenIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	Set AanTePassenIngegevenKenmerken.InterneBreedte = 600
 	Set AanTePassenIngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
 	
@@ -31,7 +31,7 @@
 <Method name="TestSpoelbakLade">
 <Implementation><![CDATA[
 	#dim UitsparingPositie1 As %Integer = 222
-	#dim AanTePassenIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim AanTePassenIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	Set AanTePassenIngegevenKenmerken.InterneBreedte = 666
 	Set AanTePassenIngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
 	Set AanTePassenIngegevenKenmerken.SpoelbakKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken).%New()
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugWandHouderInfo.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugWandHouderInfo.cls.xml	(.../TestGeefRugWandHouderInfo.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefRugWandHouderInfo.cls.xml	(.../TestGeefRugWandHouderInfo.cls.xml)	(revision 32363)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.TestGeefRugWandHouderInfo">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Property name="MRugWandHouderID">
 <Type>%String</Type>
@@ -28,49 +28,59 @@
 <Implementation><![CDATA[
 	Set %RugHoogteInMM = 100
 	Set %FysiekeLadeHoogteMM = 100
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IK.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Do $$$AssertEquals(Utils.GeefRugWandHouderInfo(IK,..MRugWandHouderID),"RWH: OG M")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
+	
+	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken,..MRugWandHouderID), "RWH: OG M")
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRug_HogeZijkantLageRug">
 <Implementation><![CDATA[
 	Set %RugHoogteInMM = 100
 	Set %FysiekeLadeHoogteMM = 120
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IK.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Do $$$AssertEquals(Utils.GeefRugWandHouderInfo(IK,..MRugWandHouderID),"RWH: OG M.22")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
+
+	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken, ..MRugWandHouderID), "RWH: OG M.22")
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRug_LageZijkantHogereRug">
 <Implementation><![CDATA[
 	Set %RugHoogteInMM = 120
 	Set %FysiekeLadeHoogteMM = 100
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IK.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Do $$$AssertEquals(Utils.GeefRugWandHouderInfo(IK,..MRugWandHouderID),"RWH: OG M-M")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
+		
+	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken, ..MRugWandHouderID), "RWH: OG M-M")
 ]]></Implementation>
 </Method>
 
 <Method name="TestStalenRug">
 <Implementation><![CDATA[
 	Set %RugHoogteInMM = 100
 	Set %FysiekeLadeHoogteMM = 100
-	Set IK 	= ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IK.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
-	Set IK.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	Set Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()		
-	Do $$$AssertEquals(Utils.GeefRugWandHouderInfo(IK),"RWH: -- -- --")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLBXKenmerken(##class(DOM.PM.enu.LBXRugWandMateriaal).Staal())
+	
+	Do $$$AssertEquals(..Utils.GeefRugWandHouderInfo(LBXKenmerken),"RWH: -- -- --")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLBXKenmerken">
+<FormalSpec>RugWandMateriaal:DOM.PM.enu.LBXRugWandMateriaal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.RugWandMateriaal = RugWandMateriaal
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/EC/Winkelkar/WinkelkarService/GeefLaatstGewijzigdeMaatwerkLijn/Test.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/EC/Winkelkar/WinkelkarService/GeefLaatstGewijzigdeMaatwerkLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/EC/Winkelkar/WinkelkarService/GeefLaatstGewijzigdeMaatwerkLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -142,7 +142,7 @@
 <FormalSpec>ApplicatieID:%String="UT-WinkelKar"</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
-<Implementation><![CDATA[	Set ..Winkelkar=##class(DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
+<Implementation><![CDATA[	Set ..Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
 ]]></Implementation>
 </Method>
 
@@ -157,7 +157,7 @@
 <FormalSpec>ProjectReferentie:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefMaatwerkLijn(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken(), ProjectReferentie)
+<Implementation><![CDATA[	Quit ..GeefMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken(), ProjectReferentie)
 ]]></Implementation>
 </Method>
 
@@ -202,14 +202,14 @@
 <Method name="GeefLBXFamilie">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.Familie</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken().GeefFamilie()
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken().GeefFamilie()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLBXVariant">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.Familie</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken().GeefVariant()
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken().GeefVariant()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/upg/LBXKenmerkenv00v01Upgrader/Test.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/upg/LBXKenmerkenv00v01Upgrader/Test.cls.xml	(.../Test.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/upg/LBXKenmerkenv00v01Upgrader/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -50,7 +50,7 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim VersieNummer0 As %Integer = 0
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv00 = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken(VersieNummer0)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv00 = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken(VersieNummer0)
 	set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Wit() 
 	set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
 	set LBXKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
Index: vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaProductProgrammaToepasser.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaProductProgrammaToepasser.cls.xml	(.../TestMaatwerkDefaultsViaProductProgrammaToepasser.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/TestMaatwerkDefaultsViaProductProgrammaToepasser.cls.xml	(.../TestMaatwerkDefaultsViaProductProgrammaToepasser.cls.xml)	(revision 32363)
@@ -1,14 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.MaatwerkDefaultsToepasser.TestMaatwerkDefaultsViaProductProgrammaToepasser">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.MaatwerkDefaultsToepasser.TestDefaultsViaProductProgramma")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="TestVerwerkLBXKenmerken">
 <Implementation><![CDATA[
-	Set LBXKenmerken=##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
 	Do ..PasToeDefaults(LBXKenmerken)
 	
 	Do $$$AssertEquals(LBXKenmerken.FrontBevestiging,##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
@@ -20,7 +18,8 @@
 
 <Method name="TestVerwerkLBXKenmerkenFrontBevestingReedsOpgegeven">
 <Implementation><![CDATA[
-	Set LBXKenmerken=##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
 	Set LBXKenmerken.FrontBevestiging = $$$DummyString
 	
 	Do ..PasToeDefaults(LBXKenmerken)
@@ -31,7 +30,8 @@
 
 <Method name="TestVerwerkLBXKenmerkenVerpakkingTypeReedsOpgegeven">
 <Implementation><![CDATA[
-	Set LBXKenmerken=##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
 	Set LBXKenmerken.VerpakkingType = $$$DummyString
 	
 	Do ..PasToeDefaults(LBXKenmerken)
@@ -42,7 +42,8 @@
 
 <Method name="TestVerwerkLBXKenmerkenRugWandMateriaalReedsOpgegeven">
 <Implementation><![CDATA[
-	Set LBXKenmerken=##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
 	Set LBXKenmerken.RugWandMateriaal = $$$DummyString
 	
 	Do ..PasToeDefaults(LBXKenmerken)
@@ -53,7 +54,7 @@
 
 <Method name="TestVerwerkLBXKenmerkenGUIKenmerkenIsBinnenBreedteReedsOpgegeven">
 <Implementation><![CDATA[
-	Set LBXKenmerken=##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
 	
 	Do ..PasToeDefaults(LBXKenmerken)
Index: vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/GeefMinimumBreedte/LBX/Test.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/GeefMinimumBreedte/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/GeefMinimumBreedte/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -12,50 +12,56 @@
 
 <Method name="ZetLegeIngegevenKenmerken">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+<Implementation><![CDATA[	Set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeMetHoutenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	set ..Kenmerken.IsBinnenlade = 0
+	Set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set ..Kenmerken.IsBinnenlade = $$$False
+	
 	Do ..AssertMinimumBreedte(237)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenLadeMetHoutenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	set ..Kenmerken.IsBinnenlade = 1
+	Set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set ..Kenmerken.IsBinnenlade = $$$True
+	
 	Do ..AssertMinimumBreedte(237)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeMetStalenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set ..Kenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	
 	Do ..AssertMinimumBreedte(237)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenladeMetStalenRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.IsBinnenlade = 1
+	Set ..Kenmerken.IsBinnenlade = $$$True
+	
 	Do ..AssertMinimumBreedte(237)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeZonderRugwand">
 <Implementation><![CDATA[
-	set ..Kenmerken.IsBinnenlade = 0
+	Set ..Kenmerken.IsBinnenlade = $$$False
+	
 	Do ..AssertMinimumBreedte(237)
 ]]></Implementation>
 </Method>
 
 <Method name="TestSpoelbaklade">
 <Implementation><![CDATA[
 	Set ..Bepaler = ..GeefBepaler($$$True)
+	
 	Do ..AssertMinimumBreedte(350)
 ]]></Implementation>
 </Method>
@@ -65,11 +71,12 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler</ReturnType>
 <Implementation><![CDATA[
-	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	#dim IngegevenKenmerkenTypeAPIMock As vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	
 	Do IngegevenKenmerkenTypeAPIMock.IndienMethodCall("IsSpoelbaklade", ..Kenmerken).DanReturn(IsSpoelbaklade)
 	Do IngegevenKenmerkenTypeAPIMock.IndienMethodCall("IsSifonlade", ..Kenmerken).DanReturn($$$False)
-	Set Bepaler = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler).%New(IngegevenKenmerkenTypeAPIMock)
-	Quit Bepaler
+
+	Quit ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler).%New(IngegevenKenmerkenTypeAPIMock)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 32363)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.LBXVerpakking.TestDoos">
-<Description>
- d ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.Halux.PPS.LBXVerpakking")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.DOM.PM.Verpakking.impl.DoosBerekenaar.TestDoos</Super>
@@ -14,131 +12,138 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
+	
 	Set ..Variant=##class(DOM.PM.enu.LadeVariant).LBXPure()
 ]]></Implementation>
 </Method>
 
 <Method name="TestZonderOnderdelenGeenLODoos">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).BevestigingBodemFront())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet())
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).BevestigingBodemFront())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet())
 	
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),1)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType,##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel())
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()),"Alleen DoosMetDeksel geen losse onderdelen")
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
+	
+	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1)
+	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel())
+	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Alleen DoosMetDeksel geen losse onderdelen")
 ]]></Implementation>
 </Method>
 
 <Method name="TestCZonderGeleiderMaarMetFrontBevestiging">
 <Implementation><![CDATA[
 	// Toegevoegd omdat in C lade zonder geleider maar met frontbevestiging er geen hoogte werd ingevuld
 	// voor de LO doos waardoor er geen LO Doos uit kwam.
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakCLadeZonderGeleiderMaarMetFrontBevestiging()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakCLadeZonderGeleiderMaarMetFrontBevestiging()
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
-	
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),2)
+	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 2)
 
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 50)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 500)
 ]]></Implementation>
 </Method>
 
 <Method name="TestZonderGeleidersMaarMetFrontBevestigingEnAfdekkappen">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 
 	Do $$$AssertTrue(DoosBerekenaar.HeeftAfdekkappen())
 	Do $$$AssertFalse(DoosBerekenaar.HeeftGeleider())
 	Do $$$AssertTrue(DoosBerekenaar.HeeftFrontBevestiging())
 
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),2) // er moet een losse onderdeeldoos zijn voor afdekkappen, frontbevestiging
+	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 2) // er moet een losse onderdeeldoos zijn voor afdekkappen, frontbevestiging
 	
 	#dim DoosLosseOnderdelen As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel,10)
+	
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 10)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte,38.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere,20)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 38.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
 ]]></Implementation>
 </Method>
 
 <Method name="TestZonderGeleidersMaarMetEnkelAfdekkappen">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 
 	Do $$$AssertTrue(DoosBerekenaar.HeeftAfdekkappen())
 	Do $$$AssertFalse(DoosBerekenaar.HeeftGeleider())
 	Do $$$AssertFalse(DoosBerekenaar.HeeftFrontBevestiging())
 	
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),1)
+	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1)
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel())
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()))
 ]]></Implementation>
 </Method>
 
 <Method name="TestMetOpvullijstDoosBrederEnEvenHoog">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenStd)
+	#dim LBXKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenStd)
 	#dim DoosLadeStd As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelenStd As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	#dim IngegevenKenmerkenOpvul As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set IngegevenKenmerkenOpvul.HeeftOpvullijstLinks = 1
-	Set IngegevenKenmerkenOpvul.HeeftOpvullijstRechts = 1
+	#dim LBXKenmerkenOpvul As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Set LBXKenmerkenOpvul.HeeftOpvullijstLinks = $$$True
+	Set LBXKenmerkenOpvul.HeeftOpvullijstRechts = $$$True
 	
-	Set DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenOpvul)
+	Set DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenOpvul)
+	
 	#dim DoosLadeOpvul As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelenOpVul As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	Do $$$AssertEquals((DoosLadeStd.Breedte+25),DoosLadeOpvul.Breedte) ; er komt 25mm bij voor de plaats van de opvullijst in de verpakking
+	
+	Do $$$AssertEquals((DoosLadeStd.Breedte + 25), DoosLadeOpvul.Breedte) ; er komt 25mm bij voor de plaats van de opvullijst in de verpakking
 	Do $$$AssertEquals(DoosLadeStd.Hoogte, DoosLadeOpvul.Hoogte)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenladeDoosEvenBreedMaarHoger">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenStd)
+	#dim LBXKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenStd)
 	#dim DoosLadeStd As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelenStd As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	#dim IngegevenKenmerkenBin As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	Set IngegevenKenmerkenBin.IsBinnenlade=1
+	#dim LBXKenmerkenBin As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerkenBin.IsBinnenlade = $$$True
 	
-	Set DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenBin)
+	Set DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenBin)
+	
 	#dim DoosLadeBin As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelenBin As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	Do $$$AssertEquals(DoosLadeStd.Breedte,DoosLadeBin.Breedte)
+	Do $$$AssertEquals(DoosLadeStd.Breedte, DoosLadeBin.Breedte)
 	Do $$$AssertTrue(DoosLadeStd.Hoogte < DoosLadeBin.Hoogte)
-	Do $$$AssertEquals(DoosLosseOnderdelenStd.Hoogte,DoosLosseOnderdelenBin.Hoogte)
+	Do $$$AssertEquals(DoosLosseOnderdelenStd.Hoogte, DoosLosseOnderdelenBin.Hoogte)
 ]]></Implementation>
 </Method>
 
 <Method name="TestAfmetingenKleineMLade">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	
 	Do $$$AssertEquals(DoosLade.Breedte, 346.8)
 	Do $$$AssertEquals(DoosLade.Hoogte, 90)
 	Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * ..#KartonDikte))
@@ -148,17 +153,17 @@
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 90)
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 96.8)
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 278.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 60)		// Geleider zit met kortste kant in breedte van de doos
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 60) // Geleider zit met kortste kant in breedte van de doos
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
 ]]></Implementation>
 </Method>
 
 <Method name="TestAfmetingenGroteCBinnenlade">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	Set IngegevenKenmerken.IsBinnenlade = 1
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.IsBinnenlade = $$$True
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 
@@ -168,8 +173,8 @@
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, (DoosLade.Hoogte - 5) - (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 600)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))			// LO doos is plat en breed
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), DoosLade.Hoogte - 5)	// Verbreed tot ladehoogte - 5mm
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte)) // LO doos is plat en breed
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), DoosLade.Hoogte - 5) // Verbreed tot ladehoogte - 5mm
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 600 + (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, DoosLosseOnderdelen.Breedte - 67 - (2 * ..#KartonDikte))
@@ -178,50 +183,52 @@
 
 <Method name="TestHogeLadeMetStandaardHulsBijLadeDiepte550">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	Set IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
-	Do ..StandaardHulsTest(IngegevenKenmerken, 180, 1244.4)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
+	Do ..StandaardHulsTest(LBXKenmerken, 180, 1244.4)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLageLadeMetStandaardHulsBijLadeDiepte550">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
-	Do ..StandaardHulsTest(IngegevenKenmerken, 90, 1277.8)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
+	Do ..StandaardHulsTest(LBXKenmerken, 90, 1277.8)
 ]]></Implementation>
 </Method>
 
 <Method name="StandaardHulsTest">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric</FormalSpec>
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric</FormalSpec>
 <Implementation><![CDATA[
 	Set ^zStandaardHuls(1000000) = 1
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken,1000000)
+	
+	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken,1000000)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 
 	Do $$$AssertEquals(DoosLade.Breedte, VerwachteBreedte)
 	Do $$$AssertEquals(DoosLade.Hoogte, VerwachteHoogte)
 	Do $$$AssertEquals(DoosLade.Diepte, 558.4)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 80)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 65+40+(4*..#KartonDikte) - (2 * ..#KartonDikte))
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 65 + 40 + (4 * ..#KartonDikte) - (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 550)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * ..#KartonDikte))			// LO doos is plat en breed
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65+40+(4*..#KartonDikte))	// Verbreed tot ladehoogte - 5mm
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * ..#KartonDikte)) // LO doos is plat en breed
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65 + 40 + (4 * ..#KartonDikte)) // Verbreed tot ladehoogte - 5mm
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 40)
+	
 	Kill ^zStandaardHuls(1000000)
 ]]></Implementation>
 </Method>
 
 <Method name="Test afmeting Breedte andere van de LO doos MLade met Tip-on Blumotion geleider">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
@@ -231,11 +238,11 @@
 
 <Method name="Test afmeting Breedte andere van de LO doos MLade met Tip-on Blumotion geleider waarbij eenheid niet is meegeleverd">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid())
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid())
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
@@ -245,12 +252,12 @@
 
 <Method name="Test afmeting Breedte andere van de LO doos MLade met Tip-on Blumotion geleider waarbij eenheid en meenemer niet zijn meegeleverd">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer())
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid())
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer())
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
@@ -260,20 +267,20 @@
 
 <Method name="Test afmetingen van de LO doos KLade met Tip-on Blumotion geleider">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	Do $$$AssertEquals(DoosLade.Breedte, IngegevenKenmerken.InterneBreedte - 14 + DoosLosseOnderdelen.GeefExterneHoogte())
+	Do $$$AssertEquals(DoosLade.Breedte, LBXKenmerken.InterneBreedte - 14 + DoosLosseOnderdelen.GeefExterneHoogte())
 	Do $$$AssertEquals(DoosLade.Hoogte, DoosLosseOnderdelen.GeefExterneBreedte() + 5)
 	Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * ..#KartonDikte))
 
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte,150.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel,67)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 150.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere,75)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
@@ -285,135 +292,120 @@
 
 <Method name="TestKartonSpecs">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 
 	#dim KartonSpecs as DOM.PM.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
-	#dim it As TECH.Iterator = KartonSpecs.GeefIterator()
+	#dim Iterator As TECH.Iterator = KartonSpecs.GeefIterator()
 	#dim AantalSpecs As %Integer = 0
-	while it.HasNext()
-	{
-		#dim KartonSpec as DOM.PM.Verpakking.dto.KartonSpecificatie = it.Next()
-		Set AantalSpecs=AantalSpecs+1
-		If KartonSpec.BenamingVerpakkingsOnderdeel=##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()
-		{
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte,0,0),1681,"Breedte van DoosMetDeksel")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte,0,0),1961,"Lengte van DoosMetDeksel")
-			Do $$$AssertEquals(KartonSpec.KartonSamenstelling,##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(),"Kartonsamenstelling = EB")
-		}
-		ElseIf KartonSpec.BenamingVerpakkingsOnderdeel=##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()
-		{
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte,0,0),820,"Breedte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte,0,0),513,"Lengte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(KartonSpec.KartonSamenstelling,##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(),"Kartonsamenstelling = EB")
-		}
-		Else
-		{
-			do $$$AssertTrue(0,"Alleen DoosMetDeksel en Losse onderdelen zijn mogelijk")
+	
+	While (Iterator.HasNext()) {
+		#dim KartonSpec as DOM.PM.Verpakking.dto.KartonSpecificatie = Iterator.Next()
+		
+		Set AantalSpecs = AantalSpecs + 1
+		If (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()) {
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 1681, "Breedte van DoosMetDeksel")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 1961, "Lengte van DoosMetDeksel")
+			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		} ElseIf (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()) {
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 820, "Breedte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 513, "Lengte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		} Else {
+			Do $$$AssertTrue(0, "Alleen DoosMetDeksel en Losse onderdelen zijn mogelijk")
 		}	
 	}
-	Do $$$AssertEquals(AantalSpecs,2) ; er moeten 2 kartonspecificaties zijn: een voor DoosMetDeksel en een ander voor LODoos
+	Do $$$AssertEquals(AantalSpecs, 2) ; er moeten 2 kartonspecificaties zijn: een voor DoosMetDeksel en een ander voor LODoos
 ]]></Implementation>
 </Method>
 
 <Method name="MaakLadeMSmalEnOndiep">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set IngegevenKenmerken.InterneBreedte = 300-(2*18)
-	Set IngegevenKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
-	Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Drevel()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
-	Set IngegevenKenmerken.HeeftZijstabilisering = 0
-	Set IngegevenKenmerken.IsBinnenlade = 0
-	Set IngegevenKenmerken.LadeDiepte = 270
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set IngegevenKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
-	Set IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
-	Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-	Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	Set IngegevenKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
-	Set IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Quit IngegevenKenmerken
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.InterneBreedte = 300 - (2 * 18)
+	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
+	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Drevel()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$False
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$False
+	Set LBXKenmerken.HeeftZijstabilisering = $$$False
+	Set LBXKenmerken.IsBinnenlade = $$$False
+	Set LBXKenmerken.LadeDiepte = 270
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="MaakLadeCBreedEnDiep">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set IngegevenKenmerken.InterneBreedte = 1170  // Voor binnenlade: voorstuk beperkt breedte tot 1170, inschuifelement beperkt tot 1262
-	Set IngegevenKenmerken.Draagkracht = 40
-	Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Drevel()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
-	Set IngegevenKenmerken.HeeftZijstabilisering = 0
-	Set IngegevenKenmerken.IsBinnenlade = 0
-	Set IngegevenKenmerken.LadeDiepte = 600
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set IngegevenKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
-	Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-	Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	Set IngegevenKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
-	Set IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Quit IngegevenKenmerken
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.InterneBreedte = 1170 // Voor binnenlade: voorstuk beperkt breedte tot 1170, inschuifelement beperkt tot 1262
+	Set LBXKenmerken.Draagkracht = 40
+	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Drevel()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$False
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$False
+	Set LBXKenmerken.HeeftZijstabilisering = $$$False
+	Set LBXKenmerken.IsBinnenlade = $$$False
+	Set LBXKenmerken.LadeDiepte = 600
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="MaakCLadeZonderGeleiderMaarMetFrontBevestiging">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken() // Gegenereerd uit #HLF
-	set LBXKenmerken.BodemKleur = "DG"
-	set LBXKenmerken.Draagkracht = "70"
-	set LBXKenmerken.FrontBevestiging = "E"
-	set LBXKenmerken.GeleiderTechnologie = "B"
-	set LBXKenmerken.HeeftDiepteVerstelling = ""
-	set LBXKenmerken.HeeftOpvullijstLinks = "0"
-	set LBXKenmerken.HeeftOpvullijstRechts = "0"
-	set LBXKenmerken.HeeftZijstabilisering = "0"
-	set LBXKenmerken.InterneBreedte = "774"
-	set LBXKenmerken.IsBinnenlade = "0"
-	set LBXKenmerken.LadeDiepte = "500"
-	set LBXKenmerken.LadeHoogte = "C"
-	set LBXKenmerken.LadeKleur = "OG-M"
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	do LBXKenmerken.NietMeeleveren.Insert("BevestigingBodemFront")
-	do LBXKenmerken.NietMeeleveren.Insert("Geleider")
-	set LBXKenmerken.OpvullijstKleur = ""
-	set LBXKenmerken.ProductieWijze = ""
-	set LBXKenmerken.RugHoogte = "C"
-	set LBXKenmerken.RugWandMateriaal = "Hout"
-	set LBXKenmerken.VerpakkingType = "V1"
-	set LBXKenmerken.VoorWandType = ""
-	set LBXKenmerken.VoorWandVerhogingHoogte = ""
-	set LBXKenmerken.VoorWandVerhogingMateriaal = ""
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	#dim NietMeeleveren As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do NietMeeleveren.Insert("BevestigingBodemFront")
+	Do NietMeeleveren.Insert("Geleider")
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
+	Set LBXKenmerken.NietMeeleveren = NietMeeleveren
+	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDoosBerekenaar">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar</ReturnType>
 <Implementation><![CDATA[
-	Set ..Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..Familie,..Variant,..BerekeningsSpecificatie)
-	Do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context,IngegevenKenmerken)
+	Set ..Context = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..Familie, ..Variant, ..BerekeningsSpecificatie)
+	Do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context, LBXKenmerken)
+	
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..Context.HalffabItemsBoom
-	Quit ##class(APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, IngegevenKenmerken,,ProductID)
+	
+	Quit ##class(APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, LBXKenmerken,, ProductID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseLBXv00.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseLBXv00.cls.xml	(.../BaseLBXv00.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseLBXv00.cls.xml	(.../BaseLBXv00.cls.xml)	(revision 32363)
@@ -9,20 +9,20 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim VersieNummerKenmerken As %Integer = 0
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken(VersieNummerKenmerken)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken(VersieNummerKenmerken)
 	
 	Set LBXKenmerken.InterneBreedte = 580
 	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
 	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
 	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
 	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
-	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
 	Set LBXKenmerken.GUIKenmerken.WandDikte = 10
-	Set LBXKenmerken.HeeftDiepteVerstelling = 1
-	Set LBXKenmerken.HeeftOpvullijstLinks = 1
-	Set LBXKenmerken.HeeftOpvullijstRechts = 1
-	Set LBXKenmerken.HeeftZijstabilisering = 1
-	Set LBXKenmerken.IsBinnenlade = 1
+	Set LBXKenmerken.HeeftDiepteVerstelling = $$$True
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$True
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$True
+	Set LBXKenmerken.HeeftZijstabilisering = $$$True
+	Set LBXKenmerken.IsBinnenlade = $$$True
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270()
 	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
@@ -33,6 +33,7 @@
 	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
 	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
 	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).N()
+	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
@@ -107,7 +107,7 @@
 <Method name="GeefLegeIngegevenKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/VKP/Maatwerk/impl/ConfiguratorService/GeefKenmerkenDto/TestLBX.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/VKP/Maatwerk/impl/ConfiguratorService/GeefKenmerkenDto/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/VKP/Maatwerk/impl/ConfiguratorService/GeefKenmerkenDto/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
@@ -5,15 +5,15 @@
 
 <Method name="TestExplicietGekozenKenmerken">
 <Implementation><![CDATA[
-	set ConfiguratorService = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
+	#dim ConfiguratorService As APPS.VKP.Maatwerk.ConfiguratorService = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	set DOMKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	do DOMKenmerken.ExplicietGekozenKenmerken.Insert($$$DummyString)
+	Do LBXKenmerken.ExplicietGekozenKenmerken.Insert($$$DummyString)
 	
-	#dim dtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ConfiguratorService.GeefKenmerkenDto(DOMKenmerken)
+	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ConfiguratorService.GeefKenmerkenDto(LBXKenmerken)
 	
-	if $$$AssertEquals(dtoKenmerken.ExplicietGekozenKenmerken.Count(),1) {
-		do $$$AssertEquals(dtoKenmerken.ExplicietGekozenKenmerken.GetAt($$$DummyString),"")
+	If $$$AssertEquals(DtoKenmerken.ExplicietGekozenKenmerken.Count(), 1) {
+		Do $$$AssertEquals(DtoKenmerken.ExplicietGekozenKenmerken.GetAt($$$DummyString), "")
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftProboxOnderdelenDoos/TestLBX.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftProboxOnderdelenDoos/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftProboxOnderdelenDoos/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
@@ -29,8 +29,10 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
 	Set LBXKenmerken.VerpakkingType = VerpakkingType	
+	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
@@ -40,12 +42,14 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
 	Do:Geleider HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider()))
 	Do:Zijstab HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering()))
 	Do:TiponStang HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang()))
 	Do:TiponSet HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet()))
 	Do:Opvullijst HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst()))
+	
 	Quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/SpoelbakHalffabItemVerwerker/VerdubbelAantalIndienSpoelbak/Test.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/SpoelbakHalffabItemVerwerker/VerdubbelAantalIndienSpoelbak/Test.cls.xml	(.../Test.cls.xml)	(revision 31570)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/SpoelbakHalffabItemVerwerker/VerdubbelAantalIndienSpoelbak/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -6,7 +6,7 @@
 <Method name="Test : Test Gewone lade">
 <Implementation><![CDATA[
 	#dim VersieNrIngegevenKenmerken As %Integer = 1
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken(VersieNrIngegevenKenmerken)
+	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken(VersieNrIngegevenKenmerken)
 	Set IK.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
 	Set SpoelbakHalffabItemVerwerker = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.SpoelbakHalffabItemVerwerker).%New()
 	
@@ -20,7 +20,7 @@
 <Method name="Test : Spoelbak">
 <Implementation><![CDATA[
 	#dim VersieNrIngegevenKenmerken As %Integer = 1
-	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken(VersieNrIngegevenKenmerken)
+	#dim IK As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken(VersieNrIngegevenKenmerken)
 	Set IK.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
 	Set SpoelbakHalffabItemVerwerker = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.SpoelbakHalffabItemVerwerker).%New()
 	
Index: vhUnitTest/DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler/GeefCorpusBreedte/TestLegrabox.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler/GeefCorpusBreedte/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler/GeefCorpusBreedte/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 32363)
@@ -24,87 +24,89 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestName)
+	Do ##super(aTestName)
 	
-	set ..CorpusBreedteBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler).%New()
+	Set ..CorpusBreedteBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler).%New()
 	
-	do ..InitKenmerkenMetDefaultInterneBreedte()
-	do ..MockLadeOpvullijstBreedte()
+	Do ..InitKenmerkenMetDefaultInterneBreedte()
+	Do ..MockLadeOpvullijstBreedte()
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenWandDikteOpgegeven">
-<Implementation><![CDATA[	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),500)
+<Implementation><![CDATA[	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 500)
 ]]></Implementation>
 </Method>
 
 <Method name="TestWandDikteOpgegeven">
 <Implementation><![CDATA[
-	set ..LBXKenmerken.GUIKenmerken.WandDikte = 16
-	set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
-	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),532)
+	Set ..LBXKenmerken.GUIKenmerken.WandDikte = 16
+	Set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 532)
 ]]></Implementation>
 </Method>
 
 <Method name="TestWandDikteOpgegevenEnBinnenbreedte">
 <Implementation><![CDATA[
-	set ..LBXKenmerken.GUIKenmerken.WandDikte = 16
-	set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
-	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),500)
+	Set ..LBXKenmerken.GUIKenmerken.WandDikte = 16
+	Set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
+	
+	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 500)
 ]]></Implementation>
 </Method>
 
 <Method name="TestWandDikteEnOpvullijstLinksOpgegeven">
 <Implementation><![CDATA[
-	set ..LBXKenmerken.GUIKenmerken.WandDikte = 16
-	set ..LBXKenmerken.HeeftOpvullijstLinks = 1
-	set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set ..LBXKenmerken.GUIKenmerken.WandDikte = 16
+	Set ..LBXKenmerken.HeeftOpvullijstLinks = 1
+	Set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
 	
-	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),557)
+	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 557)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHeeftOpvullijstLinksOpgegeven">
 <Implementation><![CDATA[
-	set ..LBXKenmerken.HeeftOpvullijstLinks = 1
+	Set ..LBXKenmerken.HeeftOpvullijstLinks = 1
 	
-	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),525)
+	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 525)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHeeftOpvullijstRechtsEnLinksOpgegeven">
 <Implementation><![CDATA[
-	set ..LBXKenmerken.HeeftOpvullijstLinks = 1
-	set ..LBXKenmerken.HeeftOpvullijstRechts = 1
+	Set ..LBXKenmerken.HeeftOpvullijstLinks = 1
+	Set ..LBXKenmerken.HeeftOpvullijstRechts = 1
 	
-	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),550)
+	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 550)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHeeftOpvullijstRechtsOpgegeven">
 <Implementation><![CDATA[
-	set ..LBXKenmerken.HeeftOpvullijstRechts = 1
+	Set ..LBXKenmerken.HeeftOpvullijstRechts = 1
 	
-	do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken),525)
+	Do $$$AssertEquals(..CorpusBreedteBepaler.GeefCorpusBreedte(..LBXKenmerken), 525)
 ]]></Implementation>
 </Method>
 
 <Method name="InitKenmerkenMetDefaultInterneBreedte">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
-	set ..LBXKenmerken.InterneBreedte = ..#InterneBreedte
+	Set ..LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set ..LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
+	Set ..LBXKenmerken.InterneBreedte = ..#InterneBreedte
 ]]></Implementation>
 </Method>
 
 <Method name="MockLadeOpvullijstBreedte">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim MaatwerkCalcAPI As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
-	set OpvullijstBreedteBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.OpvullijstBreedteBepaler).%New()
-	do OpvullijstBreedteBepaler.IndienMethodCall("GeefBreedte",..LBXKenmerken).DanReturn(..#OpvulllijstBreedte)
-	do MaatwerkCalcAPI.IndienMethodCall("GeefLadeOpvullijstBreedteBepaler").DanReturn(OpvullijstBreedteBepaler)
+	#dim OpvullijstBreedteBepaler As vhTest.Mock.DOM.PM.Maatwerk.Lade.OpvullijstBreedteBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.OpvullijstBreedteBepaler).%New()
+	
+	Do OpvullijstBreedteBepaler.IndienMethodCall("GeefBreedte", ..LBXKenmerken).DanReturn(..#OpvulllijstBreedte)
+	Do MaatwerkCalcAPI.IndienMethodCall("GeefLadeOpvullijstBreedteBepaler").DanReturn(OpvullijstBreedteBepaler)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/MaatwerkDefaultsViaConfiguratieToepasser/TestLadeHoogteVolgtRugHoogte.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/MaatwerkDefaultsViaConfiguratieToepasser/TestLadeHoogteVolgtRugHoogte.cls.xml	(.../TestLadeHoogteVolgtRugHoogte.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/PM/Maatwerk/MaatwerkDefaultsToepasser/MaatwerkDefaultsViaConfiguratieToepasser/TestLadeHoogteVolgtRugHoogte.cls.xml	(.../TestLadeHoogteVolgtRugHoogte.cls.xml)	(revision 32363)
@@ -1,58 +1,57 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.MaatwerkDefaultsToepasser.MaatwerkDefaultsViaConfiguratieToepasser.TestLadeHoogteVolgtRugHoogte">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.MaatwerkDefaultsToepasser.TestMaatwerkDefaultsViaConfiguratieToepasser")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="TestRugHoogteVolgtLadeHoogteC">
 <Implementation><![CDATA[
-	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
 	
-	do ..AssertRugHoogte(Kenmerken,##class(DOM.PM.enu.LBXRugHoogte).C())
+	Do ..AssertRugHoogte(Kenmerken, ##class(DOM.PM.enu.LBXRugHoogte).C())
 ]]></Implementation>
 </Method>
 
 <Method name="TestRugHoogteVolgtLadeHoogteM">
 <Implementation><![CDATA[
-	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 
-	do ..AssertRugHoogte(Kenmerken,##class(DOM.PM.enu.LBXRugHoogte).M())
+	Do ..AssertRugHoogte(Kenmerken, ##class(DOM.PM.enu.LBXRugHoogte).M())
 ]]></Implementation>
 </Method>
 
 <Method name="TestRugHoogteVolgtLadeHoogteRugHoogteExplecietIngegeven">
 <Implementation><![CDATA[
-	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("RugHoogte")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("RugHoogte")
 	
-	set Kenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set Kenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 
-	do ..AssertRugHoogte(Kenmerken,##class(DOM.PM.enu.LBXRugHoogte).C())
+	Do ..AssertRugHoogte(Kenmerken, ##class(DOM.PM.enu.LBXRugHoogte).C())
 ]]></Implementation>
 </Method>
 
 <Method name="TestRugHoogteVolgtLadeHoogteRugHoogteDefault">
 <Implementation><![CDATA[
-	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	set Kenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set Kenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 
-	do ..AssertRugHoogte(Kenmerken,##class(DOM.PM.enu.LBXRugHoogte).M())
+	Do ..AssertRugHoogte(Kenmerken, ##class(DOM.PM.enu.LBXRugHoogte).M())
 ]]></Implementation>
 </Method>
 
 <Method name="AssertRugHoogte">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteRugHoogte:DOM.PM.enu.LBXRugHoogte</FormalSpec>
 <Implementation><![CDATA[
-	#Dim Visitor = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser).%New()
+	#dim Visitor As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser).%New()
+	
 	Do Kenmerken.Accept(Visitor)
 	
-	Do $$$AssertEquals(Kenmerken.RugHoogte,VerwachteRugHoogte)
+	Do $$$AssertEquals(Kenmerken.RugHoogte, VerwachteRugHoogte)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/Base.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/Base.cls.xml	(revision 32363)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Utils">
+<Type>APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefWikkelInfo.cls.xml
===================================================================
diff -u -r31563 -r32363
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefWikkelInfo.cls.xml	(.../TestGeefWikkelInfo.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefWikkelInfo.cls.xml	(.../TestGeefWikkelInfo.cls.xml)	(revision 32363)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.TestGeefWikkelInfo">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils.Base</Super>
 
 <Property name="LBXKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
@@ -17,26 +17,30 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	Set ..LBXKenmerken  = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	Set ..Utils = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.Utils).%New()
-	#dim IngegevenKenmerkenTypeAPI As vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).MockInstance()
-	Do IngegevenKenmerkenTypeAPI.IndienMethodCall("IsSpoelbaklade", ..LBXKenmerken).DanReturn($$$False)
+	
+	Set ..LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+
+	#dim IngegevenKenmerkenTypeAPIMock As vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).MockInstance()
+	
+	Do IngegevenKenmerkenTypeAPIMock.IndienMethodCall("IsSpoelbaklade", ..LBXKenmerken).DanReturn($$$False)
 ]]></Implementation>
 </Method>
 
 <Method name="TestVHossGeenInfo">
 <Implementation><![CDATA[
 	Set ..LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
 	Set ..LBXKenmerken.LadeDiepte = 527
-	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken),"","Vhoss geen wikkelinfo")
+	
+	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), "", "Vhoss geen wikkelinfo")
 ]]></Implementation>
 </Method>
 
 <Method name="TestV1GeenInfo">
 <Implementation><![CDATA[
 	Set ..LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
 	Set ..LBXKenmerken.LadeDiepte = 527	
-	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken),"","V1 geen wikkelinfo")
+	
+	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), "", "V1 geen wikkelinfo")
 ]]></Implementation>
 </Method>
 
@@ -46,8 +50,9 @@
 	Set ..LBXKenmerken.LadeDiepte = 527
 	Set ..LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	Set ..LBXKenmerken.InterneBreedte = 500
-	Set ..LBXKenmerken.IsBinnenlade = 0
-	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken),",WikkelC(1)")
+	Set ..LBXKenmerken.IsBinnenlade = $$$False
+	
+	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), ",WikkelC(1)")
 ]]></Implementation>
 </Method>
 
@@ -57,8 +62,9 @@
 	Set ..LBXKenmerken.LadeDiepte = 600
 	Set ..LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	Set ..LBXKenmerken.InterneBreedte = 2000
-	Set ..LBXKenmerken.IsBinnenlade = 1	
-	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken),",WikkelD(2)")
+	Set ..LBXKenmerken.IsBinnenlade = $$$True
+	
+	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), ",WikkelD(2)")
 ]]></Implementation>
 </Method>
 </Class>