Очистить свои агрегаты, заполнить и сознательно вернуться к итогам

Очистка относится ко всем агрегатам своего регистра. Отключение использования тоже очищает их; отключение режима пересчитывает итоги. Опыт только без движений.

Подготовка

1. Создайте НОВУЮ пустую файловую информационную базу, не копию УТ/КА2/УНФ/БП. Корневая конфигурация УчебныеАгрегаты85, режим совместимости Не использовать, платформа точно 8.5.1.1343. Учебный опыт выполняется единственным пользователем.

2. Добавьте единственный документ УчебнаяПродажа85: номер Строка 40, автонумерация выключена, без дополнительных реквизитов, обработчиков и подписок. Для этих уроков документы не создаются и не записываются.

3. Добавьте единственный регистр накопления УчебныеПродажи85 вида Обороты. Измерения: КодТовара Строка 50 и Регион Строка 30, индексировать. Единственный ресурс Количество Число 12,3, неотрицательное. Дополнительных реквизитов нет. Единственный регистратор УчебнаяПродажа85; модули пустые.

4. В Конфигураторе откройте регистр УчебныеПродажи85 → Агрегаты → конструктор агрегатов. Создайте ровно один собственный агрегат с обоими измерениями КодТовара и Регион, периодичность Месяц, использование Всегда. Обновите конфигурацию базы данных.

5. Проверьте установленное описание собственного регистра: ВидРегистра Обороты, один агрегат, два его измерения. Это административный пустой стенд: движения, обмены, разделители данных, расширения и фоновые задания не добавляйте.

6. Создайте серверный общий модуль УчебныеАгрегатыПримеры. Вставляйте весь модуль одного урока, включая вспомогательную процедуру, если она есть. Экспортную ВыполнитьПример вызовите из собственной серверной команды обработки. Не вкладывайте готовую процедуру в другую процедуру.

7. Перед ручными изменяющими опытами сохраните резервную копию своей пустой учебной базы. Эти административные операции могут очищать внутренние таблицы; транзакционный откат не обещает вернуть их или исходную сеть агрегатов.

8. Порядок: сначала паспорт. Если режим выключен, урок включения; затем заполнение и, по желанию, перестроение; в конце отдельный урок очистки и возврата к режиму итогов. Если режим уже включён, не повторяйте урок включения с требованием исходного Ложь.

9. Изменяющие уроки намеренно оставляют описанное состояние в собственном одноразовом стенде. Они не восстанавливают исходное состояние после ошибки; при исключении остановитесь, прочитайте паспорт и используйте свою резервную копию, а не повторяйте опыт в рабочей базе.

10. На пустом регистре демонстрируется контракт административного API, не ускорение отчёта. Размер, эффект, даты и рассчитанный список зависят от данных и статистики. Производительность и выбор сети на реальных продажах этим не измеряются.

11. Здесь примеры в 1С не запускались. Сверены исходники и установленный синтакс-помощник 8.5.1.1343; ваши документы, движения и настройки не изменялись.

Процедура ВыполнитьПример() Экспорт
    Если Метаданные.РежимСовместимости <> Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать
        Или Метаданные.Документы.Количество() <> 1
        Или Метаданные.РегистрыНакопления.Количество() <> 1
        Или Метаданные.Документы.Найти("УчебнаяПродажа85") = Неопределено Тогда
        ВызватьИсключение "Нужен только свой учебный документ и оборотный регистр";
    КонецЕсли;
    Описание = Метаданные.РегистрыНакопления.Найти("УчебныеПродажи85");
    Если Описание = Неопределено Тогда
        ВызватьИсключение "Создайте свой регистр УчебныеПродажи85";
    КонецЕсли;
    Если Описание.ВидРегистра <> Метаданные.СвойстваОбъектов.ВидРегистраНакопления.Обороты
        Или Описание.Измерения.Количество() <> 2
        Или Описание.Ресурсы.Количество() <> 1
        Или Описание.Реквизиты.Количество() <> 0
        Или Описание.Измерения.Найти("КодТовара") = Неопределено
        Или Описание.Измерения.Найти("Регион") = Неопределено
        Или Описание.Ресурсы.Найти("Количество") = Неопределено Тогда
        ВызватьИсключение "Нужна своя оборотная схема КодТовара, Регион, Количество";
    КонецЕсли;
    Определения = Описание.Агрегаты;
    Если Определения.Количество() <> 1 Тогда
        ВызватьИсключение "Подготовьте ровно один собственный агрегат в Конфигураторе";
    КонецЕсли;
    Определение = Определения.Получить(0);
    Если Определение.Измерения.Количество() <> 2
        Или Определение.Периодичность <> ПериодичностьАгрегатаРегистраНакопления.Месяц
        Или Определение.Использование <> ИспользованиеАгрегатаРегистраНакопления.Всегда Тогда
        ВызватьИсключение "Свой агрегат должен использовать оба измерения, Месяц и Всегда";
    КонецЕсли;
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Не запускайте административный опыт внутри чужой транзакции";
    КонецЕсли;
    Проверка = Новый Запрос;
    Проверка.Текст = "ВЫБРАТЬ КОЛИЧЕСТВО(*) КАК Строк
    |ИЗ РегистрНакопления.УчебныеПродажи85";
    Контроль = Проверка.Выполнить().Выгрузить();
    Если Контроль.Количество() <> 1 Тогда
        ВызватьИсключение "Не получена собственная строка контроля";
    КонецЕсли;
    Если Контроль[0].Строк <> 0 Тогда
        ВызватьИсключение "Административный урок разрешён только без движений своего регистра";
    КонецЕсли;
    Менеджер = РегистрыНакопления.УчебныеПродажи85;
    Если Не Менеджер.ПолучитьРежимАгрегатов()
        Или Не Менеджер.ПолучитьИспользованиеАгрегатов() Тогда
        ВызватьИсключение "Сначала включите режим и использование агрегатов в своём пустом стенде";
    КонецЕсли;
    Сообщить("Очистка относится ко всем агрегатам только своего пустого регистра");
    Менеджер.ОчиститьАгрегаты();
    ПослеОчистки = Менеджер.АгрегатыЗаполнены();
    Сообщить(ТипЗнч(ПослеОчистки) = Тип("Булево"));
    Сообщить("Фактический статус после очистки: " + Строка(ПослеОчистки));
    Менеджер.ОбновитьАгрегаты(Ложь);
    Если Не Менеджер.АгрегатыЗаполнены() Тогда
        ВызватьИсключение "Повторное полное заполнение не подтверждено";
    КонецЕсли;
    Менеджер.УстановитьИспользованиеАгрегатов(Ложь);
    Если Менеджер.ПолучитьИспользованиеАгрегатов() Тогда
        ВызватьИсключение "Выключение использования не подтверждено";
    КонецЕсли;
    Менеджер.УстановитьРежимАгрегатов(Ложь);
    Если Менеджер.ПолучитьРежимАгрегатов() Тогда
        ВызватьИсключение "Возврат к режиму итогов не подтвержден";
    КонецЕсли;
    Сообщить(Описание.Агрегаты.Количество() = 1);
    Сообщить("Определение в Конфигураторе осталось; режим и использование выключены");
    Сообщить("Это сознательный итог опыта, не восстановление прежней сети агрегатов");
КонецПроцедуры

Разбор по шагам

1. Проверить новый собственный пустой оборотный регистр, заданный агрегат и включённые режим/использование; сохранить свою резервную копию.

2. ОчиститьАгрегаты не удаляет определения Конфигуратора. Прочитать статус после очистки, не назначать ему выдуманный Ложь на пустом регистре.

3. Полностью обновить агрегаты и отдельно подтвердить завершение заполнения.

4. УстановитьИспользованиеАгрегатов(Ложь) запрещает использование и очищает агрегаты; проверить флаг.

5. УстановитьРежимАгрегатов(Ложь) очищает агрегаты и пересчитывает итоги; проверить режим.

6. Убедиться, что своё определение по-прежнему одно. Финальные режим/использование выключены сознательно, прежняя сеть не восстановлена.

Как проверить результат

1. После полного заполнения статус подтверждён; после выключения оба getter дают Ложь.

2. Определение в метаданных осталось одно; нет удаления объектов метаданных.

3. На входе движения отсутствуют; записывающего движения кода нет.

4. При ошибке промежуточное состояние не называется восстановленным.

Ожидаемый результат

Показана разница очистки хранилищ, отключения использования и отключения режима с явным финальным состоянием учебного стенда.

На что обратить внимание

1. Не подставляйте сюда рабочий регистр: очистка/переключение касаются всех агрегатов выбранного регистра, не одной строки.

2. Метаданные.Агрегаты возвращают АгрегатРегистраНакопления, а ПолучитьАгрегаты — ИнформацияОбАгрегатах с элементами ИнформацияОбАгрегате. Их свойства и типы различны, присваиваний readonly-свойствам нет.

3. Истина от АгрегатыЗаполнены говорит о завершении заполнения используемых агрегатов, не об ускорении запроса и не о правильности данных бизнеса.

4. Пустой эксплуатационный список и булев результат перестроения Ложь допустимы; строки, даты и показатели не заменяются вымышленными константами.

5. При очистке/смене режима не обещается восстановление внутренних таблиц. Контроль нуля движений и собственная резервная копия обязательны; здесь код не выполнялся.

6. Механизм предназначен для оборотных регистров; официальное описание 1С: https://v8.1c.ru/platforma/agregat/. Точные методы сверены с локальной справкой 8.5.1.1343.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.