СправочникМенеджер.<Имя справочника>.ПолучитьМакет

Полный серверный общий модуль: защита стенда, подготовка пяти записей и проверка отката. Не выполнялся.

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

Функция ПодготовитьСвоиТовары() Экспорт
    Если Не ТранзакцияАктивна() Тогда
        ВызватьИсключение "Подготовка допустима только внутри собственной отменяемой транзакции";
    КонецЕсли;
    ПроверкаПустоты = Справочники.УчебныеТовары.Выбрать();
    Если ПроверкаПустоты.Следующий() Тогда
        ВызватьИсключение "Учебный справочник должен быть пуст; чужие записи не изменяются";
    КонецЕсли;
    Пустая = Справочники.УчебныеТовары.ПустаяСсылка();
    Данные = Новый Структура;
    Данные.Вставить("G01", СоздатьСвоюСтроку("G01", "Основной", "GROUP-A", Пустая, Истина));
    Данные.Вставить("G02", СоздатьСвоюСтроку("G02", "Архив", "GROUP-B", Пустая, Истина));
    Данные.Вставить("A01", СоздатьСвоюСтроку("A01", "Книга", "BOOK-A", Данные.G01, Ложь));
    Данные.Вставить("A02", СоздатьСвоюСтроку("A02", "Ручка", "PEN-A", Данные.G01, Ложь));
    Данные.Вставить("B01", СоздатьСвоюСтроку("B01", "Книга", "BOOK-B", Данные.G02, Ложь));
    Данные.Вставить("Пустая", Пустая);
    Возврат Данные;
КонецФункции

Функция СоздатьСвоюСтроку(Код, Наименование, Артикул, Родитель, Группа)
    Если Группа Тогда
        Объект = Справочники.УчебныеТовары.СоздатьГруппу();
    Иначе
        Объект = Справочники.УчебныеТовары.СоздатьЭлемент();
    КонецЕсли;
    Ссылка = Справочники.УчебныеТовары.ПолучитьСсылку(Новый УникальныйИдентификатор);
    Объект.УстановитьСсылкуНового(Ссылка);
    Объект.Код = Код;
    Объект.Наименование = Наименование;
    Объект.Артикул = Артикул;
    Объект.Родитель = Родитель;
    Объект.Записать();
    Прочитанный = Ссылка.ПолучитьОбъект();
    Если Прочитанный = Неопределено Тогда
        ВызватьИсключение "Собственная учебная запись не прочитана";
    КонецЕсли;
    Если Прочитанный.Код <> Код Или Прочитанный.Наименование <> Наименование
        Или Прочитанный.Артикул <> Артикул Или Прочитанный.Родитель <> Родитель
        Или Прочитанный.ЭтоГруппа <> Группа Тогда
        ВызватьИсключение "Прочитанная учебная строка отличается от подготовленной";
    КонецЕсли;
    Возврат Ссылка;
КонецФункции

Процедура ПроверитьОткат(Данные) Экспорт
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Собственная транзакция не завершена";
    КонецЕсли;
    Для Каждого Имя Из СтрРазделить("G01,G02,A01,A02,B01", ",") Цикл
        Если Данные[Имя].ПолучитьОбъект() <> Неопределено Тогда
            ВызватьИсключение "Собственная запись осталась после отката: " + Имя;
        КонецЕсли;
    КонецЦикла;
    ПроверкаПустоты = Справочники.УчебныеТовары.Выбрать();
    Если ПроверкаПустоты.Следующий() Тогда
        ВызватьИсключение "После отката справочник не пуст";
    КонецЕсли;
КонецПроцедуры

Полный модуль управляемой формы только собственной обработки. Не выполнялся.

&НаКлиенте
Процедура Выполнить(Команда)
    ВыполнитьНаСервере();
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ВыполнитьНаСервере()
    УчебныеПримерыКаталога85.ВыполнитьПример();
КонецПроцедуры