Index: vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml
===================================================================
diff -u -r57786 -r59385
--- vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 57786)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 59385)
@@ -42,32 +42,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: MaakLijn voor Alpnach met BevestigingsSchroeven">
-<Implementation><![CDATA[
-	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
-	Do WinkelkarDummy.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
-	Do WinkelkarDummy.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).Alpnach())
-	#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
-	
-	#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(RandomIngegevenKenmerken, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
-	
-	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().BevatGeleiderBevestigingSchroeven)
-]]></Implementation>
-</Method>
-
 <Method name="Test Maaklijn roept de code aan om mee te leveren onderdelen door handel te bepalen">
 <Implementation><![CDATA[
 	#dim RandomPersonality as %String = "13"
@@ -189,6 +163,58 @@
 	Do DoorHandelMeeleverenBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: MaakLijn voor klant Alpnach -&gt; BevatGeleiderBevestigingSchroeven = true">
+<Implementation><![CDATA[
+	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Do WinkelkarDummy.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do WinkelkarDummy.ZetKlantID(##class(DOM.VKP.enu.Klant).Alpnach())
+	#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
+	
+	#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(RandomIngegevenKenmerken, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
+	
+	Do $$$AssertTrue(IngegevenKenmerken.BevatGeleiderBevestigingSchroeven)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakLijn voor klant Alpnach via SFS -&gt; BevatGeleiderBevestigingSchroeven = true">
+<Implementation><![CDATA[
+	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Do WinkelkarDummy.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
+	Do WinkelkarDummy.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).Alpnach())
+	#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
+	
+	#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(RandomIngegevenKenmerken, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
+	
+	Do $$$AssertTrue(IngegevenKenmerken.BevatGeleiderBevestigingSchroeven)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r57787 -r59385
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 57787)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 59385)
@@ -190,7 +190,7 @@
  	}
 	
 	if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) && (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach() ) {
+		if ..IsAlpnach(..Winkelkar) {
 			set IngegevenKenmerken.BevatGeleiderBevestigingSchroeven = $$$True
 		}
 	}
@@ -199,6 +199,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsAlpnach">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %String = $$$False
+	If ((..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach())) {
+		Set Resultaat = $$$True
+	}
+	If (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.Klant).Alpnach()) {
+		Set Resultaat = $$$True
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="VerplaatsLijnNaarGroepIndienNodig">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:%String</FormalSpec>
 <Implementation><![CDATA[