Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.
ru:technical_manual:work_via_ole:oleapplication [2017/04/21 15:05] admin |
ru:technical_manual:work_via_ole:oleapplication [2019/08/20 08:58] (текущий) |
||
---|---|---|---|
Строка 15: | Строка 15: | ||
__Задача__: запустить приложение Business Studio. | __Задача__: запустить приложение Business Studio. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_ЗапускПриложения() | Sub ПримерOLE_ЗапускПриложения() | ||
Строка 71: | Строка 71: | ||
__Задача__: открыть на редактирование окно свойств заданного показателя. | __Задача__: открыть на редактирование окно свойств заданного показателя. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_РедактированиеОбъекта() | Sub ПримерOLE_РедактированиеОбъекта() | ||
Строка 94: | Строка 94: | ||
'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | 'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно. | ||
- | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(СерверБД, База, Версия) | + | Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(СерверБД, База, Редакция) |
'В панели задач появится приложение | 'В панели задач появится приложение | ||
Строка 108: | Строка 108: | ||
НазваниеПоказателя = "Процент запасов, запланированных к выдаче" | НазваниеПоказателя = "Процент запасов, запланированных к выдаче" | ||
- | SetСписокПоказателей = oleapp.ПолучитьОбъекты("БизнесМодель.ПоказателиBSC", "Название", НазваниеПоказателя) | + | Set СписокПоказателей = oleapp.ПолучитьОбъекты("БизнесМодель.ПоказателиBSC", "Название", НазваниеПоказателя) |
Строка 147: | Строка 147: | ||
__Задача__: открыть окно объектной модели. | __Задача__: открыть окно объектной модели. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_ВыполнитьКоманду() | Sub ПримерOLE_ВыполнитьКоманду() | ||
Строка 184: | Строка 184: | ||
__Задача__: открыть окно выбора справочников. | __Задача__: открыть окно выбора справочников. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_ВыбратьКласс() | Sub ПримерOLE_ВыбратьКласс() | ||
Строка 222: | Строка 222: | ||
__Задача__: в папке "Объекты деятельности\Документы\Бумажный документ\Документы СМК" создать документ и заполнить некоторые его свойства, в том числе и параметры СМК. | __Задача__: в папке "Объекты деятельности\Документы\Бумажный документ\Документы СМК" создать документ и заполнить некоторые его свойства, в том числе и параметры СМК. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_СоздатьОбъект() | Sub ПримерOLE_СоздатьОбъект() | ||
Строка 271: | Строка 271: | ||
ТребуемыйТипДока = "Запись" | ТребуемыйТипДока = "Запись" | ||
- | Set ТипыДоковСТребуемымТипом = _ | + | Set ТипыДоковСТребуемымТипом = oleapp.ПолучитьОбъекты("БизнесМодель.ТипыДокумента", "Название", ТребуемыйТипДока) |
- | + | ||
- | oleapp.ПолучитьОбъекты("БизнесМодель.ТипыДокумента", "Название", ТребуемыйТипДока) | + | |
НовБумДокумент.ТипДокумента = ТипыДоковСТребуемымТипом.ПолучитьЭлемент(0) | НовБумДокумент.ТипДокумента = ТипыДоковСТребуемымТипом.ПолучитьЭлемент(0) | ||
Строка 328: | Строка 326: | ||
__Задача__: в бумажных документах создать группу (папку). Примечание: в других классах понятия "Папка" и "Группа" могут не совпадать. | __Задача__: в бумажных документах создать группу (папку). Примечание: в других классах понятия "Папка" и "Группа" могут не совпадать. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_СоздатьГруппу() | Sub ПримерOLE_СоздатьГруппу() | ||
Строка 349: | Строка 347: | ||
'Дальше обращение будет с бумажными документами | 'Дальше обращение будет с бумажными документами | ||
- | Set БумДокументы = _ | + | Set БумДокументы = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент") |
- | + | ||
- | oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент") | + | |
Строка 386: | Строка 382: | ||
__Задача 1__: открыть справочник бумажных документов и после выбора пользователем одного из документов открыть файл, закрепленный за ним. | __Задача 1__: открыть справочник бумажных документов и после выбора пользователем одного из документов открыть файл, закрепленный за ним. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_ОткрытьФайлСУчастиемПользователя() | Sub ПримерOLE_ОткрытьФайлСУчастиемПользователя() | ||
Строка 407: | Строка 403: | ||
'Дальнейшее обращение будет с бумажными документами | 'Дальнейшее обращение будет с бумажными документами | ||
- | Set БумДокументы = _ | + | Set БумДокументы = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент") |
- | + | ||
- | oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент") | + | |
Строка 432: | Строка 426: | ||
__Задача 2__: открыть файл бумажного документа "Акт выполненных работ". | __Задача 2__: открыть файл бумажного документа "Акт выполненных работ". | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_ОткрытьФайлБезУчастияПользователя() | Sub ПримерOLE_ОткрытьФайлБезУчастияПользователя() | ||
Строка 516: | Строка 510: | ||
__Задача__: открыть и закрыть Business Studio. | __Задача__: открыть и закрыть Business Studio. | ||
- | <code vb> | + | <code> |
Sub ПримерOLE_ЗавершитьКлиентскоеПриложение() | Sub ПримерOLE_ЗавершитьКлиентскоеПриложение() | ||
Строка 538: | Строка 532: | ||
End Sub | End Sub | ||
- | </code> | + | </code> |
- | + | ||
- | + | ||
- | + | [<contextnavigator>] | |
- | + | ||
- | + | ||
- | [<contextnavigator>] | + | |