出荷日] フィールドが正しく計算されない Microsoft Dynamics NAV の販売注文で要求された出荷日] フィールドを設定した後

修正プログラムの情報

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

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

コードの変更

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

1. 販売明細行のテーブル (37)、[グローバル変数を追加し、次のように変数を指定します。

   • 名: RequestedPromisedDateCalulated

   • データ型:ブール値

2. 販売明細行のテーブル (37) の要求された納期日の OnValidateトリガーのコードを次のように変更します。
   既存のコード

   ...
   IF ("Requested Delivery Date" <> xRec."Requested Delivery Date") AND
   ("Promised Delivery Date" <> 0D)
   THEN
   ERROR(
   Text028, 
   FIELDCAPTION("Requested Delivery Date"),
   FIELDCAPTION("Promised Delivery Date"));
   IF "Requested Delivery Date" <> 0D THEN
   VALIDATE("Planned Delivery Date","Requested Delivery Date")
   ELSE BEGIN
   GetSalesHeader;
   VALIDATE("Shipment Date",SalesHeader."Shipment Date");
   END;
   END;
   }
   { 5791;   ;Promised Delivery Date;Date        ;OnValidate=BEGIN
   TestStatusOpen;
   IF "Promised Delivery Date" <> 0D THEN
   VALIDATE("Planned Delivery Date","Promised Delivery Date")
   ELSE
   ...

   置換用コード

   ...
   IF ("Requested Delivery Date" <> xRec."Requested Delivery Date") AND
   ("Promised Delivery Date" <> 0D)
   THEN
   ERROR(
   Text028,
   FIELDCAPTION("Requested Delivery Date"),
   FIELDCAPTION("Promised Delivery Date"));
   
   RequestedPromisedDateCalulated := "Requested Delivery Date" <> 0D;
   IF "Requested Delivery Date" <> 0D THEN
   VALIDATE("Planned Delivery Date","Requested Delivery Date")
   ELSE BEGIN
   GetSalesHeader;
   VALIDATE("Shipment Date",SalesHeader."Shipment Date");
   END;
   END;
   }
   { 5791; ;Promised Delivery Date;Date ;OnValidate=BEGIN
   TestStatusOpen;
   RequestedPromisedDateCalulated := "Promised Delivery Date" <> 0D;
   IF "Promised Delivery Date" <> 0D THEN
   VALIDATE("Planned Delivery Date","Promised Delivery Date")
   ELSE
   ...

3. 販売明細行のテーブル (37) の予定出荷日の OnValidateトリガーのコードを次のように変更します。
   既存のコード

   ...
   IF FORMAT("Shipping Time") <> '' THEN
   VALIDATE(
   "Planned Shipment Date",
   CalendarMgmt.CalcDateBOC2(
   FORMAT("Shipping Time"),
   "Planned Delivery Date",
   CalChange."Source Type"::"Shipping Agent",
   "Shipping Agent Code",
   "Shipping Agent Service Code",
   CalChange."Source Type"::Customer,
   "Sell-to Customer No.",
   '',
   TRUE))
   ELSE
   VALIDATE(
   "Planned Shipment Date",
   CalendarMgmt.CalcDateBOC(
   FORMAT(''),
   "Planned Delivery Date",
   CalChange."Source Type"::"Shipping Agent",
   "Shipping Agent Code",
   "Shipping Agent Service Code",
   CalChange."Source Type"::Customer,
   "Sell-to Customer No.",
   '',
   TRUE));
   
   IF "Planned Shipment Date" > "Planned Delivery Date" THEN
   ...

   置換用コード

   ...
   IF FORMAT("Shipping Time") <> '' THEN
   VALIDATE(
   "Planned Shipment Date",
   CalendarMgmt.CalcDateBOC2(
   FORMAT("Shipping Time"),
   "Planned Delivery Date",
   CalChange."Source Type"::"Shipping Agent",
   "Shipping Agent Code",
   "Shipping Agent Service Code",
   CalChange."Source Type"::Customer,
   "Sell-to Customer No.",
   '',
   NOT RequestedPromisedDateCalulated))
   ELSE
   VALIDATE(
   "Planned Shipment Date",
   CalendarMgmt.CalcDateBOC(
   FORMAT(''),
   "Planned Delivery Date",
   CalChange."Source Type"::"Shipping Agent",
   "Shipping Agent Code",
   "Shipping Agent Service Code",
   CalChange."Source Type"::Customer,
   "Sell-to Customer No.",
   '',
   NOT RequestedPromisedDateCalulated));
   
   IF "Planned Shipment Date" > "Planned Delivery Date" THEN
   ...