Файл: Разработка конфигурации «Взаиморасчеты с поставщиками» в среде 1С:Предприятие 8.3..pdf

Если Выборка.СпособРасчетаЦены = Перечисления.СпособыРасчетаЦены.ПоВхождениюБазовойЦеныВДиапазон Тогда

ПолученнаяЦена = ПолучитьЦенуПоЦеновымДиапазонам(ТипЦен, Дата, ПолученнаяЦена, ВалютаТекущая, ВалютаТекущая);

ИначеЕсли Выборка.СпособРасчетаЦены = Перечисления.СпособыРасчетаЦены.ПоПроцентнойНаценкеНаБазовыйТип Тогда

ПолученнаяЦена = ПолученнаяЦена * (1 + Выборка.ПроцентСкидкиНаценки / 100);

КонецЕсли;

Иначе

ВалютаТекущая = Выборка.Валюта;

ПолученнаяЦена = Выборка.Цена;

КонецЕсли;

ПолученнаяЦена = ПересчитатьЦенуПриИзмененииЕдиницы(ПолученнаяЦена, Выборка.ЕдиницаИзмерения, ЕдиницаИзмерения);

ПолученнаяЦена = ОкруглитьЦену(ПолученнаяЦена, ТипЦен.ПорядокОкругления, ТипЦен.ОкруглятьВБольшуюСторону);

ПолученнаяЦена = ПересчитатьЦенуПриИзмененииВалюты(ПолученнаяЦена, ВалютаТекущая, Валюта, Курс, Кратность, Дата);

КонецЕсли;

КонецЕсли;

ИзменитьЦенуПоУсловиюПродаж(Дата, Номенклатура, УсловиеПродаж, ПолученнаяЦена);

Возврат ПолученнаяЦена;

КонецФункции // ПолучитьЦенуНоменклатуры()

// Функция возвращает процент скидки (наценки) для требуемой номенклатуры в указанном типе цен ,

// на заданную дату, используется, например, для.получения наценки цены в рознице.

//

// Параметры:

// Номенклатура - ссылка на элемент справочника "Номенклатура", для которого надо получить цену,

// ХарактеристикаНоменклатуры - ссылка на элемент справочника "Характеристики номенклатуры",

// ТипЦен - ссылка на элемент справочника "Типы цен", опредедяет цену какого типа надо получить,

// Дата - дата, на которую надо получить цену, если не заполнено, то берется рабочая дата.

// ТолькоИзРегистра - булево, "Истина" если необходимо получать данные только из регистра.

// НетДанных - булево, устанавливается в "Ложь" если нет данных в регистре сведений, "Истина" если есть.

//

// Возвращаемое значение:

// Число, значение процента скидки (наценки).

//

Функция ПолучитьПроцентСкидкиНаценкиЦеныНоменклатуры(Номенклатура, ХарактеристикаНоменклатуры = Неопределено, ТипЦен, Дата = Неопределено, ТолькоИзРегистра = Ложь, НетДанных = Истина, ВернутьВсегда = Ложь) Экспорт

НетДанных = Истина;

ХарактеристикиНоменклатуры = ПолучитьМассивХарактеристик(ХарактеристикаНоменклатуры);

// Если дата не заполнена, возьмем рабочую дату.

Если НЕ ЗначениеЗаполнено(Дата) Тогда

Дата = ОбщегоНазначения.ПолучитьРабочуюДату();

КонецЕсли;

ПроцентСкидкиНаценки = 0;