Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml
===================================================================
diff -u -r49513 -r49515
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(.../Test.cls.xml)	(revision 49513)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(.../Test.cls.xml)	(revision 49515)
@@ -18,21 +18,17 @@
 	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").DanReturn($$$True)
 	Do OrderSluiterMock.VerwachtMethodCall("Sluit","100000","","").ExactAantalKeer(1).DanDoeNiks()
 	
-	Set OrderSluiterFactoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiterFactory).%New()
-	Do OrderSluiterFactoryMock.VerwachtMethodCall("GeefOrderSluiter","100000").DanReturn(OrderSluiterMock)
-	
 	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefBerekendeTotaalBedrag",OfferteMock).DanReturn(0)
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteMock)
 	
 	Set MailerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New()
 
-	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterFactoryMock, OfferteServiceMock, MailerMock)
+	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterMock, OfferteServiceMock, MailerMock)
 	Do OrderSluiter.MaakEnSluitOrderViaOfferteID("OfferteID")
 	
 	Do OfferteMock.Verifieer()
 	Do OrderIngaveServiceMock.Verifieer()
-	Do OrderSluiterFactoryMock.Verifieer()
 	Do OrderSluiterMock.Verifieer()
 	Do OfferteServiceMock.Verifieer()
 ]]></Implementation>
@@ -53,9 +49,6 @@
 	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").Nooit()
 	Do OrderSluiterMock.VerwachtMethodCall("Sluit","100000","","").Nooit()
 	
-	Set OrderSluiterFactoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiterFactory).%New()
-	Do OrderSluiterFactoryMock.VerwachtMethodCall("GeefOrderSluiter","100000").Nooit()
-	
 	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefBerekendeTotaalBedrag",OfferteMock).DanReturn(72)
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteMock)
@@ -64,13 +57,12 @@
 	#dim Melding As %String = "De Vhisie4 offerte met offerteID 'OfferteID' wordt niet automatisch verwerkt door prijsverschillen : Totaalbedrag webshop : 81 EUR <> Totaalbedrag offerte : 72 EUR"
 	Do MailerMock.VerwachtMethodCall("Verzend", OfferteMock, Melding).ExactAantalKeer(1).DanDoeNiks()
 	
-	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterFactoryMock, OfferteServiceMock, MailerMock)
+	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterMock, OfferteServiceMock, MailerMock)
 	Do OrderSluiter.MaakEnSluitOrderViaOfferteID("OfferteID")
 
 	
 	Do OfferteMock.Verifieer()
 	Do OrderIngaveServiceMock.Verifieer()
-	Do OrderSluiterFactoryMock.Verifieer()
 	Do OrderSluiterMock.Verifieer()
 	Do OfferteServiceMock.Verifieer()
 	Do MailerMock.Verifieer()
@@ -94,9 +86,6 @@
 	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").DanReturn($$$True)
 	Do OrderSluiterMock.IndienMethodCall("Sluit","100000","","").DanException(GeneralException)
 	
-	Set OrderSluiterFactoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiterFactory).%New()
-	Do OrderSluiterFactoryMock.VerwachtMethodCall("GeefOrderSluiter","100000").DanReturn(OrderSluiterMock)
-	
 	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefBerekendeTotaalBedrag",OfferteMock).DanReturn(0)
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteMock)
@@ -105,12 +94,11 @@
 	#dim Melding As %String = "Er is een fout opgetreden bij het automatisch verwerken van Vhisie4 offerte met OfferteID 'OfferteID' - foutmelding : " _GeneralException.ToString()
 	Do MailerMock.VerwachtMethodCall("Verzend", OfferteMock, Melding).ExactAantalKeer(1).DanDoeNiks()
 	
-	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterFactoryMock, OfferteServiceMock, MailerMock)
+	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterMock, OfferteServiceMock, MailerMock)
 	Do OrderSluiter.MaakEnSluitOrderViaOfferteID("OfferteID")
 	
 	Do OfferteMock.Verifieer()
 	Do OrderIngaveServiceMock.Verifieer()
-	Do OrderSluiterFactoryMock.Verifieer()
 	Do OrderSluiterMock.Verifieer()
 	Do OfferteServiceMock.Verifieer()
 	Do MailerMock.Verifieer()
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter.cls.xml
===================================================================
diff -u -r49513 -r49515
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter.cls.xml	(.../OrderSluiter.cls.xml)	(revision 49513)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter.cls.xml	(.../OrderSluiter.cls.xml)	(revision 49515)
@@ -8,8 +8,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="OrderSluiterFactory">
-<Type>CHUI.VKP.OrderIngave.OrderSluiterFactory</Type>
+<Property name="OrderSluiter">
+<Type>CHUI.VKP.OrderIngave.OrderSluiter</Type>
 <Private>1</Private>
 </Property>
 
@@ -29,14 +29,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OrderIngaveService:APPS.VKP.OrderIngaveService,OrderSluiterFactory:CHUI.VKP.OrderIngave.OrderSluiterFactory,OfferteService:APPS.VKP.impl.OfferteService,Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer,Logger:vhLib.Logger</FormalSpec>
+<FormalSpec>OrderIngaveService:APPS.VKP.OrderIngaveService,OrderSluiter:CHUI.VKP.OrderIngave.OrderSluiter,OfferteService:APPS.VKP.impl.OfferteService,Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer,Logger:vhLib.Logger</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderIngaveService = $$$Inject(OrderIngaveService,##class(APPS.VKP.OrderIngaveService).%New())
-	Set ..OrderSluiterFactory = $$$Inject(OrderSluiterFactory,##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New())
+	Set ..OrderSluiter = $$$Inject(OrderSluiter,##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New())
 	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.VKP.impl.OfferteService).%New())
 	Set ..Mailer = $$$Inject(Mailer, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New())
 	
@@ -67,8 +67,8 @@
 	Try {
 		If ..ValideerPrijzen(Offerte) {
 			#dim OrderId As %String = ..MaakOrderVanOfferte(Offerte.GeefID())
-			If ..OrderSluiterFactory.GeefOrderSluiter(OrderId).KanOrderSluiten(OrderId) {
-		 		Do ..OrderSluiterFactory.GeefOrderSluiter(OrderId).Sluit(OrderId)
+			If ..OrderSluiter.KanOrderSluiten(OrderId) {
+		 		Do ..OrderSluiter.Sluit(OrderId)
 				Do ..Logger.Debug("Vhisie4 automatische offerte verwerking","Voor de Vhisie4 offerte met OfferteID '" _Offerte.GeefID() _"' is het order met OrderID '" _OrderId _"' gesloten.")
 			}
 		}