Index: VHSys/Scheduler/BL/SchedulerAbstract.cls.xml
===================================================================
diff -u -r53983 -r66527
--- VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 53983)
+++ VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 66527)
@@ -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. 
@@ -271,7 +281,7 @@
 	Quit:($zobjclassmethod(..#QueueClassName,"GetMaxBusyTasks","")=0)   ; Queue is disabled, MaxBusyTask=0
 	Job ClassMethod^vhLib.Thread(..%ClassName(1),"Schedule")   ; ..#ClassNm
 	Set NewPID=$ZCHILD
-	d WLIP^vhDBG(..#DebugIP,"Scheduler "_..#SchedulerIDName_" started (from $J="_$J_") in New PID "_NewPID)
+	;d WLIP^vhDBG(..#DebugIP,"Scheduler "_..#SchedulerIDName_" started (from $J="_$J_") in New PID "_NewPID)
 	Hang 1   ; 1 seconde wachten
 	Quit
 ]]></Implementation>
@@ -297,7 +307,7 @@
 cbtHandleBusyTask()
 	; Possible actions:   Send mail / Increase MaxBusyTime / Set Status to $$$qsError / Kill process / Restart Task (?) / Ignore / ...
 	Set msg="Max. Busy Time overschreden: QItem "_QItem.%Id()_" started on "_QItem.Started_" and is running for "_DeltaT_" seconds ("_$$cbtFormatTime(DeltaT)_")"
-	 d WL^vhDBG(msg)
+	 ;d WL^vhDBG(msg)
 	; TO DO:  other actions ...
 	;  *** Kill the running process.  Else, it might run until eternity   :-P
 	If 0 && QItem.ThreadedPID Do
@@ -342,7 +352,7 @@
 <Implementation><![CDATA[
 #define TimeOutWaitNext   30
 	Set $ZTRAP="shdError"
-	  d WLIP^vhDBG(..#DebugIP,"Schedule started for "_..#SchedulerIDName_". Current process "_$J)
+	  ;d WLIP^vhDBG(..#DebugIP,"Schedule started for "_..#SchedulerIDName_". Current process "_$J)
 	Quit:($zobjclassmethod(..#QueueClassName,"GetMaxBusyTasks","")=0)   ; Queue is disabled, MaxBusyTask=0
 	Quit:('..InitJob())
 
@@ -356,14 +366,14 @@
 	. Set Ok=$SYSTEM.Event.Wait($$$ClassEvent("NEXT"),$$$TimeOutWaitNext)
 	. If $$shdCheckSignalledSTOP()  Set EndLoop=1 Quit
 	. Set QItem=..GetNextTask(1)   ; check for free process is included in this method call
-	.   d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
+	.   ;d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
 	. Quit:('$isObject(QItem))
 	. Do ..ProcessTask(QItem)
 	. Set QItem=""   ; Close Task object
 	. Do ..Trigger() ; Belangrijk om onmiddellijk de volgende op te halen
 	; After loop, clean up objects, resources, ...
 	Do ..TerminateJob()
-	d WL^vhDBG("Scheduler "_..#SchedulerIDName_" stopped. Current PID process "_$J)
+	;d WL^vhDBG("Scheduler "_..#SchedulerIDName_" stopped. Current PID process "_$J)
 	Do:($SYSTEM.Event.Defined($$$ClassEvent("STOPPED"))) $SYSTEM.Event.Signal($$$ClassEvent("STOPPED"))
 	Set $ZTRAP=""
 	Quit
@@ -454,10 +464,10 @@
 <Implementation><![CDATA[
 	If (QItem.RunMode=$$$rmInLine)&&($L(QItem.SignalPID))&&(QItem.SignalPID'=$J) Do  Quit
 	. Do:(1) ..PreProcessTask(QItem)
-	.  d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
+	.  ;d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
 	. Set Ok=$SYSTEM.Event.Signal(QItem.SignalPID)
 	; Else 
-	  d WL^vhDBG("Start processing Task in current Job "_$J)
+	  ;d WL^vhDBG("Start processing Task in current Job "_$J)
 	Do:(QItem.RunMode'=$$$rmInLine) ..PreProcessTask(QItem)
 	Set blnJobbed=..StartProcessTask(QItem,.sc)
 	Do:('blnJobbed) ..PostProcessTask(QItem,.sc)   ; (QItem.%Id())