Для й=0 По Перечисления.ВидыУслуг.Количество()-1 Цикл
Если Строка(Перечисления.ВидыУслуг.Получить(й))=СтрЗаменить(ВыбраннаяУслуга," ","") Тогда
ВыбраннаяУслугаДляПоиска = Перечисления.ВидыУслуг.Получить(й);
Прервать;
КонецЕсли;
КонецЦикла;
(1) заполнить в соответствие
Кэш =новый соответствие;
Для й=0 По Перечисления.ВидыУслуг.Количество()-1 Цикл
Кэш.Добавить(Строка(Перечисления.ВидыУслуг.Получить(й)),Перечисления.ВидыУслуг.Получить(й));
КонецЦикла;