Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml
===================================================================
diff -u -r59767 -r61147
--- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 59767)
+++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 61147)
@@ -3,12 +3,30 @@
 <Class name="vhPowerTools.APPS.EC.ExterneVerkoopPowerService">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New("ExterneVerkoopPowerService")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BestelAfhandelingOpnieuwVerwerken">
 <Description>
 Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().BestelAfhandelingOpnieuwVerwerken(OfferteID,0)
 Bij RetryMetRaiseEvent=1 wordt de "OfferteBesteldEvent" opnieuw ge-raised en zal opnieuw de KlantBestellingNaarLeverancierOfferteConverter uitgevoerd worden.</Description>
 <FormalSpec>OfferteID:%String,RetryMetRaiseEvent:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("BestelAfhandelingOpnieuwVerwerken("_OfferteID_","_RetryMetRaiseEvent_")")
 	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId( OfferteID )
 	If Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Offerte() {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestelAfhandeling is niet mogelijk, want offerte '"_OfferteID_"' is nog niet besteld.")
@@ -33,6 +51,7 @@
 			Write !,!, "GO ... "
 		}
 		Else {
+			Do ..Logger.Info("BestelAfhandelingOpnieuwVerwerken afgebroken door gebruiker")
 			Write !,!,"BestelAfhandeling wordt NIET Opnieuw Verwerkt."
 			Set Offerte = ""
 			Quit   ; Method 
@@ -48,6 +67,7 @@
 		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventSync(Event)
 		
 		If InteractieMetUser {
+			Do ..Logger.Info("De event 'APPS.VKP.event.OfferteBesteldEvent' is geraised.")
 			Write !,"De event 'APPS.VKP.event.OfferteBesteldEvent' is geraised.",!
 		}
 	}
@@ -56,12 +76,14 @@
 			Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New()
 			Do OrderSluiter.MaakEnSluitOrderViaOfferteID(Offerte.GeefID())
 			If InteractieMetUser {
+				Do ..Logger.Info("Het order '"_ Offerte.GeefOrderID() _"' is automatisch aangemaakt en gesloten voor shop-personality '"_Offerte.GeefPersonality().GeefCode()_". Kijk in vhLib.Logging voor resultaat!")
 				Write !,"Het order '"_ Offerte.GeefOrderID() _"' is automatisch aangemaakt en gesloten voor shop-personality '"_Offerte.GeefPersonality().GeefCode()_". Kijk in vhLib.Logging voor resultaat!",!
 			}
 		} Else {
 			Set KlantBestellingMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New()
 			Do KlantBestellingMelder.VerwittigVerwerker(Offerte)
 			If InteractieMetUser {
+				Do ..Logger.Info("De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.")
 				Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",!
 			}
 		}
@@ -76,6 +98,7 @@
     Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().IntractoMelderBestelStatussenOpnieuwDoorgeven(OfferteID) </Description>
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("IntractoMelderBestelStatussenOpnieuwDoorgeven"_OfferteID_")")
 	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId( OfferteID )
 	#dim PersonalityVanOfferte As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()   ; Ter controle, anders loopt het mis bij Status vs ExterneID. 
 	
@@ -98,12 +121,15 @@
 	#dim EDInr As %String = Offerte.GeefEDINummerVoorEindklant()
 	#dim VHOfferteExterneId As %String = Offerte.GeefExterneId()
 	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New()	
-
+	Do ..Logger.Info("Offerte met externe ID '"_EDInr_"' (voor handel) wordt op status '2' {ERP}         gezet ... ")
 	Write !,"Offerte met externe ID '"_EDInr_"' (voor handel) wordt op status '2' {ERP}         gezet ... "
 	Do IntractoMelder.UpdateCartStatus(EDInr,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP())
+	Do ..Logger.Info("KLAAR. ")
 	Write " KLAAR. "
+	Do ..Logger.Info("Offerte met externe ID '"_VHOfferteExterneId_"' (voor VH)     wordt op status '3' {KlaarVoorOV} gezet ... ")
 	Write !,"Offerte met externe ID '"_VHOfferteExterneId_"' (voor VH)     wordt op status '3' {KlaarVoorOV} gezet ... "
 	Do IntractoMelder.UpdateCartStatus(VHOfferteExterneId,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).KlaarVoorOV())
+	Do ..Logger.Info("KLAAR. ")
 	Write " KLAAR. "
 ]]></Implementation>
 </Method>
@@ -115,10 +141,12 @@
     Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New()IntractoMelderBestelStatusOpnieuwDoorgeven(ExterneId,BestelStatus) </Description>
 <FormalSpec>ExterneId:%String,BestelStatus:WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("IntractoMelderBestelStatusOpnieuwDoorgeven("_ExterneId_","_BestelStatus_")")
 	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New()	
 
 	Write !,"Offerte met externe Id '"_ExterneId_"'  wordt op status '"_BestelStatus_"' {"_""_"} gezet ... "
 	Do IntractoMelder.UpdateCartStatus(ExterneId,BestelStatus)
+	Do ..Logger.Info("KLAAR")
 	Write " KLAAR. "
 ]]></Implementation>
 </Method>
@@ -129,6 +157,7 @@
 N.B. Houdt geen rekening met het al dan niet gemaakt zijn van een order voor deze offerte.</Description>
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("ZetOfferteOpNietBesteld("_OfferteID_")")
 	#dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(OfferteID)
 	
 	#dim Key As %String = ""
@@ -145,8 +174,10 @@
 		Do Offerte.ZetBestelStatus(##class(APPS.VKP.Offerte.enu.BestelStatus).Offerte(),"")
 		Do Offerte.Save()
 		Write !,!,"De bestelstatus is aangepast."
+		Do ..Logger.Info("De bestelstatus is aangepast.")
 	}
 	Else {
+		Do ..Logger.Info("Afgebroken door gebruiker")
 		Write !,!,"De bestelstatus is NIET aangepast."
 	}
 	Set Offerte = ""
@@ -158,6 +189,7 @@
 Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().VerwijderOfferte( ??? )</Description>
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("VerwijderOfferte("_OfferteID_")")
 	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId( OfferteID )
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId( Offerte.WinkelkarID )
 	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = Offerte.DocumentReferenties
@@ -174,6 +206,7 @@
 N.B. Houdt geen rekening met het al dan niet gemaakt zijn van een order voor deze offerte.</Description>
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("ZetOfferteOpNietBesteldViaWinkelkar("_WinkelkarID_")")
 	#dim WinkelkarService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.ExterneWinkelkarService).%New()
 	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = WinkelkarService.GeefParent(WinkelkarID)
 
@@ -190,6 +223,7 @@
 Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().MarkeerBesteldeOfferteAlsVerwerkt(OfferteID, GemaakteDataMOrderID)</Description>
 <FormalSpec>OfferteID:%String,GemaakteDataMOrderID:%String="999999"</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("MarkeerBesteldeOfferteAlsVerwerkt("_OfferteID_","_GemaakteDataMOrderID_")")
 	#dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(OfferteID)
 	Do Offerte.ZetOrderID(GemaakteDataMOrderID)
 	Do Offerte.Save()
@@ -201,6 +235,7 @@
 Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().ZetOfferteOpBesteld( ??? )</Description>
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("ZetOfferteOpBesteld("_OfferteID_")")
 	#dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(OfferteID)
 	Do Offerte.ZetBestelStatus(##class(APPS.VKP.Offerte.enu.BestelStatus).Besteld(),"")
 	Do Offerte.Save()