Поле "Баланс" і поле "Pmt. диск. сума" у формі Apply Customer Entries і у формі Apply Vendor Entries (Застосування записів постачальника) відображаються неправильні значення, якщо ви застосовуєте оплату до кількох відкритих документів у Microsoft Dynamics NAV

Застосовується до

Dynamics NAV 2009 Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Microsoft Dynamics NAV 5.0 Service Pack 1

Ця стаття стосується Microsoft Dynamics NAV для всіх країн і всіх мов.

Ознаки

Якщо ви застосуєте оплату до кількох відкритих документів у Microsoft Dynamics NAV, баланс поля і pmt. диск. Обсяг поле у формі apply Customer Entries (232) і у формі Apply Vendor Entries (233) відображати неправильні значення.
Ця проблема виникає в таких продуктах:

Microsoft Dynamics NAV 2009 із пакетом оновлень 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 із пакетом оновлень 1
Microsoft Dynamics NAV 5.0

Спосіб усунення проблеми

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

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

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

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

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

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

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

Радимо призначити обліковому запису користувача у вікні "Вхід у Windows" або у вікні "Вхід до бази даних" ідентифікатор ролі "SUPER". Якщо обліковому запису користувача не вдалося призначити ідентифікатор ролі SUPER, переконайтеся, що обліковий запис має такі дозволи:

Дозвіл на змінення об'єкта, який буде змінюватися.
Дозвіл Execute для об'єкта System Object ID 5210 і для об'єкта System Object ID 9015.

Примітка. Ви не повинні мати права на зберігання даних, якщо не потрібно відновлювати дані.

Зміни коду

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

Змініть код у функції HandlChosenEntries у формі Apply Customer Entries (232).
Наявний код

...
      IF (ABS(CurrentAmount - PossiblePmtDisc) > ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
        AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
      THEN BEGIN
        PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
        CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
          AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
      END ELSE IF (ABS(CurrentAmount - PossiblePmtDisc) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
        AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
      THEN BEGIN
        PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtDisc;
        CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
          AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtDisc;
   PossiblePmtDisc := 0;
        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";
      END ELSE BEGIN
        IF (CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" >= 0) <> (CurrentAmount >= 0) THEN BEGIN
          PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
          CurrentAmount := CurrentAmount - PossiblePmtDisc; DELETE LINE
          AppliedAmount := AppliedAmount + CorrectionAmount;
        END;
        CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount";
        PossiblePmtDisc := AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
      END;
    END ELSE BEGIN
      IF (((CurrentAmount - PossiblePmtDisc + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
        PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
        CurrentAmount := CurrentAmount - PossiblePmtDisc;
        PossiblePmtDisc := 0;
        AppliedAmount := AppliedAmount + CorrectionAmount;
      END;
      CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
    END;
  END ELSE BEGIN
    AppliedCustLedgEntryTemp.SETRANGE(Positive);
    AppliedCustLedgEntryTemp.FINDFIRST;
  END;
...

Код заміни

...
      IF (ABS(CurrentAmount) > ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
        AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
      THEN BEGIN
        PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
        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
        PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtDisc;
        CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
          AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtDisc;
        PossiblePmtDisc := 0;
        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";
      END ELSE BEGIN
        IF (CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" >= 0) <> (CurrentAmount >= 0) THEN BEGIN
          PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
          AppliedAmount := AppliedAmount + CorrectionAmount;
        END;
        CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
          AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
        PossiblePmtDisc := AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
      END;
    END ELSE BEGIN
      IF (((CurrentAmount - PossiblePmtDisc + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
        PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
        CurrentAmount := CurrentAmount - PossiblePmtDisc;
        PossiblePmtDisc := 0;
        AppliedAmount := AppliedAmount + CorrectionAmount;
      END;
      CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
    END;
  END ELSE BEGIN
   AppliedCustLedgEntryTemp.SETRANGE(Positive);
    AppliedCustLedgEntryTemp.FINDFIRST;
  END;
...

Внесіть подібну зміну коду до функції HandlChosenEntries у формі Apply Vendor Entries (233). Змінений код такий:

...
            IF (ABS(CurrentAmount) > ABS(AppliedVendLedgEntryTemp."Remaining Amount" - // This line is changed.
              AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
            THEN BEGIN
              PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
              CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
            END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" - // This line is changed.
              AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
            THEN BEGIN
              PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtdisc;
              CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtdisc;
              PossiblePmtdisc := 0;
              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";
            END ELSE BEGIN
              IF (CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" >= 0) <> (CurrentAmount >= 0) THEN BEGIN
                PmtDiscAmount := PmtDiscAmount + PossiblePmtdisc;
                // CurrentAmount := CurrentAmount - PossiblePmtdisc; // This line is deleted.
                AppliedAmount := AppliedAmount + CorrectionAmount;
              END;
              CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" - // This line is changed.
                AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"; // This line is added
              PossiblePmtdisc := AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
            END;
          END ELSE BEGIN
            IF (((CurrentAmount - PossiblePmtdisc + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
...

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

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

Microsoft Dynamics NAV 2009 із пакетом оновлень 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 із пакетом оновлень 1
Microsoft Dynamics NAV 5.0

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

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

Стан

Корпорація Microsoft підтвердила, що це одна з проблем з продуктами Microsoft, перелічених у розділі "Застосовується до".

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