Index: TECH/PubSub/WachtendeEventVerwerker.cls.xml
===================================================================
diff -u -r2245 -r3144
--- TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 2245)
+++ TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 3144)
@@ -73,6 +73,7 @@
 <Implementation><![CDATA[
 	Do ##class(vhLib.Logger).%New("EventLog").Info("VerwerkWachtendEvent",WachtendEvent.Event.%ClassName(1) _ " ID='" _ WachtendEvent.%Id() _ "' - start - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 	#dim RaiseEvent As %Boolean = 1
+	#dim AnnulatieLogBericht As %String = ""
 	If (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnGemaakt")) || (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnGewijzigd")) || (WachtendEvent.Event.%Extends("DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent"))
 	{
 		#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
@@ -84,42 +85,76 @@
 			If WachtendEvent.Event.Data.%Extends("DOM.AKP.event.ProductToelevLijnEventData") {
 				Set LeverancierNr=##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(WachtendEvent.Event.Data.GeefLeverancierID())
 			}
-			#dim Bericht As %String = "WachtendEvent : "_WachtendEvent.Event
-			Set Bericht = Bericht_$C(13,10)_"ToeleveringID : "_$G(ToeleveringID)_$C(13,10)_"ToeleveringLijnCode = "_$G(ToeleveringLijnCode)
-			Set Bericht = Bericht_$C(13,10)_"Bestaat toelevering:"_ToeleveringAPI.BestaatToelevering(ToeleveringID)			
-			Set Bericht = Bericht_$C(13,10)_"Bestaat niet : "_$name(^TO("IU",ToeleveringID,ToeleveringLijnCode))
-			Set Bericht = Bericht_$C(13,10)_"Data in "_$Name(^KTO(LeverancierNr,ToeleveringID))_" : "_$C(13,10)_$$ArrayToText^vhLib($Name(^KTO(LeverancierNr,ToeleveringID)))
-			Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkAlle",Bericht)
 			
+			Set AnnulatieLogBericht = "WachtendEvent : "_WachtendEvent.Event
+			Set AnnulatieLogBericht = AnnulatieLogBericht_$C(13,10)_"ToeleveringID : "_$G(ToeleveringID)_$C(13,10)_"ToeleveringLijnCode = "_$G(ToeleveringLijnCode)
+			Set AnnulatieLogBericht = AnnulatieLogBericht_$C(13,10)_"Bestaat toelevering:"_ToeleveringAPI.BestaatToelevering(ToeleveringID)			
+			Set AnnulatieLogBericht = AnnulatieLogBericht_$C(13,10)_"Bestaat niet : "_$name(^TO("IU",ToeleveringID,ToeleveringLijnCode))
+			Set AnnulatieLogBericht = AnnulatieLogBericht_$C(13,10)_"Data in "_$Name(^KTO(LeverancierNr,ToeleveringID))_" : "_$C(13,10)_$$ArrayToText^vhLib($Name(^KTO(LeverancierNr,ToeleveringID)))
+			
 			Set RaiseEvent = 0
 		}Else{
 		
 			Set RaiseEvent = ToeleveringAPI.BestaatToelevering(ToeleveringID) && $IsObject(ToeleveringAPI.GeefToelevering(ToeleveringID).GeefToeleveringLijn(ToeleveringLijnCode))
+
+			if (RaiseEvent=0) { 
+				Set AnnulatieLogBericht = "Toelevering bestaat niet - Event: "_WachtendEvent.Event.Type
+				Set AnnulatieLogBericht = AnnulatieLogBericht _", Wachtende event id : '"_WachtendEvent.%Id() _"'"
+				Set AnnulatieLogBericht = AnnulatieLogBericht _", ToeleveringID : '"_ToeleveringID _"'"
+				Set AnnulatieLogBericht = AnnulatieLogBericht _", ToeleveringLijnCode : '"_ToeleveringLijnCode _"'"
+			}
 		}
 	}
 	ElseIf (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnIngeboekt"))
 	{
 		Set ToeleveringID = WachtendEvent.Event.Data.GeefToeleveringID()
 		Set ToeleveringLijnCode = WachtendEvent.Event.Data.GeefToeleveringLijnCode()
 		Set RaiseEvent = ##class(vhConsistency.Checks.Events.ProductToelevLijn).%ExistsId(ToeleveringID_"||"_ToeleveringLijnCode)
+
+		if (RaiseEvent=0) { 
+			Set AnnulatieLogBericht = "ProductToelevLijnIngeboekt - Event: "_WachtendEvent.Event.Type
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", Wachtende event id : '"_WachtendEvent.%Id() _"'"
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", ToeleveringID : '"_ToeleveringID _"'"
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", ToeleveringLijnCode : '"_ToeleveringLijnCode _"'"
+		}
 	}
 	ElseIf (WachtendEvent.Event.%Extends("DOM.VKP.event.ProductOrderLijnGemaakt")) || (WachtendEvent.Event.%Extends("DOM.VKP.event.ProductOrderLijnGewijzigd"))
 	{
 		#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 		#dim OrderID As %String = WachtendEvent.Event.Data.GeefOrderID()
 		#dim OrderLijnCode As %String = WachtendEvent.Event.Data.GeefOrderLijnCode()
 		Set RaiseEvent = OrderAPI.BestaatOrder(OrderID) && $IsObject(OrderAPI.GeefOrder(OrderID).GeefOrderLijn(OrderLijnCode))
+
+		if (RaiseEvent=0) { 
+			Set AnnulatieLogBericht = "ProductOrderLijnGemaakt - Event: "_WachtendEvent.Event.Type
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", Wachtende event id : '"_WachtendEvent.%Id() _"'"
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", OrderID : '"_OrderID _"'"
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", OrderLijnCode : '"_OrderLijnCode _"'"
+		}
 	}
 	ElseIf (WachtendEvent.Event.%Extends("DOM.VKP.event.ProductOrderLijnAnnulatie"))
 	{
 		Set OrderID = WachtendEvent.Event.Data.GeefOrderID()
 		Set OrderLijnCode = WachtendEvent.Event.Data.GeefOrderLijnCode()
 		Set RaiseEvent = ##class(vhConsistency.Checks.Events.ProductOrderLijn).%ExistsId(OrderID_"||"_OrderLijnCode)
+		
+		if (RaiseEvent=0) { 
+			Set AnnulatieLogBericht = "ProductOrderLijnAnnulatie - Event: "_WachtendEvent.Event.Type
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", Wachtende event id : '"_WachtendEvent.%Id() _"'"
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", OrderID : '"_OrderID _"'"
+			Set AnnulatieLogBericht = AnnulatieLogBericht _", OrderLijnCode : '"_OrderLijnCode _"'"
+		}
 	}
 	
 	If (RaiseEvent)	{
 		#dim stRaiseEvent As Status = ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(WachtendEvent.Event)
 		do ..UpdateStatus(WachtendEvent , stRaiseEvent)
+	} Else {
+
+		Set AnnulatieLogBericht = "Event status wordt op 'gelukt' gezet omdat event niet uitgevoerd wordt voor volgende reden : " _AnnulatieLogBericht
+		Do ##class(vhLib.Logger).%New().Debug("WachtendEventVerwerker", AnnulatieLogBericht)
+		
+		Do ..UpdateStatus(WachtendEvent, $$$OK)
 	}
 	Do ##class(vhLib.Logger).%New("EventLog").Info("VerwerkWachtendEvent",WachtendEvent.Event.%ClassName(1) _ " ID='" _ WachtendEvent.%Id() _ "' - stop - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 	#dim Status As %Status = WachtendEvent.%DeleteId(WachtendEvent.%Id())