Проблема в том, что не заполняется левое значение в отборе. "КомпоновщикНастроек.Настройки.ДоступныеПоляОтбора" почему то не содержат элементов. Предполагаю, что для решения задачи нужно понять, чем определяется наличие элементов в доступных полях отбора.
ПолеВидЗанятости = Новый ПолеКомпоновкиДанных("ВидЗанятости");
Для каждого Элемент Из КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл
Если Элемент.ЛевоеЗначение = ПолеВидЗанятости Тогда
ЭлементОтбора = Элемент;
Прервать;
КонецЕсли;
КонецЦикла;
Если ЭлементОтбора = Неопределено Тогда
ЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
КонецЕсли;
Как-то так