Это старая версия документа.
Класс "Система.OleApplication"
Метод ЗапуститьКлиентскоеПриложение
Синтаксис: ЗапуститьКлиентскоеПриложение(string "<Сервер>", string "<База>", string "<Редакция>")
Возвращаемый результат: Система.КлиентскоеПриложение.Приложение (см. Класс "Система.КлиентскоеПриложение.Приложение").
Метод позволяет запустить клиентское приложение или получить уже запущенное. Используется для запуска элементов пользовательского интерфейса. В качестве параметров передаются три строки: имя сервера БД, название базы, редакция продукта - Enterprise, Professional, Cockpit. Версия продукта должна соответствовать имеющейся лицензии.
Замечание: в качестве имени сервера и/или базы данных могут быть переданы пустые строки. В этом случае при запуске появится стандартное окно выбора базы данных. При каждом запуске без параметров "<Сервер>" или "<База>" будет создан новый экземпляр приложения, который необходимо будет завершить явно, используя метод класса Система.OleApplication ЗавершитьПриложение().
Пример кода.
Задача: запустить приложение Business Studio.
Sub ПримерOLE_ЗапускПриложения() жения Set oleapp = CreateOта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") ем "ИмяБазы" на сервере\\ 'ИмяСервера.\\ 'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложе появится Business Studio. В панели
Метод ПолучитьКорневуюГруппуКласса
Синтаксис: ПолучитьКорневуюГруппуКласса(string "<ИмяКласса>")
Возвращаемый результат: Система.МетаКласс (см. Класс "Система.МетаКласс")
Метод возвращает корневую группу класса по имени класса.
Пример кода. См. метод "ОткрытьФайл" (Mетод ОткрытьФайл).
Метод ПолучитьОбъекты
Синтаксис: ПолучитьОбъекты(string "<ИмяКласса>", string "<ИмяПараметра>", object <ЗначениеПараметра>)
Возвращаемый результат: Система.Список (см. Класс "Система.Список").
Возвращает список объектов класса, указанный параметр которых равен заданному значению.
Пример кода. См. методы РедактироватьОбъект (Mетод РедактироватьОбъект) и СоздатьОбъект (Mетод СоздатьОбъект).
Метод ВыбратьОбъект
Синтаксис: ВыбратьОбъект(object <Объект>)
Возвращаемый результат: Система.МетаКласс (см. Класс "Система.МетаКласс").
Метод для выбора объекта с использованием окна выбора.
Пример кода. См. метод "ОткрытьФайл" (Mетод ОткрытьФайл).
Метод РедактироватьОбъект
Синтаксис: РедактироватьОбъект(object <Объект>)
Возвращаемый результат: не возвращает.
Метод для редактирования объекта с использованием окна редактирования. Окно редактирования при этом является модальным.
Пример кода.
Задача: открыть на редактирование окно свойств заданного показателя.
Sub ПримерOLE_РедактированиеОбъекта() o, с которыми будем работать СерверБД = "ИмяСервера" ми будем работать СерверБД = "ИмяСервера" База = "ИмяБазы" Редакция = "Enterprise" ть Business Studio в редакции та приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") ч приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеервере, указанными ранее. появится приложение 'Данное действие приводится для наглядности и не является обязаадач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(СерверБД, База, Версия) азателей = oleapp.ПолучитьОбъекты("Бится приложение е", НазваниеПоказателя) 'Если в списке полученных показателей всности и не является обязательным oleapp.ПоказатьКлиентскоеПриложение затель = СписокПоказателей.Item(0) 'И открытьлей с заданным названием НазваниеПоказателя = "Процент запасов, запланированных к выдаче" SetСписокПоказателей = oleapp.ПолучитьОбъекты("БизнесМодель.Показа
Метод ВыполнитьКоманду
Синтаксис: ВыполнитьКоманду(string "<Команда>", object <Аргументы>)
Возвращаемый результат: object (в зависимости от выполняемой команды)
Метод запускает команду на исполнение. Примеры команд см. Руководство пользователя, глава Командная строка. Если требуется выполнить команду, в которой нет аргументов, то на месте пустого аргумента следует вставлять значение с пустым значением - Null, Nothing или другие значения, предопределенные конкретным языком программирования.
Пример кода.
Задача: открыть окно объектной модели.
Sub ПримерOLE_ВыполнитьКоманду() жения Set oleapp = CreateOта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") ре, указанными ранее. 'В Диспетчере задач появится Business Studio. В паервере, указанными ранее. pp = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") 'В адач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") ы.ВыполнитьФорму", "База.ФормаОписанится приложение
Метод ВыбратьКласс
Синтаксис: ВыбратьКласс()
Возвращаемый результат: string
Метод для выбора класса с использованием окна выбора. Возвращает строкой системное название выбранного класса.
Пример кода.
Задача: открыть окно выбора справочников.
Sub ПримерOLE_ВыбратьКласс() риложения Set oleapp = Creта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") ервере, указанными ранее. 'В Диспетчере задач появится Business Studio. ервере, указанными ранее. nt_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") адач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise"
Метод СоздатьОбъект
Синтаксис: СоздатьОбъект(object <Группа>)
Возвращаемый результат: Система.МетаКласс (см. Класс "Система.МетаКласс").
Метод создает объект - потомок по иерархии в группе. Для добавления элементов в списках нужно использовать метод "Добавить" класса "Система.Список" (см. Mетод Добавить).
Структуры объекта (например, "Параметры должности", "Параметры подразделения", "Параметры СМК") создаются только вместе с объектом. Обращаться к ним надо через объект.
Пример кода.
Задача: в папке "Объекты деятельности\Документы\Бумажный документ\Документы СМК" создать документ и заполнить некоторые его свойства, в том числе и параметры СМК.
Sub ПримерOLE_СоздатьОбъект() иложения Set oleapp = Creaта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") рвере, указанными ранее. 'В Диспетчере задач появится Business Studio. Вервере, указанными ранее. t_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") адач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") соответствующий папке "Документы СМКится приложение oleapp.ПоказатьКлиентскоеПриложение 366191-6c0b-4e06-8ccf-ebe219dd2bfd") Set ПапкаНужная = СписокПарой будет создаваться объект документ в заданной папке Set НовБумДокумент = oleapp.СоздатьОбъект(ПапкаНужная) 'Заполняеетствующий папке "Документы СМК" в демо-базе Set СписокПапкаБумДока = oleapp.ПолучитьОбъекты("БизнесМодель.БумажныйДокумент", "guid", "fb366191-6c0b-4e06-8ccf-ebe219dd2bfd") Set ПапкаНужная = СписокПапкаБумДока.ПолучитьЭлемент(0) ипыДокумента", "Название", ТребуемыйТипДока) умент в заданной папке Set НовБумДокумент = oleapp.СоздатьОбъект(ПапкаНужная) et ПараметрыСМК = НовБумДокумент.ПараметрыСМК ента и его параметры НовБумДокумент.Название = "Документ через OLE" НовБумДокумент.КодДокумента = "OLE-1" НовБумДокумент.Комментарий = "Документ создан средствами OLE" раметрыСМК.НайтиПараметр("ДатаВведенияВДействиметр "Тип документа" ТребуемыйТипДока = "Запись" Set ТипыДоковСТребуемымТипом = _ oleapp.ПолучитьОбъекты("БизнесМодель.ТипыДокумента", "Назван
Метод СоздатьГруппу
Синтаксис: СоздатьГруппу(object <Группа>)
Возвращаемый результат: Система.МетаКласс (см. Класс "Система.МетаКласс")
Метод создает группу - потомок по иерархии в группе. Если объект является группой - он может содержать другие объекты ниже по иерархии.
Пример кода.
Задача: в бумажных документах создать группу (папку). Примечание: в других классах понятия "Папка" и "Группа" могут не совпадать.
Sub ПримерOLE_СоздатьГруппу() иложения Set oleapp = Creaта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") рвере, указанными ранее. 'В Диспетчере задач появится Business Studio. Вервере, указанными ранее. t_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") адач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") .БумажныйДокумент") 'Создать ится приложение oleapp.ПоказатьКлиентскоеПриложение м название папки НоваяГруппа.Название = "умажными документами Set БумДокументы = _ oleapp.ПолучитьКо
Метод ОткрытьФайл
Синтаксис: ОткрытьФайл(object <Объект>)
Возвращаемый результат: не возвращает.
Метод открытия файла закрепленного за объектом, если объект его содержит. В случае, если файла нет, то будет выдано соответствующее сообщение.
Пример кода.
Задача 1: открыть справочник бумажных документов и после выбора пользователем одного из документов открыть файл, закрепленный за ним.
Sub ПримерOLE_ОткрытьФайлСУчастиемПользователя() eapp = CreateObject("ByteEnterта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") анее. 'В Диспетчере задач появится Business Studio. В панели задач прилоервере, указанными ранее. ститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") 'В панели задач пояадач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") нт") 'Открываем окно выбора бится приложение oleapp.ПоказатьКлиентскоеПриложение открывает файл выбранного объекта 'или выдаес бумажными документами Set БумДокументы = _ olea
Задача 2: открыть файл бумажного документа "Акт выполненных работ".
Sub ПримерOLE_ОткрытьФайлБезУчастияПользователя() app = CreateObject("ByteEnterpта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") нее. 'В Диспетчере задач появится Business Studio. В панели задач приложервере, указанными ранее. титьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") 'В панели задач появадач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise") 26-94c0-8cc9d2b805a3" Set Списокится приложение oleapp.ПоказатьКлиентскоеПриложение олученных объектов всего один элемент If (СписокБумД, у которых guid = myguid 'Тогда взять первый элемент списка бумажных доккт выполненных работ" myguid = "6bc61f07-2181-4e26-94c0-8cc9d2b805a3" Set СписокБумДокументы = oleapp.ПолучитьОбъекты("БизнесМодель.БумажныйДокумент", "guid", myguid) ыбрать вывести сообщение, что таких объектов несколькоктов всего один элемент If (СписокБумДокументы.Кол
Метод ПоказатьКлиентскоеПриложение
Синтаксис: ПоказатьКлиентскоеПриложение()
Возвращаемый результат: не возвращает.
Метод показывает текущий экземпляр Business Studio и отображает его в панели задач.
Пример кода. См. код во всех методах данного класса.
Метод ЗавершитьПриложение
Синтаксис: ЗавершитьПриложение()
Возвращаемый результат: не возвращает.
Метод выгружает экземпляр Business Studio из памяти.
Пример кода.
Задача: открыть и закрыть Business Studio.
Sub ПримерOLE_ЗавершитьКлиентскоеПриложение() oleapp = CreateObject("ByteEnта приложения Set oleapp = CreateObject("ByteEnterprise.OleApplication") и ранее. 'В Диспетчере задач появится Business Studio. В панели задач прервере, указанными ранее. апуститьКлиентскоеПриложение("ИмяСервера", " ИмяБазы", "Enterprise") 'В панели задачадач приложения не будет видно. Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(
