При спробі надіслати дані на отримання сповіщення про передавання в Microsoft Dynamics NAV, 2009 відображається повідомлення про помилку "Запис запис ні [число]. пункт книга не існує"

Відомості про виправлення

Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.

Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.

Зміни коду

Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютерів.
Щоб вирішити цю проблему, виконайте такі дії.

1. Додавати наведену нижче глобальну змінну (текст константа) TransferOrder, після відправлення-codeunit (5704):

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

2. Змін OnRun тригера в TransferOrder, після відправлення-codeunit (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, після відправлення-codeunit (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;