При учете приходной накладной перемещения в Microsoft Dynamics NAV 2009 появляется сообщение об ошибке «Номер товарной операции записи [число] не существует»

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

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

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

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

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

1. Добавьте следующие глобальной переменной (текстовой константы) в функции TransferOrder учет отгрузки (5704):

   Text009@1042 : TextConst 'ENU=Item number %1 is not in inventory.';

2. Измените код в триггере OnRun в функции TransferOrder учет отгрузки (5704) следующим образом:
   Существующий код

   ...                TransLine.SETFILTER(Quantity,'<>0');
                   TransLine.SETFILTER("Qty. to Ship",'<>0');
                   IF NOT TransLine.FIND('-') THEN
                     ERROR(Text001);
   
                   WhseShip := TempWhseShptHeader.FIND('-');
                   InvtPickPutaway := WhseReference <> 0;
                   IF NOT (WhseShip OR InvtPickPutaway) THEN
                     CheckWarehouse(TransLine);
   ...
   
   

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

   ...                TransLine.SETFILTER(Quantity,'<>0');
                   TransLine.SETFILTER("Qty. to Ship",'<>0');
                   IF NOT TransLine.FIND('-') THEN
                     ERROR(Text001);
   
                  // Add the following line. 
                  CheckItemAvailability(TransLine);     
   
                   WhseShip := TempWhseShptHeader.FIND('-');
                   InvtPickPutaway := WhseReference <> 0;
                   IF NOT (WhseShip OR InvtPickPutaway) THEN
                     CheckWarehouse(TransLine);
   ...
   
   

3. Добавьте локальную функцию CheckItemAvailability в функции TransferOrder учет отгрузки (5704) следующим образом:

   LOCAL PROCEDURE CheckItemAvailability@1043(TransLine@1000 : Record 5741);VAR
     Item@1001 : Record 27;
   BEGIN
     WITH Item DO BEGIN
       GET(TransLine."Item No.");
       SETFILTER("Variant Filter",TransLine."Variant Code");
       SETFILTER("Location Filter",TransLine."Transfer-from Code");
       CALCFIELDS(Inventory);
       IF Inventory <= 0 THEN
       ERROR(Text009,TransLine."Item No.");
     END;
   END;