24. Juni 2008 11:07
24. Juni 2008 11:26
30. Juni 2008 11:19
JobSchedSetup2."Last Date Checked" := TODAY;
JobSchedSetup2."Last Time Checked" := TIME;
CASE JobSchedSetup2."Error Handling" OF
  JobSchedSetup2."Error Handling"::"Skip to Next Run":
    BEGIN
      RunObjectFromJobSched.CalcNewDateTime(JobSchedSetup2."Next Check Date",JobSchedSetup2."Next Check Time",
        JobSchedSetup2."Time Between Check",JobSchedSetup2."Unit of Measure");
      IF JobSchedSetup2."Message Text" = '' THEN
        JobSchedSetup2."Message Text" :=
         Text011
      ELSE
        JobSchedSetup2."Message Text" :=
          JobSchedSetup2."Message Text" + Text012;
      JobSchedSetup2."Run Status" := JobSchedSetup2."Run Status"::"With Error";
    END;
  JobSchedSetup2."Error Handling"::"Mark as Error and Retry":
    BEGIN
      IF JobSchedSetup2."Message Text" = '' THEN
        JobSchedSetup2."Message Text" := Text013
      ELSE
        JobSchedSetup2."Message Text" := JobSchedSetup2."Message Text" + Text014;
      JobSchedSetup2."Run Status" := JobSchedSetup2."Run Status"::"With Error";
    END;
  JobSchedSetup2."Error Handling"::"Mark as Error and Stop":
    BEGIN
      IF JobSchedSetup2."Message Text" = '' THEN
        JobSchedSetup2."Message Text" := Text015
      ELSE
        JobSchedSetup2."Message Text" :=
          JobSchedSetup2."Message Text" + Text016;
      JobSchedSetup2."Run Status" := JobSchedSetup2."Run Status"::"Stopped with Error";
    END;
END;9. Juli 2008 12:40
9. Juli 2008 13:30