Курс валют відмінності не працює у версії 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. Змінити код у властивостях у звіті про обчислення відмінності в Exchange (12302) наступним чином:
   Наявний код

   ...CaptionML=[ENU=Calculate Exchange Differences;
                  PLK=Kalkulacja r��nic kursowych];
       ProcessingOnly=Yes;
     }
     DATAITEMS
     {
   ...
   

   Заміна код

   ...CaptionML=[ENU=Calculate Exchange Differences;
                  PLK=Kalkulacja r��nic kursowych];
       ProcessingOnly=Yes;
       OnPreReport=BEGIN
                     GLSetup.GET;
                   END;
   
     }
     DATAITEMS
     {
   ...
   

2. Змінити код у звіті про обчислення відмінності в Exchange (12302) наступним чином:
   Наявний код 1

   ...OnAfterGetRecord=VAR
                              ApplBankAccountLedgerEntry@1000 : Record 271;
                              AmountLCY@1001 : Decimal;
                            BEGIN
                              IF ((Amount < 0) OR (Amount = 0)) THEN
                                CurrReport.SKIP;
   ...
   

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

   ...OnAfterGetRecord=VAR
                              ApplBankAccountLedgerEntry@1000 : Record 271;
                              AmountLCY@1001 : Decimal;
                              DiffGains@1170001 : Decimal;
                              DiffLosses@1170002 : Decimal;
                            BEGIN
                              IF ((Amount < 0) OR (Amount = 0)) THEN
                                CurrReport.SKIP;
   ...
   

   Наявний код 2

   ...IF ((Amount < 0) OR (Amount = 0)) THEN
                                CurrReport.SKIP;
   
                              ExchRate := "Amount (LCY)" / Amount;
                              RemainingAmount := Amount - "Applied Amount";
   ...
   

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

   ...IF ((Amount < 0) OR (Amount = 0)) THEN
                                CurrReport.SKIP;
   
                              DiffGains := 0;
                              DiffLosses := 0;
                              ExchRate := "Amount (LCY)" / Amount;
                              RemainingAmount := Amount - "Applied Amount";
   ...
   

   Наявний код 3

   ...ExchDiff := -(AppAmount * ExchRate - (AmountLCY * (AppAmount / BankAccLedgEntry.Amount)));
   
                                  BankAccLedgEntry."Difference Amount" := BankAccLedgEntry."Difference Amount" + ExchDiff;
                                  BankAccLedgEntry."Applied Amount" := BankAccLedgEntry."Applied Amount" + AppAmount;
                                  BankAccLedgEntry."Remaining Amount" := BankAccLedgEntry."Remaining Amount" - AppAmount;
   ...
   

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

   ...ExchDiff := -(AppAmount * ExchRate - (AmountLCY * (AppAmount / BankAccLedgEntry.Amount)));
   
                                  IF ExchDiff < 0 THEN
                                    ExchDiff := CalcRoundedAmount(ExchDiff,DiffGains);
                                  IF ExchDiff > 0 THEN
                                    ExchDiff := CalcRoundedAmount(ExchDiff,DiffLosses);
   
                                  BankAccLedgEntry."Difference Amount" := BankAccLedgEntry."Difference Amount" + ExchDiff;
                                  BankAccLedgEntry."Applied Amount" := BankAccLedgEntry."Applied Amount" + AppAmount;
                                  BankAccLedgEntry."Remaining Amount" := BankAccLedgEntry."Remaining Amount" - AppAmount;
   ...
   

3. Змінити код глобальних параметрів у звіті про обчислення відмінності в Exchange (12302) наступним чином:
   Наявний код

   ...VAR
         BankAccLedgEntry@1470000 : Record 271;
         BankAccLedgEntry2@1470003 : Record 271;
         ExchRate@1170000 : Decimal;
         ExchDiff@1170002 : Decimal;
         SumApplied@1170003 : Decimal;
   ...
   

   Заміна код

   ...VAR
         BankAccLedgEntry@1470000 : Record 271;
         BankAccLedgEntry2@1470003 : Record 271;
         GLSetup@1470103 : Record 98;
         ExchRate@1170000 : Decimal;
         ExchDiff@1170002 : Decimal;
         SumApplied@1170003 : Decimal;
   ...
   

4. Змін у звіті про обчислення відмінності в Exchange (12302), функція CalcRoundedAmount наступним чином:
   Наявний код

   ...Recalculate := Recalculate_new;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Заміна код

   ...Recalculate := Recalculate_new;
       END;
   
       LOCAL PROCEDURE CalcRoundedAmount@91(Amount@1000 : Decimal;VAR Remainder@1001 : Decimal) : Decimal;
       VAR
         AmountRnded@1002 : Decimal;
       BEGIN
         Amount := Amount + Remainder;
         AmountRnded := ROUND(Amount,GLSetup."Amount Rounding Precision");
         Remainder := Amount - AmountRnded;
         EXIT(AmountRnded);
       END;
   
       BEGIN
       END.
     }
   ...
   

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

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

• Польська версія Microsoft Dynamics NAV 2009-R2

• Польська версія Microsoft Dynamics NAV 2009 пакетом оновлень 1

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

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