Процедура КнопкаВыполнитьНажатие(Кнопка)
Регистр = РегистрыСведений.СвойстваПозицииШтатногоРасписания.СоздатьНаборЗаписей();
Регистр.Прочитать();
Для Каждого Запись из Регистр Цикл
//а = Запись.ПолучитьОбъект();
Если Запись.Период <= Дата("20171116") Тогда
Запись.УсловияТруда.Наименование = Справочники.УсловияТруда.НайтиПоКоду(000000001);
Иначе
Запись.УсловияТруда.Наименование = Справочники.УсловияТруда.НайтиПоКоду(000000002);
КонецЕсли;
КонецЦикла;
Регистр.Записать(Ложь);
КонецПроцедуры
Справочники.УсловияТруда.НайтиПоКоду(000000001);
запрос в цикле
вынеси определение переменной за цикл
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший