Система не отражает скорректированную вручную сумму НДС после публикации общего журнала в словацкой или чешской версии Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1)

Применяется к

Microsoft Dynamics NAV 5.0

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

Словацкий (sk)
Чешский (cz)

Проблема

Предположим, что вы создаете новую строку в общем журнале в словацкой или чешской версии Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1). После ручной корректировки значения "Сумма НДС " и публикации общего журнала система пересчитывает сумму налога на добавленную стоимость (НДС) при публикации журнала и заменяет скорректированную сумму НДС с использованием вычисляемого значения.

Решение

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

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

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

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

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

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

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

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

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

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

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

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

Измените код в триггере VAT Amount — OnValidate в gen. Таблица "Строка журнала" (81) выглядит следующим образом:
Существующий код

...
"VAT Difference" :=
"VAT Amount" -
ROUND(

// Delete the following lines. 
Amount * "VAT %" / (100 + "VAT %"),
Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
// End of the lines.

GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
...

Код замены

...
"VAT Difference" :=
"VAT Amount" -
ROUND(

// Add the following lines. 
Amount - ROUND(Amount / (1 + "VAT %" / 100),
Currency."Amount Rounding Precision",Currency.VATRoundingDirection));
//End of the lines. 

GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
...

Измените код в триггере VAT % — OnValidate в gen. Таблица "Строка журнала" (81) выглядит следующим образом:
Существующий код

...
CASE "VAT Calculation Type" OF
"VAT Calculation Type"::"Normal VAT",
"VAT Calculation Type"::"Reverse Charge VAT":

// Delete the following lines.
BEGIN
GLSetup.GET;
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
"VAT Amount" :=
ROUND(
Amount * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecision,
RoundingDirection);
"VAT Base Amount" := Amount - "VAT Amount";
END ELSE BEGIN
"VAT Base Amount" :=
ROUND(Amount / (1 + "VAT %" / 100),Currency."Amount Rounding Precision");
"VAT Amount" :=
ROUND(Amount - "VAT Base Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
END;
// End of the lines.

"VAT Calculation Type"::"Full VAT":
BEGIN
IF ("Prepayment Type" = "Prepayment Type"::Advance) AND NOT "System-Created Entry" AND
...

Код замены

...
CASE "VAT Calculation Type" OF
"VAT Calculation Type"::"Normal VAT",
"VAT Calculation Type"::"Reverse Charge VAT":

// Add the following line. 
CalcVATAmount(Amount,"VAT Amount","VAT Base Amount","VAT %"); 

"VAT Calculation Type"::"Full VAT":
BEGIN
IF ("Prepayment Type" = "Prepayment Type"::Advance) AND NOT "System-Created Entry" AND
...

Измените код в триггере Bal. VAT % — OnValidate в gen. Таблица "Строка журнала" (81) выглядит следующим образом:
Существующий код

...
CASE "Bal. VAT Calculation Type" OF
"Bal. VAT Calculation Type"::"Normal VAT",
"Bal. VAT Calculation Type"::"Reverse Charge VAT":

// Delete the following lines. 
BEGIN
GLSetup.GET;
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
"Bal. VAT Amount" :=
ROUND(
-Amount * ROUND("Bal. VAT %" / (100 + "Bal. VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecision,
RoundingDirection);
"Bal. VAT Base Amount" := -Amount - "Bal. VAT Amount";
END ELSE BEGIN
"Bal. VAT Base Amount" :=
ROUND(-Amount / (1 + "Bal. VAT %" / 100),Currency."Amount Rounding Precision");
"Bal. VAT Amount" :=
ROUND(-Amount - "Bal. VAT Base Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
END;
// End of the lines. 

"Bal. VAT Calculation Type"::"Full VAT":
"Bal. VAT Amount" := -Amount;
"Bal. VAT Calculation Type"::"Sales Tax":
...

Код замены

...
CASE "Bal. VAT Calculation Type" OF
"Bal. VAT Calculation Type"::"Normal VAT",
"Bal. VAT Calculation Type"::"Reverse Charge VAT":
// Add the following line 
CalcVATAmount(-Amount,"Bal. VAT Amount","Bal. VAT Base Amount","Bal. VAT %"); 
"Bal. VAT Calculation Type"::"Full VAT":
"Bal. VAT Amount" := -Amount;
"Bal. VAT Calculation Type"::"Sales Tax":
...

Создайте локальную функцию CalcVATAmount в gen. Таблица "Строка журнала" (81) выглядит следующим образом:

LOCAL PROCEDURE CalcVATAmount@1220000(Amount@1220000 : Decimal;VAR VATAmount@1220001 : Decimal;VAR VATBase@1220002 : Decimal;VATPercent@1220003 : Decimal);
VAR
RoundingPrecision@1220004 : Decimal;
RoundingDirection@1220005 : Text[1];
BEGIN
GLSetup.GET;
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
VATAmount :=
ROUND(
Amount * ROUND(VATPercent / (100 + VATPercent),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecision,
RoundingDirection); 
VATBase := Amount - VATAmount;
END ELSE BEGIN
VATBase :=
ROUND(
Amount / (1 + VATPercent / 100),
Currency."Amount Rounding Precision",
Currency.VATRoundingDirection);
VATAmount := Amount - VATBase;
END;
END;

Измените код в функции InitVat в gen. Jnl.-Post Line codeunit (12). Для этого выполните указанные ниже действия.

Удалите следующие локальные переменные:
- CalculatedVATAmtLCY: Decimal
- RoundingPrecisionLCY: Decimal
- RoundingDirectionLCY: Text[1]
Добавьте новую переменную, а затем укажите ее следующим образом:
- Имя: VATAmtLCY
- DataType:Decimal

Измените код следующим образом:
Существующий код

...
GenJnlLine."VAT Amount LCY (Non Deduct.)";
GLEntry."VAT Amount" := "Amount (LCY)" - GLEntry.Amount;

// Delete the following lines. 
GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
IF GLSetup."Round VAT Coeff." THEN
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecisionLCY,
RoundingDirectionLCY)
ELSE
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" - ROUND("Amount (LCY)" / (1 + "VAT %" / 100),RoundingPrecisionLCY),
RoundingPrecisionLCY,
RoundingDirectionLCY);
IF ("VAT Amount (LCY)" <> CalculatedVATAmtLCY) AND
("Currency Code" <> '')
THEN BEGIN 
// End of the lines. 

GLEntry.Amount := "VAT Base Amount (LCY)";
GLEntry."VAT Amount" := "VAT Amount (LCY)"; 
END;
...

Код замены

...
GenJnlLine."VAT Amount LCY (Non Deduct.)";
GLEntry."VAT Amount" := "Amount (LCY)" - GLEntry.Amount;

// Add the following lines. 
VATAmtLCY := CalculatedVATAmountLCY;
IF ("VAT Amount (LCY)" <> VATAmtLCY) AND ("Currency Code" <> '') THEN BEGIN 
//End of the lines. 

GLEntry.Amount := "VAT Base Amount (LCY)";
GLEntry."VAT Amount" := "VAT Amount (LCY)";

// Add the following lines.
END ELSE
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLEntry."VAT Amount" := VATAmtLCY - "VAT Amount LCY (Non Deduct.)";
GLEntry.Amount := "Amount (LCY)" - GLEntry."VAT Amount";
//End of the lines. 

END; 
...

Измените код в функции InsertVAT в gen. Jnl.-Post Line codeunit (12). Для этого выполните указанные ниже действия.

Удалите следующие локальные переменные:
- CalculatedVATAmtLCY: Decimal
- RoundingPrecisionLCY: Decimal
- RoundingDirectionLCY: Text[1]

Измените код следующим образом:
Существующий код

...
"Posting Date","Currency Code","VAT Difference",
CurrExchRate.ExchangeRate("Posting Date","Currency Code")));

// Delete the following lines. 
GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
IF GLSetup."Round VAT Coeff." THEN
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecisionLCY,
RoundingDirectionLCY)
ELSE
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" - ROUND("Amount (LCY)" / (1 + "VAT %" / 100),RoundingPrecisionLCY),
RoundingPrecisionLCY,
RoundingDirectionLCY);
IF ("VAT Amount (LCY)" <> CalculatedVATAmtLCY) AND
("Currency Code" <> '')
THEN
VATDifferenceLCY := "VAT Amount (LCY)" - CalculatedVATAmtLCY; 
// End of the lines. 

IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
IF TaxJurisdiction.Code <> TaxDetail."Tax Jurisdiction Code" THEN
...

Код замены

...
"Posting Date","Currency Code","VAT Difference",
CurrExchRate.ExchangeRate("Posting Date","Currency Code")));

// Add the following lines. 
IF "VAT Amount (LCY)" <> CalculatedVATAmountLCY THEN
VATDifferenceLCY := "VAT Amount (LCY)" - CalculatedVATAmountLCY; 
//End of the lines. 

IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
IF TaxJurisdiction.Code <> TaxDetail."Tax Jurisdiction Code" THEN
...

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

LOCAL PROCEDURE CalculatedVATAmountLCY@1220009() : Decimal;
VAR
CalculatedVATAmtLCY@1220002 : Decimal;
RoundingPrecisionLCY@1220001 : Decimal;
RoundingDirectionLCY@1220000 : Text[1];
BEGIN
WITH GenJnlLine DO BEGIN
IF "Currency Code" = '' THEN
EXIT("VAT Amount (LCY)");
GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
IF GLSetup."Round VAT Coeff." THEN
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecisionLCY,
RoundingDirectionLCY)
ELSE
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" - ROUND("Amount (LCY)" / (1 + "VAT %" / 100),RoundingPrecisionLCY),
RoundingPrecisionLCY,
RoundingDirectionLCY);
EXIT(CalculatedVATAmtLCY);
END;
END;

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

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

Словацкая версия Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1)
Чешская версия Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1)

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

2527241 При использовании функции Round VAT Coeff в чешской версии Microsoft Dynamics NAV 5.0 SP1 с установленным пакетом дополнительных компонентов 1 указана неправильная сумма НДС в записи НДС.

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

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

Состояние

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

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

Система не отражает скорректированную вручную сумму НДС после публикации общего журнала в словацкой или чешской версии Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1)

Проблема

Решение

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

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

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

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

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

Состояние

Полезны ли эти сведения?

Спасибо за ваш отзыв!