Сведения об НДС не отображаются в архивном отчете о заказе на продажу и в архивном отчете о заказе на покупку в Microsoft Dynamics NAV.

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

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1 Microsoft Dynamics NAV 5.0

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

Проблема

При запуске архивного отчета о заказе на продажу (216) и отчете об архивном заказе на покупку (416) в Microsoft Dynamics NAV сведения о налоге на добавленную стоимость (НДС) не печатаются. Эта проблема возникает в следующих продуктах:

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

Решение

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

Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления 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.

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

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

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

Добавьте локальную переменную в триггер CopyLoop — OnAfterGetRecord в отчете Архивный заказ на продажу (216), а затем укажите ее следующим образом:
- Имя:TempSalesHeader
- DataType:Record
- Подтип:заголовок Sales
Кроме того, включите свойство Temporary.
Добавьте локальную переменную в триггер CopyLoop — OnAfterGetRecord в отчете Архивный заказ на продажу (216), а затем укажите ее следующим образом:
- Имя:TempSalesLine
- DataType:Record
- Подтип:Линия продаж
Кроме того, включите свойство Temporary.

Измените код в триггере CopyLoop — OnAfterGetRecord в архивном отчете о заказе на продажу (216) следующим образом:

Существующий код

CLEAR(SalesLineArch);
SalesLineArch.DELETEALL;
SalesLineArchive.SETRANGE("Document Type","Sales Header Archive"."Document Type");
SalesLineArchive.SETRANGE("Document No.","Sales Header Archive"."No.");
SalesLineArchive.SETRANGE("Version No.","Sales Header Archive"."Version No.");
IF SalesLineArchive.FINDSET THEN
  REPEAT
    SalesLineArch := SalesLineArchive;
    SalesLineArch.INSERT;
  UNTIL SalesLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Код замены

CLEAR(SalesLineArch);
SalesLineArch.DELETEALL;
SalesLineArchive.SETRANGE("Document Type","Sales Header Archive"."Document Type");
SalesLineArchive.SETRANGE("Document No.","Sales Header Archive"."No.");
SalesLineArchive.SETRANGE("Version No.","Sales Header Archive"."Version No.");
IF SalesLineArchive.FINDSET THEN
  REPEAT
    SalesLineArch := SalesLineArchive;
    SalesLineArch.INSERT;

// Add the following lines.
    TempSalesLine.TRANSFERFIELDS(SalesLineArchive);
    TempSalesLine.INSERT;
// End of the lines.

  UNTIL SalesLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

// Add the following lines.
TempSalesHeader.TRANSFERFIELDS("Sales Header Archive");

TempSalesLine."Prepayment Line" := TRUE;  // used as flag in CalcVATAmountLines -> not invoice rounding
TempSalesLine.CalcVATAmountLines(0,TempSalesHeader,TempSalesLine,VATAmountLine);
VATAmount := VATAmountLine.GetTotalVATAmount;
VATBaseAmount := VATAmountLine.GetTotalVATBase;
VATDiscountAmount :=
  VATAmountLine.GetTotalVATDiscount(TempSalesHeader."Currency Code",TempSalesHeader."Prices Including VAT");
TotalAmountInclVAT := VATAmountLine.GetTotalAmountInclVAT;
// End of the lines.

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Добавьте локальную переменную в триггер CopyLoop - OnAfterGetRecord в архивном отчете о заказе на покупку (416), а затем укажите переменную следующим образом:
- Имя:TempPurchHeader
- DataType:Record
- Подтип:Заголовок покупки
Кроме того, включите свойство Temporary.
Добавьте локальную переменную в триггер CopyLoop - OnAfterGetRecord в архивном отчете о заказе на покупку (416), а затем укажите переменную следующим образом:
- Имя:TempPurchLine
- DataType:Record
- Подтип:Строка покупки
Кроме того, включите свойство Temporary.

Измените код в триггере CopyLoop — OnAfterGetRecord в архивном отчете о заказе на покупку (416) следующим образом:

Существующий код

CLEAR(PurchLineArch);
PurchLineArch.DELETEALL;
PurchLineArchive.SETRANGE("Document Type","Purchase Header Archive"."Document Type");
PurchLineArchive.SETRANGE("Document No.","Purchase Header Archive"."No.");
PurchLineArchive.SETRANGE("Version No.","Purchase Header Archive"."Version No.");
IF PurchLineArchive.FINDSET THEN
  REPEAT
    PurchLineArch := PurchLineArchive;
    PurchLineArch.INSERT;
  UNTIL PurchLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Код замены

CLEAR(PurchLineArch);
PurchLineArch.DELETEALL;
PurchLineArchive.SETRANGE("Document Type","Purchase Header Archive"."Document Type");
PurchLineArchive.SETRANGE("Document No.","Purchase Header Archive"."No.");
PurchLineArchive.SETRANGE("Version No.","Purchase Header Archive"."Version No.");
IF PurchLineArchive.FINDSET THEN
  REPEAT
    PurchLineArch := PurchLineArchive;
    PurchLineArch.INSERT;

// Add the following lines.
    TempPurchLine.TRANSFERFIELDS(PurchLineArchive);
    TempPurchLine.INSERT;
// End of the lines.

  UNTIL PurchLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

// Add the following lines.
TempPurchHeader.TRANSFERFIELDS("Purchase Header Archive");

TempPurchLine."Prepayment Line" := TRUE;  // used as flag in CalcVATAmountLines -> not invoice rounding
TempPurchLine.CalcVATAmountLines(0,TempPurchHeader,TempPurchLine,VATAmountLine);
VATAmount := VATAmountLine.GetTotalVATAmount;
VATBaseAmount := VATAmountLine.GetTotalVATBase;
VATDiscountAmount :=
  VATAmountLine.GetTotalVATDiscount(TempPurchHeader."Currency Code",TempPurchHeader."Prices Including VAT");
TotalAmountInclVAT := VATAmountLine.GetTotalAmountInclVAT;
// End of the lines.

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

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

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

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

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

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

Состояние

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

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