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

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

Эта статья относится к Microsoft Dynacmics NAV для языкового стандарта португальского языка (pt).

Проблема

Предположим, что в счете в версии Microsoft Dynamics NAV 2009 для португальского языка применяется налог на добавленную стоимость на покупку. Затем вы вручную измените сумму НДС в счете. В этом случае в полях Cost Amount (Actual) может существовать округленная разница между записью значения и соответствующей записью общего реестра.

Эта проблема возникает в следующих продуктах:

  • Версия 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 или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:

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

  • Разрешение Execute для объекта System Object ID 5210 и для системного объекта с идентификатором 9015

    Объекта.

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

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

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

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

  1. Измените код функции PostItemJnlLine в коде Purch.-Postunit (90) следующим образом:
    Существующий код

    ...
    ELSE
      Factor := QtyToBeInvoiced / "Qty. to Invoice";
    IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") AND
       (PurchSetup."Post Payment Discount") THEN
    ItemJnlLine.Amount :=
    
    // Delete the following lines.
      Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt + PurchLine."Pmt. Disc. Rcd. Amount"
    ELSE
      ItemJnlLine.Amount :=
      Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt;
    // End of the lines.
    
    IF PurchHeader."Prices Including VAT" THEN
      ItemJnlLine."Discount Amount" :=
      ("Line Discount Amount" + "Inv. Discount Amount") / (1 + "VAT %" / 100) * Factor + RemDiscAmt
    ...
    

    Код замены

    ...
    ELSE
      Factor := QtyToBeInvoiced / "Qty. to Invoice";
    IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") AND
       (PurchSetup."Post Payment Discount") THEN
    ItemJnlLine.Amount :=
    
    // Add following lines
      Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt + PurchLine."Pmt. Disc. Rcd. Amount" +
      PurchLine."ND Difference"
    ELSE
       ItemJnlLine.Amount :=
    Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt + PurchLine."ND Difference";
    // End of the lines.
    
    IF PurchHeader."Prices Including VAT" THEN
       ItemJnlLine."Discount Amount" :=
       ("Line Discount Amount" + "Inv. Discount Amount") / (1 + "VAT %" / 100) * Factor + RemDiscAmt
    ...
    
  2. Измените код в функции PostItemChargePerOrder в коде Purch.-Postunit (90) следующим образом:
    Существующий код

    ...
    IF ItemJnlLine2."Invoiced Quantity" = 0 THEN BEGIN
        ItemJnlLine2."Invoiced Quantity" := ItemJnlLine2.Quantity;
        ItemJnlLine2."Invoiced Qty. (Base)" := ItemJnlLine2."Quantity (Base)";
    END;
    ItemJnlLine2.Amount :=
         ("Amount to Assign" * ItemJnlLine2."Invoiced Qty. (Base)" / QtyToInvoice) *
    
    // Delete the following line.
    (100 + TempVATAmountLine."ND %") / 100;                    
    
    IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
         ItemJnlLine2.Amount := -ItemJnlLine2.Amount;
         ItemJnlLine2."Unit Cost (ACY)" :=
         ROUND(
         ItemJnlLine2.Amount / ItemJnlLine2."Invoiced Qty. (Base)",
    ...
    

    Код замены

    ...
    IF ItemJnlLine2."Invoiced Quantity" = 0 THEN BEGIN
        ItemJnlLine2."Invoiced Quantity" := ItemJnlLine2.Quantity;
        ItemJnlLine2."Invoiced Qty. (Base)" := ItemJnlLine2."Quantity (Base)";
    END;
        ItemJnlLine2.Amount :=
       ("Amount to Assign" * ItemJnlLine2."Invoiced Qty. (Base)" / QtyToInvoice) *
    
    // Add the following line.
       (100 + ItemChargePurchLine."ND %") / 100;        
    
    IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
         ItemJnlLine2.Amount := -ItemJnlLine2.Amount;
         ItemJnlLine2."Unit Cost (ACY)" :=
         ROUND(
         ItemJnlLine2.Amount / ItemJnlLine2."Invoiced Qty. (Base)",
    ...
    

          

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

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

  • Версия Microsoft Dynamics NAV 2009 R2 для португальского языка
  • Версия Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1) для португальского языка

Кроме того, для применения этого исправления необходимо установить исправление 2479082 и 2479102. Дополнительные сведения об исправлениях 2479082 и 2479102 исправлений см. в следующих номерах статей базы знаний Майкрософт:

2479082 Значение в поле "Сумма затрат (фактическая)" неправильно вычисляется в записях значений после публикации заметки о кредите на покупку в португальской версии Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)

2479102 Значение в поле "Сумма затрат (фактическая)" вычисляется неправильно в значениях, если элемент в размещенной кредитной памятки для покупки использует метод "Средняя стоимость" в португальской версии Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)

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

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

Состояние

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

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