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

|ПО

| сНоменклатура.Ссылка = ЦеныНоменклатурыСрезПоследних.Номенклатура

|ГДЕ

| сНоменклатура.Ссылка = &Номенклатура

|УПОРЯДОЧИТЬ ПО

| ЦеныНоменклатурыСрезПоследних.ХарактеристикаНоменклатуры УБЫВ

|";

Выборка = Запрос.Выполнить().Выбрать();

Если Выборка.Следующий() Тогда

Если ТипЦен.Рассчитывается Тогда

ВалютаТекущая = ТипЦен.ВалютаЦены;

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

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

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

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

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

КонецЕсли;

Иначе

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

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

КонецЕсли;

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

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

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

КонецЕсли;

КонецЕсли;

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

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

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

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

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

//

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

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

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

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

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

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

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

//

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

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

//

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