Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml
===================================================================
diff -u -r59764 -r65572
--- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 59764)
+++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 65572)
@@ -3,24 +3,54 @@
 <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 )
+	
+	#dim InteractieMetUser As %Boolean = $$$True
+	If InteractieMetUser {
+		#dim KlantInfo As %String = Offerte.GeefKlantID()
+		If Offerte.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke() {
+			Set KlantInfo = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Offerte.GeefKlantID()).GeefNaam() _ " (ID '"_Offerte.GeefKlantID()_"')"
+		}
+		Write !,"Offerte is gekoppeld aan "
+		Write !,"  Winkelkar met Externe ID  : "_Offerte.GeefExterneId()
+		Write !,"  voor Klant                : "_KlantInfo_" en Personality '"_Offerte.GeefPersonality().GeefCode()_"' "
+		Write !,"  APPS.VKP.Offerte ID       : "_Offerte.GeefID()
+		Write !
+	}
+	
 	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.")
 	}
 	If Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Doorbesteld() {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestelAfhandeling is niet mogelijk, want offerte '"_OfferteID_"' is reeds DOORBESTELD.")
 	}
 	
-	#dim InteractieMetUser As %Boolean = $$$True
 	If InteractieMetUser {
 		#dim Key As %String = ""
-		Write !, "Voor offerte '"_OfferteID_"' van Klant '"_Offerte.GeefKlantID()_"' Personality '"_Offerte.GeefPersonality().GeefCode()_"' :"
 		If RetryMetRaiseEvent {
 			Write !, "Bestelling opnieuw verwerken via 'APPS.VKP.event.OfferteBesteldEvent' (J/N) ? "
 		}
@@ -33,6 +63,7 @@
 			Write !,!, "GO ... "
 		}
 		Else {
+			Do ..Logger.Info("BestelAfhandelingOpnieuwVerwerken afgebroken door gebruiker")
 			Write !,!,"BestelAfhandeling wordt NIET Opnieuw Verwerkt."
 			Set Offerte = ""
 			Quit   ; Method 
@@ -48,6 +79,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,26 +88,48 @@
 			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 {
-				Write !,"De KlantBestellingMelder heeft de verwerker (shop-personality '"_Offerte.GeefPersonality().GeefCode()_"') verwittigd.",!
+			If (..IsVerwittigVerwerkerMogelijk(Offerte)) {
+				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.",!
+				}
 			}
+			Else {
+				#dim MeldingTekst As %String = "ERROR : Deze offerte is NIET consistent met de normale bestellingsflow, want ze is niet gekoppeld aan een leveranciersofferte."
+				Set MeldingTekst = MeldingTekst _ $$$CRLF _ " !!!    Kijk de Offerte-ketting na (via SQL) en in VHISIE4 (bij indirecte winkelmandjes)."
+				Set MeldingTekst = MeldingTekst _ $$$CRLF _ " !!!    Indien nodig, gebruik BestelAfhandelingOpnieuwVerwerken met RetryMetRaiseEvent=1."
+				Do ..Logger.Info("BestelAfhandelingOpnieuwVerwerken",MeldingTekst)
+				If InteractieMetUser {
+					Write !!,MeldingTekst,!!
+				}
+			}
 		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsVerwittigVerwerkerMogelijk">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Offerte.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke()) || ($IsObject(Offerte.GeefOfferteVanHandel()))
+]]></Implementation>
+</Method>
+
 <Method name="IntractoMelderBestelStatussenOpnieuwDoorgeven">
 <Description>
 Deze method is alleen zinvol voor VH-offertes.  Dus enkel VH-OfferteID invullen! 
 Oproepen via : 
     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,27 +152,34 @@
 	#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>
 
 <Method name="IntractoMelderBestelStatusOpnieuwDoorgeven">
-<Description>
+<Description><![CDATA[
 Deze method is alleen zinvol voor VH-offertes.  Dus enkel VH-OfferteID invullen! 
+Scenario 1: winkelkar is besteld en verwerkt tot order in Admin/AX, maar status op Vhisie4 nog steeds op "Order vrijgeven" --> zet nieuwe bestelStatus = "2" 
+               
 Oproepen via : 
-    Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New()IntractoMelderBestelStatusOpnieuwDoorgeven(ExterneId,BestelStatus) </Description>
+    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,9 +190,30 @@
 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)
-	Do Offerte.ZetBestelStatus(##class(APPS.VKP.Offerte.enu.BestelStatus).Offerte(),"")
-	Do Offerte.Save()
+	
+	#dim Key As %String = ""
+	#dim InteractieMetUser As %Boolean = $$$True
+	If InteractieMetUser {
+		Write !, "Voor offerte '"_OfferteID_"' (bestelstatus='"_Offerte.GeefBestelStatus()_"') van Klant '"_Offerte.GeefKlantID()_"' Personality '"_Offerte.GeefPersonality().GeefCode()_"' :"
+		Write !, "De bestelstatus terug op offerte zetten (J/N) ? "
+		Read Key
+	}
+	Else {
+		Set Key = "J"
+	}
+	If $$$UCase(Key) = "J" {
+		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 = ""
 ]]></Implementation>
 </Method>
 
@@ -140,6 +222,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
@@ -156,6 +239,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)
 
@@ -172,6 +256,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()
@@ -183,6 +268,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()