Index: vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml
===================================================================
diff -u -r56968 -r57786
--- vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 56968)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 57786)
@@ -3,6 +3,14 @@
 <Class name="vhUnitTest.APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID("")
+]]></Implementation>
+</Method>
+
 <Method name="Test: MaakLijn">
 <Implementation><![CDATA[
 	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
@@ -91,6 +99,96 @@
 	Do DoorHandelMeeleverenBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test Maaklijn roept de code aan om mee te leveren onderdelen door handel te bepalen Daroexcludedenabled true">
+<Implementation><![CDATA[
+	
+	#dim DaroPersonalityID as %String = "10"
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(DaroPersonalityID)
+	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Do WinkelkarDummy.ZetPersonalityID(DaroPersonalityID)
+	Set WinkelkarDummy.ApplicatieType = ##class(APPS.common.enu.ApplicatieType).Extern() 
+	#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"
+	#dim RandomExterneId As %String = "RandomExterneId"
+	#dim RandomEconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
+	#dim AdminVriendelijkeTekst As %String = "AdminVriendelijkeTekst"
+	#dim HerbestellingBijProbleem as %Boolean = $$$True
+	
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )	
+	
+	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
+	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", RandomProjectReferentie).DanReturn(AdminVriendelijkeTekst)
+	
+	Set DoorHandelMeeleverenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler).%New()
+	Do DoorHandelMeeleverenBepalerMock.VerwachtMethodCall("ZetDoorHandelMeeleverens",..Matches.IsA("DOM.EC.Winkelkar.MaatwerkLijn")).DanDoeNiks()
+
+	Set DoorHandelMeeleverenBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New()
+	Do DoorHandelMeeleverenBepalerFactoryMock.VerwachtMethodCall("GeefDoorHandelMeeleverenBepaler",10).DanReturn(DoorHandelMeeleverenBepalerMock)
+	
+	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub,DoorHandelMeeleverenBepalerFactoryMock,ProjectSettingsAPIMock)
+	
+	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(RandomIngegevenKenmerken, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
+	
+	Do $$$AssertEquals(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Count(),0)
+	
+	
+	Do ProjectSettingsAPIMock.Verifieer()
+	Do DoorHandelMeeleverenBepalerFactoryMock.Verifieer()
+	Do DoorHandelMeeleverenBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Maaklijn roept de code aan om mee te leveren onderdelen door handel te bepalen Daroexcludedenabled false">
+<Implementation><![CDATA[
+	
+	#dim DaroPersonalityID as %String = "10"
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(DaroPersonalityID)
+	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Do WinkelkarDummy.ZetPersonalityID(DaroPersonalityID)
+	Set WinkelkarDummy.ApplicatieType = ##class(APPS.common.enu.ApplicatieType).Extern() 
+	#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"
+	#dim RandomExterneId As %String = "RandomExterneId"
+	#dim RandomEconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
+	#dim AdminVriendelijkeTekst As %String = "AdminVriendelijkeTekst"
+	#dim HerbestellingBijProbleem as %Boolean = $$$True
+	
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$False )	
+	
+	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
+	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", RandomProjectReferentie).DanReturn(AdminVriendelijkeTekst)
+	
+	Set DoorHandelMeeleverenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler).%New()
+	Do DoorHandelMeeleverenBepalerMock.VerwachtMethodCall("ZetDoorHandelMeeleverens",..Matches.IsA("DOM.EC.Winkelkar.MaatwerkLijn")).DanDoeNiks()
+
+	Set DoorHandelMeeleverenBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New()
+	Do DoorHandelMeeleverenBepalerFactoryMock.VerwachtMethodCall("GeefDoorHandelMeeleverenBepaler",10).DanReturn(DoorHandelMeeleverenBepalerMock)
+	
+	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub,DoorHandelMeeleverenBepalerFactoryMock,ProjectSettingsAPIMock)
+	
+	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(RandomIngegevenKenmerken, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
+	
+	Do $$$AssertEquals(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Count(),6)
+	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder()))
+	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers()))
+	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang()))
+	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang()))
+	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel()))
+	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().NietMeeleveren.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).FrontBevestiging()))
+	
+	
+	Do ProjectSettingsAPIMock.Verifieer()
+	Do DoorHandelMeeleverenBepalerFactoryMock.Verifieer()
+	Do DoorHandelMeeleverenBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r56968 -r57786
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56968)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 57786)
@@ -57,8 +57,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettings">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils="",DoorHandelMeeleverenBepalerFactory:APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory</FormalSpec>
+<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils="",DoorHandelMeeleverenBepalerFactory:APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory,ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -72,7 +77,7 @@
 	Set ..DomIngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	Set ..AppsDtoIngegevenKenmerkenTypeAPI = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	Set ..DoorHandelMeeleverenBepalerFactory = $$$Inject(DoorHandelMeeleverenBepalerFactory,##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New())
-
+	Set ..ProjectSettings = $$$Inject(ProjectSettings, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -94,6 +99,7 @@
 	Set Lijn.EconConfiguratieSleutel = EconConfiguratieSleutel
 	
 	Do Lijn.ZetAantal(Aantal)
+	Do ##class(Tools.Wlip).%New(207).String("awel")
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken)
 
 	Do ..ZetProjectReferentie(Lijn,ProjectReferentie)
@@ -144,6 +150,7 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+
 	If ..Winkelkar.GeefApplicatieType() = ##class(APPS.common.enu.ApplicatieType).Extern() {
 		If ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) 
 			&& ( ( IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure()) && ( IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade() ) )
@@ -155,7 +162,7 @@
 				}
 			}
 			If ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID() = ##class(DOM.common.enu.Personality).Daro(){
-				If $$$Not(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsDaroExcludeFromDeliveryEnabled()){
+				If $$$Not(..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()){
 					If (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
 						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder())
 						Do IngegevenKenmerkenDto.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers())
Index: vhTest/Mock/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r56101 -r57786
--- vhTest/Mock/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56101)
+++ vhTest/Mock/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 57786)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils="",DoorHandelMeeleverenBepalerFactory:APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory</FormalSpec>
+<FormalSpec>VerpakkingService:APPS.PM.Maatwerk.impl.VerpakkingService="",AdminTekstUtils:APPS.common.AdminTekstUtils="",DoorHandelMeeleverenBepalerFactory:APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory,ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>