После применения 980577 исправления в Microsoft Dynamics NAV невозможно создать заказ на обслуживание в день окончания срока действия контракта на обслуживание.

Применяется к
Microsoft Dynamics NAV 5.0 Service Pack 1 Dynamics NAV 2009

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

Проблема

Предположим, что вы применяете исправление 980577 в Microsoft Dynamics NAV. Затем вы добавляете элемент службы в контракт службы с указанной датой окончания срока действия. В этой ситуации при добавлении элемента службы в заказ на обслуживание значение "Контракт No. " не заполняется автоматически в строке заказа на обслуживание. Кроме того, нельзя вручную добавить номер контракта в заказ на обслуживание.
  Для получения дополнительных сведений щелкните следующий номер статьи, чтобы просмотреть статью в базе знаний Майкрософт:

980577 Вы не можете использовать контракт для заказа на обслуживание в день окончания срока действия контракта в Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1) Эта проблема возникает в следующих продуктах:

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

      

Решение

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

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

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

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

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

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

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

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

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

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

    Объекта.

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

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

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

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

  1. Измените код в свойствах таблицы Service Item Line (5901) следующим образом:
    Существующий код

    ...
ServContractLine.SETRANGE("Contract Type",ServContractLine."Contract Type"::Contract);
ServContractLine.SETRANGE("Contract No.",ServHeader."Contract No.");
ServContractLine.SETRANGE("Service Item No.","Service Item No.");
ServContractLine.SETRANGE("Contract Status",ServContractLine."Contract Status"::Signed);
ServContractLine.SETFILTER("Starting Date",'<=%1',ServHeader."Order Date");

// Delete the following line.
ServContractLine.SETFILTER("Contract Expiration Date",'>%1 | =%2',ServHeader."Order Date",0D);
// End of the deleted line.

IF ServContractLine.FIND('-') THEN
"Contract No." := ServHeader."Contract No.";
END;
IF ("Contract No." <> '') AND ("Service Price Group Code" <> '') THEN
VALIDATE("Service Price Group Code",'');
...

    Код замены

    ...
ServContractLine.SETRANGE("Contract Type",ServContractLine."Contract Type"::Contract);
ServContractLine.SETRANGE("Contract No.",ServHeader."Contract No.");
ServContractLine.SETRANGE("Service Item No.","Service Item No.");
ServContractLine.SETRANGE("Contract Status",ServContractLine."Contract Status"::Signed);
ServContractLine.SETFILTER("Starting Date",'<=%1',ServHeader."Order Date");

// Add the following line.
ServContractLine.SETFILTER("Contract Expiration Date",'>=%1 | =%2',ServHeader."Order Date",0D);
// End of the added line.

IF ServContractLine.FIND('-') THEN
"Contract No." := ServHeader."Contract No.";
END;
IF ("Contract No." <> '') AND ("Service Price Group Code" <> '') THEN
VALIDATE("Service Price Group Code",'');
...

  2. Измените код в полях таблицы Service Item Line (5901) следующим образом:
    Существующий код 1

    ...
ServContractLine.SETRANGE("Service Item No.",ServItem."No.");
ServContractLine.SETRANGE("Contract Status",ServContractLine."Contract Status"::Signed);
ServContractLine.SETRANGE("Contract Type",ServContractLine."Contract Type"::Contract);
ServContractLine.SETRANGE("Customer No.",ServHeader."Customer No.");
ServContractLine.SETFILTER("Starting Date",'<=%1',ServHeader."Order Date");

// Delete the following line.
ServContractLine.SETFILTER("Contract Expiration Date",'>%1 | =%2',ServHeader."Order Date",0D);
// End of the deleted line.

ServContractLine.FILTERGROUP(0);

IF ServContractLine.FIND('-') THEN
IF ServContractLine.NEXT > 0 THEN BEGIN
IF CONFIRM(Text047,TRUE,"Service Item No.") THEN BEGIN
...

    Код замены 1

    ...
ServContractLine.SETRANGE("Service Item No.",ServItem."No.");
ServContractLine.SETRANGE("Contract Status",ServContractLine."Contract Status"::Signed);
ServContractLine.SETRANGE("Contract Type",ServContractLine."Contract Type"::Contract);
ServContractLine.SETRANGE("Customer No.",ServHeader."Customer No.");
ServContractLine.SETFILTER("Starting Date",'<=%1',ServHeader."Order Date");

// Add the following line.
ServContractLine.SETFILTER("Contract Expiration Date",'>=%1 | =%2',ServHeader."Order Date",0D);
// End of the added line.

ServContractLine.FILTERGROUP(0);

IF ServContractLine.FIND('-') THEN
IF ServContractLine.NEXT > 0 THEN BEGIN
IF CONFIRM(Text047,TRUE,"Service Item No.") THEN BEGIN
...

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

    ...
ServContractLine.SETRANGE("Contract Type",ServContractLine."Contract Type"::Contract);
ServContractLine.SETRANGE("Customer No.",ServHeader."Customer No.");
ServContractLine.SETRANGE("Service Item No.","Service Item No.");
ServContractLine.SETRANGE("Contract Status",ServContractLine."Contract Status"::Signed);
ServContractLine.SETFILTER("Starting Date",'<=%1',ServHeader."Order Date");

// Delete the following line.
ServContractLine.SETFILTER("Contract Expiration Date",'>%1 | =%2',ServHeader."Order Date",0D);
// End of the deleted line.

ServContractLine.FILTERGROUP(0);
ServContractList.SETTABLEVIEW(ServContractLine);
ServContractList.LOOKUPMODE(TRUE);
IF ServContractList.RUNMODAL = ACTION::LookupOK THEN BEGIN
ServContractList.GETRECORD(ServContractLine);
...

    Код замены 2

    ...
ServContractLine.SETRANGE("Contract Type",ServContractLine."Contract Type"::Contract);
ServContractLine.SETRANGE("Customer No.",ServHeader."Customer No.");
ServContractLine.SETRANGE("Service Item No.","Service Item No.");
ServContractLine.SETRANGE("Contract Status",ServContractLine."Contract Status"::Signed);
ServContractLine.SETFILTER("Starting Date",'<=%1',ServHeader."Order Date");

// Add the following line.
ServContractLine.SETFILTER("Contract Expiration Date",'>=%1 | =%2',ServHeader."Order Date",0D);
// End of the added line.

ServContractLine.FILTERGROUP(0);
ServContractList.SETTABLEVIEW(ServContractLine);
ServContractList.LOOKUPMODE(TRUE);
IF ServContractList.RUNMODAL = ACTION::LookupOK THEN BEGIN
ServContractList.GETRECORD(ServContractLine);
...

          

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

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

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

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

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

Состояние

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

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