Полето Дата на експедиране се изчислява неправилно, след като сте задали полето заявената дата за доставка на поръчки за продажби в Microsoft Dynamics NAV

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за 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
   ...