"路由选择的生产订单行所指不存在下一个/上一个操作"错误消息当您运行在 Microsoft Dynamics 导航 2009 年生产计划

修补程序信息

受支持的修补程序现已从 Microsoft 推出。然而，它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此，如果这个问题没有对您造成严重的影响，我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。

注意： 在特殊情况下，可免收的支持电话，可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。

代码更改

注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。
若要解决此问题，请执行以下步骤：

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