Найти блокирующий сеанс в той же учебной ИБ

Ожидание блокировки СУБД и управляемой блокировки 1С имеют разные поля. Номер блокировщика сопоставляем только внутри той же ИБ.

Подготовка

1. Только отдельный учебный кластер 1С:Предприятия 8.5.1.1343 с уже настроенным ras совместимой версии. Не подключайтесь к рабочему серверу для обучения.

2. Создайте внешнюю обработку с управляемой формой. Добавьте реквизиты АдресRAS (Строка), ПортRAS (Число), ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера (Строка). Выведите поля на форму; у элементов ввода паролей в свойствах включите Режим пароля (PasswordMode).

3. АдресRAS относится к машине серверного выполнения кода. Пример для ras на этой же тестовой машине: 127.0.0.1 и порт 1545; подтвердите фактические адрес и порт у администратора.

4. Используйте законные учётные данные учебного агента и кластера. Оставлять имя и пароль пустыми можно только если соответствующие администраторы не зарегистрированы и среда допускает такую аутентификацию.

5. При первом запуске оставьте ИдентификаторКластера пустым: код выведет идентификаторы и имена кластеров. Скопируйте идентификатор нужного учебного кластера в поле и повторите.

6. Вставьте клиентскую процедуру и серверную функцию отдельно на уровне модуля формы. Код не запускает ras и не настраивает учётные записи.

7. Дополнительно добавьте на форму ИдентификаторУчебнойБазы и ИдентификаторУчебногоСеанса (Строка). Сначала оставьте их пустыми: после выбора учебного кластера получите пары UUID ИБ/сеанса. Выберите сеанс своей отдельной учебной базы, не рабочий.

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

9. Создайте команду ПоказатьОжиданиеСеанса, её кнопку и одноимённый клиентский обработчик из кода.

&НаКлиенте
Процедура ПоказатьОжиданиеСеанса(Команда)
    Результат = ПоказатьОжиданиеСеансаНаСервере(АдресRAS, ПортRAS, ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИдентификаторУчебнойБазы, ИдентификаторУчебногоСеанса);
    Сообщить(Результат);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПоказатьОжиданиеСеансаНаСервере(АдресRAS, ПортRAS, ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИдентификаторУчебнойБазы, ИдентификаторУчебногоСеанса)
    Сервер = Новый АдминистрированиеСервера(АдресRAS, ПортRAS);
    Сервер.ВыполнитьАутентификацию(ПарольАгента, ИмяАгента);
    Кластеры = Сервер.ПолучитьКластеры();
    Если Не ЗначениеЗаполнено(ИдентификаторКластера) Тогда
        Строки = Новый Массив;
        Для Каждого Элемент Из Кластеры Цикл
            Строки.Добавить(Строка(Элемент.ИдентификаторКластера) + " — " + Элемент.Имя);
        КонецЦикла;
        Если Строки.Количество() = 0 Тогда
            Возврат "Кластеров нет";
        КонецЕсли;
        Возврат СтрСоединить(Строки, Символы.ПС);
    КонецЕсли;
    Кластер = Неопределено;
    Для Каждого Элемент Из Кластеры Цикл
        Если НРег(Строка(Элемент.ИдентификаторКластера)) = НРег(СокрЛП(ИдентификаторКластера)) Тогда
            Кластер = Элемент;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Если Кластер = Неопределено Тогда
        ВызватьИсключение "Указанный учебный кластер не найден";
    КонецЕсли;
    Кластер.ВыполнитьАутентификацию(ИмяАдминистратораКластера, ПарольАдминистратораКластера);
    Сеансы = Кластер.ПолучитьСеансы();
    Если Не ЗначениеЗаполнено(ИдентификаторУчебнойБазы) Или Не ЗначениеЗаполнено(ИдентификаторУчебногоСеанса) Тогда
        Список = Новый Массив;
        Для Каждого Кандидат Из Сеансы Цикл
            Список.Добавить(СтрШаблон("ИБ=%1; UUID сеанса=%2; номер=%3; приложение=%4",
                Кандидат.ИдентификаторИнформационнойБазы, Кандидат.ИдентификаторСеанса,
                Кандидат.НомерСеанса, Кандидат.ИмяПриложения));
        КонецЦикла;
        Возврат "Выберите UUID своей учебной ИБ и сеанса:" + Символы.ПС + СтрСоединить(Список, Символы.ПС);
    КонецЕсли;
    Сеанс = Неопределено;
    Для Каждого Кандидат Из Сеансы Цикл
        Если НРег(Строка(Кандидат.ИдентификаторИнформационнойБазы)) = НРег(СокрЛП(ИдентификаторУчебнойБазы))
            И НРег(Строка(Кандидат.ИдентификаторСеанса)) = НРег(СокрЛП(ИдентификаторУчебногоСеанса)) Тогда
            Сеанс = Кандидат;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Если Сеанс = Неопределено Тогда
        Возврат "Выбранный учебный сеанс не найден в этой ИБ; обновите список. Номер сеанса вместо UUID не подходит.";
    КонецЕсли;
    Строки = Новый Массив;
    Номера = Новый Структура;
    Номера.Вставить("СУБД", Сеанс.НомерСеансаБлокирующегоСУБД);
    Номера.Вставить("Управляемая", Сеанс.НомерСеансаВыполнившегоУправляемуюБлокировку);
    Для Каждого ВидОжидания Из Номера Цикл
        Если ВидОжидания.Значение = 0 Тогда
            Строки.Добавить(ВидОжидания.Ключ + ": блокировщик в снимке не указан");
            Продолжить;
        КонецЕсли;
        Найден = Ложь;
        Для Каждого Кандидат Из Сеансы Цикл
            Если Кандидат.ИдентификаторИнформационнойБазы = Сеанс.ИдентификаторИнформационнойБазы
                И Кандидат.НомерСеанса = ВидОжидания.Значение Тогда
                Строки.Добавить(СтрШаблон("%1: номер=%2; UUID=%3; пользователь=%4", ВидОжидания.Ключ,
                    Кандидат.НомерСеанса, Кандидат.ИдентификаторСеанса, Кандидат.ИмяПользователя));
                Найден = Истина;
                Прервать;
            КонецЕсли;
        КонецЦикла;
        Если Не Найден Тогда
            Строки.Добавить(ВидОжидания.Ключ + ": номер указан, но сеанс не найден в этом снимке; обновите диагностику");
        КонецЕсли;
    КонецЦикла;
    Возврат СтрСоединить(Строки, Символы.ПС);
КонецФункции

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

1. Аутентифицируемся в явно выбранном учебном кластере; сеанс выбираем одновременно по UUID ИБ и UUID сеанса.

2. Нулевой номер — нет указанного блокировщика в снимке; не ищем сеанс номер 0.

3. Для каждого ненулевого номера одновременно проверяем ИБ и НомерСеанса: одинаковые номера в других ИБ не подходят.

4. Если найден, показываем UUID для дальнейшей диагностики, но не завершаем его и не снимаем блокировку.

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

1. При отсутствии ожидания две строки сообщают, что блокировщик не указан.

2. При ненулевом поле найденный номер обязательно принадлежит UUID той же ИБ; исчезнувшая запись даёт сообщение об обновлении.

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

Построены диагностические связи ожидания без воздействия на блокировщиков.

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

1. Это снимок административной диагностики, не замер внутри прикладной транзакции и не команда удаления сеансов.

2. Отсутствие блокировщика в снимке не доказывает отсутствие задержек или блокировок вообще.

3. Не завершайте сеанс только потому, что его номер показан: нужна отдельная диагностика и разрешение.

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