Index: WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml
===================================================================
diff -u
--- WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(revision 0)
+++ WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(revision 38385)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.EC.Unishop.OrderConfirmation.Service">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExterneVerkoopService">
+<Type>APPS.EC.Verkoop.ExterneVerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AuthorisatieControleur">
+<Type>APPS.EC.AuthorisatieControleur</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteService = $$$Inject(OfferteService,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
+	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService())
+	Set ..AuthorisatieControleur = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConfirmOrder">
+<FormalSpec>EDInr:%Integer,sfsref:%String,sfsDeliveryDate:%String</FormalSpec>
+<ReturnType>WS.EC.UNI.SFS.ConfirmOrderResult</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).SFS()
+		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+		
+		Do ##class(vhLib.Logger).%New("APPS.EC").Info("ConfirmOrder SFS","Bestel SFS Offerte '"_EDInr_"' met sfsRef: '"_sfsref_"' datum '"_sfsDeliveryDate_"'.")
+		
+		#dim OfferteVanHandel As APPS.VKP.Offerte = ..GeefOfferteVanHandel(EDInr)
+		If 'OfferteVanHandel.IsBesteld(){
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Offerte '"_EDInr_"' van handel is nog niet besteld."))	
+		}
+		
+		#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..GeefVanHoeckeOfferte(OfferteVanHandel)
+		#dim VanHoeckeOfferteID As %String = VanHoeckeOfferte.GeefID()
+		Do ##class(vhLib.Logger).%New().Info("ConfirmOrder SFS","SFS OfferteVanHandel '"_EDInr_"' - VanHoeckeOfferteID  '"_VanHoeckeOfferteID_"'.")
+		
+		Do ..AuthorisatieControleur.ControleerWerkenMetBestellingVanHandel(VanHoeckeOfferteID)
+		Do ..VerwerkInputParameters(VanHoeckeOfferte,sfsref,sfsDeliveryDate)
+		
+		Do ..ExterneVerkoopService.BestelOfferte(VanHoeckeOfferteID,KlantID,PersonalityID)
+		
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Message As %String = "Unable to confirm order. (EDINr: "_EDInr_")"_$C(13,10)
+		Set Message = Message_Exception.ToString()
+		If Exception.%Extends(##class(APPS.VKP.Offerte.impl.OfferteReedsBesteldException).%ClassName(1)) {
+			Set Message = "Order already confirmed (EDINr: "_EDInr_")"
+		}
+		Set NewException = ##class(TECH.Exceptions.InvalidInputException).%New(Message)
+		Do NewException.VoegToeInnerExceptie(Exception)
+		Do ##class(TECH.ExceptionHandler).Rethrow(NewException)
+	}
+	Set BestelOfferteResultaat=##class(WS.EC.UNI.SFS.ConfirmOrderResult).%New(EDInr,..GeefAantalProductieDagen())
+	Quit BestelOfferteResultaat
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkInputParameters">
+<FormalSpec>VanHoeckeOfferte:APPS.VKP.impl.Offerte,sfsref:%String,sfsDeliveryDate:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do VanHoeckeOfferte.ZetLeverDatum($$INTDATE^vhLib.DataTypes(sfsDeliveryDate))
+
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = VanHoeckeOfferte.GeefDocumentReferenties()
+	Set DocumentReferenties.KlantOrderNummer=sfsref
+
+	#dim BestelOpmerking As %String = sfsref
+	If (VanHoeckeOfferte.GeefBestelOpmerking()'="") {
+		Set BestelOpmerking = BestelOpmerking_$$$CRLF_VanHoeckeOfferte.GeefBestelOpmerking()
+	}
+	Do VanHoeckeOfferte.ZetBestelOpmerking(BestelOpmerking)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalProductieDagen">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Method name="GeefVanHoeckeOfferte">
+<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(OfferteVanHandel)
+	Quit VanHoeckeOfferte
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfferteVanHandel">
+<FormalSpec>EDInr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim OfferteVanHandel As APPS.VKP.Offerte
+	Try {
+		#dim OfferteIDVanHandel As %String = ..GeefOfferteIDVanHandel(EDInr)
+		Set OfferteVanHandel = ..OfferteService.GeefOfferte(OfferteIDVanHandel)
+	}Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.InvalidInputException")
+		Set NewException = ##class(TECH.Exceptions.InvalidInputException).%New("Invalid EDI number ("_EDInr_").")
+		Do NewException.VoegToeInnerExceptie(Exception)
+		Do ##class(TECH.ExceptionHandler).Rethrow(NewException)
+	}
+	Quit OfferteVanHandel
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfferteIDVanHandel">
+<FormalSpec>EDInr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit EDInr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>