ну вот, истина найдена.
тепреь, чтоб не потерять изменения, (и может кому еще пригодится) что я сделал:
функция
FindSalesLinePrice
в разделе
CASE Type OF
Type::Item:
после строки
"Unit Price" := TempSalesPrice."Unit Price";
вставляем примерно следущее
IF ("Currency Code"='') AND (TempSalesPrice."Currency Code"<>'') THEN
BEGIN
"Unit Price" := CurrExchRate.ExchangeAmtFCYToLCY(SalesHeaderExchDate(SalesHeader),
TempSalesPrice."Currency Code","Unit Price",
CurrExchRate.ExchangeRate(SalesHeaderExchDate(SalesHeader),TempSalesPrice."Currency Code"));
"Unit Price" := ROUND("Unit Price",GLSetup."Unit-Amount Rounding Precision");
END ELSE IF ("Currency Code"<>'') AND
(TempSalesPrice."Currency Code"<>'') AND
(TempSalesPrice."Currency Code"<>"Currency Code") THEN
BEGIN
"Unit Price" := CurrExchRate.ExchangeAmtFCYToFCY(SalesHeaderExchDate(SalesHeader),
TempSalesPrice."Currency Code","Currency Code","Unit Price");
"Unit Price" := ROUND("Unit Price",GLSetup."Unit-Amount Rounding Precision");
END;
|