Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(revision 0)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(revision 44548)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Sluit">
+<FormalSpec>ORDNr:%String,KLNr:%String,KlantObject:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	if ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("AX2A_SalesOrderOut_FileGenerationNeeded") {
+		set Generator = ##class(AXimpl.Generator).%New()
+		set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",ORDNr)
+		do Generator.Generate(Request)
+	}
+	; placeholder Order verwijderen
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml	(revision 0)
+++ vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml	(revision 44548)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.CHUI.VKP.OrderIngave.OrderSluiterFactory.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Factory geeft exception indien order niet bestaat">
+<Implementation><![CDATA[
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.IndienMethodCall("BestaatOrder","1000").DanReturn($$$False)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan geen Ordersluiter geven voor onbestaande Order '1000'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)	
+	Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+]]></Implementation>
+</Method>
+
+<Method name="Test Factory geeft OrderSluiterv01 terug indien configitem false">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean( "TijdelijkOrderSluitenActief" , $$$False, ..#Applicatie)
+	
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	
+	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
+	Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+	
+	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
+	Do OrderAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Factory geeft OrderSluiterv01 voor TransferOrder">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean( "TijdelijkOrderSluitenActief" , $$$True, ..#Applicatie)
+	
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefOrderType").DanReturn(##class(DOM.VKP.enu.OrderType).Transfer())
+	Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$False)
+	
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	
+	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
+	Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+	
+	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
+	Do OrderAPIMock.Verifieer()
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Factory geeft OrderSluiterv01 voor bevestigd klantorder">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean( "TijdelijkOrderSluitenActief" , $$$True, ..#Applicatie)
+	
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$True)
+	
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	
+	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
+	Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+	
+	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
+	Do OrderAPIMock.Verifieer()
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Factory geeft TijdelijkOrderSluiterv01 voor tijdelijk order">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean( "TijdelijkOrderSluitenActief" , $$$True, ..#Applicatie)
+	
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$False)
+	Do OrderMock.VerwachtMethodCall("GeefOrderType").DanReturn("")
+	
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	
+	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
+	Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+	
+	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%ClassName(1))
+	Do OrderAPIMock.Verifieer()
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml	(revision 0)
+++ CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml	(revision 44548)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderIngave.OrderSluiterFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderSluiter">
+<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()
+		}
+	} else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen Ordersluiter geven voor onbestaande Order '"_ORDNr_"'"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>