---

Запрос=Новый Запрос;
	Запрос.УстановитьПараметр("Организация", Организация);
	Запрос.УстановитьПараметр("ДатаОстатков", ТекущаяДата());
	Запрос.УстановитьПараметр("Услуга", СписокУслуги);
	Запрос.Текст= "ВЫБРАТЬ
				|	Тарифы.Услуга КАК Услуга,
				|	Тарифы.Тариф КАК Тариф,
				|	Тарифы.СтавкаНДС КАК СтавкаНДС
				|ИЗ
				|	РегистрСведений.ТарифыНаУслуги.СрезПоследних(&ДатаОстатков, ) КАК Тарифы
				|ГДЕ
				|	Тарифы.Организация = &Организация
				|	И Тарифы.Услуга В(&Услуга)";
	
	Результат=Запрос.Выполнить().Выгрузить(); 


Функция ПолучитьЦенуУслуги(Услуга, Организация, ДатаДокумента) Экспорт
	
	ПараметрыУслуга = Новый Структура();
	ПараметрыУслуга.Вставить("Организация", Организация);
	ПараметрыУслуга.Вставить("Услуга", Услуга);
	
	ТаблицаЦен = РегистрыСведений.ТарифыНаУслуги.СрезПоследних(КонецДня(ДатаДокумента),ПараметрыУслуга);  
	
	Если ТаблицаЦен.Количество() > 0 Тогда
		Возврат ТаблицаЦен[0].Тариф;
	Иначе
		Возврат 0;
	КонецЕсли;
КонецФункции