Відображається неправильне значення балансу та Pmt. диск форми застосування записи для користувачів і форми застосування записи в постачальника. Розмір поля в Microsoft Dynamics NAV, 2009

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

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

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

Відомості про інсталяцію

Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури. Проте вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.

Примітка. Перш ніж інсталювати це виправлення, переконайтеся, що всіх користувачів Microsoft Dynamics NAV-клієнт відключився системи. Це стосується, служби Microsoft Dynamics NAV Application Server (NAS). Ви повинні тільки клієнт користувача, який увійшов до системи, під час виконання цього виправлення.

Щоб застосувати це виправлення, потрібно мати ліцензію для розробників.

Корпорація Майкрософт рекомендує, що обліковий запис користувача Windows, вхід вікна або у вікні бази даних вхід призначити "Супер" роль ID. Якщо обліковий запис користувача не призначено роль ID "Супер", необхідно переконатися, що обліковий запис користувача, має такі дозволи:

• Змінити дозвіл об'єкт, який буде змінити.

• Права для виконання системи об'єкт з Ідентифікатором 5210 об'єкт і, код 9015 системи-об'єкт
  
  об'єкт.

Примітка. Маєте відповідних прав у сховища даних, якщо не потрібно виконати дані відновлення не потрібно.

Зміни коду

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

Щоб вирішити цю проблему, виконайте такі дії.

1. Змін у theApply записи для користувачів, форми (232), функція HandlChosenEntries наступним чином:
   Наявний код 1

   ...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Delete the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtDisc;
                  CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                    AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtDisc;
                  PossiblePmtDisc := 0;
   // End of the deleted lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF (FromZeroGenJnl) THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Код на заміну 1

   ...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Add the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                  CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                    AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   // End of the added lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF (FromZeroGenJnl) THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Наявний код 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Delete the following lines.
                PossiblePmtDisc := AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                IF (((CurrentAmount - PossiblePmtDisc + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
                  PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
                  CurrentAmount := CurrentAmount - PossiblePmtDisc;
                  PossiblePmtDisc := 0;
                  AppliedAmount := AppliedAmount + CorrectionAmount;
                END;
   // End of the deleted lines.
   
                 CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedCustLedgEntryTemp.SETRANGE(Positive);
               AppliedCustLedgEntryTemp.FINDFIRST;
   ...
   

   Код на заміну 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Add the following lines.
                IF (((CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN
                  AppliedAmount := AppliedAmount + CorrectionAmount;
   // End of the added lines.
   
                 CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedCustLedgEntryTemp.SETRANGE(Positive);
               AppliedCustLedgEntryTemp.FINDFIRST;
   ...
   

2. Змінити код у вигляді застосування записи в постачальника (233), функції HandlChosenEntries наступним чином:
   Наявний код 1

   ...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Delete the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtdisc;
                  CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                    AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtdisc;
                  PossiblePmtdisc := 0;
   // End of the deleted lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF FromZeroGenJnl THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Код на заміну 1

   ...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Add the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                  CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                    AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   // End of the added lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF FromZeroGenJnl THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Наявний код 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Delete the following lines.
                PossiblePmtdisc := AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                IF (((CurrentAmount - PossiblePmtdisc + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN BEGIN
                  PmtDiscAmount := PmtDiscAmount + PossiblePmtdisc;
                  CurrentAmount := CurrentAmount - PossiblePmtdisc;
                  PossiblePmtdisc := 0;
                  AppliedAmount := AppliedAmount + CorrectionAmount;
                END;
   // End of the deleted lines.
   
                 CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedVendLedgEntryTemp.SETRANGE(Positive);
               AppliedVendLedgEntryTemp.FINDFIRST;
   ...
   

   Код на заміну 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Add the following lines.
                IF (((CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN
                  AppliedAmount := AppliedAmount + CorrectionAmount;
   // End of the added lines.
   
                 CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedVendLedgEntryTemp.SETRANGE(Positive);
               AppliedVendLedgEntryTemp.FINDFIRST;
   ...
   

Попередні вимоги

Ви повинні мати одну з таких продуктів, щоб застосувати це виправлення:

• Microsoft Dynamics NAV 2009 пакет оновлень 1 для

• Microsoft Dynamics NAV 2009 R2

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

Це виправлення не можна видалити.