Акция

Миграция с других систем

Скидка на систему «ДЕЛО» при миграции с других решений.

Получите бесплатную демоверсию и консультацию

+7(495) 221-24-31

Форумы

Страницы: 1
Дело API. Вывод исполнителей, Вывод списка исполнителей с использованием ActiveX API
 
Добрый день
При регистрации исходящего документа (RcOut) можно указать несколько исполнителей.
При использовании ActiveX API через свойство EXECUTOR можно получить первого исполнителя и только его.
А каким образом можно получить полный список исполнителей?
 
Добрый день,
Сейчас тоже возникла необходимость получить весь список исполнителей, но это возможно через API только у проектов документов.
Как получить весь список?
 
Вы пробовали использовать свойство Executors?
 
В документации "Руководство прикладного программиста" для объектов типа ""RcOut" РК исходящего (внутреннего) документа" нет метода или свойства Executors.
А если указывать метод Executors(j), то происходит ошибка, что объект не поддерживает данный метод (Run-time error '438' Object doesn't support this property or method).
Если просто EXECUTORS, то происходит ошибка 'Run-time error '450' Wrong number of arguments or invalid property assignment'
Код:
Set o_Head = CreateObject("eapi.head")
o_Head.Open
Set MyResultSet = o_Head.GetResultSet
       MyResultSet.Source = o_Head.GetCriterion("Table")
       With MyResultSet.Source
           .Params("Result") = "Doc"
           .Params("Rc.DocDate") = "09/09/2020"
           .Params("RC.RegNum") = "%-ТЕСТ"
       End With
       MyResultSet.Fill

       For i = 0 To MyResultSet.ITEMCNT - 1
          For j = 0 To MyResultSet.Item(i).EXECUTORSCNT - 1
               Label1 = Label1 & MyResultSet.Item(i).EXECUTORS(j)
          Next j
       Next i
 
В версии 19.6 этот параметр присутствует.

Изменено: Сергей Танцоров - 10.09.2020 13:31:08
 
Екатерина, добрый день!

Допишите свойства:

Label1 = Label1 & MyResultSet.Item(i).EXECUTORS(j).Person.Name

Executor ссылается на объект department.
 
Цитата
no name написал:
Екатерина, добрый день!

Допишите свойства:

Label1 = Label1 & MyResultSet.Item(i).EXECUTORS(j).  Person.Name
 
Executor ссылается на объект department.
Спасибо большое!
Получилось извлечь данные.
Страницы: 1
Читают тему (гостей: 1)
Ольга Савко

Начальник группы телемаркетинга

Закажите демонстрацию системы
Мы свяжемся с вами, проконсультируем по интересующим вопросам, подготовим персональную демонстрацию в удобное для вас время.

Акция

Переход на отечественную АИС МФЦ

Скидка на право использования АИС МФЦ «ДЕЛО» при миграции с других решений по автоматизации МФЦ

Календарь мероприятий

22октября

ОСЕННИЙ ДОКУМЕНТООБОРОТ – 2020

Узнать больше

15октября

ЭОС на X юбилейной конференции им. А.И. Китова ИТиММ-2020

Узнать больше

23сентября

ЭОС на конференции TAdviser «СЭД и ECM Day 2020» о новейших технологиях для СЭД/ECM-решений

Узнать больше

Наши клиенты

7 000 компаний

Наши партнеры

250

во всех городах России
и странах СНГ

^