Класс "Система.МетаКласс"

К классу "Система.МетаКласс" относится любой объект системы.

Свойство: <ИмяПараметра>

Тип параметра: object (соответствует типу параметра в Объектной модели).

Обращение к значениям (параметрам) объектов осуществляется по имени параметра из объектной модели Business Studio.

Пример кода.

Задача: вывести сообщение о заданном показателе, а также некоторые его параметры.

Sub ПримерOLE_РаботаСПараметрами()
 
 
 
   ия
 
   Set oleapp = CreateObjeта приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
    указанными ранее.
 
   'В Диспетчере задач появится Business Studio. В панел�ервере, указанными ранее.
 
   = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'В панадач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   ей = oleapp.ПолучитьОбъекты("БизнесМится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   
 
 
   'Считываем параметрам показателя
 
   Цес заданным названием
 
   ИмяПоказателя = "Издержки на запасы (% от общих издержек)"
 
   Set СписокПоказателей = oleapp.ПолучитьОбъекты("БизнесМодель.ПоказателиBSC", "Название", ИмяПоказателя)
 
   Set МойПоказатель = СписокПоказателей.ПолучитьЭлемент(0)
 
 
 
   "Показатель: " + ИмяПоказателя + �рам показателя
 
   ЦельДата = МойПоказатель.ЦелеваяДата
 
   ЦельЗначение = CStr(МойПоказатель.ЦелевоеЗначение) 
End Sub

Синтаксис: НайтиПараметр(string "<ИмяПараметра>")

Возвращаемый результат: Система.Параметр (см. Класс "Система.Параметр")

Метод для получения параметра. Используется, если нет возможности обратиться к параметру напрямую, например, для обращения к параметрам типа "ДатаВремя" или к пользовательским параметрам.

Пример кода. См. код в методе "СоздатьОбъект" (Mетод СоздатьОбъект).

Синтаксис: СоздатьФильтр()

Возвращаемый результат: Система.Фильтр (см. Класс "Система.Фильтр").

Создает Фильтр по объекту-группе.

Рекомендуется использовать для корневых групп класса (ОПУ).

Пример кода.

Задача: вывести сообщение, показывающее количество должностей в бизнес-модели.

Sub ПримерOLE_СоздатьФильтр()
 
   иложения
 
   Set oleapp = Creaта приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   сервере, указанными ранее.
 
   'В Диспетчере задач появится Business Studio. Всервере, указанными ранее.
 
   _app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'адач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
    фильтр, отбирающий только должностиится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
 = "Должность"
 
 'строка выше может бы�дет с Субъектами
 
Set ВсеСубъекты = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.Субъекты")
 
 
 
ФильтрДолжности.Выполнить
 
КолвоДолжностей = �ий только должности
 
Set ФильтрДолжности = ВсеСубъекты.СоздатьФильтр
 
Фильт

Синтаксис: Сохранить()

Возвращаемый результат: не возвращает.

Сохраняет изменения объекта в базу данных.

Пример кода. См. код в методах "СоздатьОбъект" (Mетод СоздатьОбъект) и "СоздатьГруппу" (Mетод СоздатьГруппу).

Синтаксис: Обновить()

Возвращаемый результат: не возвращает.

Обновляет текущий объект, зачитывает свойства объекта из базы данных, при этом все произведенные изменения будут утеряны. Актуализирует состояние класса при наличии сохраненных изменений в объекте, внесенных в другом экземпляре Business Studio.

Пример кода.

…

Set Субъекты = oleapp.ПолучитьОбъекты("БизнесМодель.Субъекты", "Название", "Директор")
 
Set Нужн

…

Синтаксис: Удалить()

Возвращаемый результат: не возвращает.

Помечает объект на удаление. Выполнение метода соответствует удалению объекта вручную, при котором не происходит очистки ссылок на удаляемый объект.

Пример кода.

Задача: из организационной структуры удалить юриста.

Sub ПримерOLE_Удалить()
 
   кта приложения
 
   Set oleapp та приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
    на сервере, указанными ранее.
 
   'В Диспетчере задач появится Business Stu�ервере, указанными ранее.
 
    client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise"адач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   -базе
 
   Set Субъект = oleapp.Получится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   
 
   'Удаляем субъект
 
   Субъект�т для удале�

Синтаксис: УдалитьСОчисткойСсылок ()

Возвращаемый результат: не возвращает.

Помечает объект на удаление. Выполнение метода соответствует удалению объекта вручную, при котором происходит очистка ссылок на удаляемый объект.

Пример кода.

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

Sub ПримерOLE_УдалитьСОчисткойСсылок ()
 
   
   Set oleapp = CreateObject(та приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   азанными ранее.
 
   'В Диспетчере задач появится Business Studio. В панели з�ервере, указанными ранее.
 
   leapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'В панелиадач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   еству" в демо-базе
 
   Set Субъект =ится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   .ПолучитьЭлемент(0)
 
 
 
   'Удаля�т для удаления
 
   GuidСубъекта = "6b5a65bd-b

Синтаксис: УдалитьСЗаменойСсылок(object <Объект>)

Возвращаемый результат: не возвращает.

Помечает объект на удаление. Выполнение метода соответствует удалению объекта вручную, при котором происходит переназначение ссылок на другой объект.

Пример кода.

Задача: из организационной структуры удалить заместителя директора по качеству, переназначив ссылки на юриста.

Sub ПримерOLE_УдалитьСЗаменойСсылок ()
 
   
 
   Set oleapp = CreateObjectта приложения
 
   Set oleapp = CreateObject("ByteEnterprise.OleApplication")
 
   казанными ранее.
 
   'В Диспетчере задач появится Business Studio. В панели �ервере, указанными ранее.
 
   oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   'В панеладач приложения не будет видно.
 
   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
 
   -базе
 
   Set Субъект1 = oleapp.Полуится приложение
 
   oleapp.ПоказатьКлиентскоеПриложение
 
 
 
   
 
 
 
   'Определяем субъект для удаления
 
   Gереназначения ссылок
 
   GuidСубъекта1 = "23e3bc1b-1b6b-46b6-80c1-3508d9d06b6f" мо-базе
 
   Set Субъект2 = oleapp.Пст" в демо-базе
 
   Set Субъект1 = oleapp.ПолучитьОбъекты("БизнесМодель.Субъекты", "guid", GuidСубъекта1)
 
   Set СубъектЮрист = Субъект1.ПолучитьЭле