Различия

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

--- ru:technical_manual:work_via_ole:oleapplication [2017/03/01 15:41]
admin [Метод ВыполнитьКоманду]
+++ ru:technical_manual:work_via_ole:oleapplication [2019/08/20 08:58] (текущий)
@@ Строка 15: / Строка 15: @@
 __Задача__: запустить приложение Business Studio.
+<code>
 Sub ПримерOLE_ЗапускПриложения()
@@ Строка 26: / Строка 27: @@
 End Sub
+</code>
 ===== Метод ПолучитьКорневуюГруппуКласса =====
@@ Строка 69: / Строка 71: @@
 __Задача__: открыть на редактирование окно свойств заданного показателя.
+<code>
 Sub ПримерOLE_РедактированиеОбъекта()
@@ Строка 91: / Строка 94: @@
    'В Диспетчере задач появится Business Studio. В панели задач приложения не будет видно.
-   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(СерверБД, База, Версия)
+   Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(СерверБД, База, Редакция)
    'В панели задач появится приложение
@@ Строка 105: / Строка 108: @@
    НазваниеПоказателя = "Процент запасов, запланированных к выдаче"
-   SetСписокПоказателей = oleapp.ПолучитьОбъекты("БизнесМодель.ПоказателиBSC", "Название", НазваниеПоказателя)
+   Set СписокПоказателей = oleapp.ПолучитьОбъекты("БизнесМодель.ПоказателиBSC", "Название", НазваниеПоказателя)
@@ Строка 130: / Строка 133: @@
 End Sub
+</code>
 ===== Метод ВыполнитьКоманду =====
@@ Строка 143: / Строка 147: @@
 __Задача__: открыть окно объектной модели.
+<code>
 Sub ПримерOLE_ВыполнитьКоманду()
    'Получение объекта приложения
-   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.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "Enterprise")
-   'В панели задач появится приложение
+   'В панели задач появится приложение
-   oleapp.ПоказатьКлиентскоеПриложение
+   oleapp.ПоказатьКлиентскоеПриложение
-   'Открыть окно объектной модели (Справочники → Объектная модель)
+   'Открыть окно объектной модели (Справочники → Объектная модель)
-  oleapp.ВыполнитьКоманду("База.КлиентскиеМетоды.ВыполнитьФорму", "База.ФормаОписаниеОбъектнойМодели")
+   Set object_model = oleapp.ВыполнитьКоманду("База.КлиентскиеМетоды.ВыполнитьФорму", "База.ФормаОписаниеОбъектнойМодели")
 End Sub
+</code>
@@ Строка 178: / Строка 184: @@
 __Задача__: открыть окно выбора справочников.
+<code>
 Sub ПримерOLE_ВыбратьКласс()
@@ Строка 199: / Строка 206: @@
 End Sub
+</code>
 ===== Метод СоздатьОбъект =====
@@ Строка 214: / Строка 222: @@
 __Задача__: в папке "Объекты деятельности\Документы\Бумажный документ\Документы СМК" создать документ и заполнить некоторые его свойства, в том числе и параметры СМК.
+<code>
 Sub ПримерOLE_СоздатьОбъект()
@@ Строка 262: / Строка 271: @@
          ТребуемыйТипДока = "Запись"
-         Set ТипыДоковСТребуемымТипом = _
+         Set ТипыДоковСТребуемымТипом = oleapp.ПолучитьОбъекты("БизнесМодель.ТипыДокумента", "Название", ТребуемыйТипДока)
-          oleapp.ПолучитьОбъекты("БизнесМодель.ТипыДокумента", "Название", ТребуемыйТипДока)
          НовБумДокумент.ТипДокумента = ТипыДоковСТребуемымТипом.ПолучитьЭлемент(0)
@@ Строка 305: / Строка 312: @@
 End Sub
+</code>
 ===== Метод СоздатьГруппу =====
@@ Строка 318: / Строка 326: @@
 __Задача__: в бумажных документах создать группу (папку). Примечание: в других классах понятия "Папка" и "Группа" могут не совпадать.
+<code>
 Sub ПримерOLE_СоздатьГруппу()
@@ Строка 338: / Строка 347: @@
    'Дальше обращение будет с бумажными документами
-   Set БумДокументы = _
+   Set БумДокументы = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент")
-   oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент")
@@ Строка 361: / Строка 368: @@
 End Sub
+</code>
 ===== Метод ОткрытьФайл =====
@@ Строка 374: / Строка 382: @@
 __Задача 1__: открыть справочник бумажных документов и после выбора пользователем одного из документов открыть файл, закрепленный за ним.
+<code>
 Sub ПримерOLE_ОткрытьФайлСУчастиемПользователя()
@@ Строка 394: / Строка 403: @@
    'Дальнейшее обращение будет с бумажными документами
-   Set БумДокументы = _
+   Set БумДокументы = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент")
-   oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.БумажныйДокумент")
@@ Строка 413: / Строка 420: @@
 End Sub
+</code>
 __ __
@@ Строка 418: / Строка 426: @@
 __Задача 2__: открыть файл бумажного документа "Акт выполненных работ".
+<code>
 Sub ПримерOLE_ОткрытьФайлБезУчастияПользователя()
@@ Строка 477: / Строка 486: @@
 End Sub
+</code>
 ===== Метод ПоказатьКлиентскоеПриложение =====
@@ Строка 500: / Строка 510: @@
 __Задача__: открыть и закрыть Business Studio.
+<code>
 Sub ПримерOLE_ЗавершитьКлиентскоеПриложение()
@@ Строка 521: / Строка 532: @@
 End Sub
+</code>
+[<contextnavigator>]
-[<contextnavigator>]