Index: CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml
===================================================================
diff -u -r44548 -r44640
--- CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml	(.../OrderSluiterFactory.cls.xml)	(revision 44548)
+++ CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml	(.../OrderSluiterFactory.cls.xml)	(revision 44640)
@@ -24,19 +24,38 @@
 <FormalSpec>ORDNr:%String</FormalSpec>
 <ReturnType>TECH.RegisteredObject</ReturnType>
 <Implementation><![CDATA[
-	If ..OrderAPI.BestaatOrder(ORDNr) {
-		#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(ORDNr)
-		#dim TijdelijkOrderSluitenActief as %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("TijdelijkOrderSluitenActief")
-		if TijdelijkOrderSluitenActief && ( $$$Not(Order.IsBevestigdKlantOrder()) && $$$Not((Order.GeefOrderType() = ##class(DOM.VKP.enu.OrderType).Transfer())) ){
-			Quit ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New()
-		} else {
-			Quit ##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%New()
-		}
+	Do ..ValideerOrderNr(ORDNr)
+	
+	if ..IsTijdelijkOrder(ORDNr) {
+		Quit ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New()
 	} else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen Ordersluiter geven voor onbestaande Order '"_ORDNr_"'"))
+		Quit ##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%New()
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsTijdelijkOrder">
+<FormalSpec>OrdNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(OrdNr)
+	#dim IsTijdelijkOrder as %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("TijdelijkOrderSluitenActief")
+	Set IsTijdelijkOrder = IsTijdelijkOrder && $$$Not(Order.IsBevestigdKlantOrder())
+	Set IsTijdelijkOrder = IsTijdelijkOrder && $$$Not(Order.GeefOrderType() = ##class(DOM.VKP.enu.OrderType).Transfer())
+	Quit IsTijdelijkOrder
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOrderNr">
+<FormalSpec>OrdNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(..OrderAPI.BestaatOrder(OrdNr)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen Ordersluiter geven voor onbestaande Order '"_OrdNr_"'"))
+	}
+]]></Implementation>
+</Method>
 </Class>