Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/ArrayMatcher.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/ArrayMatcher.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/ArrayMatcher.cls.xml	(revision 51462)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.ArrayMatcher">
+<Super>Tools.Mock.ArgumentMatchers.ObjectMatcher</Super>
+
+<Property name="VerwachtObject">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Matches">
+<FormalSpec>Object:%ArrayOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim IsMatch As %Boolean = $$$False
+	#dim Array as %Base = Object.%ConstructClone()
+	#dim VerwachteArray as %Base = ..VerwachtObject.%ConstructClone()
+	
+	If (Object.Count() = ..VerwachtObject.Count()) {
+		#dim ArrayKeysString as %String = ##class(TECH.ArrayUtils).ArrayKeysToPieces(Array)
+		#dim VerwachteArrayKeysString as %String = ##class(TECH.ArrayUtils).ArrayKeysToPieces(VerwachteArray)
+		
+		If (ArrayKeysString = VerwachteArrayKeysString) {
+			#dim ArrayValuesString as %String = ##class(TECH.ArrayUtils).ArrayToPieces(Array)
+			#dim VerwachteArrayValuesString as %String = ##class(TECH.ArrayUtils).ArrayToPieces(VerwachteArray)
+			
+			If (ArrayValuesString = VerwachteArrayValuesString) {
+				Set IsMatch = $$$True
+			}
+		}
+	}
+		
+	Quit IsMatch
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/Test.cls.xml
===================================================================
diff -u -r51460 -r51462
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/Test.cls.xml	(.../Test.cls.xml)	(revision 51460)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/Test.cls.xml	(.../Test.cls.xml)	(revision 51462)
@@ -3,52 +3,154 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="ProductId">
+<Parameter name="ProductId0">
 <Type>%String</Type>
 <Default>1000</Default>
 </Parameter>
 
+<Parameter name="ProductId1">
+<Type>%String</Type>
+<Default>1001</Default>
+</Parameter>
+
 <Parameter name="KlantId">
 <Type>%String</Type>
 <Default>K||1000</Default>
 </Parameter>
 
-<Method name="zTest: Default werking">
+<Method name="Test: BLUMOTION -&gt; vervangen door S-geleider">
 <Implementation><![CDATA[
-	Set HalffabGeleider = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider).%New(..#ProductId)
+	Set HalffabGeleider = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider).%New(..#ProductId0)
 	Set HalffabGeleider.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
 	Set HalffabGeleider.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
 	Set HalffabGeleider.LiRe = ##class(DOM.PM.enu.LiRe).Links()
 	
-	Do HalffabGeleider.InjectDependencies(..GeefProductServiceStub())
+	#dim DeAndereGeleiderTechnologie As %String = "TOB"
+	Do HalffabGeleider.InjectDependencies(..GeefProductServiceStubZelfdeProduct(HalffabGeleider, DeAndereGeleiderTechnologie))
 	
+	#dim Result = HalffabGeleider.GeefOmschrijvingVoorDocs()
 	
+	Do $$$AssertEquals(Result,"Geleider, 500mm, {PPS:LBX:Draagkracht}kg, Links")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BLUMOTION -&gt; eigen geleider">
+<Implementation><![CDATA[
+	Set HalffabGeleider = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider).%New(..#ProductId0)
+	Set HalffabGeleider.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
+	Set HalffabGeleider.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	Set HalffabGeleider.LiRe = ##class(DOM.PM.enu.LiRe).Links()
 	
+	#dim DeAndereGeleiderTechnologie As %String = "TOB"
+	Do HalffabGeleider.InjectDependencies(..GeefProductServiceStubAnderProduct(HalffabGeleider, DeAndereGeleiderTechnologie))
+	
 	#dim Result = HalffabGeleider.GeefOmschrijvingVoorDocs()
 	
 	Do $$$AssertEquals(Result,"Geleider, 500mm, {PPS:LBX:Draagkracht}kg, BLUMOTION, Links")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductServiceStub">
+<Method name="Test: TIPONBLUMOTION -&gt; vervangen door S-geleider">
+<Implementation><![CDATA[
+	Set HalffabGeleider = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider).%New(..#ProductId0)
+	Set HalffabGeleider.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	Set HalffabGeleider.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	Set HalffabGeleider.LiRe = ##class(DOM.PM.enu.LiRe).Links()
+	
+	#dim DeAndereGeleiderTechnologie As %String = "B"
+	Do HalffabGeleider.InjectDependencies(..GeefProductServiceStubZelfdeProduct(HalffabGeleider, DeAndereGeleiderTechnologie))
+	
+	#dim Result = HalffabGeleider.GeefOmschrijvingVoorDocs()
+	
+	Do $$$AssertEquals(Result,"Geleider, 500mm, {PPS:LBX:Draagkracht}kg, Links")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TIPONBLUMOTION -&gt; eigen geleider">
+<Implementation><![CDATA[
+	Set HalffabGeleider = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider).%New(..#ProductId0)
+	Set HalffabGeleider.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	Set HalffabGeleider.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	Set HalffabGeleider.LiRe = ##class(DOM.PM.enu.LiRe).Links()
+	
+	#dim DeAndereGeleiderTechnologie As %String = "B"
+	Do HalffabGeleider.InjectDependencies(..GeefProductServiceStubAnderProduct(HalffabGeleider, DeAndereGeleiderTechnologie))
+	
+	#dim Result = HalffabGeleider.GeefOmschrijvingVoorDocs()
+	
+	Do $$$AssertEquals(Result,"Geleider, 500mm, {PPS:LBX:Draagkracht}kg, TIP-ON BLUMOTION, Links")
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductServiceStubZelfdeProduct">
+<FormalSpec>HalffabGeleider:DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider,DeAndereGeleiderTechnologie:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.ProductService</ReturnType>
 <Implementation><![CDATA[
 	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
 	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
 	#dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	#dim BerekeningsSpecificatieDummy As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,..#KlantId,Personality)
-	Do BerekeningsSpecificatieDummy.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
 	
-	#dim HalffabContextStub As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.HalffabContextMock).%New(Familie, Variant, BerekeningsSpecificatieDummy)
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,..#KlantId,Personality)
+	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(..#ProductId0)
+	Set Lijst = ##class(%ListOfObjects).%New()
+	Do Lijst.Insert(Halffab)
+	
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt(HalffabGeleider.LadeDiepte,"LadeDiepte")
+	Do SelectieKenmerken.SetAt(HalffabGeleider.Draagkracht,"Draagkracht")
+	Do SelectieKenmerken.SetAt(DeAndereGeleiderTechnologie,"GeleiderTechnologie")
+	Do SelectieKenmerken.SetAt(HalffabGeleider.LiRe,"LiRe")
+	
+	Set KenmerkenMatcher = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.ArrayMatcher).%New(SelectieKenmerken)
+	
+	#dim HalffabContextStub As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.HalffabContextMock).%New(Familie, Variant, BerekeningsSpecificatie)
 	Do HalffabContextStub.IndienMethodCall("GeefBerekenDatum").DanReturn($Horolog)
+	Do HalffabContextStub.IndienMethodCall("SelecteerHalffabrikaten",$$$ElkeWaarde,KenmerkenMatcher,"Eenvoudige selectie").DanReturn(Lijst)
 	
 	Set ProductServiceStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.ProductService).%New()
 	Do ProductServiceStub.IndienMethodCall("GeefHalffabContext","Lade","LBX_Pure",$$$ElkeWaarde).DanReturn(HalffabContextStub)
 	
 	Quit ProductServiceStub
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductServiceStubAnderProduct">
+<FormalSpec>HalffabGeleider:DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider,DeAndereGeleiderTechnologie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.ProductService</ReturnType>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	#dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,..#KlantId,Personality)
+	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(..#ProductId1)
+	Set Lijst = ##class(%ListOfObjects).%New()
+	Do Lijst.Insert(Halffab)
+	
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt(HalffabGeleider.LadeDiepte,"LadeDiepte")
+	Do SelectieKenmerken.SetAt(HalffabGeleider.Draagkracht,"Draagkracht")
+	Do SelectieKenmerken.SetAt(DeAndereGeleiderTechnologie,"GeleiderTechnologie")
+	Do SelectieKenmerken.SetAt(HalffabGeleider.LiRe,"LiRe")
+	
+	Set KenmerkenMatcher = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.ArrayMatcher).%New(SelectieKenmerken)
+	
+	#dim HalffabContextStub As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider.HalffabContextMock).%New(Familie, Variant, BerekeningsSpecificatie)
+	Do HalffabContextStub.IndienMethodCall("GeefBerekenDatum").DanReturn($Horolog)
+	Do HalffabContextStub.IndienMethodCall("SelecteerHalffabrikaten",$$$ElkeWaarde,KenmerkenMatcher,"Eenvoudige selectie").DanReturn(Lijst)
+	
+	Set ProductServiceStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.ProductService).%New()
+	Do ProductServiceStub.IndienMethodCall("GeefHalffabContext","Lade","LBX_Pure",$$$ElkeWaarde).DanReturn(HalffabContextStub)
+	
+	Quit ProductServiceStub
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml
===================================================================
diff -u -r51455 -r51462
--- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml	(.../HalffabGeleider.cls.xml)	(revision 51455)
+++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml	(.../HalffabGeleider.cls.xml)	(revision 51462)
@@ -62,26 +62,26 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-	Do SelectieKenmerken.SetAt(..LadeDiepte,"LadeDiepte")
-	Do SelectieKenmerken.SetAt(..Draagkracht,"Draagkracht")
-	
 	#dim DeAndereGeleiderTechnologie = ""
 	Set:..GeleiderTechnologie="TOB" DeAndereGeleiderTechnologie="B"
 	Set:..GeleiderTechnologie="B" DeAndereGeleiderTechnologie="TOB"
-	Do SelectieKenmerken.SetAt("B","GeleiderTechnologie")
+	
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt(..LadeDiepte,"LadeDiepte")
+	Do SelectieKenmerken.SetAt(..Draagkracht,"Draagkracht")
+	Do SelectieKenmerken.SetAt(DeAndereGeleiderTechnologie,"GeleiderTechnologie")
 	Do SelectieKenmerken.SetAt(..LiRe,"LiRe")
 	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||1000"
 	#dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
 	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
 	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
 	Set HalffabContext = ..ProductService.GeefHalffabContext(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).LegraboxPure(),BerekeningsSpecificatie)
 	
 	Set Lijst = ##class(%ListOfObjects).%New()
 	Set Lijst = HalffabContext.SelecteerHalffabrikaten(##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFGeleiderv000).%New(""),SelectieKenmerken,"Eenvoudige selectie")
-	Quit $$$Not(Lijst.GetAt(1).ProductID = ..ProductID)
+	Quit $$$Not(Lijst.GetAt(1).GeefProductID() = ..ProductID)
 ]]></Implementation>
 </Method>