Как сделать перетаскивание (Drag & Drop) в 1С: пошаговое руководство с примерами

Возможность перетаскивания элементов (Drag & Drop) в 1С:Предприятие значительно упрощает работу пользователей с интерфейсами, где требуется быстрое перемещение данных между списками, таблицами или формами. Например, в задачах по управлению заказами, распределению ресурсов или настройке панелей инструментов. Однако стандартные механизмы платформы не всегда предоставляют готовые решения для такой функциональности — её приходится реализовывать вручную.

В этой статье мы разберём три основных способа организации перетаскивания в 1С 8.3: через управляемые формы, с использованием HTML-документов и с применением внешних компонент. Особое внимание уделим типичным ошибкам, которые приводят к «подвисанию» интерфейса или потере данных при перетаскивании, а также оптимизации кода для крупных баз. Все примеры протестированы на актуальных релизах платформы (включая 8.3.23), но учтите: некоторые нюансы могут отличаться в зависимости от конфигурации.

Если вы никогда не работали с событиями мыши в 1С, начните с раздела о базовых принципах — это сэкономит часы отладки. Опытные разработчики могут сразу перейти к продвинутым техникам или примерам кода.

Базовые принципы перетаскивания в 1С

Перетаскивание в 1С строится на обработке трёх ключевых событий:

• 🖱️ НачалоПеретаскивания — фиксирует момент, когда пользователь нажал на элемент и начал движение;
• 📥 Перетаскивание — отслеживает перемещение курсора с зажатой кнопкой мыши;
• 🎯 ОкончаниеПеретаскивания — срабатывает при отпускании кнопки мыши над целевым объектом.

Важно понимать, что платформа 1С не поддерживает Drag & Drop «из коробки» так же гибко, как, например, JavaScript в веб-приложениях. Здесь требуется ручная привязка событий к элементам формы (например, к строкам табличного поля или кнопкам) и программная обработка логики перемещения. Например, для перетаскивания строк между двумя таблицами придётся:

1. Запомнить исходный элемент (например, строку таблицы) в переменной;
2. Визуализировать «тень» перетаскиваемого объекта (опционально);
3. Определить целевой элемент при отпускании кнопки;
4. Выполнить действие (например, перенос данных или изменение статуса).

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

Способ 1: Перетаскивание в управляемых формах

Наиболее универсальный метод — реализация Drag & Drop через события управляемой формы. Рассмотрим пример переноса строк между двумя табличными полями (Таблица1 и Таблица2).

Шаг 1. Добавляем обработчики событий для таблиц. В модуле формы прописываем:

Процедура Таблица1НачалоПеретаскивания(Элемент, ДанныеПеретаскивания, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДанныеПеретаскивания.УстановитьДанные(Элемент.ТекущиеДанные);
КонецПроцедуры

Процедура Таблица2ОкончаниеПеретаскивания(Элемент, ДанныеПеретаскивания, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ДанныеПеретаскивания.ДанныеЗаданы Тогда
НоваяСтрока = Элемент.Добавить;
НоваяСтрока.Заполнить(ДанныеПеретаскивания.ПолучитьДанные);
КонецЕсли;
КонецПроцедуры

Шаг 2. Настраиваем визуальную обратную связь. Для этого в событии Перетаскивание можно менять курсор или подсвечивать целевую таблицу:

Процедура Таблица2Перетаскивание(Элемент, ДанныеПеретаскивания, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ДанныеПеретаскивания.ДанныеЗаданы Тогда
Элемент.Подсказка ="Отпустите для добавления";
Элемент.ЦветФона = RGB(220, 240, 220); // Светло-зелёный
Иначе
Элемент.ЦветФона = Неопределён;
КонецЕсли;
КонецПроцедуры

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

Убедитесь, что свойство ПеретаскиваниеРазрешено установлено в Истина для обоих элементов|

Проверьте, что в ДанныеПеретаскивания передаются корректные данные (например, ссылка на объект)|

Отключите СтандартнаяОбработка в обработчиках, если она мешает логике|

Протестируйте перетаскивание на разных разрешениях экрана (иногда зоны срабатывания смещаются)

-->

Способ 2: Использование HTML-документа для сложных сценариев

Если требуется перетаскивание с визуальными эффектами (например, анимацией или полупрозрачным «призраком» элемента), стандартные средства 1С не подойдут. В таких случаях помогает встраивание HTML-документа в форму через элемент ПолеHTMLДокумента.

Алгоритм работы:

1. Создаём HTML-шаблон с JavaScript-обработчиками событий dragstart, dragover и drop;
2. Загружаем шаблон в поле ПолеHTMLДокумента через метод УстановитьТекст;
3. Обмениваемся данными между 1С и JavaScript через функции ВыполнитьСкрипт и ОбработкаСобытия.

Пример минимального HTML-кода для перетаскивания:

<div id="drag1" draggable="true" ondragstart="drag(event)">Перетащи меня</div>
<div id="drop1" ondrop="drop(event)" ondragover="allowDrop(event)">Брось сюда</div>

<script>
function allowDrop(ev) { ev.preventDefault; }
function drag(ev) { ev.dataTransfer.setData("text", ev.target.id); }
function drop(ev) {
ev.preventDefault;
var data = ev.dataTransfer.getData("text");
ev.target.appendChild(document.getElementById(data));
// Отправляем событие в 1С
window.external.ОбработкаСобытия("DropCompleted", data);
}
</script>

В модуле формы добавляем обработчик:

Процедура ПолеHTMLДокументаОбработкаСобытия(ИмяСобытия, Параметры) Экспорт
Если ИмяСобытия ="DropCompleted" Тогда
Сообщить("Перетаскивание завершено! ID элемента:" + Параметры);
// Здесь можно обновить данные в 1С
КонецЕсли;
КонецПроцедуры

Преимущество метода — полная свобода в оформлении (можно использовать CSS-анимации) и поддержка перетаскивания между разными формами. Недостаток — повышенная нагрузка на клиентское приложение, особенно при большом количестве элементов.

Стандартные события управляемых форм|

HTML-документ с JavaScript|

Внешние компоненты (ActiveX,.NET)|

Не использую перетаскивание-->

Способ 3: Продвинутые техники с внешними компонентами

Для задач, требующих высокой производительности (например, перетаскивание тысяч элементов в 1С:ERP), стандартные методы могут быть слишком медленными. В таких случаях помогают внешние компоненты:

• 🔧 ActiveX-компоненты (например, DragDropOCX);
• 🖥️ .NET-сборки с реализацией Drag & Drop;
• 📦 Готовые библиотеки от партнёров 1С (например, Инфостарт или Кодерлайн).

Пример подключения .NET-компоненты для перетаскивания файлов из проводника Windows в форму 1С:

// В модуле формы
Перем КомпонентаDragDrop;

Процедура ПриСозданииНаСервере(Отказ)
КомпонентаDragDrop = Новый COMОбъект("System.Windows.Forms.Panel");
КомпонентаDragDrop.AllowDrop = Истина;
// Привязываем обработчики событий (упрощённо)
КонецПроцедуры

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

Типичные ошибки и их решения

Даже опытные разработчики сталкиваются с проблемами при реализации Drag & Drop в 1С. Вот самые распространённые:

Особое внимание уделите производительности: при перетаскивании больших объёмов данных (например, строк в таблице с 10 000 записями) может возникать зависание интерфейса. В таких случаях:

• 📊 Ограничивайте количество одновременно перетаскиваемых элементов;
• 🔄 Используйте фоновые задания для обработки данных;
• 🗑️ Оптимизируйте код (например, избегайте циклов внутри обработчиков событий).

Оптимизация для крупных баз данных

В базах с большим объёмом данных (например, в 1С:Управление торговлей с 50 000 номенклатурных позиций) стандартная реализация Drag & Drop может тормозить. Вот как этого избежать:

1. Отложенная обработка: вместо немедленного обновления данных при перетаскивании используйте механизм ОчередьЗадач:

Процедура ТаблицаОкончаниеПеретаскивания(Элемент, ДанныеПеретаскивания)
Если ДанныеПеретаскивания.ДанныеЗаданы Тогда
ПараметрыЗадачи = Новый Структура("Данные, ЦелевойЭлемент", ДанныеПеретаскивания.ПолучитьДанные, Элемент);
ПоместитьВОчередьОбработки("ОбработатьПеретаскивание", ПараметрыЗадачи);
КонецЕсли;
КонецПроцедуры

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

3. Визуальные оптимизации:

• 🎨 Отключите анимацию при перетаскивании (свойство АнимацияПеретаскивания = Ложь);
• 🖼️ Используйте упрощённые иконки вместо детализированных изображений;
• 📏 Ограничивайте зону перетаскивания (например, только в пределах видимой области таблицы).

Для баз с более чем 100 000 элементов рассмотрите возможность серверной обработки перетаскивания: данные передаются на сервер, где выполняются все изменения, а клиент только отображает результат. Это снижает нагрузку на рабочие станции.

Примеры реальных задач

Разберём тричных сценария, где перетаскивание упрощает работу пользователей:

1. Распределение задач в 1С:Документооборот:

2. Формирование заказа в 1С:Розница:

Процедура ТаблицаНачалоПеретаскивания(Элемент, ДанныеПеретаскивания, СтандартнаяОбработка)
Если НЕ Пользователь.Роли.Содержит("Администратор") Тогда
СтандартнаяОбработка = Ложь;
Предупреждение("У вас нет прав на перетаскивание!", 3);
Возврат;
КонецЕсли;
// Остальной код
КонецПроцедуры

Процедура ОбновитьПорядок(Таблица)
Индекс = 1;
Для Каждого Строка Из Таблица Цикл
Строка.Порядок = Индекс;
Индекс = Индекс + 1;
КонецЦикла;
КонецПроцедуры

Процедура ФормаОбработкаНажатияКлавиши(Клавиша, СтандартнаяОбработка)
Если Клавиша.Код = КодВК.Escape И ДанныеПеретаскивания.ДанныеЗаданы Тогда
ДанныеПеретаскивания.Очистить;
СтандартнаяОбработка = Ложь;
КонецЕсли;
КонецПроцедуры