Скрипт Захватить/поместить объект в хранилище

Добавил: bolsun, 15 января 2019 12:41, обновлено: 15 января 2019 13:14

Раздел: Обсуждение TurboConf

TurboConf SDK Скрипты OneScript Помощь

Скачать

Скрипт добавляет возможность захватить или поместить текущий объект в хранилище, с помощью горячих клавиш.

В TurboConf 5.6 появилась возможность найти и кликнуть по нужному элементу. Эту функцию использует и демонстрирует новый скрипт “Захватить/поместить объект в хранилище”.

При нажатии Ctrl+Alt+L скрипт захватывает текущий объект, а по Ctrl+Alt+G открывает окно помещения объекта в хранилище и устанавливает флаг “Выполнять рекурсивно”.


Image https://turboconf.ru/Content/Files/31C694EEA2260A37464FB9F25FA7B436FB000A06/TurboConf56_LockUnlockStorage.png

Исходный код скрипта

//@script_name LockUnlockStorageObject
//@script_display_name Захватить/поместить объект в хранилище
//@script_description Скрипт захватывает или помещает в хранилище текущий объект
//@script_developer_url https://turboconf.ru
//@script_hotkey Control+Alt+L ЗахватитьОбъектВХранилище Захватить объект в хранилище
//@script_hotkey Control+Alt+G ПоместитьОбъектВХранилище Поместить объект в хранилище
//@retain_clipboard 0
//@enterprise_mode 0
//@hide_actions 0
//@turbomenu 1
//@turbobutton 1

Перем ТурбоКонф;

Процедура ЗахватитьОбъектВХранилище()
	
	Результат = ТурбоКонф.КликнутьПоЭлементу("Захватить в хранилище...", "элемент меню", 0, Ложь);
	
	ТурбоКонф.КонтролКлавиша(Keys.Enter);
	
КонецПроцедуры

Процедура ПоместитьОбъектВХранилище()
	
	Результат = ТурбоКонф.КликнутьПоЭлементу("Поместить в хранилище...", "элемент меню", 0, Ложь);
	
	Попытка
		ТурбоКонф.ЖдатьОкно("Помещение объектов в хранилище конфигурации", 500, Истина);	
		
		ТурбоКонф.Ждать(100);
		
		Результат = ТурбоКонф.КликнутьПоЭлементу("Выполнять рекурсивно", "флажок", 0, Ложь);
		
		ТурбоКонф.Ждать(100);
		
		ТурбоКонф.ШифтКлавиша(Keys.Tab, 2); //Возвращаемся в исходную позицию, чтобы правильно отработал автоматический скрипт "Комментарий при коммите"
	Исключение
		ТурбоКонф.ПоказатьУведомление("Не удалось дождаться окна помещения в хранилище.");
	КонецПопытки;
	
	//ТурбоКонф.КонтролКлавиша(Keys.Enter); Окно лучше не закрывать, т.к. не сможет сработать скрипт "Комментарий при коммите"
	
КонецПроцедуры

ТурбоКонф = Новый ТурбоКонф;

//Переходим к текущему объекту в дереве конфигурации
ТурбоКонф.КонтролКлавиша(Keys.T);

//Вызываем контекстное меню
ТурбоКонф.КонтролШифтКлавиша(Keys.F10);

ТурбоКонф.Ждать(200);

Файл

Сайт разработчика: https://turboconf.ru

Страница разработки в соцсетях: https://vk.com/turboconf


Скачать К списку тем

Комментарии

TurboConf

Расширение возможностей

Конфигуратора 1С

Скачать

Бесплатный пробный период 14 дней