ДокументОбъект.<Имя документа>.Заблокирован

Заблокировать свою новую запись и отдельно освободить блокировку

Заблокирован проверяет принадлежность блокировки конкретному объекту BSL, а не любые блокировки базы. Освобождение выполняется при успехе и при ошибке до отмены транзакции.

Подготовка

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

2. Справочники → Добавить: имя УчебныеТовары. Длина кода 10, тип кода Строка, автонумерация и контроль уникальности включены, длина наименования 100.

3. Для УчебныеТовары включите иерархию групп и элементов. Добавьте реквизиты Артикул (Строка, длина 20) и Цена (Число, 12 цифр, 2 дробных, неотрицательное). Проверка заполнения для этих учебных реквизитов не устанавливается.

4. Добавьте табличную часть Штрихкоды: Штрихкод (Строка, длина 20) и Основной (Булево). Обновите конфигурацию базы данных. Модули объектов оставьте пустыми.

5. Документы → Добавить: имя УчебнаяЗаявка, тип номера Строка, длина 9, автонумерация включена. Проведение запретите: это только учебный документ без движений.

6. Добавьте реквизит Комментарий (Строка, длина 100) и табличную часть Товары: Товар (СправочникСсылка.УчебныеТовары), Количество (Число, 9 цифр, 0 дробных, неотрицательное), Цена (Число, 12 цифр, 2 дробных, неотрицательное). Модуль документа пустой.

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

8. У своего документа и товара модули пустые, подписок, расширений и внешних обработчиков нет. История данных выключена; проведение УчебнаяЗаявка запрещено, движения/регистры не создаются.

9. Номер заявки здесь строковый длиной 9, с автонумерацией. Для иной числовой нумерации нельзя копировать проверки Строка. Дата задаётся собственным литералом, не читается из рабочего документа.

10. Свойства ссылки readonly. Непустой UUID/ссылка не означает наличие записи, а ВерсияДанных — непрозрачная строка, не номер документа или версия конфигурации.

11. Примеры здесь не запускались в 1С. Только код и установленная справка 8.5.1.1343; ваши документы не создавались, не проводились и не удалялись.

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

13. Для этого блока корень Учебная85, единственный справочник УчебныеТовары, единственный непроводимый документ УчебнаяЗаявка; регистров нет. Модули объекта/менеджера и подписки пустые, история выключена, расширений, обменов и фоновых заданий нет.

14. Запускайте полный модуль одного урока отдельно, единственным пользователем. Нельзя заменять проверки имени/схемы рабочими объектами или передавать документ, найденный по первой строке.

15. Уроки с записью/пометкой/удалением сами создают новый товар и новую заявку внутри своей транзакции, отслеживают только их ссылки и отменяют всё при успехе/ошибке. Фиксации нет; не вызывайте их внутри чужой транзакции.

16. Уроки черновика/времени/макета вообще не записывают документы. Все помощники и подготовленные данные предоставлены в полном модуле, внешняя библиотека не нужна.

17. Прямое Удалить не проверяет ссылочную целостность; откат учебной транзакции не делает этот метод безопасным для рабочего документа. Допустима только своя новая пустая база без внешних обработчиков. Здесь 1С не запускалась.

Процедура ВыполнитьПример() Экспорт
    
    Если Метаданные.Справочники.Найти("УчебныеТовары") = Неопределено Тогда
        ВызватьИсключение "Сначала создайте учебный справочник по подготовке";
    КонецЕсли;
    Если Метаданные.Документы.Найти("УчебнаяЗаявка") = Неопределено Тогда
        ВызватьИсключение "Сначала подготовьте собственную УчебнаяЗаявка";
    КонецЕсли;
    Если Метаданные.Справочники.Количество() <> 1
        Или Метаданные.Документы.Количество() <> 1
        Или Метаданные.РегистрыНакопления.Количество() <> 0
        Или Метаданные.РегистрыСведений.Количество() <> 0
        Или Метаданные.РегистрыБухгалтерии.Количество() <> 0 Тогда
        ВызватьИсключение "Нужны только собственные товар и непроводимая заявка, без регистров";
    КонецЕсли;
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Не запускайте урок внутри чужой транзакции";
    КонецЕсли;
    СозданныеСсылки = Новый Массив;
    НачатьТранзакцию();
    Попытка
        Товар = Справочники.УчебныеТовары.СоздатьЭлемент();
        Товар.Наименование = "Собственная книга заявки";
        Товар.Артикул = "DOC-OWN-01";
        Товар.Цена = 250;
        Товар.УстановитьНовыйКод("У");
        Товар.Записать();
        СозданныеСсылки.Добавить(Товар.Ссылка);
        Заявка = Документы.УчебнаяЗаявка.СоздатьДокумент();
        Заявка.Дата = Дата(2026, 10, 6, 12, 0, 0);
        Заявка.Комментарий = "Собственный источник копии";
        Первая = Заявка.Товары.Добавить();
        Первая.Товар = Товар.Ссылка;
        Первая.Количество = 3;
        Первая.Цена = 250;
        Вторая = Заявка.Товары.Добавить();
        Вторая.Товар = Товар.Ссылка;
        Вторая.Количество = 1;
        Вторая.Цена = 50;
        Заявка.УстановитьНовыйНомер("У");
        Заявка.Записать(РежимЗаписиДокумента.Запись);
        СозданныеСсылки.Добавить(Заявка.Ссылка);
        Читаемая = Заявка.Ссылка;
        Объект = Читаемая.ПолучитьОбъект();
        Если Объект = Неопределено Тогда
            ВызватьИсключение "Нужна только что созданная собственная запись";
        КонецЕсли;
        Если Объект.Заблокирован() Тогда
            ВызватьИсключение "Этот объект уже держит блокировку; учебный опыт не начинается";
        КонецЕсли;
        Попытка
            Объект.Заблокировать();
            Если Не Объект.Заблокирован() Тогда
                ВызватьИсключение "Захват собственной блокировки не подтверждён";
            КонецЕсли;
            ДругойОбъект = Читаемая.ПолучитьОбъект();
            Если ДругойОбъект = Неопределено Тогда
                ВызватьИсключение "Второй объект собственной записи не получен";
            КонецЕсли;
            Сообщить(Не ДругойОбъект.Заблокирован());
            Сообщить("Проверяется владелец конкретного объекта языка, не наличие любых блокировок записи");
            Объект.Разблокировать();
            Если Объект.Заблокирован() Тогда
                ВызватьИсключение "Снятие собственной блокировки не подтверждено";
            КонецЕсли;
        Исключение
            ИсходнаяОшибка = ОписаниеОшибки();
            Попытка
                Если Объект.Заблокирован() Тогда
                    Объект.Разблокировать();
                КонецЕсли;
                Если Объект.Заблокирован() Тогда
                    Сообщить("Блокировка своего объекта не снята; проверьте только учебный стенд");
                КонецЕсли;
            Исключение
                Сообщить("Освобождение собственной блокировки завершилось ошибкой");
            КонецПопытки;
            ВызватьИсключение ИсходнаяОшибка;
        КонецПопытки;
        Сообщить(Не Объект.Заблокирован());
        Сообщить("После отдельного освобождения блокировки внешняя учебная транзакция будет отменена");
        ОтменитьТранзакцию();
    Исключение
        Если ТранзакцияАктивна() Тогда
            ОтменитьТранзакцию();
        КонецЕсли;
        ВызватьИсключение;
    КонецПопытки;
    Сообщить(Не ТранзакцияАктивна());
    Для Каждого СозданнаяСсылка Из СозданныеСсылки Цикл
        Сообщить(СозданнаяСсылка.ПолучитьОбъект() = Неопределено);
    КонецЦикла;
КонецПроцедуры

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

1. В своей отменяемой транзакции создать новый собственный документ; чужие записи не выбирать.

2. Получить объект и проверить, что именно он ещё не держит явную блокировку.

3. Заблокировать, затем подтвердить статус отдельным Заблокирован. Эти процедуры не возвращают старый флаг.

4. Получить второй объект той же своей записи: он не является объектом, который захватил блокировку; не считать его ответ глобальной проверкой записи.

5. В нормальном пути Разблокировать и проверить снятие. В исключении отдельно попытаться освободить только блокировку первого объекта.

6. При ошибке освобождения сообщить о ней, сохранить исходную причину; не объявлять снятие состоявшимся.

7. После освобождения отменить свои записи. Не использовать откат как замену Разблокировать.

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

1. Захват и освобождение подтверждаются первым объектом.

2. Проверка второго объекта описывает владельца объекта языка, не всю систему блокировок.

3. В обоих исходах есть освобождение; при его неуспехе есть явное предупреждение.

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

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

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

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

1. Непустая ссылка не доказывает существование записи; плановую ссылку не читать как сохранённый документ.

2. Модифицированность относится к локальным изменениям объекта после чтения, не к изменениям другими пользователями. ВерсияДанных — непрозрачная readonly-строка.

3. Заблокирован относится к блокировке именно этим объектом языка; это не общий индикатор всех блокировок записи. Собственную явную блокировку освобождайте отдельно, не рассчитывайте только на откат.

4. Пометка не удаляет запись, а прямое Удалить удаляет сразу без проверки ссылок. Если документ проведён, установка пометки отменяет проведение; модифицированный объект перед пометкой вызывает ошибку.

5. Статические проверки по справке и тексты контрольных условий не являются выполнением BSL в 1С.

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