當您嘗試在義大利版 Microsoft Dynamics NAV 2009 中刷新已發布的生產訂單時,會跳出「您沒有權限執行『SubcontractingManagement』 Codeunit」錯誤訊息

套用到
Dynamics NAV 2009

本文適用於義大利語 (Microsoft Dynamics NAV,) 語言地點。

症狀

假設你使用的授權包含細粒 7300 - 解決方案開發者,且義大利版 Microsoft Dynamics NAV 2009 R2 及 Microsoft Dynamics NAV 2009 服務包 1 (SP1) 中沒有細粒 12150 - 分包。 當您嘗試刷新已發布的生產訂單時,會收到以下錯誤訊息:

注意

你沒有權限執行「分包管理」程式碼單元。
請聯絡你的系統管理員,申請更改你的權限。

解決方式

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 的執行權限。

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

法規變更

注意:在將修正程式套用到生產電腦之前,務必在受控環境中測試修正。
為了解決此問題,請將生產順序元件表中的程式碼欄位 (5407) 更改如下:

現行法規1

...
     ProdOrderRtngLine@1001 : Record 5409;
     Vendor@1130000 : Record 23;
     SKU@1130001 : Record 5700;
     GetPlanningParameters@1130002 : Codeunit 99000855;
     SubcontractingManagement@1130003 : Codeunit 12152;
   BEGIN
     VALIDATE("Expected Quantity",Quantity * ProdOrderNeeds);

     ProdOrderLine.GET(Status,"Prod. Order No.","Prod. Order Line No.");
...

替換代碼1

...
     ProdOrderRtngLine@1001 : Record 5409;
     Vendor@1130000 : Record 23;
     SKU@1130001 : Record 5700;
     GetPlanningParameters@1130002 : Codeunit 99000855;
     SubcontractingManagement@1130003 : Codeunit 12152;

// Add the following line.
       LicensePermission@1002 : Record 2000000043;
// End of the line.

   BEGIN
     VALIDATE("Expected Quantity",Quantity * ProdOrderNeeds);

     ProdOrderLine.GET(Status,"Prod. Order No.","Prod. Order Line No.");
...

現有的第二號法規

...
       ProdOrderRtngLine.SETRANGE("Routing Reference No.",ProdOrderLine."Routing Reference No.");
       ProdOrderRtngLine.SETRANGE("Routing Link Code","Routing Link Code");
       IF ProdOrderRtngLine.FIND('-') THEN BEGIN
         "Due Date" := ProdOrderRtngLine."Starting Date";
         "Due Time" := ProdOrderRtngLine."Starting Time";

// Delete the following lines.
           IF SubcontractorPrices.READPERMISSION THEN
             IF (ProdOrderRtngLine.Type = ProdOrderRtngLine.Type::"Work Center") THEN
               IF SubcontractingManagement.GetSubcontractor(ProdOrderRtngLine."No.",Vendor) THEN
                 IF Vendor."Subcontractor Procurement" THEN
                   VALIDATE("Location Code",Vendor."Subcontracting Location Code");
// End of the lines.

       END;
     END ELSE BEGIN
       IF xRec."Routing Link Code" <> '' THEN BEGIN
         GetPlanningParameters.AtSKU(
           SKU,
...

替換代碼2

...
       ProdOrderRtngLine.SETRANGE("Routing Reference No.",ProdOrderLine."Routing Reference No.");
       ProdOrderRtngLine.SETRANGE("Routing Link Code","Routing Link Code");
       IF ProdOrderRtngLine.FIND('-') THEN BEGIN
         "Due Date" := ProdOrderRtngLine."Starting Date";
         "Due Time" := ProdOrderRtngLine."Starting Time";

           // Add the following lines.
           IF LicensePermission.GET(LicensePermission."Object Type"::TableData, DATABASE::"Subcontractor Prices") THEN
             IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN
               IF (ProdOrderRtngLine.Type = ProdOrderRtngLine.Type::"Work Center") THEN
                 IF SubcontractingManagement.GetSubcontractor(ProdOrderRtngLine."No.",Vendor) THEN
                   IF Vendor."Subcontractor Procurement" THEN
                     VALIDATE("Location Code",Vendor."Subcontracting Location Code");
          // End of the lines.

       END;
     END ELSE BEGIN
       IF xRec."Routing Link Code" <> '' THEN BEGIN
         GetPlanningParameters.AtSKU(
           SKU,
...

先決條件

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

  • Microsoft Dynamics NAV 2009 R2 的義大利版本
  • Microsoft Dynamics NAV 2009 Service Pack 1 的義大利版本

移除資訊

你無法移除這個熱修正。

狀態

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

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