NAV Application Server does not take starting time for a job queue entry into consideration when it is restarted in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the Job Queue Dispacher codeunit (448) as follows:
   Existing code

   ...
     }
     
    PROPERTIES
     {
   
       SingleInstance=Yes;
       OnRun=VAR
               JobQueueSetup@1000 : Record 470;
             BEGIN
               IF ISCLEAR(NavTimer) THEN
                 CREATE(NavTimer);
               NavTimer.Interval := 2000;
   
               NavTimer.Enabled := TRUE;
               InsertJobQueueSession;
               LastCleanupTime := CURRENTDATETIME;
             END;
   ...
   

   Replacement code

   ...
     }
   
     PROPERTIES
     {
       SingleInstance=Yes;
       OnRun=VAR
               JobQueueSetup@1000 : Record 470;
             BEGIN
               IF ISCLEAR(NavTimer) THEN
                 CREATE(NavTimer);
               NavTimer.Interval := 2000;
   
               AdjustJobEntries;
   
               NavTimer.Enabled := TRUE;
               InsertJobQueueSession;
               LastCleanupTime := CURRENTDATETIME;
             END;
   ...
   

2. Add the AdjustJobEntries function in the Job Queue Dispacher codeunit (448) as follows:

       LOCAL PROCEDURE AdjustJobEntries@14();
       VAR
         JobQueueEntry@1000 : Record 472;
       BEGIN
         WITH JobQueueEntry DO BEGIN
           SETFILTER("Expiration Date/Time",'>%1|%2',CURRENTDATETIME,CREATEDATETIME(0D,0T));
           SETFILTER("Earliest Start Date/Time",'<=%1',CURRENTDATETIME);
           SETFILTER("Ending Time",'<%1',DT2TIME(CURRENTDATETIME));
           IF FINDSET(TRUE) THEN
             REPEAT
               IF "Recurring Job" THEN BEGIN
                 "Earliest Start Date/Time" := CalcNextRunTime(JobQueueEntry);
                 MODIFY;
               END;
             UNTIL NEXT = 0;
   
           COMMIT;
         END;
       END;
   

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

Removal information