Как получить локальный список и установить его в списке выбора? (VB, Infor PM)

Question

Добрый день, уважаемые пользователи,

Мне нужно отредактировать отчет в Infor PM Application Studio, и у меня возникла проблема с использованием списка, который есть в гиперблоке моего списка выбора.Список выбора используется для печати различных продуктов в моем отчете и должен иметь те же элементы списка, что и гиперблок.Следующий код VB не работает.Мне не удается получить локальный список.

Sub  btnPrintCenter_Click () 
    Dim sList,newMembers(0)
    lvScale.SetCurSel 0, true
    newMembers(0) = Application.GetlocalListDefinition as String
    Application.SetPickListMembers "hpProduct\Objektliste",newMembers
    'sList = "PickListManager[lvRayon\Objektliste][PickListRayon]" 
    'sReturn = Spreadsheet.PickListManager (sList, false)
    lvRayon.List = "ProductsSumaPrintTdBEPF"
End sub

Файл справки в Infor PM упоминается с использованием этого:

Возвращает определение XML локального списка, который прикреплен кОбъект HyperBlock. Пространство имен: электронная таблица

Синтаксис Visual Basic (декларация)

Public Function GetLocalListDefinition As String

Надеюсь, я четко выразил свое мнение, спросите, если что-тоЧисто.Заранее спасибо

Answer 1

После долгих проб и ошибок я нашел ответ на свой вопрос. Сценарий, который я использовал, следующий:

Sub  btnPrintCenter_Click () 
Dim sList,newMembers(0)
lvScale.SetCurSel 0, true
newMembers(0) = Application.GetPickListMembers ("hpProduct\Local list")
Application.SetPickListMembers "PickListRayon\Objektliste",newMembers
sList = "PickListManager[hpProduct\Local list]"
sReturn = Spreadsheet.PickListManager (sList, false) 
End sub

С помощью GetPickListMembers я приписываю локальный список гиперблока к новому члену. Возможно, кто-то найдет это полезным в будущем.