Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/SST/TestSpecKostv001.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/SST/TestSpecKostv001.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/SST/TestSpecKostv001.cls.xml	(revision 61779)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Kost.impl.SST.TestSpecKostv001">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestKostSpaceStepSokkelEnTablet">
+<Implementation><![CDATA[
+	Set HalffabItemBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext).%New()
+	
+	Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.SST.SpecKostv001).%New()
+	
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	
+	Set Kenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Blumotion() 
+	Set Kenmerken.Breedte = 600 + (2*18) + (2*50)
+	Set Kenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte555() 
+	Set Kenmerken.Hoogte = 180
+	Set Kenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs() 
+	Set Kenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).SokkelEnTablet() 
+	Set Kenmerken.StekkerServodrive = $$$False
+	Set Kenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
+	
+	#dim TotaleKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostSpec.BerekenKostDetails(KostContext,HalffabItemBoom,Kenmerken)
+	
+	#dim TotaleKostItemsIterator As TECH.Iterator = TotaleKost.GeefKostItemsIterator()
+	#dim VerwerkenKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = TotaleKostItemsIterator.Next()
+	Do $$$AssertEquals(VerwerkenKost.GeefNaam(),"Kost uitvoering volledig")
+	
+	#dim VerwerkenKostIterator As TECH.Iterator = VerwerkenKost.GeefKostItemsIterator()
+	Do $$$AssertEquals(VerwerkenKostIterator.Next().GeefNaam(),"montage van de space step") // Het ActiviteitKostItem
+	Do $$$AssertFalse(VerwerkenKostIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="TestKostSpaceStepUitvoeringTablet">
+<Implementation><![CDATA[
+	Set HalffabItemBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext).%New()
+	
+	Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.SST.SpecKostv001).%New()
+	
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	
+	Set Kenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Servodrive() 
+	Set Kenmerken.Breedte = 600 + (2*18) + (2*50)
+	Set Kenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte555() 
+	Set Kenmerken.Hoogte = 180
+	Set Kenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs() 
+	Set Kenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).Tablet() 
+	Set Kenmerken.StekkerServodrive = $$$True
+	Set Kenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
+	
+	#dim TotaleKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostSpec.BerekenKostDetails(KostContext,HalffabItemBoom,Kenmerken)
+	
+	#dim TotaleKostItemsIterator As TECH.Iterator = TotaleKost.GeefKostItemsIterator()
+	#dim VerwerkenKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = TotaleKostItemsIterator.Next()
+	Do $$$AssertEquals(VerwerkenKost.GeefNaam(),"Kost uitvoering tablet")
+	
+	#dim VerwerkenKostIterator As TECH.Iterator = VerwerkenKost.GeefKostItemsIterator()
+	Do $$$AssertEquals(VerwerkenKostIterator.Next().GeefNaam(),"montage van de space step") // Het ActiviteitKostItem
+	Do $$$AssertFalse(VerwerkenKostIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Normaal hoort bij uitvoering volledig ook nog een lade maar voor deze test hoeft dat niet omdat puur de kost van SpaceStep getest wordt
+
+]]></Content>
+</UDLText>
+
+<Method name="TestKostSpaceStepUitvoeringVolledig">
+<Implementation><![CDATA[
+	Set HalffabItemBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext).%New()
+	
+	Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.SST.SpecKostv001).%New()
+	
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	
+	Set Kenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Servodrive() 
+	Set Kenmerken.Breedte = 600 + (2*18) + (2*50)
+	Set Kenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte555() 
+	Set Kenmerken.Hoogte = 180
+	Set Kenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs() 
+	Set Kenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).Volledig() 
+	Set Kenmerken.StekkerServodrive = $$$True
+	Set Kenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
+	
+	#dim TotaleKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostSpec.BerekenKostDetails(KostContext,HalffabItemBoom,Kenmerken)
+	
+	#dim TotaleKostItemsIterator As TECH.Iterator = TotaleKost.GeefKostItemsIterator()
+	#dim VerwerkenKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = TotaleKostItemsIterator.Next()
+	Do $$$AssertEquals(VerwerkenKost.GeefNaam(),"Kost uitvoering volledig")
+	
+	#dim VerwerkenKostIterator As TECH.Iterator = VerwerkenKost.GeefKostItemsIterator()
+	Do $$$AssertEquals(VerwerkenKostIterator.Next().GeefNaam(),"montage van de space step") // Het ActiviteitKostItem
+	Do $$$AssertFalse(VerwerkenKostIterator.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>