Планирование заказов рассчитывает неправильные варианты «Кол-во заказа» при использовании среды делать на заказ в Microsoft Dynamics NAV

Сведения об исправлении

Исправление от корпорации Майкрософт доступно. Однако оно предназначено только для устранения проблемы, описанной в этой статье. Предлагаемое исправление должно применяться исключительно в системах, в которых обнаружена эта специфическая неполадка. Это исправление может проходить дополнительное тестирование. Таким образом Если вы не подвержены серьезно эту проблему, рекомендуется дождаться следующего пакета обновления для Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащего это исправление.

Примечание. В особых случаях оплата, предусмотренная в службу поддержки может быть отменена Если специалист службы технической поддержки Microsoft Dynamics и связанных продуктов определит, что решения проблемы является специально выпущенное. Затраты на обычные услуги службы поддержки будут применяться к дополнительным вопросам и проблемам, которые не охватываются конкретным обновлением.

Изменения кода

Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.
Чтобы устранить эту проблему, выполните следующие действия:

1. Создайте локальную функцию UpdateRelatedComponent в функции (99000809):

   ...LOCAL PROCEDURE UpdateRelatedComponent@15(ParentReqLine@1000 : Record 246);
   WITH PlanningComponent DO BEGIN
   SETCURRENTKEY("Worksheet Template Name","Worksheet Batch Name","Worksheet Line No.","Item No.");
   SETRANGE("Worksheet Line No.",ParentReqLine."Line No.");
   SETFILTER("Item No.",'<>%1','');
   SETFILTER("Expected Quantity",'<>0');
   SETFILTER("Planning Level Code",'<>0');
   IF FIND('-') THEN
   REPEAT
   IF LineHasBeenCreated(ChildReqLine,PlanningComponent) THEN BEGIN
   UpdateRelatedComponent(ChildReqLine);
   IF ChildReqLine.Quantity <> "Expected Quantity" THEN BEGIN
   // qty has to be updated, there is a new need of component
   ChildReqLine.BlockDynamicTracking(Blocked);
   ChildReqLine.VALIDATE(Quantity,ChildReqLine.Quantity - "Expected Quantity");
   ChildReqLine.MODIFY;
   
   // updating qty of component for parent
   VALIDATE("Quantity per","Quantity per");
   MODIFY;
   END ELSE
   // line will be recreated
   ChildReqLine.DELETE(TRUE);
   END;
   UNTIL NEXT = 0;
   END;
   ...
   

   
   Добавьте следующие параметры в функции:

   • Имя: PlanningComponent; Тип данных: Запись (99000829)

   • Имя: ChildReqLine; Тип данных: Запись (246)

2. Создайте локальную функцию LineHasBeenCreated в функции (99000829):

   ...LOCAL PROCEDURE LineHasBeenCreated@18(VAR ChildReqLine@1000 : Record 246;PlanningComponent@1001 : Record 99000829) : Boolean;
   WITH ChildReqLine DO BEGIN
   SETCURRENTKEY("Worksheet Template Name","Journal Batch Name",Type,"No.");
   SETRANGE("Worksheet Template Name",PlanningComponent."Worksheet Template Name");
   SETRANGE("Journal Batch Name",PlanningComponent."Worksheet Batch Name");
   SETRANGE(Type,Type::Item);
   SETRANGE("No.",PlanningComponent."Item No.");
   SETRANGE("Variant Code",PlanningComponent."Variant Code");
   SETRANGE("Ref. Order Type","Ref. Order Type"::"Prod. Order");
   SETRANGE("Ref. Order Status",PlanningComponent."Ref. Order Status");
   SETRANGE("Ref. Order No.",PlanningComponent."Ref. Order No.");
   SETFILTER("Planning Level",'>%1',0);
   EXIT(FINDFIRST);
   END;
   ...
   

3. Измените код в функцию InsertPlanningLine функции (99000809) следующим образом:
   Существующий код

   ... IF ReqLine2."Planning Level" < ReqLine."Planning Level" THEN
   ReqLine2."Planning Level" := ReqLine."Planning Level";
   
   ReqLine2.MODIFY; 
   ...
   

   Код для замены

   ... IF ReqLine2."Planning Level" <ReqLine."Planning Level" THEN
   ReqLine2."Planning Level" := ReqLine."Planning Level";
   
   // the ReqLine2 can have children which has to be delete or updated
   // Add the following line.
   UpdateRelatedComponent(ReqLine2);
   
   ReqLine2.MODIFY;  
   ...