Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.
ru:technical_manual:work_via_ole:metaclass [2022/06/14 15:44] 127.0.0.1 внешнее изменение |
ru:technical_manual:work_via_ole:metaclass [2023/03/16 12:20] (текущий) |
||
---|---|---|---|
Строка 24: | Строка 24: | ||
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | 'Запустить Business Studio в редакции и базой на сервере, указанными ранее. | + | 'Запустить 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 | End Sub | ||
</code> | </code> | ||
Строка 112: | Строка 176: | ||
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | 'Запустить Business Studio в редакции и с базой на сервере, указанными ранее. | + | 'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных. |
'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | 'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | ||
- | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") | + | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") |
'В панели задач появится приложение | 'В панели задач появится приложение | ||
Строка 210: | Строка 274: | ||
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | 'Запустить Business Studio в редакции и базой на сервере, указанными ранее. | + | 'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных. |
'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | 'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | ||
- | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") | + | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") |
'В панели задач появится приложение | 'В панели задач появится приложение | ||
Строка 258: | Строка 322: | ||
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | 'Запустить Business Studio в редакции и базой на сервере, указанными ранее. | + | 'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных. |
'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | 'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | ||
- | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") | + | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") |
'В панели задач появится приложение | 'В панели задач появится приложение | ||
Строка 306: | Строка 370: | ||
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | 'Запустить Business Studio в редакции и базой на сервере, указанными ранее. | + | 'Запустить Business Studio в указанной редакции с указанной базой и сервером баз данных. |
'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | 'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | ||
- | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") | + | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") |
'В панели задач появится приложение | 'В панели задач появится приложение | ||
Строка 352: | Строка 416: | ||
[<contextnavigator>] | [<contextnavigator>] | ||
- | |||
- | |||
- | |||
- | + | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
- | {(rater>id=ru_technical_manual_work_via_ole_metaclass|name=Класс "Система.МетаКласс"|type=vote|trace=ip|img=:taggic.png|headline=off)} | + | {(rater>id=ru_technical_manual_work_via_ole_metaclass|name=Класс "Система.МетаКласс"|type=vote|trace=ip|headline=off)} |