Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/AsynchroneOrderSluiter.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/AsynchroneOrderSluiter.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/AsynchroneOrderSluiter.cls.xml	(revision 49507)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakEnSluitOrderViaOfferteID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[
+	try {
+		#dim BackgroundProcessStarter As TECH.impl.BackgroundProcessStarter = ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter()
+		Set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
+		Do DataBuilder.SetClassName(##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%ClassName(1))
+		Do DataBuilder.SetMethodName("MaakEnSluitOrderViaOfferteID")
+		Do DataBuilder.VoegToeDataType(OfferteID)
+		
+		Do BackgroundProcessStarter.StartProcess(DataBuilder.GetData())
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Melding As %String = "Het achtergrondproces voor het automatisch maken en sluiten van een order voor vhisie4 OfferteID '" _OfferteID _"'" _$$$CRLF
+		Set Melding = Melding _"kan niet starten." _$$$CRLF _"De offerte moet manueel verwerkt worden." _$$$CRLF _$$$CRLF
+		Set Melding = Melding _Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().ErrorMail("Vhisie4 automatische offerte verwerking", Melding)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>