// Инициализация дополнительных свойств для проведения документа
    ПроведениеСервер.ИнициализироватьДополнительныеСвойстваДляПроведения(Ссылка, ДополнительныеСвойства, РежимПроведения);
    
    // Инициализация данных документа
    Документы.СписаниеБонусов.ИнициализироватьДанныеДокумента(Ссылка, ДополнительныеСвойства);
    
    // Подготовка наборов записей
    ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
    
    // не срабатывает в процедуре ПодготовитьНаборыЗаписейКРегистрацииДвижений() 
    // МассивИменРегистров = ПолучитьМассивИспользуемыхРегистров(
    Движения.м_БонусныеБаллыПоЗаказам.Записывать = Истина; // заплатка
    
    ПроведениеСервер.ЗаписатьНаборыЗаписей(ЭтотОбъект);

        МассивИменРегистров = ПолучитьМассивИспользуемыхРегистров(
            Объект.Ссылка,
            МетаданныеДвижения,
            ИсключаемыеРегистры);

// Функция формирует массив имен регистров, по которым документ имеет движения.
// Вызывается при подготовке записей к регистрации движений.
//
Функция ПолучитьМассивИспользуемыхРегистров(Регистратор, Движения, МассивИсключаемыхРегистров = Неопределено) Экспорт

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("Регистратор", Регистратор);

    Результат = Новый Массив;
    МаксимумТаблицВЗапросе = 256;

    СчетчикТаблиц   = 0;
    СчетчикДвижений = 0;

    ВсегоДвижений = Движения.Количество();
    ТекстЗапроса  = "";
    Для Каждого Движение Из Движения Цикл

        СчетчикДвижений = СчетчикДвижений + 1;

        ПропуститьРегистр = МассивИсключаемыхРегистров <> Неопределено
                            И МассивИсключаемыхРегистров.Найти(Движение.Имя) <> Неопределено;

        Если Не ПропуститьРегистр Тогда

            Если СчетчикТаблиц > 0 Тогда

                ТекстЗапроса = ТекстЗапроса + "
                |ОБЪЕДИНИТЬ ВСЕ
                |";

            КонецЕсли;

            СчетчикТаблиц = СчетчикТаблиц + 1;

            ТекстЗапроса = ТекстЗапроса + 
            "
            |ВЫБРАТЬ ПЕРВЫЕ 1
            |""" + Движение.Имя + """ КАК ИмяРегистра
            |
            |ИЗ " + Движение.ПолноеИмя() + "
            |
            |ГДЕ Регистратор = &Регистратор
            |";

        КонецЕсли;

        Если СчетчикТаблиц = МаксимумТаблицВЗапросе Или СчетчикДвижений = ВсегоДвижений Тогда

            Запрос.Текст  = ТекстЗапроса;
            ТекстЗапроса  = "";
            СчетчикТаблиц = 0;

            Если Результат.Количество() = 0 Тогда

                Результат = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("ИмяРегистра");

            Иначе

                Выборка = Запрос.Выполнить().Выбрать();
                Пока Выборка.Следующий() Цикл
                    Результат.Добавить(Выборка.ИмяРегистра);
                КонецЦикла;

            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

    Возврат Результат;

КонецФункции

ВЫБРАТЬ ПЕРВЫЕ 1
"м_БонусныеБаллыПоЗаказам" КАК ИмяРегистра

ИЗ РегистрНакопления.м_БонусныеБаллыПоЗаказам

ГДЕ Регистратор = &Регистратор