Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.
ru:technical_manual:work_via_ole:script_work_via_ole [2022/11/29 14:40] korennoi [Пример создания оргединицы и работа с ней] |
ru:technical_manual:work_via_ole:script_work_via_ole [2023/03/16 12:20] (текущий) |
||
---|---|---|---|
Строка 179: | Строка 179: | ||
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | 'Инициализации клиентского приложения, в качестве параметров передаются имя сервера, название базы, версия продукта | + | 'Инициализации клиентского приложения, в качестве параметров передаются имя сервера, название базы, версия продукта |
Set Client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") | Set Client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") | ||
Строка 193: | Строка 193: | ||
Set НовыйСубъект = oleapp.СоздатьОбъект(ВыбранныйСубъект) | Set НовыйСубъект = oleapp.СоздатьОбъект(ВыбранныйСубъект) | ||
- | ' Параметры "Название" и "ТипСубъекта" являются обязательными для субъектов | + | 'Параметры "Название" и "ТипСубъекта" являются обязательными для субъектов |
НовыйСубъект.Название = "НазваниеНовогоСубъекта" | НовыйСубъект.Название = "НазваниеНовогоСубъекта" | ||
Строка 269: | Строка 269: | ||
Set Элемент = Объекты.Item(0) 'Или так: Set Элемент = Объекты.ПолучитьЭлемент(0) | Set Элемент = Объекты.Item(0) 'Или так: Set Элемент = Объекты.ПолучитьЭлемент(0) | ||
- | ' Класс содержит стандартный параметр "Название" | + | 'Класс содержит стандартный параметр "Название" |
'Парам1 = Элемент.Название - так можно только для системых параметров | 'Парам1 = Элемент.Название - так можно только для системых параметров | ||
Строка 277: | Строка 277: | ||
'Или так: Парам1 = Элемент.Параметры.ПолучитьЭлемент("Название").Значение | 'Или так: Парам1 = Элемент.Параметры.ПолучитьЭлемент("Название").Значение | ||
- | ' Класс содержит пользовательский параметр "usr_полеКласса" простого типа (вещественный) | + | 'Класс содержит пользовательский параметр "usr_полеКласса" простого типа (вещественный) |
Парам2 = Элемент.Параметры.Item("usr_полеКласса").Значение | Парам2 = Элемент.Параметры.Item("usr_полеКласса").Значение | ||
Строка 283: | Строка 283: | ||
'Или так: Парам2 = Элемент.Параметры.ПолучитьЭлемент("usr_полеКласса").Значение | 'Или так: Парам2 = Элемент.Параметры.ПолучитьЭлемент("usr_полеКласса").Значение | ||
- | ' Класс содержит параметр - список "usr_полеСпск" - для списка используем Set | + | 'Класс содержит параметр - список "usr_полеСпск" - для списка используем Set |
Set Парам3 = Элемент.Параметры.Item("usr_полеСпск").Значение | Set Парам3 = Элемент.Параметры.Item("usr_полеСпск").Значение | ||
Строка 289: | Строка 289: | ||
'Или так: Set Парам3 = Элемент.Параметры.ПолучитьЭлемент("usr_полеСпск").Значение | 'Или так: Set Парам3 = Элемент.Параметры.ПолучитьЭлемент("usr_полеСпск").Значение | ||
- | ' Элементы списка объектного типа, чтобы получить элемент используем Set | + | 'Элементы списка объектного типа, чтобы получить элемент используем Set |
Set ЭлСписка = Парам3.Item(0) | Set ЭлСписка = Парам3.Item(0) | ||
- | ' Элемент списка содержит параметр "usr_поле1" простого типа (строка) | + | 'Элемент списка содержит параметр "usr_поле1" простого типа (строка) |
ПЭС1 = ЭлСписка.Параметры.Item("usr_поле1").Значение | ПЭС1 = ЭлСписка.Параметры.Item("usr_поле1").Значение | ||
Строка 382: | Строка 382: | ||
Sub ВыводПотомковПапок() | Sub ВыводПотомковПапок() | ||
- | ' Получение объекта приложения | + | 'Получение объекта приложения |
Set oleapp = CreateObject("ByteEnterprise.OleApplication") | Set oleapp = CreateObject("ByteEnterprise.OleApplication") | ||
- | ' Инициализации приложения, в качестве параметров передаются имя сервера, название базы, версия продукта | + | 'Инициализации приложения, в качестве параметров передаются имя сервера, название базы, версия продукта |
Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы") | ||
- | ' Получаем только папки в корне | + | 'Получаем только папки в корне |
Set Корень = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.НаправленияДеятельности") | Set Корень = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.НаправленияДеятельности") | ||
Строка 416: | Строка 416: | ||
For Счётчик2 = 1 to Потомки | For Счётчик2 = 1 to Потомки | ||
- | ' И выводим на экран | + | 'И выводим на экран |
Set Потомок = Потомки.ПолучитьЭлемент(Счётчик) | Set Потомок = Потомки.ПолучитьЭлемент(Счётчик) | ||
Строка 458: | Строка 458: | ||
+ | |||
+ | |||
+ | |||
+ | {(rater>id=ru_technical_manual_work_via_ole_script_work_via_ole|name=Сценарии работы с Business Studio через OLE|type=vote|trace=ip|headline=off)} |