Index: TECH/PubSub/EventReraiser.cls.xml
===================================================================
diff -u
--- TECH/PubSub/EventReraiser.cls.xml	(revision 0)
+++ TECH/PubSub/EventReraiser.cls.xml	(revision 617)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.PubSub.EventReraiser">
+<Super>%RegisteredObject</Super>
+
+<Method name="Reraise">
+<Description>
+Do ##class(TECH.PubSub.EventReraiser).Reraise("2020-01-31","12:00:00")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%String="2020-01-31",Tijd:%String="12:00:00"</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim Query As %String = ""
+	Set Query = "SELECT Count(1) As Aantal, ID, Datum, Tijd, Groep, SUBSTR(DetailTrunc,(INSTR(DetailTrunc,'Reinvoke')+11),((INSTR(DetailTrunc,'Error:'))-(INSTR(DetailTrunc,'Reinvoke')+11))) As Command FROM vhLib.Logging "_
+	"WHERE ((Niveau = 'E')) AND Groep = 'PubSub' "_
+	"AND Datum = ? AND Tijd > ? "_
+	"ORDER BY Datum DESC, Tijd DESC, SubID DESC"
+	
+	#dim Aantal As %String = 0
+	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(Datum,Tijd),1)
+	#dim HasNext As %Boolean = ResultSet.Next()
+	If HasNext {
+		
+		#dim Verwerken As %String = ""
+		Write !,"Wilt u "_ResultSet.Data("Aantal")_" events opnieuw verwerken ? (Y/N)"
+		Read Verwerken
+		Write !!
+		
+		If (Verwerken = "Y")||(Verwerken = "y"){		
+			While HasNext
+			{
+				#dim Command As %String = ResultSet.Data("Command")
+				#dim Key As %String = ##class(TECH.StringUtils).Replace($piece($Piece(Command,"Decode(""",2),"""))"),$C(13,10),"")
+				#dim EventClass As %String = $P($piece(Command,"Set Event = ##class(",2),")",1)
+				#dim Class As %String = $Tr($p($piece(Command,"Do $ZOBJCLASSMETHOD(",2),",",1),"""","")
+				#dim Method As %String = $Tr($p($piece(Command,"Do $ZOBJCLASSMETHOD(",2),",",2)," ""","")
+		
+				Set Aantal = Aantal + 1
+		
+				Try { 
+					Set EventData = ##class(%SerialObject).%Open($System.Encryption.Base64Decode(Key))
+					Set Event = $ZOBJCLASSMETHOD(EventClass, "%New",EventData)
+					Do $ZOBJCLASSMETHOD(Class, Method, Event)	
+				}Catch{
+					#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+					w ResultSet.Data("ID"),"*", EventClass ,"*", Class ,"*", Method,"*",!
+					w Exception.GeefOmschrijving(),!!
+				}
+				
+				Set HasNext = ResultSet.Next()
+			}
+		}
+		Write Aantal," events verwerkt.",!
+	}Else{
+		Write "Er zijn geen events in deze periode	.",!
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+<Package name="TECH.PubSub" sqlname="TECH_PubSub"/>
+</Export>