Index: vhUnitTest/APPS/EC/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/GebruikteHalffabItemsVoorPrijsberekening/TestBase.cls.xml
===================================================================
diff -u -r29059 -r30229
--- vhUnitTest/APPS/EC/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/GebruikteHalffabItemsVoorPrijsberekening/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/GebruikteHalffabItemsVoorPrijsberekening/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30229)
@@ -19,7 +19,16 @@
 	
 	#dim DummyVerkoopprijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, 1, PersonalityID, KlantID)
 	
-	do $$$AssertEqualsList(HalffabKostItemBuilderSpy.Items,GebruikteHalffabItems)
+	if HalffabKostItemBuilderSpy.Items.Count() '= GebruikteHalffabItems.Count() {
+		do $$$AssertEqualsList(HalffabKostItemBuilderSpy.Items,GebruikteHalffabItems)
+	} else {
+		set Iterator = ##class(TECH.ListIterator).%New(GebruikteHalffabItems)
+		while Iterator.HasNext() {
+			#dim GebruiktHalffabItem As %String = Iterator.Next()
+			if $$$Not(HalffabKostItemBuilderSpy.Items.Find(GebruiktHalffabItem)) do ..Fail(GebruiktHalffabItem_" niet gevonden")
+		}
+			
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/GebruikteHalffabItemsVoorPrijsberekening/TestTAX.cls.xml
===================================================================
diff -u -r30221 -r30229
--- vhUnitTest/APPS/EC/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/GebruikteHalffabItemsVoorPrijsberekening/TestTAX.cls.xml	(.../TestTAX.cls.xml)	(revision 30221)
+++ vhUnitTest/APPS/EC/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/GebruikteHalffabItemsVoorPrijsberekening/TestTAX.cls.xml	(.../TestTAX.cls.xml)	(revision 30229)
@@ -3,10 +3,26 @@
 <Class name="vhUnitTest.APPS.EC.impl.VerkoopPrijsBepaler.BepaalVerkoopPrijs.GebruikteHalffabItemsVoorPrijsberekening.TestTAX">
 <Super>vhUnitTest.APPS.EC.impl.VerkoopPrijsBepaler.BepaalVerkoopPrijs.GebruikteHalffabItemsVoorPrijsberekening.TestBase</Super>
 
-<Method name="Test: TAX">
+<Method name="Test: Standaardlade">
 <Implementation><![CDATA[
+	#Dim GebruikteHalffabItems As %ListOfDataTypes = ..StandaardLadeItems()
+	do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), GebruikteHalffabItems, "The Art Of Organising")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade">
+<Implementation><![CDATA[
+	#Dim GebruikteHalffabItems As %ListOfDataTypes = ##class(TECH.ListUtils).AppendList(..StandaardLadeItems(),..StandaardBinnenladeItems())
+	do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade(), GebruikteHalffabItems, "The Art Of Organising")
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLadeItems">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
 	#Dim GebruikteHalffabItems As %ListOfDataTypes= ##class(%ListOfDataTypes).%New()
-	
+
 	do GebruikteHalffabItems.Insert("AfdekkapBoven.Links")
 	do GebruikteHalffabItems.Insert("AfdekkapBoven.Rechts")
 	do GebruikteHalffabItems.Insert("BodemOndersteuning")
@@ -32,8 +48,23 @@
 	    do GebruikteHalffabItems.Insert("Zijkant"_Kant_".ZijkantBevestigingVeer")
 	    do GebruikteHalffabItems.Insert("Zijkant"_Kant_".ZijkantPlaat")
 	}
+	
+	quit GebruikteHalffabItems
+]]></Implementation>
+</Method>
 
-	do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), GebruikteHalffabItems, "The Art Of Organising")
+<Method name="StandaardBinnenladeItems">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim GebruikteHalffabItems As %ListOfDataTypes= ##class(%ListOfDataTypes).%New()
+	do GebruikteHalffabItems.Insert("BodemOndersteuningSchroef")
+	do GebruikteHalffabItems.Insert("Front.FrontEindkap.Links")
+	do GebruikteHalffabItems.Insert("Front.FrontEindkap.Rechts")
+	do GebruikteHalffabItems.Insert("Front.FrontPlaat")
+	do GebruikteHalffabItems.Insert("Front.KantenBand")
+	do GebruikteHalffabItems.Insert("FrontBevestigingSchroef")
+	quit GebruikteHalffabItems
 ]]></Implementation>
 </Method>
 </Class>