Сообщение об ошибке «строки маршрута производственного заказа ссылается на несуществующую следующую или предыдущую операцию» при запуске производственного плана в Microsoft Dynamics NAV 2009

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

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

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

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

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

1. Измените код в функцию CreateOutboundXML в функции управления производством расписание (5500) следующим образом:
   Существующий код

   ...
   ScheduleOrder.SETDESTINATION(OStream);
   ScheduleOrder.InitializeHeader(InitialProdOrder1,Editable1);
   IF ScheduleOrder.EXPORT THEN BEGIN
   ProdSchedSetup.GanttXML.CREATEINSTREAM(IStream);
   OutboundXML.load(IStream);
   
   // Delete the following lines.
   END ELSE
   ERROR(Text002);
   // End of the lines.
   
   END
   END;
   END;
   
   PROCEDURE ConvertFromDDMMYY@2(DateIn@1000 : Text[30]) : Text[30];
   ...

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

   ...
   ScheduleOrder.SETDESTINATION(OStream);
   ScheduleOrder.InitializeHeader(InitialProdOrder1,Editable1);
   IF ScheduleOrder.EXPORT THEN BEGIN
   ProdSchedSetup.GanttXML.CREATEINSTREAM(IStream);
   OutboundXML.load(IStream);
   
   // Add the following lines.
   END ELSE BEGIN
   CLEAR(ProdSched);
   ERROR(Text002);
   END;
   // End of the lines.
   
   END
   END;
   END;
   
   PROCEDURE ConvertFromDDMMYY@2(DateIn@1000 : Text[30]) : Text[30];
   ...

2. Измените код в XMLport графика производства (5500) Экспорт следующим образом:
   Существующий код 1

   ...
   { [{86CA14B5-EAF7-4A37-ADCC-ED8FB40C86E7}];6 ;PrevOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Previous Operation No. }
   ...

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

   ...
   { [{86CA14B5-EAF7-4A37-ADCC-ED8FB40C86E7}];6 ;PrevOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Previous Operation No.;
   Export::OnBeforePassField=BEGIN
   IF CheckOperationNo("Prod. Order Routing Line","Prod. Order Routing Line"."Previous Operation No.") THEN
   ERROR(Text000,"Prod. Order Routing Line"."Prod. Order No.","Prod. Order Routing Line".FIELDCAPTION("Previous Operation No."),
   "Prod. Order Routing Line"."Previous Operation No.");
   END;
   }
   ...

   Существующий код 2

   ...
   { [{81A88AA3-07E1-43BF-B7A4-6F00E038BD51}];6 ;NextOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Next Operation No. }
   ...

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

   ...
   { [{81A88AA3-07E1-43BF-B7A4-6F00E038BD51}];6 ;NextOperationNo ;Element ;Field ;
   DataType=Code;
   SourceField=Prod. Order Routing Line::Next Operation No.;
   Export::OnBeforePassField=BEGIN
   IF CheckOperationNo("Prod. Order Routing Line","Prod. Order Routing Line"."Next Operation No.") THEN
   ERROR(Text000,"Prod. Order Routing Line"."Prod. Order No.","Prod. Order Routing Line".FIELDCAPTION("Next Operation No."),
   "Prod. Order Routing Line"."Next Operation No.");
   END;
   }
   ...

   Существующий код 3

   ...
   xProdOrderNo@1001 : Code[20];
   xProdOrderStatus@1002 : 'Simulated,Planned,Firm Planned,Released,Finished';
   xRoutingNo@1005 : Code[20];
   ...

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

   ...
   xProdOrderNo@1001 : Code[20];
   xProdOrderStatus@1002 : 'Simulated,Planned,Firm Planned,Released,Finished';
   xRoutingNo@1005 : Code[20];
   Text000@1101 : TextConst 'ENU=The routing in production order number %1 uses %2 %3, which does not exist.'; 
   ...

3. Добавьте новую функцию в XMLport графика производства (5500) Экспорт следующим образом:

   PROCEDURE CheckOperationNo@15(ProdOrderRoutingLine@1001 : Record 5409;OperationNo@1000 : Code[20]) : Boolean;
   
   VAR
   CheckedProdOrderRoutingLine@1002 : Record 5409;
   BEGIN
   IF OperationNo = '' THEN
   EXIT(FALSE);
   WITH CheckedProdOrderRoutingLine DO BEGIN
   RESET;
   SETCURRENTKEY("Prod. Order No.","Routing Reference No.",Status,"Routing No.","Operation No.");
   SETRANGE("Prod. Order No.",ProdOrderRoutingLine."Prod. Order No.");
   SETRANGE("Routing Reference No.",ProdOrderRoutingLine."Routing Reference No.");
   SETRANGE(Status,ProdOrderRoutingLine.Status);
   SETRANGE("Routing No.",ProdOrderRoutingLine."Routing No.");
   SETRANGE("Operation No.",OperationNo);
   EXIT(ISEMPTY);
   END;
   END;
   
   BEGIN
   END