當您申請銷售訂單時,若 ILE () 數量的出貨商品帳帳條目大於 Microsoft Dynamics NAV 中的進件 ILE 數量,則不會收到警告訊息

套用到
Dynamics NAV 2009 Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

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

症狀

當你在銷售訂單上使用應用申請方法,連結到收到的採購訂單,該訂單 (ILE) 剩餘數量的進貨品分類帳分錄小於出貨 ILE,你會預期會收到警告訊息,指出出貨 ILE 數量大於你申請的入件 ILE 數量。 然而,你沒有收到警告訊息,意外地能夠發布銷售訂單。 

此問題發生於以下產品:

  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 2009 含服務包 1 ( SP1)
  • Microsoft Dynamics NAV 5.0 與 SP1

解決方式

Hotfix 資訊

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

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

            
          

安裝資訊

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

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

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

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

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

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

法規變更

注意:在將修正程式套用到生產電腦之前,務必在受控環境中測試修正。

要安裝此熱修補,請將項目 Jnl.-Post Line 代碼單元中的代碼 (22) 更改。 若要這麼做,請按照下列步驟進行:

  1. 將 ApplyItemLedgEntry 函式中的程式碼改成如下:
    現有程式碼

    ...
            IF StartApplication THEN BEGIN
              ItemLedgEntry.CALCFIELDS("Reserved Quantity");
              IF ItemLedgEntry."Applies-to Entry" <> 0 THEN BEGIN
                IF FirstApplication THEN BEGIN
    ...   
                  OldItemLedgEntry.CALCFIELDS("Reserved Quantity");
                   IF  NOT ((OldItemLedgEntry.Open) AND
                    (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") >=
                     ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))) THEN BEGIN
                    IF  (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") <=
                       ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))
                    THEN BEGIN
                      IF NOT MoveApplication(ItemLedgEntry,OldItemLedgEntry) THEN
                        OldItemLedgEntry.FIELDERROR("Remaining Quantity",Text004);
    ...
    
    

    替換代碼

    ...
            IF StartApplication THEN BEGIN
              ItemLedgEntry.CALCFIELDS("Reserved Quantity");
              IF ItemLedgEntry."Applies-to Entry" <> 0 THEN BEGIN
                IF FirstApplication THEN BEGIN
    ...   
                  OldItemLedgEntry.CALCFIELDS("Reserved Quantity");
                  CheckApplication(ItemLedgEntry,OldItemLedgEntry);    // Add thsi line.
                 IF  NOT ((OldItemLedgEntry.Open) AND
                    (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") >=
                     ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))) THEN BEGIN
                    IF  (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") <=
                       ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))
                    THEN BEGIN
                      IF NOT MoveApplication(ItemLedgEntry,OldItemLedgEntry) THEN
                        OldItemLedgEntry.FIELDERROR("Remaining Quantity",Text004);
    ...
    
    
  2. 新增一個「CheckApplication」函式。

    1. 將以下變數加入「CheckApplication」函式:

      • 名稱:ItemLedgEntry
      • 資料型態:記錄
      • 子類型:項目分類帳條目
      • 名稱:OldItemLedgEntry
      • 資料型態:記錄
      • 子類型:項目分類帳條目
    2. 將以下程式碼加入「CheckApplication」函式:

      LOCAL PROCEDURE CheckApplication@84(ItemLedgEntry@1001 : Record 32;OldItemLedgEntry@1000 : Record 32);
          BEGIN
            IF (OldItemLedgEntry."Remaining Quantity" = OldItemLedgEntry.Quantity) AND
               (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") < ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))
            THEN
              OldItemLedgEntry.FIELDERROR("Remaining Quantity",Text004)
          END;
      
      

先決條件

您必須安裝以下其中一項產品才能套用此熱修補:

  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 2009 SP1
  • Microsoft Dynamics NAV 5.0 SP1

移除資訊

你無法移除這個熱修正。

狀態

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

注意本文為 Microsoft 支援單位內部直接建立的「快速發佈」文章。 此處包含的資訊是以其現況提供,用於回應新產生的問題。 由於快速發佈,資料可能包含拼字錯誤,並可能會隨時修訂,不另行通知。 請參閱使用條款以瞭解其他相關考量。