---

&НаКлиенте
Процедура МастерПриИзменении(Элемент)

	Объект.Услуга = Неопределено;
	Объект.СуммаУслуги = 0;

	ЗаполнитьСписокУслугМастера();

КонецПроцедуры


&НаКлиенте
Процедура ПриОткрытии(Отказ)

	ЗаполнитьСписокУслугМастера();

КонецПроцедуры


&НаКлиенте
Процедура ЗаполнитьСписокУслугМастера()

	Элементы.Услуга.СписокВыбора.Очистить();

	Если Не ЗначениеЗаполнено(Объект.Мастер) Тогда
		Возврат;
	КонецЕсли;

	МассивУслуг = ПолучитьУслугиМастера(Объект.Мастер);

	Для Каждого ТекущаяУслуга Из МассивУслуг Цикл
		Элементы.Услуга.СписокВыбора.Добавить(ТекущаяУслуга, Строка(ТекущаяУслуга));
	КонецЦикла;

КонецПроцедуры


&НаСервереБезКонтекста
Функция ПолучитьУслугиМастера(Мастер)

	МассивУслуг = Новый Массив;

	Если Не ЗначениеЗаполнено(Мастер) Тогда
		Возврат МассивУслуг;
	КонецЕсли;

	ОбъектСотрудника = Мастер.ПолучитьОбъект();

	Для Каждого СтрокаУслуги Из ОбъектСотрудника.ВыполняемыеУслуги Цикл
		Если ЗначениеЗаполнено(СтрокаУслуги.Услуга) Тогда
			МассивУслуг.Добавить(СтрокаУслуги.Услуга);
		КонецЕсли;
	КонецЦикла;

	Возврат МассивУслуг;

КонецФункции