"參考不存在的下一頁/上一頁作業路由一行生產訂單 」 的錯誤訊息，當您在 [Microsoft 動態航行點 2009年執行生產排程

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過，它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此，如果此問題不會嚴重影響，我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下，通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題，請依照下列步驟執行：

1. 變更中生產排程管理 codeunit (5500) 的CreateOutboundXML函式的程式碼如下所示：
   現有的程式碼

   ...
   ScheduleOrder.SETDESTINATION(OStream);
   ScheduleOrder.InitializeHeader(InitialProdOrder1,Editable1);
   IF ScheduleOrder.EXPORT THEN BEGIN
   ProdSchedSetup.GanttXML.CREATEINSTREAM(IStream);
   OutboundXML.load(IStream);
   
   // Delete the following lines.
   END ELSE
   ERROR(Text002);
   // End of the lines.
   
   END
   END;
   END;
   
   PROCEDURE ConvertFromDDMMYY@2(DateIn@1000 : Text[30]) : Text[30];
   ...

   取代程式碼

   ...
   ScheduleOrder.SETDESTINATION(OStream);
   ScheduleOrder.InitializeHeader(InitialProdOrder1,Editable1);
   IF ScheduleOrder.EXPORT THEN BEGIN
   ProdSchedSetup.GanttXML.CREATEINSTREAM(IStream);
   OutboundXML.load(IStream);
   
   // Add the following lines.
   END ELSE BEGIN
   CLEAR(ProdSched);
   ERROR(Text002);
   END;
   // End of the lines.
   
   END
   END;
   END;
   
   PROCEDURE ConvertFromDDMMYY@2(DateIn@1000 : Text[30]) : Text[30];
   ...

2. 變更匯出生產排程 XMLport (5500) 中的程式碼如下所示：
   現有的程式碼 1

   ...
   { [{86CA14B5-EAF7-4A37-ADCC-ED8FB40C86E7}];6 ;PrevOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Previous Operation No. }
   ...

   取代程式碼 1

   ...
   { [{86CA14B5-EAF7-4A37-ADCC-ED8FB40C86E7}];6 ;PrevOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Previous Operation No.;
   Export::OnBeforePassField=BEGIN
   IF CheckOperationNo("Prod. Order Routing Line","Prod. Order Routing Line"."Previous Operation No.") THEN
   ERROR(Text000,"Prod. Order Routing Line"."Prod. Order No.","Prod. Order Routing Line".FIELDCAPTION("Previous Operation No."),
   "Prod. Order Routing Line"."Previous Operation No.");
   END;
   }
   ...

   現有的程式碼 2

   ...
   { [{81A88AA3-07E1-43BF-B7A4-6F00E038BD51}];6 ;NextOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Next Operation No. }
   ...

   取代程式碼 2

   ...
   { [{81A88AA3-07E1-43BF-B7A4-6F00E038BD51}];6 ;NextOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Next Operation No.;
   Export::OnBeforePassField=BEGIN
   IF CheckOperationNo("Prod. Order Routing Line","Prod. Order Routing Line"."Next Operation No.") THEN
   ERROR(Text000,"Prod. Order Routing Line"."Prod. Order No.","Prod. Order Routing Line".FIELDCAPTION("Next Operation No."),
   "Prod. Order Routing Line"."Next Operation No.");
   END;
   }
   ...

   現有的程式碼 3

   ...
   xProdOrderNo@1001 : Code[20];
   xProdOrderStatus@1002 : 'Simulated,Planned,Firm Planned,Released,Finished';
   xRoutingNo@1005 : Code[20];
   ...

   取代程式碼 3

   ...
   xProdOrderNo@1001 : Code[20];
   xProdOrderStatus@1002 : 'Simulated,Planned,Firm Planned,Released,Finished';
   xRoutingNo@1005 : Code[20];
   Text000@1101 : TextConst 'ENU=The routing in production order number %1 uses %2 %3, which does not exist.'; 
   ...

3. 加入新的函式中匯出生產排程 XMLport (5500) 如下所示：

   PROCEDURE CheckOperationNo@15(ProdOrderRoutingLine@1001 : Record 5409;OperationNo@1000 : Code[20]) : Boolean;
   
   VAR
   CheckedProdOrderRoutingLine@1002 : Record 5409;
   BEGIN
   IF OperationNo = '' THEN
   EXIT(FALSE);
   WITH CheckedProdOrderRoutingLine DO BEGIN
   RESET;
   SETCURRENTKEY("Prod. Order No.","Routing Reference No.",Status,"Routing No.","Operation No.");
   SETRANGE("Prod. Order No.",ProdOrderRoutingLine."Prod. Order No.");
   SETRANGE("Routing Reference No.",ProdOrderRoutingLine."Routing Reference No.");
   SETRANGE(Status,ProdOrderRoutingLine.Status);
   SETRANGE("Routing No.",ProdOrderRoutingLine."Routing No.");
   SETRANGE("Operation No.",OperationNo);
   EXIT(ISEMPTY);
   END;
   END;
   
   BEGIN
   END