Index: APPS/VKP/OrderIngaveService/LeverDatumBepaler.cls.xml
===================================================================
diff -u -r53054 -r53071
--- APPS/VKP/OrderIngaveService/LeverDatumBepaler.cls.xml	(.../LeverDatumBepaler.cls.xml)	(revision 53054)
+++ APPS/VKP/OrderIngaveService/LeverDatumBepaler.cls.xml	(.../LeverDatumBepaler.cls.xml)	(revision 53071)
@@ -25,7 +25,7 @@
 <Implementation><![CDATA[
 	#dim LeverDatum As %Date = Offerte.GeefLeverDatum()
 	
-	If (Offerte.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS()) {
+	If ..IsSFS(Offerte.GeefPersonalityID()) {
 		
 		If ..SFSKalenderRepository.BestaatViaDeliveryDate(LeverDatum) {
 			#dim SFSKalender As APPS.EC.impl.LeverdatumBepaler.Data.SFSKalender = ""
@@ -42,6 +42,16 @@
 	Quit LeverDatum
 ]]></Implementation>
 </Method>
+
+<Method name="IsSFS">
+<FormalSpec>PersonalityID:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsSFS As %Boolean = (PersonalityID = ##class(DOM.common.enu.Personality).SFS())
+	Quit IsSFS
+]]></Implementation>
+</Method>
 </Class>