Index: VHSys/Scheduler/BL/SchedulerAbstract.cls.xml
===================================================================
diff -u -r53983 -r54973
--- VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 53983)
+++ VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 54973)
@@ -107,22 +107,32 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 #define StatussesToMove(%v)   (%v?1(1$$$qsError,1$$$qsProcessed,1$$$qsFinished))
-	Set QItem=..OpenQItem(QItemID)
+	
+	#dim sc As %Status
+	#dim QItem As VHSys.Scheduler.QueueAbstract = ..OpenQItem(QItemID)
 	Quit:('$IsObject(QItem)) $$$ERROR($$$GeneralError,"Cannot repost task. QItem is not an object (ID="_QItemID_")")
 	Set:('$IsObject($G(Task))) Task=QItem.Task
 	Quit:('$IsObject(Task)) $$$ERROR($$$GeneralError,"Cannot repost task. Task is not an object (QItemID="_QItemID_")")
 	Set:(blnMoveOld="") blnMoveOld=($$$StatussesToMove(QItem.Status))
 	Set Task.KeyWords=Task.KeyWords_$S($$$LastPiece(Task.KeyWords,";")="":"",1:";")_"Reposted"
 	Set sc=Task.UpdateStatus("")   ; Reset Task Status
 	Set sc=..AddTaskToQueue(Task,.NewQItemID,QItem.PrioValue,$S(blnRunAsBatch:$$$rmBatch, 1:QItem.RunMode))
-	If ($$$ISOK(sc))&&(blnMoveOld) Do
-	. Set scMoved=..MoveToArchive(.QItem,1)   ; QItem (oref) will be modified
-	. Set:($$$ISERR(scMoved)) oLog=..AddErrorToLog("Queue","RepostTaskFromQueue",scMoved,"QItem ("_QItemID_") failed to move to archive.")
+	If ($$$ISOK(sc))&&(blnMoveOld) {
+		Set scMoved=..MoveToArchive(.QItem,1)   ; QItem (oref) will be modified
+		Set:($$$ISERR(scMoved)) oLog=..AddErrorToLog("Queue","RepostTaskFromQueue",scMoved,"QItem ("_QItemID_") failed to move to archive.")
+	}
+	Do ..OnAfterRepostTaskFromQueue(QItem, Task, $G(NewQItemID))
 	Do:(blnRunAsBatch)&&($$$ISOK(sc)) ..Trigger()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterRepostTaskFromQueue">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>QItem:VHSys.Scheduler.QueueAbstract,Task:VHSys.Scheduler.TaskAbstract,NewQItemID:%Integer</FormalSpec>
+<Private>1</Private>
+</Method>
+
 <Method name="RepostTaskFromArchive">
 <Description>
 Taak opnieuw in de Queue plaatsen, vertrekkende van een bestaande item uit het QueueArchive.