Поле доставкою дата визначається неправильно після встановлення замовлення на продаж в Microsoft Dynamics NAV, у поле "Дата доставки, необхідну"

Відомості про виправлення

Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.

Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.

Зміни коду

Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютерів.
Щоб вирішити цю проблему, виконайте такі дії.

1. Додавання змінною продажу рядка таблиці (37) і вкажіть змінна наступним чином:

   • Ім'я: RequestedPromisedDateCalulated

   • Тип даних: логічний вираз

2. Змінити код у Необхідну дату доставки - OnValidate тригер продажу рядка таблиці (37) наступним чином:
   Наявний код

   ...
   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. Змінити код у Заплановані Дата доставки - OnValidate тригер продажу рядка таблиці (37) наступним чином:
   Наявний код

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