Microsoft Dynamics NAV 2009 年に生産スケジュールを実行するときに、「製造オーダーの行をルーティングを参照する次または前の操作を存在しない」エラー メッセージが表示されます。

修正プログラムの情報

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

注: かかる料金が免除されるテクニカル サポート担当者 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