顺序规划函数计算不正确的"订购数量"建议当您在 Microsoft Dynamics 导航中使用单生成环境

修补程序信息

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

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

代码更改

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

1. 创建本地函数UpdateRelatedComponent codeunit (99000809):

   ...LOCAL PROCEDURE UpdateRelatedComponent@15(ParentReqLine@1000 : Record 246);
   WITH PlanningComponent DO BEGIN
   SETCURRENTKEY("Worksheet Template Name","Worksheet Batch Name","Worksheet Line No.","Item No.");
   SETRANGE("Worksheet Line No.",ParentReqLine."Line No.");
   SETFILTER("Item No.",'<>%1','');
   SETFILTER("Expected Quantity",'<>0');
   SETFILTER("Planning Level Code",'<>0');
   IF FIND('-') THEN
   REPEAT
   IF LineHasBeenCreated(ChildReqLine,PlanningComponent) THEN BEGIN
   UpdateRelatedComponent(ChildReqLine);
   IF ChildReqLine.Quantity <> "Expected Quantity" THEN BEGIN
   // qty has to be updated, there is a new need of component
   ChildReqLine.BlockDynamicTracking(Blocked);
   ChildReqLine.VALIDATE(Quantity,ChildReqLine.Quantity - "Expected Quantity");
   ChildReqLine.MODIFY;
   
   // updating qty of component for parent
   VALIDATE("Quantity per","Quantity per");
   MODIFY;
   END ELSE
   // line will be recreated
   ChildReqLine.DELETE(TRUE);
   END;
   UNTIL NEXT = 0;
   END;
   ...
   

   
   在函数中添加以下参数︰

   • 名称︰ PlanningComponent; 数据类型︰ 记录 (99000829)

   • 名称︰ ChildReqLine;数据类型︰ 记录 (246)

2. 创建本地函数LineHasBeenCreated codeunit (99000829):

   ...LOCAL PROCEDURE LineHasBeenCreated@18(VAR ChildReqLine@1000 : Record 246;PlanningComponent@1001 : Record 99000829) : Boolean;
   WITH ChildReqLine DO BEGIN
   SETCURRENTKEY("Worksheet Template Name","Journal Batch Name",Type,"No.");
   SETRANGE("Worksheet Template Name",PlanningComponent."Worksheet Template Name");
   SETRANGE("Journal Batch Name",PlanningComponent."Worksheet Batch Name");
   SETRANGE(Type,Type::Item);
   SETRANGE("No.",PlanningComponent."Item No.");
   SETRANGE("Variant Code",PlanningComponent."Variant Code");
   SETRANGE("Ref. Order Type","Ref. Order Type"::"Prod. Order");
   SETRANGE("Ref. Order Status",PlanningComponent."Ref. Order Status");
   SETRANGE("Ref. Order No.",PlanningComponent."Ref. Order No.");
   SETFILTER("Planning Level",'>%1',0);
   EXIT(FINDFIRST);
   END;
   ...
   

3. 更改 codeunit (99000809) 的InsertPlanningLine函数中的代码，如下所示︰
   现有代码

   ... IF ReqLine2."Planning Level" < ReqLine."Planning Level" THEN
   ReqLine2."Planning Level" := ReqLine."Planning Level";
   
   ReqLine2.MODIFY; 
   ...
   

   替换代码

   ... IF ReqLine2."Planning Level" <ReqLine."Planning Level" THEN
   ReqLine2."Planning Level" := ReqLine."Planning Level";
   
   // the ReqLine2 can have children which has to be delete or updated
   // Add the following line.
   UpdateRelatedComponent(ReqLine2);
   
   ReqLine2.MODIFY;  
   ...