Serwer aplikacji systemu NAV nie ma godzinę rozpoczęcia zapis kolejki zleceń pod uwagę podczas ponownego uruchamiania w systemie Microsoft Dynamics NAV 2009

Informacje o poprawce

Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.

Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.

Zmiany kodu

Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:

1. Zmień kod w codeunit Dispacher kolejki (448) w następujący sposób:
   Istniejący kod

   ...  }
   
    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;
   ...
   
   

   Kod zastępczy

   ...  }
   
     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. Dodaj funkcję AdjustJobEntries w codeunit Dispacher kolejki (448) w następujący sposób:

       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;