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