gifts2017

Добавление ссылок на объекты в поле html-документа перетаскиванием (drag&drop)

Опубликовал djvu (djvu) в раздел Программирование - Работа с интерфейсом

Добавление ссылок на объекты в поле html-документов перетаскиванием из различных форм мышью.
Не используются никакие объекты, кроме тех, которые предоставляет сама платформа.

Данная обработка по своей сути - "рыба", которую можно применять в различных целях. Не требовательна к типу конфигурации. Основной ее смысл - получить на выходе форматированный текст со ссылками на объекты базы данных.
Это может быть удобно при рассылке уведомлений, где можно сослаться конкретно на проблемный документ или создать доску объявлений где давать ссылку на подробности объявления реализованные в объектах баз данных.
Обработка не использует никаких навесных компонентов, а в качестве ловушки объектов, перетягиваемых на поле html-документа используется табличное поле, реализующее обработчик события "ПроверкаПеретаскивания, DragCheck".

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

По мотивам:

http://www.obrabotki.com/1s-create-html-2/

Скачать файлы

Наименование Файл Версия Размер
Обработка с реализованным drag&drop для поля html-документа 66
.epf 8,20Kb
27.02.13
66
.epf 8,20Kb Скачать
Видео - пример работы обработки 8
.avi 1,80Mb
27.02.13
8
.avi 1,80Mb Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Автоматизация Производства (dimanich70) 10.12.11 21:19
За идею плюсую. Как использовать пока не знаю.
1. В типовой УПП свойство РазрешитьНачалоПеретаскивания отключено у списков основных, может и всех документов.
2. Мышка на ссылку не наводится.
3. Добавь хоть что-нибудь на кнопку Выполнить.
2. djvu (djvu) 10.12.11 23:10
Собственно "вымученную" за день идею и вывалил :).
1. К сожалению, согласно политике сайта, нельзя добавить видео так, чтобы его можно было скачать без потери "денег". Моя реализация - ссылки на проблемные элементы, такая себе - доска объявлений и запросов. Как вариант - протокол ошибок с прямыми ссылками на "проблемные" элементы базы данных.
2. Почему вывалил? Метод - "drop", штатно, системой не реализован, да боюсь - он и не поможет, потому как, единственный подходящий объект, с помощью которого можно бы было получить нужную ссылку ("pEvtObj.dataTransfer"),
передает уже текстовый результат, где присутствует только наименование объекта, но он ничего не говорит о типе объекта и его конкретном экземпляре.
3. "... В типовой УПП свойство РазрешитьНачалоПеретаскивания отключено у списков основных...", да, это факт с которым бороться можно только, или "тупым" перебором штатных форм, включая в нужных это свойство (но, это все равно менее затратно, чем искать открытые формы, создавать буферные списки и т.д.) или присмотреться к Enterprise Integrator, http://infostart.ru/public/14635/ , который, возможно, сможет упростить процедуру "включения" "РазрешитьНачалоПеретаскивания" у нужных форм, я к нему подробно не присматривался, поэтому, ничего конкретного сказать не могу.
4. Я присматриваюсь к системе уведомлений, которая была реализована в "1С:PDM", как раз, для формирования обратных связей между пользователями, именно там мне всегда не хватало прямых ссылок на проблемные документы и элементы справочников. Т.е. конечно коды документов и элементов можно "вписать" в текст, но это требует кучу дополнительного времени для адресата, чтобы пройти в меню, найти номер, открыть документ (справочник/регистр), а так все эти три действия плавно превращаются в одно.
5. Ну и наконец, дальнейшее развитие, тем, кто заинтересован, чтобы не перекачивать обработку, в обработчике "onselectstart" я, код заменил на такой:

	
Если pEvtObj.dataTransfer <> Неопределено Тогда
	
		тек_ТекстДокумента = ЭлементыФормы.ПолеHTMLДокументаОбъявление.ПолучитьТекст();
		тек_текст_замена = pEvtObj.dataTransfer.getdata("TEXT");
		
		Если тек_Ссылка = Неопределено Тогда
			Сообщить("Не удалось сгенерировать ссылку");
		        ЭлементыФормы.ПолеHTMLДокументаОбъявление.УстановитьТекст(СтрЗаменить(тек_ТекстДокумента, тек_текст_замена, ""));
		Иначе		
		    ЭлементыФормы.ПолеHTMLДокументаОбъявление.УстановитьТекст(СтрЗаменить(тек_ТекстДокумента, тек_текст_замена, ""+тек_текст_замена+" "));
		КонецЕсли;
		
	КонецЕсли;
	
	тек_Ссылка = Неопределено;
...Показать Скрыть


6. Как закончу, вывалю подсистему объявлений для УПП, которая реализована с вариантом применения этой обработки.
3. Владимир Чаклин (vec435) 14.12.11 09:52
сам создавал ХТМЛ-ссылки на объекты но не перетаскиванием
4. sound sound (sound) 14.12.11 17:52
У меня тоже есть примерно аналогичная тема http://infostart.ru/public/78388/, не сочтите за рекламу, но когда это писал тоже думал как лучше сделать, но потом решил формировать html ручками.
5. Сергей Старых (tormozit) 23.12.11 20:02
Я сделал перетаскивание в нашей системе прямо в поле Html документа через динамическое подключение обработчиков событий. Значение передаю в виде глобальной переменной.
6. crawn crawn (crawn) 20.01.12 10:07
в 8.2 ваще можно как в 8.1 редактировать поле HTML документа?
7. djvu (djvu) 26.01.12 09:42
crawn
Собственно под 8.2 обработка и работает. Но если речь идет об управляемых формах - ничего не могу сказать, т.к. с ними не работал.
8. Владимир Гусев (adhocprog) 07.09.12 15:04
9. Сергей Старых (tormozit) 02.10.15 10:03
(5) Подключал обработчики так
documentElement = Элемент.Документ.documentElement;
ДобавитьОбработчик documentElement .ondragstart, Обработчик1;
ДобавитьОбработчик documentElement .ondragend, Обработчик2;
ДобавитьОбработчик documentElement .ondrop, Обработчик3;

Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа