Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml
===================================================================
diff -u -r49952 -r49955
--- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 49952)
+++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 49955)
@@ -5,8 +5,9 @@
 
 <Method name="BestelAfhandelingOpnieuwVerwerken">
 <Description>
-Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().BestelAfhandelingOpnieuwVerwerken(OfferteID)</Description>
-<FormalSpec>OfferteID:%String</FormalSpec>
+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[
 	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId( OfferteID )
 	If Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Offerte() {
@@ -20,7 +21,12 @@
 	If InteractieMetUser {
 		#dim Key As %String = ""
 		Write !, "Voor offerte '"_OfferteID_"' van Klant '"_Offerte.GeefKlantID()_"' Personality '"_Offerte.GeefPersonality().GeefCode()_"' :"
-		Write !, "Bestellen opnieuw verwerken via 'APPS.VKP.event.OfferteBesteldEvent' (J/N) ? "
+		If RetryMetRaiseEvent {
+			Write !, "Bestelling opnieuw verwerken via 'APPS.VKP.event.OfferteBesteldEvent' (J/N) ? "
+		}
+		Else {
+			Write !, "Bestelafhandeling opnieuw uitvoeren via 'KlantBestellingMelder.VerwittigVerwerker()' (J/N) ? "
+		}
 		
 		Read Key
 		If $$$UCase(Key) = "J" {
@@ -36,21 +42,22 @@
 	#dim PersonalityVanOfferteId As %String = Offerte.GeefPersonalityID()
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(PersonalityVanOfferteId)
 	
-	/*
-	Set EventData = ##class(APPS.VKP.event.OfferteBesteldEventData).%New(OfferteID)
-	Set Event = ##class(APPS.VKP.event.OfferteBesteldEvent).%New(EventData)
-	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventSync(Event)
-	
-	If InteractieMetUser {
-		Write !,"De event 'APPS.VKP.event.OfferteBesteldEvent' is geraised.",!
+	If RetryMetRaiseEvent {
+		Set EventData = ##class(APPS.VKP.event.OfferteBesteldEventData).%New(OfferteID)
+		Set Event = ##class(APPS.VKP.event.OfferteBesteldEvent).%New(EventData)
+		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventSync(Event)
+		
+		If InteractieMetUser {
+			Write !,"De event 'APPS.VKP.event.OfferteBesteldEvent' is geraised.",!
+		}
 	}
-	*/
-	
-	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.",!
+	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.",!
+		}
 	}
 ]]></Implementation>
 </Method>