「你必須指定文件編號。在安裝 Local Feature Pack 1 的俄文版 Microsoft Dynamics NAV 2009 R2 中執行購買或銷售文件的過帳流程時，會出現「在貨目日記行」錯誤訊息

套用到

Dynamics NAV 2009

本文適用於俄語 (ru 語言地區的 Microsoft Dynamics) NAV。

症狀

假設你在安裝了 Local Feature Pack 1 的俄文版 Microsoft Dynamics NAV 2009 R2 中啟用了預覽功能。你可以在「購買 & 應付帳款設定」對話框或銷售 & 應收帳款設定對話框中，將計算支出折扣欄位設為「是」。在這種情況下，當您執行購買文件或銷售文件的過帳流程時，會收到以下錯誤訊息：

注意

您必須指定文件編號。在項目日記帳行中，日記帳模板名稱=''，日記批次名稱=''，行號='0'。

解決方式

Hotfix 資訊

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

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

安裝資訊

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

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

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

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

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

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

法規變更

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

將 Sales-Post 代碼單元 (80) 更改如下：
現有程式碼

...
IF Invoice AND ("Posting No." = '') THEN BEGIN
IF ("No. Series" <> '') OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN
TESTFIELD("Posting No. Series");
IF ("No. Series" <> "Posting No. Series") OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN BEGIN
IF ISNULLGUID(InstanceGUID) THEN BEGIN
IF ("Shipping No. Series" = "Posting No. Series") AND ("Shipping No." <> '') THEN
"Posting No." := "Shipping No."
ELSE
IF ("Return Receipt No. Series" = "Posting No. Series") AND ("Return Receipt No." <> '') THEN
"Posting No." := "Return Receipt No."
ELSE
"Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);

// Delete the following line.
ModifyHeader := TRUE;

END ELSE
"Posting No." := '***';
END;
END;
...

替換代碼

...
IF Invoice AND ("Posting No." = '') THEN BEGIN
IF ("No. Series" <> '') OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN
TESTFIELD("Posting No. Series");
IF ("No. Series" <> "Posting No. Series") OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN BEGIN
IF ISNULLGUID(InstanceGUID) THEN BEGIN
IF ("Shipping No. Series" = "Posting No. Series") AND ("Shipping No." <> '') THEN
"Posting No." := "Shipping No."
ELSE
IF ("Return Receipt No. Series" = "Posting No. Series") AND ("Return Receipt No." <> '') THEN
"Posting No." := "Return Receipt No."
ELSE
"Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
END ELSE
"Posting No." := '***';

// Add the following line.
ModifyHeader := TRUE; 

END;
END;
...

將 Purch.-Post 代碼單元 (90) 更改如下：
現有程式碼

...
IF Invoice AND ("Posting No." = '') THEN BEGIN
IF ("No. Series" <> '') OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN
TESTFIELD("Posting No. Series");
IF ("No. Series" <> "Posting No. Series") OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN BEGIN
IF ISNULLGUID(InstanceGUID) THEN BEGIN
IF ("Receiving No. Series" = "Posting No. Series") AND ("Receiving No." <> '') THEN
"Posting No." := " Receiving No."
ELSE
IF ("Return Shipment No. Series" = "Posting No. Series") AND ("Return Shipment No." <> '') THEN
"Posting No." := "Return Shipment No."
ELSE
"Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);

// Delete the following line.
ModifyHeader := TRUE;

END ELSE
"Posting No." := '***';
END;
END;
...

替換代碼

...
IF Invoice AND ("Posting No." = '') THEN BEGIN
IF ("No. Series" <> '') OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN
TESTFIELD("Posting No. Series");
IF ("No. Series" <> "Posting No. Series") OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN BEGIN
IF ISNULLGUID(InstanceGUID) THEN BEGIN
IF ("Receiving No. Series" = "Posting No. Series") AND ("Receiving No." <> '') THEN
"Posting No." := " Receiving No."
ELSE
IF ("Return Shipment No. Series" = "Posting No. Series") AND ("Return Shipment No." <> '') THEN
"Posting No." := "Return Shipment No."
ELSE
"Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
END ELSE
"Posting No." := '***';

// Add the following line.
ModifyHeader := TRUE; 

END;
END;
...

先決條件

你必須安裝俄羅斯版的 Microsoft Dynamics NAV 2009 R2 並安裝本地功能包 1 才能套用此熱修補。

移除資訊

你無法移除這個熱修正。

狀態

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

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