在 Microsoft Dynamics NAV 中，項目分類帳條目會建立多個數量

快速發表的文章直接提供來自 Microsoft 支援組織內部的資訊。 本書所含資訊是針對新興或獨特主題所創建，或旨在補充其他知識庫資訊。
 Microsoft Business Solutions-Navision 4.0 與 Microsoft Navision 4.0 現已成為 Microsoft Dynamics NAV 4.0 的一部分。 所有關於Microsoft Business Solutions-Navision 或Microsoft Navision 4.0 的引用皆與 Microsoft Dynamics NAV 相關。

本文適用於所有地區的 Microsoft Dynamics NAV。

症狀

請考慮以下案例：

• 你可以在 「商品追蹤線 」對話框中建立兩條商品追蹤線，分別指定 SNALL 商品的序號。
• 你要把一行的序號改成和另一行的序號一樣。
• 你可以關閉 商品追蹤線 對話框，但不會離開 序號 欄位。

在此情境下，Microsoft Dynamics NAV 接受重複的序號，並將序號數量改為兩個。 因此，項目分類帳會建立多個數量。

此問題發生於以下產品：

• Microsoft Dynamics NAV 2009 服務包 1 (SP1)
• Microsoft Dynamics NAV 5.0 服務包 1 (SP1)
• Microsoft Dynamics NAV 4.0 服務包 3 (SP3)

解決方式

Hotfix 資訊

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

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

            
          

安裝資訊

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

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

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

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

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

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

法規變更

注意：在將修正程式套用到生產電腦之前，務必在受控環境中測試修正。
要解決 Microsoft Dynamics NAV 2009 SP1 中的此問題，請在項目追蹤線表單 (6510) 及項目追蹤線頁面 (6510) 中更改 OnModifyRecord 觸發器的程式碼如下：

現有程式碼

...
// Delete the following line.
                     IF NOT TestTempSpecificationExists THEN

                       MODIFY;

                     IF (xRec."Lot No." <> "Lot No.") OR (xRec."Serial No." <> "Serial No.") THEN BEGIN
                       xTempTrackingSpec := xRec;
                       ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                         xTempTrackingSpec,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,2);
                     END;

                     IF TempItemTrackLineModify.GET("Entry No.") THEN
                       TempItemTrackLineModify.DELETE;
                     IF TempItemTrackLineInsert.GET("Entry No.") THEN BEGIN
                       TempItemTrackLineInsert.TRANSFERFIELDS(Rec);
                       TempItemTrackLineInsert.MODIFY;
                       ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                         TempItemTrackLineInsert,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                     END ELSE BEGIN
                       TempItemTrackLineModify.TRANSFERFIELDS(Rec);
                       TempItemTrackLineModify.INSERT;
                       ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                         TempItemTrackLineModify,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                     END;
                     CalculateSums;
...

替換代碼

...
// Add the following line.
                     IF NOT TestTempSpecificationExists THEN BEGIN          

                       MODIFY;

                       IF (xRec."Lot No." <> "Lot No.") OR (xRec."Serial No." <> "Serial No.") THEN BEGIN
                         xTempTrackingSpec := xRec;
                         ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                           xTempTrackingSpec,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,2);
                       END;

                       IF TempItemTrackLineModify.GET("Entry No.") THEN
                         TempItemTrackLineModify.DELETE;
                       IF TempItemTrackLineInsert.GET("Entry No.") THEN BEGIN
                         TempItemTrackLineInsert.TRANSFERFIELDS(Rec);
                         TempItemTrackLineInsert.MODIFY;
                         ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                           TempItemTrackLineInsert,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                       END ELSE BEGIN
                         TempItemTrackLineModify.TRANSFERFIELDS(Rec);
                         TempItemTrackLineModify.INSERT;
                         ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                           TempItemTrackLineModify,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                       END;

// Add the following line.
                     END;                                                                                                 

// Tab over two space to the left for the following line.
                     CalculateSums; 
...

為了解決 Microsoft Dynamics NAV 5.0 SP1 中的此問題，請將項目追蹤線表單 (6510) 中的 OnModifyRecord 觸發器程式碼更改如下：

現有程式碼

...
// Delete the following line.
                     IF NOT TestTempSpecificationExists THEN

                       MODIFY;

                     IF (xRec."Lot No." <> "Lot No.") OR (xRec."Serial No." <> "Serial No.") THEN BEGIN
                       xTempTrackingSpec := xRec;
                       ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                         xTempTrackingSpec,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,2);
                     END;

                     IF TempItemTrackLineModify.GET("Entry No.") THEN
                       TempItemTrackLineModify.DELETE;
                     IF TempItemTrackLineInsert.GET("Entry No.") THEN BEGIN
                       TempItemTrackLineInsert.TRANSFERFIELDS(Rec);
                       TempItemTrackLineInsert.MODIFY;
                       ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                         TempItemTrackLineInsert,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                     END ELSE BEGIN
                       TempItemTrackLineModify.TRANSFERFIELDS(Rec);
                       TempItemTrackLineModify.INSERT;
                       ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                         TempItemTrackLineModify,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                     END;
                     CalculateSums;
...

替換代碼

...
// Add the following line.
                     IF NOT TestTempSpecificationExists THEN BEGIN          

                       MODIFY;

                       IF (xRec."Lot No." <> "Lot No.") OR (xRec."Serial No." <> "Serial No.") THEN BEGIN
                         xTempTrackingSpec := xRec;
                         ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                           xTempTrackingSpec,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,2);
                       END;

                       IF TempItemTrackLineModify.GET("Entry No.") THEN
                         TempItemTrackLineModify.DELETE;
                       IF TempItemTrackLineInsert.GET("Entry No.") THEN BEGIN
                         TempItemTrackLineInsert.TRANSFERFIELDS(Rec);
                         TempItemTrackLineInsert.MODIFY;
                         ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                           TempItemTrackLineInsert,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                       END ELSE BEGIN
                         TempItemTrackLineModify.TRANSFERFIELDS(Rec);
                         TempItemTrackLineModify.INSERT;
                         ItemTrackingDataCollection.UpdateLotSNDataSetWithChange(
                           TempItemTrackLineModify,CurrentSignFactor * SourceQuantityArray[1] < 0,CurrentSignFactor,1);
                       END;

// Add the following line.
                     END;                                                                                                 

// Tab over two space to the left for the following line.
                     CalculateSums;    
...

要在 Microsoft Dynamics NAV 4.0 SP3 中解決此問題，請將項目追蹤線表單中的 OnModifyRecord 觸發器 (6510) 更改如下程式碼：

現有程式碼

...
// Delete the following line.
IF NOT TestTempSpecificationExists THEN

    TempTrackingSpec.MODIFY;

IF TempItemTrackLineModify.GET(TempTrackingSpec."Entry No.") THEN
  TempItemTrackLineModify.DELETE;
IF TempItemTrackLineInsert.GET(TempTrackingSpec."Entry No.") THEN BEGIN
  TempItemTrackLineInsert.TRANSFERFIELDS(TempTrackingSpec);
  TempItemTrackLineInsert.MODIFY;
END ELSE BEGIN
  TempItemTrackLineModify.TRANSFERFIELDS(TempTrackingSpec);
  TempItemTrackLineModify.INSERT;
END;

CalculateSums;
...

替換代碼

...
// Add the following line.
IF NOT TestTempSpecificationExists THEN BEGIN

    TempTrackingSpec.MODIFY;

// Tab over two spaces for the following lines.
  IF TempItemTrackLineModify.GET(TempTrackingSpec."Entry No.") THEN
    TempItemTrackLineModify.DELETE;
  IF TempItemTrackLineInsert.GET(TempTrackingSpec."Entry No.") THEN BEGIN
    TempItemTrackLineInsert.TRANSFERFIELDS(TempTrackingSpec);
    TempItemTrackLineInsert.MODIFY;
  END ELSE BEGIN
    TempItemTrackLineModify.TRANSFERFIELDS(TempTrackingSpec);
    TempItemTrackLineModify.INSERT;
  END;
// End of the lines.

// Add the following line.
END;

CalculateSums;
...

先決條件

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

• Microsoft Dynamics NAV 2009 Service Pack 1
• Microsoft Dynamics NAV 5.0 Service Pack 1
• Microsoft Dynamics NAV 4.0 Service Pack 3

              

移除資訊

你無法移除這個熱修正。

狀態

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

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

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