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

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

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

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

    |ИЗ

    |    РегистрНакопления.Остатки КАК Регистр

    |ГДЕ

    |    Регистр.Регистратор.Дата<&КонПериода";

    Запрос.УстановитьПараметр("КонПериода",КонПериода);

    РезультатЗапроса = Запрос.Выполнить();

    Выборка = РезультатЗапроса.Выбрать();

    Кол=0;



    БылиОшибки=Ложь;   

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

        ОбработкаПрерыванийПользователя();

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

        Набор.Отбор.Регистратор.Значение = Выборка.Регистратор;

        Попытка

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

        Исключение

           БылиОшибки=Истина;

        КонецПопытки;

        Кол=Кол+1;

        ЕСЛИ Кол%100=0 Тогда

            Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество());

        КонецЕсли;

    КонецЦикла;

    Если БылиОшибки Тогда

       Предупреждение("Обработка завершена. Регистр очищен не до конца!!!");

    КонецЕсли;

    РегистрыНакопления.Остатки.УстановитьИспользованиеИтогов(Истина);   

 

РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Ложь);

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

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

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

    |ИЗ

    |    РегистрНакопления.ЗаказыМагазинов КАК Регистр

    |ГДЕ

    |    Регистр.Регистратор.Дата<&КонПериода";

    Запрос.УстановитьПараметр("КонПериода",КонПериода);

    РезультатЗапроса = Запрос.Выполнить();

    Выборка = РезультатЗапроса.Выбрать();

    Кол=0;

    БылиОшибки=Ложь;

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

        ОбработкаПрерыванийПользователя();

        Набор = РегистрыНакопления.ЗаказыМагазинов.СоздатьНаборЗаписей();

        Набор.Отбор.Регистратор.Значение = Выборка.Регистратор;

        Попытка

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

        Исключение

        БылиОшибки=Истина;

        КонецПопытки;

        Кол=Кол+1;

        ЕСЛИ Кол%100=0 Тогда

            Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество());

        КонецЕсли;

    КонецЦикла;

Если БылиОшибки Тогда

    Предупреждение("Обработка завершена. Регистр очищен не до конца!!!");

КонецЕсли;

РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Истина);

   

 

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

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

    |    УправленческиеНачисления.Регистратор

    |ИЗ

    |    РегистрРасчета.УправленческиеНачисления КАК УправленческиеНачисления";

    РезультатЗапроса = Запрос.Выполнить();

    Выборка = РезультатЗапроса.Выбрать();

    Кол=0;

    БылиОшибки=Ложь;

    

    //РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Ложь);

 

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

        //ОбработкаПрерыванийПользователя();

 

        Набор = РегистрыРасчета.УправленческиеНачисления.СоздатьНаборЗаписей();

        Набор.Отбор.Регистратор.Значение = Выборка.Регистратор;

        Попытка

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

        Исключение

            БылиОшибки=Истина;

        КонецПопытки;

        Кол=Кол+1;

        ЕСЛИ Кол%100=0 Тогда

            Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество());

        КонецЕсли;

    КонецЦикла;

    //РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Истина);

 

    

    Если БылиОшибки Тогда

        Предупреждение("Обработка завершена. Регистр очищен не до конца!!!");

    КонецЕсли; 

   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	Для Каждого Рег Из РегистрыНакопления Цикл

		Если Рег.ПолучитьИспользованиеИтогов()=Ложь Тогда

			Рег.УстановитьИспользованиеИтогов(Истина);

			Состояние("Идет пересчет итогов регистра накопления " + Рег);

			Рег.ПересчитатьИтоги();

			Сообщить("Для регистра накопления " + Рег + " включено использование итогов");

		КонецЕсли;

	КонецЦикла;

	Для Каждого Рег Из РегистрыБухгалтерии Цикл

		Если Рег.ПолучитьИспользованиеИтогов()=Ложь Тогда

			Рег.УстановитьИспользованиеИтогов(Истина);

			Состояние("Идет пересчет итогов регистра бухгалтерии " + Рег);

			Рег.ПересчитатьИтоги();

			Сообщить("Для регистра бухгалтерии " + Рег + " включено использование итогов");

		КонецЕсли;

	КонецЦикла;

КонецПроцедуры   

 

для каждого регистр из метаданные.регистрыбухгалтерии цикл

	регистрыбухгалтерии[регистр.имя].УстановитьИспользованиеИтогов(истина);

конеццикла; 

   

 

для каждого регистр из метаданные.регистрынакопления цикл

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

	состояние(регистр);

конеццикла;