Index: vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml
===================================================================
diff -u -r35867 -r48201
--- vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 35867)
+++ vhPowerTools/APPS/EC/ExterneVerkoopPowerService.cls.xml	(.../ExterneVerkoopPowerService.cls.xml)	(revision 48201)
@@ -3,6 +3,46 @@
 <Class name="vhPowerTools.APPS.EC.ExterneVerkoopPowerService">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="BestelAfhandelingOpnieuwVerwerken">
+<Description>
+Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().BestelAfhandelingOpnieuwVerwerken(OfferteID)</Description>
+<FormalSpec>OfferteID:%String</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() {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestelAfhandeling is niet mogelijk, want offerte '"_OfferteID_"' is nog niet besteld.")
+	}
+	
+	#dim InteractieMetUser As %Boolean = $$$True
+	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) ? "
+		
+		Read Key
+		If $$$UCase(Key) = "J" {
+			Write !,!, "GO ... "
+		}
+		Else {
+			Write !,!,"BestelAfhandeling wordt NIET Opnieuw Verwerkt."
+			Set Offerte = ""
+			Quit   ; Method 
+		}
+	}
+	
+	#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.",!
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetOfferteOpNietBesteld">
 <Description>
 Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().ZetOfferteOpNietBesteld( ??? )