ナビゲーション アプリケーション サーバーにならない考慮ジョブ キュー エントリの開始時刻と開始 Microsoft Dynamics NAV 2009 年に再開されたとき

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。

1. ジョブ キュー Dispacher codeunit (448) 内のコードを次のように変更します。
   既存のコード

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

   置換用コード

   ...  }
   
     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. ジョブ キュー Dispacher codeunit (448) で次のようにAdjustJobEntries関数を追加します。

       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;