Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml
===================================================================
diff -u -r53287 -r53489
--- vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 53287)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 53489)
@@ -64,6 +64,8 @@
 </Method>
 
 <Method name="LadeMetVeelExtras">
+<Description>
+Wel voor convertoren, niet voor Builders gebruiken (lade is in de praktijk niet te configureren (TOB en diepteverstelling niet te combineren)</Description>
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
Index: vhTest/Fake/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r39527 -r53489
--- vhTest/Fake/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 39527)
+++ vhTest/Fake/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 53489)
@@ -17,6 +17,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="ZetDoorHandelMeeTeLeverens">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Personality:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="IngaveGroeperingGewijzigd">
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,GroepNaam:%String,LijnIDIndienBestaandeLijn:%String=""</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r52614 -r53489
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 52614)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 53489)
@@ -84,6 +84,20 @@
 
 	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 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>
@@ -114,6 +128,31 @@
 ]]></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 -r52727 -r53489
--- vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 52727)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 53489)
@@ -6,6 +6,7 @@
 <Method name="Test: MaakLijn">
 <Implementation><![CDATA[
 	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Do WinkelkarDummy.ZetPersonalityID(1)
 	#dim RandomIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	#dim RandomAantal As %Integer = 2
 	#dim RandomProjectReferentie As %String = "RandomProjectReferentie"
@@ -32,6 +33,117 @@
 	Do $$$AssertTrue(WinkelkarDummy.HeeftHerbestellingBijProbleem())
 ]]></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)
+]]></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 -r52597 -r53489
--- DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 52597)
+++ DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 53489)
@@ -62,6 +62,11 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="DoorHandelMeeLeverens">
+<Type>%Numeric</Type>
+<Collection>array</Collection>
+</Property>
+
 <Index name="IKIDIndex">
 <Properties>IKID</Properties>
 </Index>
@@ -250,6 +255,11 @@
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>MaatwerkLijnDefaultData</DefaultData>
+<Data name="DoorHandelMeeLeverens">
+<Attribute>DoorHandelMeeLeverens</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"DOM.EC.Winkelkar.MaatwerkLijn.DoorHandelMeeLeverens"</Subscript>
+</Data>
 <Data name="MaatwerkLijnDefaultData">
 <Subscript>"MaatwerkLijn"</Subscript>
 <Value name="1">