Сумма НДС в записи General Ledger является неправильной при запуске функции Unapply Entries для платежа или счета в Microsoft Dynamics NAV

Применяется к
Dynamics NAV 2009

Эта статья относится к Microsoft Dynamics NAV для всех языковых стандартов.

Проблема

Предположим, что в Microsoft Dynamics NAV используется учетная запись "Скидка на оплату" для НДС и "Допуск платежей". Если платеж по продажам не применяется в счете на продажу со скидкой на оплату и используемым допуском к оплате, вы заметите, что сумма НДС в записи General Ledger (G/L) является неправильной. Эта проблема также возникает на стороне покупки.
Эта проблема возникает в следующих продуктах:

  • Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)
  • Microsoft Dynamics NAV 2009 R2

Решение

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

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

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

            
          

Сведения об установке

Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями.

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

Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.

Рекомендуется назначить учетной записи пользователя в окне Входа Windows или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:

  • Разрешение Изменить для объекта, который вы будете изменять.
  • Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.

                
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.

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

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

  1. Измените код в функции AutoEntrForDtldCustLedgEntries в gen. Jnl.-Post Line codeunit (12) следующим образом:
    Существующий код

    ...
   DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
    BEGIN
      DtldCVLedgEntryBuf.TESTFIELD("Gen. Prod. Posting Group");
      GenPostingSetup.GET(
        DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
        DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
      CASE GLSetup."Payment Tolerance Posting" OF
        GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
          IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
          END ELSE BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Credit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
          END;
        GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
          IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
          END ELSE BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Credit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Disc. Credit Acc.";
          END;
      END;
      InitGLEntry(AccNo,-DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
      GLEntry."Additional-Currency Amount" := -DtldCVLedgEntryBuf."Additional-Currency Amount";
      GLEntry."Gen. Posting Type" := GLEntry."Gen. Posting Type"::Sale;
      GLEntry."Gen. Bus. Posting Group" := DtldCVLedgEntryBuf."Gen. Bus. Posting Group";
      GLEntry."Gen. Prod. Posting Group" := DtldCVLedgEntryBuf."Gen. Prod. Posting Group";
      GLEntry."VAT Bus. Posting Group" := DtldCVLedgEntryBuf."VAT Bus. Posting Group";
      GLEntry."VAT Prod. Posting Group" := DtldCVLedgEntryBuf."VAT Prod. Posting Group";
      GLEntry."Tax Area Code" := DtldCVLedgEntryBuf."Tax Area Code";
      GLEntry."Tax Liable" := DtldCVLedgEntryBuf."Tax Liable";
      GLEntry."Tax Group Code" := DtldCVLedgEntryBuf."Tax Group Code";
      GLEntry."Use Tax" := DtldCVLedgEntryBuf."Use Tax";
      InsertGLEntry(TRUE);
    END;
...

    Код замены

    ...
     DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
    BEGIN
      DtldCVLedgEntryBuf.TESTFIELD("Gen. Prod. Posting Group");
      GenPostingSetup.GET(
        DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
        DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
      CASE GLSetup."Payment Tolerance Posting" OF
        GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
          IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
          END ELSE BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Credit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
          END;
        GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
          IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
          END ELSE BEGIN
            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Credit Acc.");
            AccNo := GenPostingSetup."Sales Pmt. Disc. Credit Acc.";
          END;
      END;
      InitGLEntry(AccNo,-DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
      GLEntry."Additional-Currency Amount" := -DtldCVLedgEntryBuf."Additional-Currency Amount";

// Add the following line.     
      GLEntry."VAT Amount" := -DtldCVLedgEntryBuf."VAT Amount (LCY)";
// End of the added line.
      GLEntry."Gen. Posting Type" := GLEntry."Gen. Posting Type"::Sale;
      GLEntry."Gen. Bus. Posting Group" := DtldCVLedgEntryBuf."Gen. Bus. Posting Group";
      GLEntry."Gen. Prod. Posting Group" := DtldCVLedgEntryBuf."Gen. Prod. Posting Group";
      GLEntry."VAT Bus. Posting Group" := DtldCVLedgEntryBuf."VAT Bus. Posting Group";
      GLEntry."VAT Prod. Posting Group" := DtldCVLedgEntryBuf."VAT Prod. Posting Group";
      GLEntry."Tax Area Code" := DtldCVLedgEntryBuf."Tax Area Code";
      GLEntry."Tax Liable" := DtldCVLedgEntryBuf."Tax Liable";
      GLEntry."Tax Group Code" := DtldCVLedgEntryBuf."Tax Group Code";
      GLEntry."Use Tax" := DtldCVLedgEntryBuf."Use Tax";
      InsertGLEntry(TRUE);
    END; 
...

  2. Измените код в функции AutoEntrForDtldVendLedgEntries в gen. Jnl.-Post Line codeunit (12) следующим образом:
    Существующий код

    ...
   DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
    BEGIN
      GenPostingSetup.GET(
        DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
        DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
      CASE GLSetup."Payment Tolerance Posting" OF
        GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
          BEGIN
            IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
            END ELSE BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Credit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Tol. Credit Acc.";
            END;
          END;
        GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
          BEGIN
            IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
            END ELSE BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Credit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Disc. Credit Acc.";
            END;
          END;
      END;
      InitGLEntry(AccNo,-DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
      GLEntry."Additional-Currency Amount" := -DtldCVLedgEntryBuf."Additional-Currency Amount";
      GLEntry."Gen. Posting Type" := GLEntry."Gen. Posting Type"::Purchase;
      GLEntry."Gen. Bus. Posting Group" := DtldCVLedgEntryBuf."Gen. Bus. Posting Group";
      GLEntry."Gen. Prod. Posting Group" := DtldCVLedgEntryBuf."Gen. Prod. Posting Group";
      GLEntry."VAT Bus. Posting Group" := DtldCVLedgEntryBuf."VAT Bus. Posting Group";
      GLEntry."VAT Prod. Posting Group" := DtldCVLedgEntryBuf."VAT Prod. Posting Group";
      GLEntry."Tax Area Code" := DtldCVLedgEntryBuf."Tax Area Code";
      GLEntry."Tax Liable" := DtldCVLedgEntryBuf."Tax Liable";
      GLEntry."Tax Group Code" := DtldCVLedgEntryBuf."Tax Group Code";
      GLEntry."Use Tax" := DtldCVLedgEntryBuf."Use Tax";
      InsertGLEntry(TRUE);

      InsertVatEntriesFromTemp(DtldCVLedgEntryBuf);
    END;
...

    Код замены

    ...
     DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
    BEGIN
      GenPostingSetup.GET(
        DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
        DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
      CASE GLSetup."Payment Tolerance Posting" OF
        GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
          BEGIN
            IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
            END ELSE BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Credit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Tol. Credit Acc.";
            END;
          END;
        GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
          BEGIN
            IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
            END ELSE BEGIN
              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Credit Acc.");
              AccNo := GenPostingSetup."Purch. Pmt. Disc. Credit Acc.";
            END;
          END;
      END;
      InitGLEntry(AccNo,-DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
      GLEntry."Additional-Currency Amount" := -DtldCVLedgEntryBuf."Additional-Currency Amount";

// Add the following line.      
      GLEntry."VAT Amount" := -DtldCVLedgEntryBuf."VAT Amount (LCY)";
// End of the added line.

      GLEntry."Gen. Posting Type" := GLEntry."Gen. Posting Type"::Purchase;
      GLEntry."Gen. Bus. Posting Group" := DtldCVLedgEntryBuf."Gen. Bus. Posting Group";
      GLEntry."Gen. Prod. Posting Group" := DtldCVLedgEntryBuf."Gen. Prod. Posting Group";
      GLEntry."VAT Bus. Posting Group" := DtldCVLedgEntryBuf."VAT Bus. Posting Group";
      GLEntry."VAT Prod. Posting Group" := DtldCVLedgEntryBuf."VAT Prod. Posting Group";
      GLEntry."Tax Area Code" := DtldCVLedgEntryBuf."Tax Area Code";
      GLEntry."Tax Liable" := DtldCVLedgEntryBuf."Tax Liable";
      GLEntry."Tax Group Code" := DtldCVLedgEntryBuf."Tax Group Code";
      GLEntry."Use Tax" := DtldCVLedgEntryBuf."Use Tax";
      InsertGLEntry(TRUE);

      InsertVatEntriesFromTemp(DtldCVLedgEntryBuf);
    END; 
...

          

Необходимые условия

Для применения этого исправления необходимо установить один из следующих продуктов:

  • Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)
  • Microsoft Dynamics NAV 2009 R2

                
              

Сведения об удалении

Удалить это исправление невозможно.

Состояние

Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».

Ссылки

VSTF DynamicsNAV SE: 278603; 283382

Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .