05.Регистры накопления

Очистить весь регистр накопления

&НаСервереБезКонтекста

Процедура ОчиститьРегистрыНакопления(ИмяРегистра)

Если СокрЛП(ИмяРегистра) ="" Тогда

Возврат;

КонецЕсли;

РегистрыНакопления[СокрЛП(ИмяРегистра)].УстановитьИспользованиеИтогов(Ложь);

Запрос=Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ

| Регистр.Регистратор

|ИЗ

| РегистрНакопления."+СокрЛП(ИмяРегистра)+" КАК Регистр";

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() цикл

Набор = РегистрыНакопления[СокрЛП(ИмяРегистра)].СоздатьНаборЗаписей();

Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);

Набор.Записать();

КонецЦикла;

РегистрыНакопления[СокрЛП(ИмяРегистра)].УстановитьИспользованиеИтогов(Истина);

КонецПроцедуры // ОчиститьРегистрыНакопления()