1С 8.3 Вставить объект в буфер обмена средствами 1С

Данные > Примеры кода 1С > 1С 8.3 Приложение, система, интерфейс

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

Платформа 1С 8.3 позволяет работать с буфером обмена с помощью внешней компоненты COMОбъект("HtmlFile").

Внимание! Структура базы приёмника и структура база источника должно быть 100% идентичной!

Вставить объект в буфер обмена с помощью внешней компоненты в 1С 8.3:

// Как скопировать см.: https://koder.by/skopirovat_obekt_iz_bufera_obmena_sredstvami_1s.php

&НаКлиенте
Процедура Вставить_объект_В_буфер_обмена(Команда)

COM_Объект = Новый COMОбъект("htmlfile");
Вставить_объект_НаСервере(COM_Объект.ParentWindow.ClipboardData.Getdata("Text"));

КонецПроцедуры

&НаСервере
Процедура Вставить_объект_Сервере(ТекСтрока)

   Новая_запись=Новый ЧтениеXML;
   Новая_запись.УстановитьСтроку(ТекСтрока);
   Новая_запись.Прочитать(); // элемент Root
   Новая_запись.Прочитать(); // элемент с документом

   Если ВозможностьЧтенияXML(Новая_запись) Тогда // получаем тип данных XML из Новая_запись
       СсылкаНаОбъект=ПрочитатьXML(Новая_запись);
       СсылкаНаОбъект.Ссылка.УникальныйИдентификатор();
       Пользователю = Новый СообщениеПользователю;
       Если СсылкаНаОбъект.Ссылка.Пустая() Тогда
           СсылкаНаОбъект.Записать();
           Пользователю.Текст = "Загружен "+СсылкаНаОбъект.Ссылка;
       Иначе
           СсылкаНаОбъект = СсылкаНаОбъект.Ссылка.ПолучитьОбъект();
           ЗаполнитьЗначенияСвойств(СсылкаНаОбъект, Новая_запись);
           Пользователю.Текст = "Изменен "+СсылкаНаОбъект.Ссылка;
       КонецЕсли;
       Пользователю.Сообщить();
   КонецЕсли;

   Новая_запись.Закрыть();

КонецПроцедуры

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник