Сумма в иностранной валюте не вставляется при получении предложения о телебанковской оплате в счете, размещенном в местной валюте в голландской версии Microsoft Dynamics NAV 2009

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

Эта статья относится к Microsoft Dynamics NAV для языкового стандарта голландского языка (nl).

Проблема

Предположим, что вы размещаете счет в местной валюте в версии Microsoft Dynamics NAV 2009 для Нидерландов. В этой ситуации при запуске функции Получить записи предложений в счете в форме "Telebank – Bank Overview" система предлагает только сумму в местной валюте. Вы ожидаете, что система также предлагает сумму в иностранной валюте. Эта проблема возникает в следующих продуктах:

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

      

Решение

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

Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления 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. Измените код в разделе Data Item Number 4 отчета Get Proposal Entries (110000000) следующим образом:
    Существующий код 1

    ...
Propline."Description 4":=DELCHR(Propline."Description 4"+' '+UseDocumentNo,'<>')
ELSE
Propline.Docket:=TRUE;
END;

// Delete the following lines.
IF Propline.Docket THEN
IF Propline."Description 1"<>Text1000016 THEN BEGIN
Propline."Description 1":=Text1000016;
CASE Propline."Account Type" OF
Propline."Account Type"::Customer:
BEGIN
Custm.GET(Propline."Account No.");
IF Custm."Our Account No."<>'' THEN
Propline."Description 2" :=
COPYSTR(STRSUBSTNO(Text1000018, Custm."Our Account No."), 1, MAXSTRLEN(Propline."Description 2" ))
ELSE BEGIN
CompanyInfo.GET;
Propline."Description 2":= COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
END;
END;
Propline."Account Type"::Vendor:
BEGIN
Vend.GET(Propline."Account No.");
IF Vend."Our Account No."<>'' THEN
Propline."Description 2" :=
COPYSTR(STRSUBSTNO(Text1000017, Vend."Our Account No."),1,MAXSTRLEN(Propline."Description 2"))
ELSE BEGIN
CompanyInfo.GET;
Propline."Description 2":= COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
END;
END;
END;
Propline."Description 3":='';
Propline."Description 4":='';
END;
// End of the lines.

IF Propline.Identification='' THEN BEGIN
TrMode.TESTFIELD("Identification No. Series");
NoSeriesManagement.InitSeries(TrMode."Identification No. Series",
'',
...

    Код замены 1

    ...
Propline."Description 4":=DELCHR(Propline."Description 4"+' '+UseDocumentNo,'<>')
ELSE
Propline.Docket:=TRUE;
END;

// Add the following line.
FillDescriptionAndCurrency;

IF Propline.Identification='' THEN BEGIN
TrMode.TESTFIELD("Identification No. Series");
NoSeriesManagement.InitSeries(TrMode."Identification No. Series",
'',
...

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

    ...
Propline."Transaction Date",
Propline.Identification,
Propline."Identification No. Series");
END;
Propline.MODIFY;
NumeratorDetailLines:=NumeratorDetailLines+1;
BatchStatus.UPDATE(2,ROUND(NumeratorDetailLines/NumberOfDetailLines*10000,1));
END;
...

    Код замены 2

    ...
Propline."Transaction Date",
Propline.Identification,
Propline."Identification No. Series");
END;

// Add the following lines.
IF Propline."Foreign Currency" = Propline."Currency Code" THEN
Propline.VALIDATE("Foreign Amount",0)
ELSE BEGIN
Propline.VALIDATE("Foreign Amount",ROUND(
CurrencyExchangeRate.ExchangeAmtFCYToFCY(
Propline."Transaction Date",Propline."Currency Code",Propline."Foreign Currency",Propline.Amount)));
END;
// End of the lines.

Propline.MODIFY;
NumeratorDetailLines:=NumeratorDetailLines+1;
BatchStatus.UPDATE(2,ROUND(NumeratorDetailLines/NumberOfDetailLines*10000,1));
END;
...

  2. Измените код в разделе Глобальные переменные в отчете Get Proposal Entries (110000000) следующим образом:
    Существующий код

    ...
PmtDiscExpiryDate@1000032 : Date;
Bnk@1000033 : Record 270;
Custm@1000034 : Record 18;
Vend@1000035 : Record 23;
CompanyInfo@1000036 : Record 79;

// Delete the following lines.
NoSeriesManagement@1000037 : Codeunit 396;
BEGIN
// End of the lines.

END.
}
RDLDATA
{
}
...

    Код замены

    ...
PmtDiscExpiryDate@1000032 : Date;
Bnk@1000033 : Record 270;
Custm@1000034 : Record 18;
Vend@1000035 : Record 23;
CompanyInfo@1000036 : Record 79;

// Add the following lines.
CurrencyExchangeRate@1000038 : Record 330;
NoSeriesManagement@1000037 : Codeunit 396;
LOCAL PROCEDURE FillDescriptionAndCurrency@1000039();
BEGIN
IF DetailLine."Account No." <> '' THEN
CASE DetailLine."Account Type" OF
DetailLine."Account Type"::Customer:
BEGIN
Custm.GET(DetailLine."Account No.");
Propline.VALIDATE("Foreign Currency",Custm."Currency Code");
IF Propline.Docket THEN BEGIN
IF Propline."Description 1" <> Text1000016 THEN
Propline."Description 1" := Text1000016;
IF Custm."Our Account No." <> '' THEN
Propline."Description 2" :=
COPYSTR(STRSUBSTNO(Text1000018, Custm."Our Account No."), 1, MAXSTRLEN(Propline."Description 2" ))
ELSE BEGIN
CompanyInfo.GET;
Propline."Description 2" := COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
END;
Propline."Description 3" := '';
Propline."Description 4" := '';
END;
END;
DetailLine."Account Type"::Vendor:
BEGIN
Vend.GET(DetailLine."Account No.");
Propline.VALIDATE("Foreign Currency",Vend."Currency Code");
IF Propline.Docket THEN BEGIN
IF Propline."Description 1" <> Text1000016 THEN
Propline."Description 1" := Text1000016;
IF Vend."Our Account No."<>'' THEN
Propline."Description 2" :=
COPYSTR(STRSUBSTNO(Text1000017, Vend."Our Account No."),1,MAXSTRLEN(Propline."Description 2"))
ELSE BEGIN
CompanyInfo.GET;
Propline."Description 2":= COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
END;
Propline."Description 3":='';
Propline."Description 4":='';
END;
END;
END;
END;
// End of the lines.

END.
}
RDLDATA
{
}
...

          

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

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

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

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

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

Состояние

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

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