Додано записи, які неправильно, під час змінення оплати в Італійська версія Microsoft Dynamics NAV, 2009

Додано записи є неправильний запис для відновлення таблиці (179), під час зміни скасувати платежу, італійською версії Microsoft Dynamics NAV-2009 року. Ця проблема виникає знову після впровадження для виправлення 2802054. Виконайте дії, описані в розділі зміни коду , щоб вирішити цю проблему. Ця проблема виникає в таких продуктів:

Італійська версія 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 системи-об'єкт

об'єкт.

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

Зміни коду

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

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

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

...PostApplied@1029 : Boolean;
        Text012@1028 : TextConst 'ENU=You cannot reverse register No. %1 because it contains customer or vendor ledger entries that have been posted and applied in the same transaction.\\You must reverse each transaction in register No. %1 separately.;ITA=Impossibile stornare il registro Nr. %1 perch‚ contiene movimenti contabili clienti o fornitori che sono stati registrati e collegati nella stessa transazione.\\Ô necessario stornare separatamente ogni transazione nel registro Nr. %1.';

      PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
...

Заміна код

...PostApplied@1029 : Boolean;
        Text012@1028 : TextConst 'ENU=You cannot reverse register No. %1 because it contains customer or vendor ledger entries that have been posted and applied in the same transaction.\\You must reverse each transaction in register No. %1 separately.;ITA=Impossibile stornare il registro Nr. %1 perch‚ contiene movimenti contabili clienti o fornitori che sono stati registrati e collegati nella stessa transazione.\\Ô necessario stornare separatamente ogni transazione nel registro Nr. %1.';

// Add the following line.
       Text013@1039 : TextConst 'ENU=You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry.';

      PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
...

Змінити код InsertReversalEntry функції відновлення запису таблиці (179) наступним чином:
Наявний код 1

...DtldCustLedgEntry.SETFILTER(
              DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");

// Delete the following lines.
           IF DtldCustLedgEntry.FIND('-') THEN BEGIN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
             CLEAR(DtldCustLedgEntry);
             DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
             DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
             DtldCustLedgEntry.SETRANGE(Unapplied,TRUE);
             IF DtldCustLedgEntry.FIND('-') THEN BEGIN
               REPEAT
                 TempRevertTransactionNo.Number := DtldCustLedgEntry."Transaction No.";
                 IF TempRevertTransactionNo.INSERT THEN;
               UNTIL DtldCustLedgEntry.NEXT = 0;
             END;
           END;
// End of the deleted lines.

          UNTIL CustLedgEntry.NEXT = 0;
...

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

...DtldCustLedgEntry.SETFILTER(
              DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");

// Add the following lines.
           IF NOT DtldCustLedgEntry.ISEMPTY THEN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
           CheckDtldCustLedgEntry(CustLedgEntry);
// End of the added lines.

          UNTIL CustLedgEntry.NEXT = 0;
...

Наявний код 2

...DtldVendLedgEntry.SETFILTER(
              DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");

// Delete the following lines.
           IF DtldVendLedgEntry.FIND('-') THEN BEGIN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
             CLEAR(DtldVendLedgEntry);
             DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
             DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
             DtldVendLedgEntry.SETRANGE(Unapplied,TRUE);
             IF DtldVendLedgEntry.FIND('-') THEN BEGIN
               REPEAT
                 TempRevertTransactionNo.Number := DtldVendLedgEntry."Transaction No.";
                 IF TempRevertTransactionNo.INSERT THEN;
               UNTIL DtldVendLedgEntry.NEXT = 0;
             END;
           END;
// End of the deleted lines.

          UNTIL VendLedgEntry.NEXT = 0;
...

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

...DtldVendLedgEntry.SETFILTER(
              DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");

// Add the following lines.
           IF NOT DtldVendLedgEntry.ISEMPTY THEN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
           CheckDtldVendLedgEntry(VendLedgEntry);
// End of the added lines.

          UNTIL VendLedgEntry.NEXT = 0;
...

Змінити код CheckDtldCustLedgEntry функції відновлення запису таблиці (179) наступним чином:
Наявний код

...DtldCustLedgEntry@1001 : Record 379;
      BEGIN

// Delete the following lines.
       DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
       DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
       IF DtldCustLedgEntry.FIND('-') THEN
         REPEAT
           IF (DtldCustLedgEntry."Entry Type" <> DtldCustLedgEntry."Entry Type"::"Initial Entry") AND
              (NOT DtldCustLedgEntry.Unapplied)
           THEN
             ERROR(
               Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
         UNTIL DtldCustLedgEntry.NEXT = 0;
// End of the deleted lines.

      END;
...

Заміна код

...DtldCustLedgEntry@1001 : Record 379;
      BEGIN

// Add the following lines.
       DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type");
       DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
       DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
       DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
       IF NOT DtldCustLedgEntry.ISEMPTY THEN
         ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");

       DtldCustLedgEntry.SETRANGE(Unapplied);
       DtldCustLedgEntry.SETFILTER("Entry Type",'%1|%2',
         DtldCustLedgEntry."Entry Type"::"Realized Gain",DtldCustLedgEntry."Entry Type"::"Realized Loss");
       IF NOT DtldCustLedgEntry.ISEMPTY THEN
         ERROR(Text013,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
// End of the added lines.

      END;
...

Змінити код CheckDtldVendLedgEntry функції відновлення запису таблиці (179) наступним чином:
Наявний код

...DtldVendLedgEntry@1001 : Record 380;
      BEGIN

// Delete the following lines.
       DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
       DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
       IF DtldVendLedgEntry.FIND('-') THEN
         REPEAT
           IF (DtldVendLedgEntry."Entry Type" <> DtldVendLedgEntry."Entry Type"::"Initial Entry") AND
              (NOT DtldVendLedgEntry.Unapplied)
           THEN
             ERROR(
               Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
         UNTIL DtldVendLedgEntry.NEXT = 0;
// End of the deleted lines.

      END;
...

Заміна код

...DtldVendLedgEntry@1001 : Record 380;
      BEGIN

// Add the following lines.
       DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type");
       DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
       DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
       DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
       IF NOT DtldVendLedgEntry.ISEMPTY THEN
         ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");

       DtldVendLedgEntry.SETRANGE(Unapplied);
       DtldVendLedgEntry.SETFILTER("Entry Type",'%1|%2',
         DtldVendLedgEntry."Entry Type"::"Realized Gain",DtldVendLedgEntry."Entry Type"::"Realized Loss");
       IF NOT DtldVendLedgEntry.ISEMPTY THEN
         ERROR(Text013,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
// End of the added lines.

      END;
...

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

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

Італійська версія Microsoft Dynamics NAV 2009-R2
Італійська версія Microsoft Dynamics NAV 2009 пакетом оновлень 1

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

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

Стан

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

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

Додано записи, які неправильно, під час змінення оплати в Італійська версія Microsoft Dynamics NAV, 2009

Вирішення

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

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

Зміни коду

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

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

Стан

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

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

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

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