Table of Content
HAL Forum
procedure NewTimedTask (
string TaskName,string TaskDesc,string ProcedureName,string ProcedureArgument,date ProcedureDate,
time ProcedureTime,string Reserved)
Description:
Sets a procedure to be executed ONCE on the given date and time. Note that the task will not trigger before you log in.
Parameters:
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;

Related topics:
««