Сума знижки для рахунка визначається неправильно під час обчислення статистичні дані про придбання рахунку, португальською версії Microsoft Dynamics NAV, 2009

У цій статті стосуються Microsoft Dynamics NAV у мовних параметрах в Португальська (Португалія).

Причини

Припустімо, що встановити значення Тип платежу, знижкиCalc. Pmt диска. На лінії у діалоговому вікні Головна книга інсталяції Португальська версії Microsoft Dynamics NAV-2009 року. Установити знижка на рахунку придбання рахунку, який має більше одного з десяткових чисел. Під час обчислення статистичні дані про придбання рахунку, сума знижки для рахунка визначається неправильно.

Ця проблема виникає в таких продуктів:

Португальський версії Microsoft Dynamics NAV 2009-R2
Португальський версії Microsoft Dynamics NAV 2009 року з пакетом оновлень 1 (SP1)

Вирішення

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

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

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

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

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

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

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

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

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

об'єкт.

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

Зміни коду

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

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

Змін у продажу Calc. та знижки Codeunit (60), функція CalculateInvoiceDiscount наступним чином:
Наявний код 1

...GLAcc@1110002 : Record 15;
      BEGIN
...

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

...GLAcc@1110002 : Record 15;

// Add the following lines.
       TempSalesLineRemainder@1110000 : Record 37;
       TotRoundedInvDiscAmt@1110001 : Decimal;
       TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.

      BEGIN
...

Наявний код 2

...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":

// Delete the following lines.
SalesLine2."Inv. Discount Amount" :=
  ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  SalesLine2."Inv. Discount Amount" :=
    ROUND(
      (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
      CustInvDisc."Discount %" / 100,0.01);
    END;
// End of the deleted lines.

                  IF GLSetup."Payment Discount Type" =
...

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

...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":

// Add the following lines.
BEGIN
  TempSalesLineRemainder."Inv. Discount Amount" +=
    SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100;
  SalesLine2."Inv. Discount Amount" :=
    CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
  TempSalesLineRemainder."Inv. Discount Amount" +=
      (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
      CustInvDisc."Discount %" / 100;
  SalesLine2."Inv. Discount Amount" :=
    CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
END;
// End of the added lines.

                  IF GLSetup."Payment Discount Type" =
...

Наявний код 3

...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":

// Delete the following lines.
  SalesLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount")
      * SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  SalesLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
      SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
  SalesLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") *
      SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
  SalesLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
      SalesHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.

                    END;
...

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

...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":

// Add the following lines.
   BEGIN
    TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
        (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
        SalesHeader."Payment Discount %" / 100;
    SalesLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  BEGIN
    TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
        (SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
        SalesHeader."Payment Discount %" / 100;
    SalesLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
  BEGIN
    TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
        (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
        SalesHeader."Payment Discount %" / 100;
    SalesLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
  BEGIN
    TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
        (SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
        SalesHeader."Payment Discount %" / 100;
    SalesLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
// End of the added lines.

                    END;
...

Створити функцію продажу Calc. та знижки Codeunit (60) наступним чином:

PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END;

Змінити код CalculateInvoiceDiscount функції Purch.-Calc.Discount Codeunit (70), наступним чином:
Наявний код 1

...GLAcc@1110002 : Record 15;
      BEGIN
...

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

...GLAcc@1110002 : Record 15;

// Add the following lines.
TempPurchLineRemainder@1110000 : Record 39;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110004 : Decimal;
// End of the added lines.

      BEGIN
...

Наявний код 2

...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":

// Delete the following lines.
  PurchLine2."Inv. Discount Amount" :=
    ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
    PurchLine2."Inv. Discount Amount" :=
      ROUND(
        (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
        VendInvDisc."Discount %" / 100,0.01);
// End of the deleted lines.

              END;
...

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

...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":

// Add the following lines.
  BEGIN
    TempPurchLineRemainder."Inv. Discount Amount" +=
      PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100;
    PurchLine2."Inv. Discount Amount" :=
      CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  BEGIN
    TempPurchLineRemainder."Inv. Discount Amount" +=
        (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
        VendInvDisc."Discount %" / 100;
    PurchLine2."Inv. Discount Amount" :=
      CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
  END;
// End of the added lines.

              END;
...

Наявний код 3

...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":

// Delete the following lines.
  PurchLine2."Pmt. Disc. Rcd. Amount" :=
    ROUND(
      (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
      PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
   PurchLine2."Pmt. Disc. Rcd. Amount" :=
     ROUND(
       (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
       PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
   PurchLine2."Pmt. Disc. Rcd. Amount" :=
       ROUND(
       (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
       PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   PurchLine2."Pmt. Disc. Rcd. Amount" :=
     ROUND(
       (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
       PurchHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.

                     END;
...

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

...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":

// Add the following lines.
  BEGIN
    TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
        (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
        PurchHeader."Payment Discount %" / 100;
    PurchLine2."Pmt. Disc. Rcd. Amount" :=
      CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  BEGIN
    TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
        (PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
        PurchHeader."Payment Discount %" / 100;
    PurchLine2."Pmt. Disc. Rcd. Amount" :=
      CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
  BEGIN
    TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
        (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
        PurchHeader."Payment Discount %" / 100;
    PurchLine2."Pmt. Disc. Rcd. Amount" :=
      CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
  BEGIN
    TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
        (PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
        PurchHeader."Payment Discount %" / 100;
    PurchLine2."Pmt. Disc. Rcd. Amount" :=
      CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
  END;
// End of the added lines.

                     END;
...

Створити функцію Purch.-Calc.Discount Codeunit (70), наступним чином:

PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END;

Змінити код функції CalculateInvoiceDiscount на обслуговування, Calc. знижка Codeunit (5950) наступним чином:
Наявний код 1

...GLAcc@1110002 : Record 15;
      BEGIN
...

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

...GLAcc@1110002 : Record 15;

// Add the following lines.
TempServLineRemainder@1110000 : Record 5902;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.

      BEGIN
...

Наявний код 2

...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":

// Delete the following lines.
ServiceLine2."Inv. Discount Amount" :=
  ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  ServiceLine2."Inv. Discount Amount" :=
    ROUND(
      (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
      CustInvDisc."Discount %" / 100,0.01);
    END;
// End of the deleted lines.

                  IF GLSetup."Payment Discount Type" =
...

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

...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":

// Add the following lines.
BEGIN
TempServLineRemainder."Inv. Discount Amount" +=
ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100;
ServiceLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Inv. Discount Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100;
ServiceLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
END;
// End of the added lines.

IF GLSetup."Payment Discount Type" =
...

Наявний код 3

...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":

// Delete the following lines.
  ServiceLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount")
      * ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  ServiceLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
      ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
  ServiceLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") *
      ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
  ServiceLine2."Pmt. Disc. Given Amount" :=
    ROUND(
      (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
      ServHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.

                    END;

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

...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":

// Add the following lines.
  BEGIN
    TempServLineRemainder."Pmt. Disc. Given Amount" +=
        (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
        ServHeader."Payment Discount %" / 100;
    ServiceLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
  BEGIN
    TempServLineRemainder."Pmt. Disc. Given Amount" +=
        (ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
        ServHeader."Payment Discount %" / 100;
    ServiceLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
  BEGIN
    TempServLineRemainder."Pmt. Disc. Given Amount" +=
        (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
        ServHeader."Payment Discount %" / 100;
    ServiceLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
  BEGIN
    TempServLineRemainder."Pmt. Disc. Given Amount" +=
        (ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
        ServHeader."Payment Discount %" / 100;
    ServiceLine2."Pmt. Disc. Given Amount" :=
      CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
  END;
// End of the added lines.

                    END;
...

Створити функцію служби, Calc. знижка Codeunit (5950) наступним чином:

PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
  RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
  TotAmtRnded := TotAmtRnded + RndAmt;
END;

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

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

Португальський версії Microsoft Dynamics NAV 2009-R2
Португальський версії Microsoft Dynamics NAV 2009 року з пакетом оновлень 1

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

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

Стан

Корпорація Майкрософт підтвердила існування цієї неполадки у продуктах Майкрософт, перелічених у розділі "Застосовується до".

Примітка. Це "Швидка публікація" статті, надана службою підтримки корпорації Майкрософт. Відомості в цій статті надано без змін у відповідь на повідомлення про проблеми. З огляду на швидкість публікації матеріали можуть містити орфографічні помилки. Їх може бути змінено в будь-який час без повідомлення. Див. Умови використанняінші міркування.

Сума знижки для рахунка визначається неправильно під час обчислення статистичні дані про придбання рахунку, португальською версії Microsoft Dynamics NAV, 2009

Причини

Вирішення

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

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

Зміни коду

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

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

Стан

Потрібна додаткова довідка?

Потрібні додаткові параметри?

Чи ця інформація була корисною?

Дякуємо за відгук!