Index: APPS/VKP/impl/LeveringsTermijnFactory.cls.xml
===================================================================
diff -u -r39894 -r53073
--- APPS/VKP/impl/LeveringsTermijnFactory.cls.xml	(.../LeveringsTermijnFactory.cls.xml)	(revision 39894)
+++ APPS/VKP/impl/LeveringsTermijnFactory.cls.xml	(.../LeveringsTermijnFactory.cls.xml)	(revision 53073)
@@ -4,11 +4,31 @@
 <Super>APPS.VKP.LeveringsTermijnFactory,TECH.RegisteredObject</Super>
 
 <Method name="MaakLeveringsTermijn">
-<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze</FormalSpec>
+<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,KlantID:DOM.common.PartijID="",PersonalityID:%String=""</FormalSpec>
 <ReturnType>APPS.VKP.LeveringsTermijn</ReturnType>
-<Implementation><![CDATA[		quit ##class(APPS.VKP.LeveringsTermijn).%New(RefDate,blVerzendWijze)
+<Implementation><![CDATA[
+	#dim LeveringsTermijn As APPS.VKP.LeveringsTermijn = ""
+	
+	If ..IsSFS(KlantID, PersonalityID) {
+		Set LeveringsTermijn =  ##class(APPS.VKP.LeveringsTermijnSFS).%New(RefDate,blVerzendWijze)
+	} Else {
+		Set LeveringsTermijn =  ##class(APPS.VKP.LeveringsTermijn).%New(RefDate,blVerzendWijze)
+	}
+	
+	Quit LeveringsTermijn
 ]]></Implementation>
 </Method>
+
+<Method name="IsSFS">
+<FormalSpec>KlantID:DOM.common.PartijID="",PersonalityID:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsSFS As %Boolean = (KlantID = ##class(DOM.VKP.enu.Klant).SFS()) || (PersonalityID = ##class(DOM.common.enu.Personality).SFS())
+	Set IsSFS = IsSFS && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefSFSLeverdatums()
+	Quit IsSFS
+]]></Implementation>
+</Method>
 </Class>