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