Как реализовать подсчет свободных мест на парковке в 1С?

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

Наша цель — создать систему, которая будет отслеживать количество занятых и свободных мест на парковке, где максимальное количество мест равно 10. При попытке занять место, если их нет, система должна выдавать ошибку. Также мы рассмотрим, как обеспечить сохранение данных между сеансами работы программы.

Подход 1: Простейший счетчик с использованием переменных формы (в памяти приложения)

Начнем с самого простого решения, которое было предложено на форуме. Этот вариант подойдет, если не требуется сохранять данные между перезапусками программы 1С, и счетчик должен работать только в рамках одного пользовательского сеанса. Мы будем использовать обычные переменные модуля формы для хранения текущего количества занятых мест.

Реализация

1. Создаем новую обработку: Откройте конфигуратор 1С, создайте новую обработку (например, "Парковка").
2. Добавляем форму: Создайте новую форму для этой обработки.
3. Размещаем элементы управления: На форме разместим два элемента типа "Кнопка" с названиями, например, "Въезд" и "Выезд".
4. Определяем переменные в модуле формы: В модуле формы обработчика (раздел "Модуль формы") объявим две переменные: КоличествоМест (для максимального количества мест) и ЗанятоМест (для текущего количества занятых мест).

Рассмотрим пример кода:

Перем КоличествоМест;
Перем ЗанятоМест;

// Процедура вызывается при открытии формы
Процедура ПриСозданииНаСервере()
    КоличествоМест = 10; // Максимальное количество мест на парковке
    ЗанятоМест = 0;      // Изначально все места свободны
КонецПроцедуры

// Обработчик нажатия кнопки "Въезд"
Процедура КнопкаВъездНажатие(Элемент)
    Если ЗанятоМест = КоличествоМест Тогда
        Сообщить("Все места заняты! Въезд невозможен.");
    Иначе
        ЗанятоМест = ЗанятоМест + 1;
        Сообщить("Машина въехала. Свободных мест: " + (КоличествоМест - ЗанятоМест));
    КонецЕсли;
КонецПроцедуры

// Обработчик нажатия кнопки "Выезд"
Процедура КнопкаВыездНажатие(Элемент)
    Если ЗанятоМест > 0 Тогда
        ЗанятоМест = ЗанятоМест - 1;
        Сообщить("Машина выехала. Свободных мест: " + (КоличествоМест - ЗанятоМест));
    Иначе
        Сообщить("На парковке нет машин.");
    КонецЕсли;
КонецПроцедуры

Преимущества и недостатки

Преимущества:

• Крайняя простота реализации: Это самый быстрый способ получить работающий счетчик.
• Не требует изменений конфигурации: Можно реализовать даже как внешнюю обработку без прав на изменение основной конфигурации.

Недостатки:

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

Этот подход идеально подходит для демонстрации базовых принципов работы с формами и переменными, например, в рамках лабораторной работы по информатике.

Подход 2: Использование Константы для хранения общего количества занятых мест

Если нам требуется, чтобы данные о занятых местах сохранялись между сеансами работы программы, но при этом по-прежнему не нужна детализация по конкретным местам, мы можем использовать объект конфигурации Константа. Константы предназначены для хранения небольших объемов информации, которая редко меняется или является общим параметром системы.

Реализация

1. Создаем константу: В конфигураторе создайте новую Константу (например, "ЗанятоМестНаПарковке").
   • Тип: Установите тип значения Число.
   • Длина: Достаточно 2-3 разряда.
   • Точность: 0.
2. Изменяем код обработки: Теперь в нашей обработке мы будем обращаться не к переменным формы, а к значению этой Константы. Максимальное количество мест (10) также можно хранить в отдельной константе или просто задать в коде, как в нашем примере.

Давайте посмотрим на пример кода для обработки:

// Максимальное количество мест, можно вынести в отдельную константу
// или получить из реквизита формы
Перем МаксимальноеКоличествоМест;

Процедура ПриСозданииНаСервере()
    МаксимальноеКоличествоМест = 10;
КонецПроцедуры

// Обработчик нажатия кнопки "Въезд"
Процедура КнопкаВъездНажатие(Элемент)
    // Получаем текущее количество занятых мест из константы
    ТекущееЗанятоМест = Константы.ЗанятоМестНаПарковке.Получить();

    Если ТекущееЗанятоМест >= МаксимальноеКоличествоМест Тогда
        Сообщить("Все места заняты! Въезд невозможен.");
    Иначе
        // Увеличиваем количество занятых мест
        Константы.ЗанятоМестНаПарковке.Установить(ТекущееЗанятоМест + 1);
        Сообщить("Машина въехала. Свободных мест: " + (МаксимальноеКоличествоМест - (ТекущееЗанятоМест + 1)));
    КонецЕсли;
КонецПроцедуры

// Обработчик нажатия кнопки "Выезд"
Процедура КнопкаВыездНажатие(Элемент)
    // Получаем текущее количество занятых мест из константы
    ТекущееЗанятоМест = Константы.ЗанятоМестНаПарковке.Получить();

    Если ТекущееЗанятоМест > 0 Тогда
        // Уменьшаем количество занятых мест
        Константы.ЗанятоМестНаПарковке.Установить(ТекущееЗанятоМест - 1);
        Сообщить("Машина выехала. Свободных мест: " + (МаксимальноеКоличествоМест - (ТекущееЗанятоМест - 1)));
    Иначе
        Сообщить("На парковке нет машин.");
    КонецЕсли;
КонецПроцедуры

Преимущества и недостатки

Преимущества:

• Сохранение данных: Значение Константы автоматически сохраняется в базе данных и доступно после перезапуска программы.
• Простота реализации: Все еще достаточно простой подход для базового учета.

Недостатки:

• Нет детализации: Мы по-прежнему не знаем, какое именно место занято.
• Потенциальные конфликты при многопользовательской работе: Хотя платформа 1С обычно управляет конкурентным доступом к Константам, при очень активном изменении одной и той же Константы несколькими пользователями могут возникать задержки или специфические ситуации с блокировками. Для такой простой задачи, как парковка, это, скорее всего, не будет критично, но о риске стоит помнить.

Этот подход подходит, если требуется персистентность данных, но нет необходимости знать номер конкретного занятого места.

Подход 3: Использование Справочника для мест и метода Заблокировать()

Один из участников форума предложил весьма оригинальный, хотя и не совсем стандартный, подход с использованием Справочника и его метода Заблокировать(). Идея заключается в том, чтобы каждое парковочное место представить как элемент справочника, а его занятость симулировать блокировкой элемента. Это гарантирует, что при любом неожиданном завершении работы 1С блокировка снимется, и место "освободится".

Реализация

1. Создаем справочник: В конфигураторе создадим новый Справочник, например, "ПарковочныеМеста". У этого справочника нам не нужны никакие реквизиты, кроме стандартных Код и Наименование.
2. Создаем предопределенные элементы: Для каждого парковочного места (всего 10) создаем предопределенный элемент справочника. Например, "Место 1", "Место 2", ..., "Место 10". Это важно, так как предопределенные элементы всегда доступны по уникальному имени и их не нужно искать.
3. Добавляем кнопки на форму: Как и ранее, размещаем на форме кнопки "Въезд" и "Выезд".
4. Реализуем логику в модуле формы:

Рассмотрим, как это будет выглядеть в коде:

// В модуле формы

// Процедура для поиска свободного места и его блокировки
Функция НайтиИЗаблокироватьСвободноеМесто()
    Для Каждого МестоПарковкиИзСписка Из Справочники.ПарковочныеМеста.НайтиПоНаименованию("Место", Истина) Цикл
        Попытка
            // Пытаемся заблокировать элемент. Если он уже заблокирован, возникнет исключение.
            МестоПарковкиИзСписка.Заблокировать(); 
            // Если блокировка прошла успешно, значит место свободно и теперь занято.
            Возврат МестоПарковкиИзСписка;
        Исключение
            // Место уже заблокировано, ищем следующее
            Продолжить;
        КонецПопытки;
    КонецЦикла;
    Возврат Неопределено; // Свободных мест не найдено
КонецФункции

// Процедура для разблокировки места
Процедура РазблокироватьЗанятоеМесто(МестоПарковки)
    Если МестоПарковки <> Неопределено Тогда
        МестоПарковки.Разблокировать();
    КонецЕсли;
КонецПроцедуры

// Обработчик нажатия кнопки "Въезд"
Процедура КнопкаВъездНажатие(Элемент)
    СвободноеМесто = НайтиИЗаблокироватьСвободноеМесто();
    Если СвободноеМесто <> Неопределено Тогда
        // Заняли место, теперь его можно "привязать" к машине
        // Для демонстрации просто сообщаем о занятии
        Сообщить("Машина въехала на " + СвободноеМесто.Наименование + ".");
        // Можем сохранить ссылку на занятое место в реквизите формы или в каком-то регистре
        // Например, ЗанятыеМеста.Добавить(СвободноеМесто);
        // Или в простейшем случае: выводим сообщение, и дальнейшая обработка вне этой логики
    Иначе
        Сообщить("Все места заняты! Въезд невозможен.");
    КонецЕсли;
КонецПроцедуры

// Обработчик нажатия кнопки "Выезд"
Процедура КнопкаВыездНажатие(Элемент)
    // Здесь нужна логика выбора, какое место освободить.
    // Для примера, пусть пользователь выберет место из списка.
    // В реальной системе это может быть чтение карты, номера машины и т.д.

    // Пример: Откроем форму выбора элемента справочника "ПарковочныеМеста"
    ФормаВыбора = Справочники.ПарковочныеМеста.ПолучитьФормуВыбора();
    ФормаВыбора.РежимВыбора = Истина;
    ВыбранноеМесто = ФормаВыбора.Выбрать();

    Если ВыбранноеМесто <> Неопределено Тогда
        РазблокироватьЗанятоеМесто(ВыбранноеМесто);
        Сообщить("Машина выехала с " + ВыбранноеМесто.Наименование + ".");
    Иначе
        Сообщить("Выбор места отменен.");
    КонецЕсли;
КонецПроцедуры

Преимущества и недостатки

Преимущества:

• Сохранение данных и детализация: Мы можем отслеживать занятость каждого конкретного места.
• Автоматическое "освобождение" мест: Если программа завершится аварийно, блокировки автоматически снимутся, и места станут доступны. Это удобно для поддержания актуальности данных.
• Прямая реализация из форума: Этот подход был предложен на форуме как креативное решение.

Недостатки:

• Не совсем корректное использование механизмов платформы: Метод Заблокировать() предназначен, в первую очередь, для предотвращения одновременного редактирования объекта несколькими пользователями, а не для учета его текущего состояния как "занято/свободно". Использование его для моделирования занятости может быть неочевидным для других разработчиков и потенциально привести к трудностям при отладке или масштабировании.
• Возможные коллизии при параллельной работе: Хотя блокировки решают часть проблем, при одновременной попытке нескольких пользователей занять одно и то же место, могут возникнуть дополнительные сложности в логике.
• Сложности с поиском и освобождением: Для выезда нужно либо запоминать, какое место заняла конкретная машина, либо предоставлять пользователю выбор.

Мы видим, что это решение является остроумным, но для серьезных систем лучше использовать более стандартные механизмы платформы, которые мы рассмотрим далее.

Подход 4: Использование Справочника для мест и Регистров сведений для их статуса (наиболее гибкий)

Этот подход является наиболее правильным и гибким с точки зрения архитектуры 1С. Мы будем использовать Справочник для описания самих парковочных мест и Регистр сведений для хранения информации о том, занято ли конкретное место и какой машиной. Это позволяет получить полную детализацию, историю (при необходимости) и отличную масштабируемость.

Реализация

1. Создаем справочник "ПарковочныеМеста":
   • Каждый элемент этого справочника будет представлять одно парковочное место (например, "Место А1", "Место Б2").
   • Можно добавить реквизиты, такие как ТипМеста (например, "Легковой", "Мотоцикл"), Размер, Статус (например, "Доступно", "Зарезервировано", хотя это может быть избыточно, если мы используем регистр сведений для статуса занятости).
   • Создаем 10 элементов справочника: "Парковочное Место 1", "Парковочное Место 2", ..., "Парковочное Место 10".
2. Создаем справочник "Автомобили" (опционально):
   • Если нам нужно знать, какой именно автомобиль занял место, создадим справочник "Автомобили" с реквизитом ГосНомер (строка).
3. Создаем регистр сведений "ЗанятостьПарковочныхМест":
   • Этот регистр будет хранить информацию о текущем статусе каждого места.
   • Тип регистра: Непериодический, независимый (так как он хранит актуальное состояние).
   • Измерения:
     • ПарковочноеМесто (Тип: СправочникСсылка.ПарковочныеМеста). Это ключевое измерение, по которому мы будем отслеживать состояние каждого места.
   • Ресурсы:
     • Занято (Тип: Булево). Это ресурс, который будет показывать, занято место (Истина) или свободно (Ложь). Если запись для места есть, значит оно занято. Или, более гибко, запись в регистре *означает*, что место занято. Если записи нет, место свободно.
     • Автомобиль (Тип: СправочникСсылка.Автомобили, если мы используем справочник автомобилей). Этот ресурс будет хранить ссылку на автомобиль, который занял место.

Теперь рассмотрим логику работы с этими объектами:

Для определения свободных мест мы можем использовать запрос к регистру сведений. Свободными считаются те места из справочника "ПарковочныеМеста", для которых нет записей в регистре сведений "ЗанятостьПарковочныхМест".

Пример кода для въезда (поиск свободного места и его занятие)

// В модуле формы или обработке

// Процедура обработки въезда
Процедура КнопкаВъездНажатие(Элемент)
    // 1. Определим количество свободных мест
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    ПарковочныеМеста.Ссылка КАК ПарковочноеМесто
        |ИЗ
        |    Справочник.ПарковочныеМеста КАК ПарковочныеМеста
        |ГДЕ
        |    НЕ ПарковочныеМеста.Ссылка В
        |            (ВЫБРАТЬ
        |                ЗанятостьПарковочныхМест.ПарковочноеМесто
        |            ИЗ
        |                РегистрСведений.ЗанятостьПарковочныхМест КАК ЗанятостьПарковочныхМест)";
    
    РезультатЗапроса = Запрос.Выполнить();
    Если РезультатЗапроса.Пустой() Тогда
        Сообщить("Все места заняты! Въезд невозможен.");
        Возврат;
    КонецЕсли;

    Выборка = РезультатЗапроса.Выбрать();
    Выборка.Следующий();
    
    // 2. Выбираем первое свободное место
    СвободноеМесто = Выборка.ПарковочноеМесто;

    // Опционально: если нужно выбрать конкретный автомобиль
    // Автомобиль = ПолучитьВыбранныйАвтомобиль(); 
    // Если Автомобиль = Неопределено Тогда Возврат; КонецЕсли;

    Попытка
        // 3. Записываем информацию о занятии места в регистр сведений
        МенеджерЗаписи = РегистрыСведений.ЗанятостьПарковочныхМест.СоздатьМенеджерЗаписи();
        МенеджерЗаписи.ПарковочноеМесто = СвободноеМесто;
        // Если используем ресурс Автомобиль:
        // МенеджерЗаписи.Автомобиль = Автомобиль; 
        
        // ВАЖНО: для многопользовательского режима используем блокировку данных
        // Блокировка устанавливается на запись регистра, чтобы избежать одновременного занятия
        // одного и того же места.
        БлокировкаДанных = Новый БлокировкаДанных;
        ЭлементБлокировки = БлокировкаДанных.Добавить("РегистрСведений.ЗанятостьПарковочныхМест");
        ЭлементБлокировки.УстановитьЗначение("ПарковочноеМесто", СвободноеМесто);
        ЭлементБлокировки.РежимБлокировки = РежимБлокировкиДанных.Исключительный;
        
        БлокировкаДанных.Заблокировать(); // Пытаемся заблокировать
        
        // Проверяем, не занято ли место, пока мы его искали и блокировали
        Если МенеджерЗаписи.Прочитать() Тогда // Если запись уже существует, значит кто-то занял это место
             ОтключитьБлокировкуДанных(БлокировкаДанных); // Снимаем блокировку, если место уже занято
             Сообщить("Место " + СвободноеМесто.Наименование + " было только что занято другим пользователем. Попробуйте еще раз.");
             Возврат;
        КонецЕсли;
        
        МенеджерЗаписи.Записать(); // Записываем новую запись
        
        Сообщить("Машина въехала на " + СвободноеМесто.Наименование + ".");
        
    Исключение Как Исключение
        Сообщить("Ошибка при занятии места: " + Исключение.Описание);
        // Дополнительная логика обработки ошибок, например, попытка найти другое место
    КонецПопытки;
КонецПроцедуры

// Процедура для снятия блокировки данных (в случае ошибки)
Процедура ОтключитьБлокировкуДанных(Блокировка)
    Если Блокировка <> Неопределено И ТипЗнч(Блокировка) = Тип("БлокировкаДанных") Тогда
        Попытка
            Блокировка.Отключить();
        Исключение
            // Игнорируем ошибки при снятии блокировки
        КонецПопытки;
    КонецЕсли;
КонецПроцедуры

Пример кода для выезда (освобождение места)

// В модуле формы или обработке

// Процедура обработки выезда
Процедура КнопкаВыездНажатие(Элемент)
    // Здесь нам нужно определить, какое место освобождается.
    // Это может быть сделано через:
    // 1. Выбор места из списка занятых на форме.
    // 2. Ввод номера места пользователем.
    // 3. Сканирование штрих-кода/карты парковки.

    // Для примера, используем простой выбор из списка всех парковочных мест
    ФормаВыбора = Справочники.ПарковочныеМеста.ПолучитьФормуВыбора();
    ФормаВыбора.РежимВыбора = Истина;
    ВыбранноеМесто = ФормаВыбора.Выбрать();

    Если ВыбранноеМесто = Неопределено Тогда
        Сообщить("Выбор места отменен.");
        Возврат;
    КонецЕсли;

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

    Если МенеджерЗаписи.Прочитать() Тогда
        // 2. Если место занято, удаляем запись из регистра
        МенеджерЗаписи.Удалить();
        Сообщить("Машина выехала с " + ВыбранноеМесто.Наименование + ".");
    Иначе
        Сообщить("Место " + ВыбранноеМесто.Наименование + " не было занято.");
    КонецЕсли;
    
    ОтключитьБлокировкуДанных(БлокировкаДанных); // Снимаем блокировку
КонецПроцедуры

Преимущества и недостатки

Преимущества:

• Персистентность и детализация: Данные сохраняются, и мы точно знаем, какое место занято.
• Гибкость и масштабируемость: Легко расширять систему, добавляя новые реквизиты к местам, автомобилям, или к самой записи о занятости (например, время въезда).
• Корректное использование механизмов платформы: Регистры сведений идеально подходят для хранения таких актуальных состояний.
• Многопользовательский режим: С использованием механизмов управляемых блокировок 1С, система будет корректно работать при одновременном доступе нескольких пользователей.

Недостатки:

• Сложнее в реализации: Требует большего количества объектов конфигурации и более сложной логики по сравнению с предыдущими подходами.

Этот подход — стандарт де-факто для решения подобных задач в 1С. Мы настоятельно рекомендуем его для любых реальных систем.

Подход 5: Использование Документов для фиксации событий "Въезд" и "Выезд"

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

Реализация

1. Создаем справочники "ПарковочныеМеста" и "Автомобили": (Как в Подходе 4).
2. Создаем регистр сведений "ЗанятостьПарковочныхМест": (Как в Подходе 4). Этот регистр будет накапливать актуальные данные о занятости.
3. Создаем документ "ВъездНаПарковку":
   • Реквизиты: ДатаВремяВъезда (Тип: Дата), ПарковочноеМесто (Тип: СправочникСсылка.ПарковочныеМеста), Автомобиль (Тип: СправочникСсылка.Автомобили).
   • Движения: Включите возможность создания движений по регистру сведений "ЗанятостьПарковочныхМест".
4. Создаем документ "ВыездСПарковки":
   • Реквизиты: ДатаВремяВыезда (Тип: Дата), ПарковочноеМесто (Тип: СправочникСсылка.ПарковочныеМеста), Автомобиль (Тип: СправочникСсылка.Автомобили).
   • Движения: Включите возможность создания движений по регистру сведений "ЗанятостьПарковочныхМест".

Рассмотрим логику проведения документов.

Пример кода в модуле объекта документа "ВъездНаПарковку" (при проведении)

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    // Проверяем, свободно ли выбранное место
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ ПЕРВЫЕ 1
        |    ЗанятостьПарковочныхМест.ПарковочноеМесто
        |ИЗ
        |    РегистрСведений.ЗанятостьПарковочныхМест КАК ЗанятостьПарковочныхМест
        |ГДЕ
        |    ЗанятостьПарковочныхМест.ПарковочноеМесто = &ПарковочноеМесто";
    Запрос.УстановитьПараметр("ПарковочноеМесто", ПарковочноеМесто);
    
    Если Не Запрос.Выполнить().Пустой() Тогда
        Сообщить("Место " + ПарковочноеМесто.Наименование + " уже занято.", СтатусСообщения.Важное);
        Отказ = Истина;
        Возврат;
    КонецЕсли;
    
    // Проверяем общее количество свободных мест, если требуется
    ЗапросКолвоЗанятых = Новый Запрос;
    ЗапросКолвоЗанятых.Текст = 
        "ВЫБРАТЬ
        |    КОЛИЧЕСТВО(ЗанятостьПарковочныхМест.ПарковочноеМесто) КАК ЗанятыхМест
        |ИЗ
        |    РегистрСведений.ЗанятостьПарковочныхМест КАК ЗанятостьПарковочныхМест";
    
    ЗанятыхМест = ЗапросКолвоЗанятых.Выполнить().Выбрать().Получить(0).ЗанятыхМест;
    МаксимальноеКоличествоМест = 10; // Можно вынести в константу
    
    Если ЗанятыхМест >= МаксимальноеКоличествоМест Тогда
        Сообщить("Всего мест на парковке: " + МаксимальноеКоличествоМест + ". Все места заняты. Въезд невозможен.", СтатусСообщения.Важное);
        Отказ = Истина;
        Возврат;
    КонецЕсли;

    // Создаем движение по регистру сведений
    Движения.ЗанятостьПарковочныхМест.Записать = Истина;
    ЗаписьРегистра = Движения.ЗанятостьПарковочныхМест.Добавить();
    ЗаписьРегистра.ПарковочноеМесто = ПарковочноеМесто;
    ЗаписьРегистра.Автомобиль = Автомобиль;
    // ЗаписьРегистра.Занято = Истина; // Если ресурс 'Занято' - булево
    
    // В случае возникновения конфликтной ситуации при проведении двух документов
    // на одно и то же место, платформа 1С автоматически обработает транзакционные блокировки.
    // Если документ не сможет записать движения, он будет откачен.
КонецПроцедуры

Пример кода в модуле объекта документа "ВыездСПарковки" (при проведении)

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    // Проверяем, занято ли выбранное место
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ ПЕРВЫЕ 1
        |    ЗанятостьПарковочныхМест.ПарковочноеМесто
        |ИЗ
        |    РегистрСведений.ЗанятостьПарковочныхМест КАК ЗанятостьПарковочныхМест
        |ГДЕ
        |    ЗанятостьПарковочныхМест.ПарковочноеМесто = &ПарковочноеМесто";
    Запрос.УстановитьПараметр("ПарковочноеМесто", ПарковочноеМесто);
    
    Если Запрос.Выполнить().Пустой() Тогда
        Сообщить("Место " + ПарковочноеМесто.Наименование + " не занято. Выезд невозможен.", СтатусСообщения.Важное);
        Отказ = Истина;
        Возврат;
    КонецЕсли;

    // Удаляем запись из регистра сведений
    Движения.ЗанятостьПарковочныхМест.Записать = Истина;
    Движения.ЗанятостьПарковочныхМест.Очистить(); // Удаляем все движения по регистру для данного документа

    // Создаем "отрицательное" движение для удаления текущей записи,
    // или более просто: записываем документ, который просто удалит запись по месту
    // Если регистр непериодический и хранит только актуальное состояние, то:
    МенеджерЗаписи = РегистрыСведений.ЗанятостьПарковочныхМест.СоздатьМенеджерЗаписи();
    МенеджерЗаписи.ПарковочноеМесто = ПарковочноеМесто;
    МенеджерЗаписи.Удалить(); // Удаляем запись о занятости для данного места
КонецПроцедуры

Преимущества и недостатки

Преимущества:

• Полная история: Все въезды и выезды фиксируются документами, что позволяет просмотреть хронологию событий.
• Транзакционность: Проведение документов гарантирует целостность данных. Либо весь документ проводится успешно, либо полностью откатывается.
• Возможность корректировки: Документы можно отменять проведение или редактировать для исправления ошибок.
• Отчетность: На основе документов и регистра сведений легко строить разнообразные отчеты о загрузке парковки.

Недостатки:

• Наиболее сложная реализация: Требует создания нескольких объектов конфигурации и внимательной работы с логикой проведения.
• Избыточность для простейших задач: Если нужна только текущая цифра свободных мест без истории, этот подход может быть излишним.

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

Заключение

Мы с вами рассмотрели несколько способов реализации счетчика свободных мест на парковке в 1С:Предприятии, начиная от простейшего варианта с переменными в памяти и заканчивая полноценной системой с использованием документов и регистров сведений. Каждый из этих подходов имеет свои преимущества и недостатки, и выбор оптимального зависит от конкретных требований к вашей системе.

1. Для быстрой демонстрации без сохранения данных подойдет счетчик на переменных формы.
2. Если нужны сохраняемые общие данные без детализации, используйте Константу.
3. Оригинальный подход с Справочником и Заблокировать() может быть интересен для лабораторных работ, но имеет ограничения для промышленного использования.
4. Наиболее рекомендуемым и архитектурно правильным решением для отслеживания текущего состояния с детализацией является связка Справочник + Регистр сведений.
5. Для полноценной системы с историей операций и высокой надежностью используйте Документы, которые будут формировать движения по Регистру сведений.

Выбирая подходящий вариант, всегда руководствуйтесь не только текущими требованиями, но и потенциальной масштабируемостью и удобством поддержки вашей системы в будущем.