Различия

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

--- ru:technical_manual:work_via_ole:metaclass [2018/02/05 14:48]
+++ 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>
@@ Строка 97: / Строка 161: @@
 Создает Фильтр по объекту-группе.
-== Внимание! ==
+== ==
-Рекомендуется использовать для корневых групп класса (ОПУ).
+**Внимание!** Рекомендуется использовать для корневых групп класса.
 ===== =====
 \\
 **Пример кода**.
-__Задача__: вывести сообщение, показывающее количество должностей в бизнес-модели.
+__Задача__: вывести сообщение, показывающее количество должностей в модели бизнес-архитектуры.
 <code>
@@ Строка 112: / Строка 176: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и с базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 124: / Строка 188: @@
-'Дальнейшая работа будет с Субъектами
+'Дальнейшая работа будет с Оргединицами
 Set ВсеСубъекты = 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.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 270: / Строка 334: @@
-   'Определяем субъект для удаления
+   'Определяем оргединицу для удаления
    GuidСубъекта = "6b5a65bd-b0b3-4395-997d-e317472eb116" 'Соответствует "Заместитель директора по качеству" в демо-базе
@@ Строка 280: / Строка 344: @@
-   'Удаляем субъект
+   'Удаляем оргединицу
    СубъектЗамДирКачество.УдалитьСОчисткойСсылок
@@ Строка 306: / Строка 370: @@
    Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-   'Запустить Business Studio в редакции и базой на сервере, указанными ранее.
+   'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных.
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
    'В панели задач появится приложение
@@ Строка 318: / Строка 382: @@
-   'Определяем субъект для переназначения ссылок
+   'Определяем орединицу для переназначения ссылок
    GuidСубъекта1 = "23e3bc1b-1b6b-46b6-80c1-3508d9d06b6f" 'Соответствует 'Юрист" в демо-базе
@@ Строка 328: / Строка 392: @@
-   'Определяем субъект для удаления
+   'Определяем оргединицу для удаления
    GuidСубъекта2 = "6b5a65bd-b0b3-4395-997d-e317472eb116" 'Соответствует "Заместитель директора по качеству" в демо-базе
@@ Строка 338: / Строка 402: @@
-   'Удаляем субъект и переназначаем ссылки
+   'Удаляем оргединицу и переназначаем ссылки
    СубъектЗамДирКачество.УдалитьСЗаменойСсылок (СубъектЮрист)
@@ Строка 354: / Строка 418: @@
+{(rater>id=ru_technical_manual_work_via_ole_metaclass|name=Класс "Система.МетаКласс"|type=vote|trace=ip|headline=off)}