Поле Дата отгрузки рассчитывается неправильно после установки поля Требуемая Дата поставки в заказе на продажу в 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
   ...