|
Sets a procedure to be executed ONCE on the given date and time. Note that the task will not trigger before you log in. |
|
TaskName |
Name of the task. This will be shown in the module Technics>>Idle Tasks List report. |
TaskDesc |
Description of the task. This will be shown in the Technics>>Idle Tasks List report. |
ProcedureName |
Name of the callback procedure to be executed on specified moment. NOTE that this procedure can have only one variable. |
ProcedureArgument |
Argument that will be passed to the executed procedure. |
ProcedureDate |
The date on which the callback procedure will be executed. |
ProcedureTime |
The time on which the callback procedure will be executed. |
Reserved |
Resered by the system. |
|
procedure StartSysRun_DueReport(Integer action,Time at)
begin
Time t;
Date td;
t = at;
td = CurrentDate;
if (blanktime(t)) then begin
t.hour = 1;
t.minute = 0;
t.second = 0;
end;
switch (action) begin
case 0:
if (t<CurrentTime) then begin
td.day = td.day + 1;
end;
NewTimedTask("SYSRUN_DUEREPORT","Sys Run Due Report","SysRuns","DueReport",td,t,"");
case 1:
td.day = td.day + 1;
NewTimedTask("SYSRUN_DUEREPORT","Sys Run Due Report","SysRuns","DueReport",td,t,"");
case 2:
RemoveTask("SYSRUN_DUEREPORT");
if (t<CurrentTime) then begin
td.day = td.day + 1;
end;
NewTimedTask("SYSRUN_DUEREPORT","Sys Run Due Report","SysRuns","DueReport",td,t,"");
end;
return;
end;
««