Различия

Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.

--- ru:technical_manual:work_via_ole:metaclass [2021/04/20 02:25]
127.0.0.1 внешнее изменение
+++ ru:technical_manual:work_via_ole:metaclass [2023/03/16 12:20] (текущий)
@@ Строка 24: / Строка 24: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 76: / Строка 76: @@
+End Sub
+</code>
+===== Свойство Группа =====
+**Свойство**: OLE_Группа
+**Тип параметра**: object (соответствует типу параметра в Объектной модели).
+Свойство позволяет переместить объект в другую папку.
+**Пример кода**.
+__Задача__: перенести заданный фильтр из папки "Фильтры правил получения объектов" в папку "Пользовательские фильтры".
+<code>
+Sub ПримерOLE_РаботаСОбъектами()
+'Получение объекта приложения
+    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
+'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
+'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
+    Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
+'В панели задач появится приложение
+    oleapp.ПоказатьКлиентскоеПриложение
+'Обращаемся к фильтру с заданным названием
+    ИмяФильтра = "Оргединицы"
+    Set СписокФильтров = oleapp.ПолучитьОбъекты("База.ХранимыеФильтры", "Название", ИмяФильтра)
+    Set МойФильтр = СписокФильтров.ПолучитьЭлемент(0)
+'Указываем папку, в которую будем перемещать объект
+    Set СписокПапкаФильтр = oleapp.ПолучитьОбъекты("База.ХранимыеФильтры", "Название", "Пользовательские фильтры")
+    Set ПапкаНужная = СписокПапкаФильтр.ПолучитьЭлемент(0)
+'Переносим требуемый объект в нужную папку
+   МойФильтр.OLE_Группа = ПапкаНужная
+   МойФильтр.Сохранить
 End Sub
 </code>
@@ Строка 103: / Строка 167: @@
 **Пример кода**.
-__Задача__: вывести сообщение, показывающее количество должностей в бизнес-модели.
+__Задача__: вывести сообщение, показывающее количество должностей в модели бизнес-архитектуры.
 <code>
@@ Строка 112: / Строка 176: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и с базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 210: / Строка 274: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 258: / Строка 322: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 306: / Строка 370: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 354: / Строка 418: @@
+{(rater>id=ru_technical_manual_work_via_ole_metaclass|name=Класс "Система.МетаКласс"|type=vote|trace=ip|headline=off)}