Различия

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

--- ru:technical_manual:work_via_ole:script_work_via_ole [2022/11/14 16:03]
korennoi [Пример создание оргединицы и работа с ним]
+++ ru:technical_manual:work_via_ole:script_work_via_ole [2023/03/16 12:20] (текущий)
@@ Строка 172: / Строка 172: @@
 </code>
-===== Пример создание оргединицы и работа с ним =====
+===== Пример создания оргединицы и работа с ней =====
 <code>
@@ Строка 179: / Строка 179: @@
     Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-    ' Инициализации клиентского приложения, в качестве параметров передаются имя сервера, название базы,  версия продукта
+    'Инициализации клиентского приложения, в качестве параметров передаются имя сервера, название базы, версия продукта
     Set Client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
@@ Строка 185: / Строка 185: @@
-    ' Пример создания Оргединицы и работы с ней
+    'Пример создания Оргединицы и работы с ней
    Set СубъектКорень = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.Субъекты")
@@ Строка 193: / Строка 193: @@
    Set НовыйСубъект = oleapp.СоздатьОбъект(ВыбранныйСубъект)
-    ' Параметры "Название" и "ТипСубъекта" являются обязательными для субъектов
+    'Параметры "Название" и "ТипСубъекта" являются обязательными для субъектов
    НовыйСубъект.Название = "НазваниеНовогоСубъекта"
@@ Строка 257: / Строка 257: @@
-'Обращение к пользовательскому параметру. Допустим пользовательский справочник  "БизнесМодель.usr_Класс" содержит несколько записей.
+'Обращение к пользовательскому параметру. Допустим пользовательский справочник "БизнесМодель.usr_Класс" содержит несколько записей.
     Set Объект = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.usr_Класс")
@@ Строка 269: / Строка 269: @@
     Set Элемент = Объекты.Item(0) 'Или так: Set Элемент = Объекты.ПолучитьЭлемент(0)
-   ' Класс содержит стандартный параметр "Название"
+   'Класс содержит стандартный параметр "Название"
     'Парам1 = Элемент.Название - так можно только для системых параметров
@@ Строка 277: / Строка 277: @@
     'Или так: Парам1 = Элемент.Параметры.ПолучитьЭлемент("Название").Значение
-   ' Класс содержит пользовательский параметр "usr_полеКласса" простого типа (вещественный)
+   'Класс содержит пользовательский параметр "usr_полеКласса" простого типа (вещественный)
     Парам2 = Элемент.Параметры.Item("usr_полеКласса").Значение
@@ Строка 283: / Строка 283: @@
     'Или так: Парам2 = Элемент.Параметры.ПолучитьЭлемент("usr_полеКласса").Значение
-   ' Класс содержит параметр - список "usr_полеСпск" - для списка используем Set
+   'Класс содержит параметр - список "usr_полеСпск" - для списка используем Set
     Set Парам3 = Элемент.Параметры.Item("usr_полеСпск").Значение
@@ Строка 289: / Строка 289: @@
     'Или так: Set Парам3 = Элемент.Параметры.ПолучитьЭлемент("usr_полеСпск").Значение
-   ' Элементы списка объектного типа, чтобы получить элемент используем Set
+   'Элементы списка объектного типа, чтобы получить элемент используем Set
     Set ЭлСписка = Парам3.Item(0)
-   ' Элемент списка содержит параметр "usr_поле1" простого типа (строка)
+   'Элемент списка содержит параметр "usr_поле1" простого типа (строка)
     ПЭС1 = ЭлСписка.Параметры.Item("usr_поле1").Значение
@@ Строка 382: / Строка 382: @@
 Sub ВыводПотомковПапок()
-    ' Получение объекта приложения
+    'Получение объекта приложения
     Set oleapp = CreateObject("ByteEnterprise.OleApplication")
-    ' Инициализации приложения, в качестве параметров передаются имя сервера, название базы,  версия продукта
+    'Инициализации приложения, в качестве параметров передаются имя сервера, название базы, версия продукта
-    Set client_app = oleapp.ЗапуститьКлиентскоеПриложение(";<;Имя_сервера_БД>", ";<;Имя_базы>", ";<;Редакция_продукта>")
+    Set client_app = oleapp.ЗапуститьКлиентскоеПриложение("ИмяСервера", "ИмяБазы", "РедакцияПрограммы")
-    ' Получаем только папки в корне
+    'Получаем только папки в корне
     Set Корень = oleapp.ПолучитьКорневуюГруппуКласса("БизнесМодель.НаправленияДеятельности")
@@ Строка 416: / Строка 416: @@
       For Счётчик2 = 1 to Потомки
-    ' И выводим на экран
+    'И выводим на экран
                 Set Потомок = Потомки.ПолучитьЭлемент(Счётчик)
@@ Строка 458: / Строка 458: @@
-{(rater>id=ru_technical_manual_work_via_ole_script_work_via_ole|name=Сценарии работы с Business Studio через OLE|type=vote|trace=ip|img=:taggic.png|headline=off)}
+{(rater>id=ru_technical_manual_work_via_ole_script_work_via_ole|name=Сценарии работы с Business Studio через OLE|type=vote|trace=ip|headline=off)}