SlavaVNL

спЗначений = Новый СписокЗначений;
   спЗначений.Добавить("ТолькоОстатки", "Свободные остатки");
   спЗначений.Добавить("ВсеСерии", "Все серии");
   ПрограммноеИзменениеФорм.СздПереключатель(Форма, 
                                 "РежимОтображенияСерий1", 
                                 грВыборПоИерархииОтборы, 
                                 "", 
                                 спЗначений, 
                                 2,  
                                 , 
                                 Новый Структура("ПриИзменении", "РежимОтображенияСерийПоИерархии_ПриИзменении"),
                                 ,
                                 "РежимОтображенияСерий"); 

Если ТипЗнч(МассивЗначений) = Тип("Массив") Тогда
      Счетчик = 0;
      Для Каждого текЭлемент Из МассивЗначений Цикл
         НовыйЭлемент.СписокВыбора.Добавить(Счетчик, текЭлемент);
         Счетчик = Счетчик + 1;
      КонецЦикла;
   Иначе
      Для Каждого текЭлемент Из МассивЗначений Цикл
         НовыйЭлемент.СписокВыбора.Добавить(текЭлемент.Значение, текЭлемент.Представление);
      КонецЦикла;
   КонецЕсли;

Функция РазделитьЧастиСловаПоРегистру(Знач Значение, КаждоеСловоСЗаглавной = Истина) Экспорт   
    СмещениеДоНР = КодСимвола("а") - КодСимвола("А"); // Смещение кода символа от буквы верхнего регистра до буквы нижнего регистра 
    Для тКодВР = КодСимвола("А") По КодСимвола("Я") Цикл
        Значение = СтрЗаменить(Значение, Символ(тКодВР), Символ(тКодВР) + Символ(тКодВР + СмещениеДоНР));
   КонецЦикла;
    РазделеннаяСтрока = "";
    мЧастиСтроки = СтрРазделить(Значение, "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЬЪЭЮЯ", Ложь);
   Для сч = 0 По мЧастиСтроки.ВГраница() Цикл                 
      тЧасть = СокрЛП(мЧастиСтроки[сч]); 
      Если сч = 0 Или КаждоеСловоСЗаглавной Тогда
         тЧасть = ТРег(тЧасть);
      КонецЕсли;
      РазделеннаяСтрока = РазделеннаяСтрока + тЧасть + " ";
    КонецЦикла;
    Возврат СокрП(РазделеннаяСтрока );
КонецФункции