&НаСервереБезКонтекста
Процедура ОчиститьРегистрыНакопления(ИмяРегистра)
Если СокрЛП(ИмяРегистра) ="" Тогда
Возврат;
КонецЕсли;
РегистрыНакопления[СокрЛП(ИмяРегистра)].УстановитьИспользованиеИтогов(Ложь);
Запрос=Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| Регистр.Регистратор
|ИЗ
| РегистрНакопления."+СокрЛП(ИмяРегистра)+" КАК Регистр";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() цикл
Набор = РегистрыНакопления[СокрЛП(ИмяРегистра)].СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);
Набор.Записать();
КонецЦикла;
РегистрыНакопления[СокрЛП(ИмяРегистра)].УстановитьИспользованиеИтогов(Истина);
КонецПроцедуры // ОчиститьРегистрыНакопления()