Как получить список видов цен?

	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ВидыЦен.Наименование КАК Наименование
		|ИЗ
		|	Справочник.ВидыЦен КАК ВидыЦен";
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		ИмяЦены = ВыборкаДетальныеЗаписи.Наименование;
		Если ИмяЦены = "Закупочная цена" Тогда
			Поле1 = ИмяЦена;
		ИначеЕсли ИмяЦены = "Розничная цена" Тогда
			Поле2 = ИмяЦена;
		КлнецЕсли;
	КонецЦикла;

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		Наименование = ВыборкаДетальныеЗаписи.Наименование;
		
		Если Наименование = "Закупочная цена" Тогда
			
            Поле1 = Наименование;
			
		ИначеЕсли Наименование = "Розничная цена" Тогда
			
            Поле2 = Наименование;
			
        КонецЕсли;
		
	КонецЦикла;