Обратная функция создает ошибочные записи для нереализованного НДС в Microsoft Dynamics NAV 2009

Сведения об исправлении

Исправление от корпорации Майкрософт доступно. Однако оно предназначено только для устранения проблемы, описанной в этой статье. Предлагаемое исправление должно применяться исключительно в системах, в которых обнаружена эта специфическая неполадка. Это исправление может проходить дополнительное тестирование. Таким образом Если вы не подвержены серьезно эту проблему, рекомендуется дождаться следующего пакета обновления для Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащего это исправление.

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

Изменения кода

Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.
Чтобы устранить эту проблему, выполните следующие действия:

1. Измените код в глобальных переменных в таблице реверсирования операций (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.';
         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);
       BEGIN
   ...
   

   Код для замены

   ...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.';
         Text013@1039 : TextConst 'ENU=You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry.';
   
   // Add the following line.
   Text014@1027 : TextConst 'ENU=You cannot reverse %1 No. %2 because the entry has an associated Unrealized VAT Entry.';
   // End of the added line.
   
       PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
       BEGIN
   ...
   

2. Измените код в функцию CheckVAT в таблице реверсирования операций (179) следующим образом:
   Существующий код

   ...Text006,VATEntry.TABLECAPTION,VATEntry."Entry No.");
         IF VATEntry.Reversed THEN
           AlreadyReversedEntry(VATEntry.TABLECAPTION,VATEntry."Entry No.");
       END;
   
       LOCAL PROCEDURE CheckDtldCustLedgEntry@2(CustLedgEntry@1000 : Record 21) : Boolean;
   ...
   

   Код для замены

   ...Text006,VATEntry.TABLECAPTION,VATEntry."Entry No.");
         IF VATEntry.Reversed THEN
           AlreadyReversedEntry(VATEntry.TABLECAPTION,VATEntry."Entry No.");
   
   // Add the following lines.
   IF VATEntry."Unrealized VAT Entry No." <> 0 THEN
           ERROR(UnrealizedVATReverseError(VATEntry.TABLECAPTION,VATEntry."Entry No."));
   // End of the added lines.
   
       END;
   
       LOCAL PROCEDURE CheckDtldCustLedgEntry@2(CustLedgEntry@1000 : Record 21) : Boolean;
   ...
   

3. Добавьте следующую функцию:

   PROCEDURE UnrealizedVATReverseError@1000(TableName@1000 : Text[50];EntryNo@1001 : Integer) : Text[1024];BEGIN
         EXIT(STRSUBSTNO(Text014,TableName,EntryNo));
       END;