関数は、順序の計画計算が正しくありません」注文する数量] 提案受注作成環境を使用して、Microsoft Dynamics NAV のとき

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。

1. Codeunit (99000809) では、ローカル関数UpdateRelatedComponentを作成します。

   ...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. Codeunit (99000829) では、ローカル関数LineHasBeenCreatedを作成します。

   ...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;  
   ...