在 Microsoft Dynamics NAV 5.0 Service Pack 1 中,合約到期日內不得使用服務訂單合約

快速發表的文章直接提供來自 Microsoft 支援組織內部的資訊。 本書所含資訊是針對新興或獨特主題所創建,或旨在補充其他知識庫資訊。

本文適用於所有國家及語言地區的 Microsoft Dynamics NAV。

假設你的合約有 Microsoft Dynamics NAV 5.0 Service Pack 1 中指定的到期日。 當你建立服務命令並嘗試在到期日使用合約時,合約就無法使用。

症狀

Hotfix 資訊

Microsoft 現在已經支援熱修補程式。 然而,這僅是為了修正本文所描述的問題。 只應用在遇到這個特定問題的系統上。 此熱修補可能會進行額外測試。 因此,如果您未受到此問題嚴重影響,我們建議您等待下一個 Microsoft Dynamics NAV 5.0 服務包或包含此熱修正的 Microsoft Dynamics NAV 版本。

注意:在特殊情況下,若 Microsoft Dynamics 及相關產品的技術支援專業人員判斷特定更新能解決您的問題,通常因支援電話而產生的費用可能會被取消。 一般來說,如果有所描述之特定更新無法解決的其他支援問題,才會收取支援費用。

解決方式

安裝資訊

Microsoft 僅提供圖例的程式設計範例,不含明示或暗示的擔保。 這包括 (但不限於) 適用于特定目的之可操作性或適用性的暗示擔保。 本文假設您熟悉正在示範的程式設計語言,以及用來建立和進行程式偵錯工具的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能,但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。

注意:安裝此熱修補程式前,請確認所有 Microsoft Navision 用戶端使用者都已登出系統。 這包括Microsoft Navision 應用服務 (NAS) 用戶端使用者。 當你實施這個熱修補時,應該只有你一個登入的客戶端使用者。

要實作這個熱修補,你必須擁有開發者授權。

我們建議在 Windows 登入視窗或資料庫登入視窗中,將使用者帳號分配「SUPER」角色 ID。 若使用者帳號無法被指派「SUPER」角色 ID,您必須驗證該帳號擁有以下權限:

  • 你要更改的物件的修改權限。
  • 系統物件 ID 5210 的執行權限,以及系統物件 ID 9015 的執行權限。

            
注意:除非你必須進行資料修復,否則你不必擁有資料儲存的權利。

法規變更

注意:在將修正程式套用到生產電腦之前,務必在受控環境中測試修正。
如果要解決這個問題,請依照下列步驟執行。

  1. 更改合約號碼中的代碼。 (5900 服務標頭表中的 OnValidate 函式) 如下:
    現有程式碼

    ...
                                                                        IF ServContract."Starting Date" > "Order Date" THEN
                                                                          ERROR(Text042,"Contract No.");
                                                                        IF (ServContract."Expiration Date" <> 0D) AND
    
                                                                          // Delete the following line.
                                                                           (ServContract."Expiration Date" <= "Order Date")
    
                                                                        THEN
                                                                          ERROR(Text043,"Contract No.");
                                                                      END;
    ...
    
    

    替換代碼

    ...
                                                                        IF ServContract."Starting Date" > "Order Date" THEN
                                                                          ERROR(Text042,"Contract No.");
                                                                        IF (ServContract."Expiration Date" <> 0D) AND
    
                                                                        // Add the following line.
                                                                           (ServContract."Expiration Date" < "Order Date")
    
                                                                        THEN
                                                                          ERROR(Text043,"Contract No.");
                                                                      END;
    ...
    
    
  2. 更改合約號碼中的代碼。 5900 服務標頭表中的 OnLookup 函式 () 如下:
    現有程式碼

    ...
                                                                  ServContract.SETRANGE("Bill-to Customer No.","Bill-to Customer No.");
                                                                  ServContract.SETRANGE(Status,ServContract.Status::Signed);
                                                                  ServContract.SETFILTER("Starting Date",'<=%1',"Order Date");
    
                                                                  // Delete the following line.
                                                                  ServContract.SETFILTER("Expiration Date",'>%1 | =%2',"Order Date",0D);
    
                                                                  ServContract.FILTERGROUP(0);
                                                                  CLEAR(ServContractList);
                                                                  ServContractList.SETTABLEVIEW(ServContract);
                                                                  ServContractList.LOOKUPMODE(TRUE);
    ...
    
    

    替換代碼

    ...
                                             ServContract.SETRANGE("Bill-to Customer No.","Bill-to Customer No.");
                                                                  ServContract.SETRANGE(Status,ServContract.Status::Signed);
                                                                  ServContract.SETFILTER("Starting Date",'<=%1',"Order Date");
    
                                                                  // Add the following line.
                                                                  ServContract.SETFILTER("Expiration Date",'>=%1 | =%2',"Order Date",0D);
    
                                                                  ServContract.FILTERGROUP(0);
                                                                  CLEAR(ServContractList);
                                                                  ServContractList.SETTABLEVIEW(ServContract);
                                                                  ServContractList.LOOKUPMODE(TRUE);
    ...
    
    
  3. 在服務合約行表中,5964 (ValidateServicePeriod 函式中,將程式碼變更如下) :
    現有程式碼

    ...
          IF "Starting Date" > CurrentDate THEN
            ERROR(Text020,"Service Item No.","Contract No.");
          IF "Contract Expiration Date" = 0D THEN BEGIN
            ServContractHeader.GET(ServContractHeader."Contract Type"::Contract,"Contract No.");
            IF (ServContractHeader."Expiration Date" <> 0D) AND
               (ServContractHeader."Expiration Date" <= CurrentDate)
            THEN
              ERROR(Text021,"Service Item No.","Contract No.");
          END ELSE
    
    // Delete the following line.
            IF "Contract Expiration Date" <= CurrentDate THEN
    
              ERROR(Text021,"Service Item No.","Contract No.");
    ...
    
    

    替換代碼

    ...
          IF "Starting Date" > CurrentDate THEN
            ERROR(Text020,"Service Item No.","Contract No.");
          IF "Contract Expiration Date" = 0D THEN BEGIN
            ServContractHeader.GET(ServContractHeader."Contract Type"::Contract,"Contract No.");
            IF (ServContractHeader."Expiration Date" <> 0D) AND
               (ServContractHeader."Expiration Date" <= CurrentDate)
            THEN
              ERROR(Text021,"Service Item No.","Contract No.");
          END ELSE
    
    // Add the following line.
            IF "Contract Expiration Date" < CurrentDate THEN
    
              ERROR(Text021,"Service Item No.","Contract No.");
    ...
    
    

          

先決條件

您必須安裝 Microsoft Dynamics NAV 5.0 服務包 1 才能套用此熱修補。

移除資訊

你無法移除這個熱修正。

Microsoft 已確認這是「適用對象」一節中列出的 Microsoft 產品中的問題。

狀態

MICROSOFT及/或其供應商對本網站所發布文件及相關圖像中所載資訊的適用性、可靠性或準確性 (「資料」) 不作任何保證或保證。

資料可能包含技術性不準確或印刷錯誤,且可隨時修訂,恕不另行通知。 在適用法律允許的最大範圍內,MICROSOFT 及/或其供應商否認並排除所有明示、默示或法定的陳述、保證及條件,包括但不限於所有權、非侵權、令人滿意的狀態或品質、適銷性及特定用途的適用性。