Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r59055 -r59417
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 59417)
@@ -64,6 +64,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test HahleOy waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX gewone lade">
+<Implementation><![CDATA[
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).HahleOy()		
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$False)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+		
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
+<Method name="Test HahleOy waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX binnenlade dus koppeling en front gemonteerd">
+<Implementation><![CDATA[
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).HahleOy()		
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$True)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),5)
+		
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
 <Method name="Test Pavanello waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX">
 <Implementation><![CDATA[
 	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()