Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r53489 -r53499
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 53489)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 53499)
@@ -43,8 +43,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DoorHandelMeeleverenBepalerFactory">
+<Type>APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils=""</FormalSpec>
+<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils="",DoorHandelMeeleverenBepalerFactory:APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -56,6 +61,7 @@
 	Set ..VerpakteAfmetingBerekenaarFactory = ##class(APPS.EC.Winkelkar.impl.VerpakteAfmetingBerekenaarFactory).%New()
 	Set ..VerpakkingService = $$$Inject(VerpakkingService, ##class(APPS.PM.Maatwerk.impl.VerpakkingService).%New())
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	Set ..DoorHandelMeeleverenBepalerFactory = $$$Inject(DoorHandelMeeleverenBepalerFactory,##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -84,20 +90,9 @@
 
 	Do ..VoegToeAanGroep(GroepNaam, Lijn)
 
-	Do Lijn.DoorHandelMeeLeverens.Clear()
-	#dim GlijderRol as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()
-	Do ..ZetDoorHandelMeeLeverensVoorRol(Lijn,GlijderRol,..Winkelkar.GeefPersonality().GeefID())
+	#dim DoorHandelMeeleverenBepaler as APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler = ..DoorHandelMeeleverenBepalerFactory.GeefDoorHandelMeeleverenBepaler(..Winkelkar.GeefPersonality().GeefID())
+	Do DoorHandelMeeleverenBepaler.ZetDoorHandelMeeleverens(Lijn)
 
-	#dim TOBRol1 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponBlumotionSetEenhedenEnMeenemers() ; waar ook de adapter in zit
-	Do ..ZetDoorHandelMeeLeverensVoorRol(Lijn,TOBRol1,..Winkelkar.GeefPersonality().GeefID())
-	#dim TOBRol2 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponBlumotionSynchronisatieStang()
-	Do ..ZetDoorHandelMeeLeverensVoorRol(Lijn,TOBRol2,..Winkelkar.GeefPersonality().GeefID())
-	
-	#dim TSRol1 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang()
-	Do ..ZetDoorHandelMeeLeverensVoorRol(Lijn,TSRol1,..Winkelkar.GeefPersonality().GeefID())
-	#dim TSRol2 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieTandwiel()
-	Do ..ZetDoorHandelMeeLeverensVoorRol(Lijn,TSRol2,..Winkelkar.GeefPersonality().GeefID())
-
 	Set Lijn.HerbestellingBijProbleem = HerbestellingBijProbleem
 	Quit Lijn
 ]]></Implementation>
@@ -128,31 +123,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetDoorHandelMeeLeverensVoorRol">
-<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Rol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol,Personality:DOM.common.enu.Personality</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	; nog refactoren + factory
-	if (Personality = ##class(DOM.common.enu.Personality).BeslagDesign()) {
-		If (Lijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-			#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
-			;Geen glijders
-			#dim HFItemIterator as TECH.Iterator = HalffabItemsBoom.GeefHalffabItemsIterator( Rol )
-			While (HFItemIterator.HasNext()){
-				#dim Item as DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HFItemIterator.Next()
-				Do ##class(Tools.Wlip).%New(207).String(Item.GeefHalffab().GeefProductID())
-				Do ##class(Tools.Wlip).%New(207).String(Item.Aantal * Lijn.Aantal)			
-				#Dim PRNr as %String = Item.GeefHalffab().GeefProductID()	
-				Do ##class(Tools.Wlip).%New(207).String("PRNr " _ PRNr)
-				#dim OldAantal as %Numeric = Lijn.DoorHandelMeeLeverens.GetAt(PRNr)
-				#Dim NieuwAantal as %Numeric = OldAantal + (##class(TECH.Math).Ceil(Item.Aantal,1) * Lijn.Aantal)
-				Do Lijn.DoorHandelMeeLeverens.SetAt(NieuwAantal ,PRNr)
-			}
-		}
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ResetBerekendeProductID">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml
===================================================================
diff -u -r53489 -r53499
--- vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 53489)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 53499)
@@ -34,116 +34,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Maaklijn zet de mee te leveren onderdelen door Beslag Design Bluemotion">
-<Implementation><![CDATA[
-	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
-	Do WinkelkarDummy.ZetPersonalityID(14)
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = $$$False ; anders ongeldige combinatie Kenmerken : niet configureerbare lade
-	#dim Aantal As %Integer = 2
-	#dim ProjectReferentie As %String = "RandomProjectReferentie"
-	#dim ExterneId As %String = "RandomExterneId"
-	#dim EconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
-	#Dim HerbestellingBijProbleem as %Boolean = $$$False
-	
-	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
-	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", ProjectReferentie).DanReturn(ProjectReferentie)
-	
-	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub)
-	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, "RandomGroepNaam", ExterneId, EconConfiguratieSleutel,HerbestellingBijProbleem)
-		
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.Count(),1)
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("685058"),2)
+<Method name="Test Maaklijn roept de code aan om mee te leveren onderdelen door Beslag Design te bepalen">
+<Implementation><![CDATA[	Do $$$AssertTrue($$$False)
 ]]></Implementation>
 </Method>
-
-<Method name="Test Maaklijn zet de mee te leveren onderdelen door Beslag Design TOB">
-<Implementation><![CDATA[
-	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
-	Do WinkelkarDummy.ZetPersonalityID(14)
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).LadeMetVeelExtras()
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = $$$False ; anders ongeldige combinatie Kenmerken : niet configureerbare lade
-	#dim Aantal As %Integer = 2
-	#dim ProjectReferentie As %String = "RandomProjectReferentie"
-	#dim ExterneId As %String = "RandomExterneId"
-	#dim EconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
-	#Dim HerbestellingBijProbleem as %Boolean = $$$False
-	
-	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
-	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", ProjectReferentie).DanReturn(ProjectReferentie)
-	
-	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub)
-	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, "RandomGroepNaam", ExterneId, EconConfiguratieSleutel,HerbestellingBijProbleem)
-		
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.Count(),3)
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("1214599"),2)
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("1887909"),2)
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("1297240"),2)
-]]></Implementation>
-</Method>
-
-<Method name="Test Maaklijn zet de mee te leveren onderdelen door Beslag Design Tipon">
-<Implementation><![CDATA[
-	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
-	Do WinkelkarDummy.ZetPersonalityID(14)
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = $$$False ; anders ongeldige combinatie Kenmerken : niet configureerbare lade
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPON()
-	#dim Aantal As %Integer = 2
-	#dim ProjectReferentie As %String = "RandomProjectReferentie"
-	#dim ExterneId As %String = "RandomExterneId"
-	#dim EconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
-	#Dim HerbestellingBijProbleem as %Boolean = $$$False
-	
-	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
-	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", ProjectReferentie).DanReturn(ProjectReferentie)
-	
-	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub)
-	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, "RandomGroepNaam", ExterneId, EconConfiguratieSleutel,HerbestellingBijProbleem)
-
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.Count(),3)		
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("726714"),2)
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("88775"),2)
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.GetAt("1194375"),2)
-]]></Implementation>
-</Method>
-
-<Method name="Test Maaklijn zet de mee te leveren onderdelen door Beslag Design niet indien de eindklant ze al als niet meeteleveren markeerde">
-<Implementation><![CDATA[
-	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
-	Do WinkelkarDummy.ZetPersonalityID(14)
-	#dim IngegevenKenmerkenMetGlijderNietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	Do IngegevenKenmerkenMetGlijderNietMeeleveren.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder())
-	#dim RandomAantal As %Integer = 2
-	#dim RandomProjectReferentie As %String = "RandomProjectReferentie"
-	#dim RandomExterneId As %String = "RandomExterneId"
-	#dim RandomEconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
-	#dim AdminVriendelijkeTekst As %String = "AdminVriendelijkeTekst"
-	#dim HerbestellingBijProbleem as %Boolean = $$$True
-	
-	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
-	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", RandomProjectReferentie).DanReturn(AdminVriendelijkeTekst)
-	
-	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub)
-	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
-	
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerkenMetGlijderNietMeeleveren, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
-	
-	Do $$$AssertEquals(MaatwerkLijn.ExterneId, RandomExterneId)
-	Do $$$AssertEquals(MaatwerkLijn.GeefEconConfiguratieSleutel(), RandomEconConfiguratieSleutel)
-	Do $$$AssertEquals(MaatwerkLijn.GeefAantal(), RandomAantal)
-	Do $$$AssertEquals(IngegevenKenmerken.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken")
-	Do $$$AssertEquals(MaatwerkLijn.GeefProjectReferentie(), AdminVriendelijkeTekst)
-	Do $$$AssertTrue(MaatwerkLijn.GeefHerbestellingBijProbleem())
-	Do $$$AssertTrue(WinkelkarDummy.HeeftHerbestellingBijProbleem())
-	
-	Do $$$AssertEquals(MaatwerkLijn.DoorHandelMeeLeverens.Count(),0)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/EC/Winkelkar/MaatwerkLijn.cls.xml
===================================================================
diff -u -r53489 -r53499
--- DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 53489)
+++ DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 53499)
@@ -62,7 +62,7 @@
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="DoorHandelMeeLeverens">
+<Property name="DoorHandelMeeleverens">
 <Type>%Numeric</Type>
 <Collection>array</Collection>
 </Property>
@@ -112,6 +112,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetDoorHandelMeeleverenProductEnAantal">
+<FormalSpec>PRNr:%String,Aantal:%Numeric</FormalSpec>
+<Implementation><![CDATA[	Do ..DoorHandelMeeleverens.SetAt(Aantal,PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalDoorHandelMeeLeveren">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..DoorHandelMeeleverens.GetAt(PRNr)
+]]></Implementation>
+</Method>
+
 <Method name="ZetHerbestellingBijProbleem">
 <FormalSpec>HerbestellingBijProbleem:%Boolean</FormalSpec>
 <Implementation><![CDATA[	Set ..HerbestellingBijProbleem = HerbestellingBijProbleem
@@ -255,10 +268,10 @@
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>MaatwerkLijnDefaultData</DefaultData>
-<Data name="DoorHandelMeeLeverens">
-<Attribute>DoorHandelMeeLeverens</Attribute>
+<Data name="DoorHandelMeeleverens">
+<Attribute>DoorHandelMeeleverens</Attribute>
 <Structure>subnode</Structure>
-<Subscript>"DOM.EC.Winkelkar.MaatwerkLijn.DoorHandelMeeLeverens"</Subscript>
+<Subscript>"DOM.EC.Winkelkar.MaatwerkLijn.DoorHandelMeeleverens"</Subscript>
 </Data>
 <Data name="MaatwerkLijnDefaultData">
 <Subscript>"MaatwerkLijn"</Subscript>