Index: DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r56968 -r59423
--- DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56968)
+++ DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 59423)
@@ -210,7 +210,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
 		}
 	}
@@ -246,6 +246,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>
 </Class>