НаборЗаписей = РегистрыСведений.ХХХ.создатьНаборЗаписей();
НаборЗаписей.Прочитать();
Для Каждого Запись из НаборЗаписей Цикл
Запись.Период = ЗаданнаяДата;
КонецЦикла;
НаборЗаписей.Записать(Истина);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший