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>