Различия

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

Ссылка на это сравнение

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>] +
  
Актуальные новости, публикации и практики для бизнес-архитекторов и аналитиков
Driven by DokuWiki