Вернуть параметры номенклатурной позиции. Возможно ?

Public Sub FirstStep()

Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application

'Создадим объект ТКС АПИ

Set TCS = CreateObject("CSDN.TCS")

'Создадим экземляр приложения (сеанс). Внимание ! создание повторного сеанса не допустимо!


Set App = TCS.Login 'вызывает стандартное окно аутентификации пользователя

'Set App = TCS.LoginEx("Администратор", "0")  ' Если вы сами пишите диалог ввода пользователя и пароля или просто его знаете

'Set App = TCS.LoginCurrent ' если вы хотите использовать сеанс уже запущенного ТКС


If App.NmkClasses.RunModuleForSelect("Выберите класс номенклатуры", False) <> 0 Then
 
  Dim Nmks As CSDN.Nomenclatures
  
  Set Nmks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
  
  'Реально если вы знаете ИД или обозначение номенклатуры то вместо выбора будет код
  'If Nmks.Locate("NOTE", "Мое обозначение", 0) Then
  'If Nmks.Locate("ID", Мой_Идентификатор, 0) Then
  'Правда на старте вашей программы желательно добавить такой код, чтобы получить всю номенклатуру, а не текущей ветки
  'App.ShowOneTreeNodeData = False
  
   On Error GoTo L1:
   
    If Nmks.RunModuleForSelect("Выберите номенклатуру, параметры которой вы собираетесь редактировать!", False) Then
    Dim Childs As CSDN.IChildModules
    Dim NmkPars As CSDN.ParameterValues
    
    
    'получим объект зависимые объекты
    Set Childs = Nmks.ChildModules
    'получим зависимый объект параметры номенклатуры
    'Особенности работы через зависимые объекты смотри в теме
&nbsp; &nbsp; '<a class="linkification-ext" href="https://forum.technologics.ru/viewtopic.php?id=59" title="Linkification: https://forum.technologics.ru/viewtopic.php?id=59">https://forum.technologics.ru/viewtopic.php?id=59</a>
&nbsp; &nbsp; 
&nbsp; &nbsp; Set NmkPars = Childs.ModuleByName("NmkParameters").Value
&nbsp; &nbsp; 
&nbsp; &nbsp; 'Добавим значение параметра с кодом "TCS_T_IZG" значение "10"
&nbsp; &nbsp; If Not NmkPars.SetParameterValueByParCode("TCS_T_IZG", 10, 0, True) Then MsgBox "Нет прав?"
&nbsp; &nbsp; 
&nbsp; &nbsp; If NmkPars.ShowModal("Убедитесь что отработала") Then
&nbsp; &nbsp; End If
&nbsp; &nbsp; 
&nbsp; &nbsp; End If
&nbsp; 
L1:
&nbsp; Set NmkPars = Nothing
&nbsp; Set Childs = Nothing
&nbsp; Set Nmks = Nothing

End If


'освободим объект приложения и завершим работу

Set App = Nothing
Set TCS = Nothing


End Sub

Private Sub SavePar( _
                                    Spravochnik As String, _
                                IDnomenklaturi As Double, _ 
                                            KodPar As String, _
                                           TextPar As String)
On Error GoTo err:
If App.NmkClasses.Locate("NOTE", Spravochnik, 0) Then
    Set Nmks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
    If Nmks.Locate("ID", IDnomenklaturi, 0) Then
        Set Childs = Nmks.ChildModules
        Set NmkPars = Childs.ModuleByName("NmkParameters").Value
        If Not NmkPars.SetParameterValueByParCode(KodPar, TextPar, 0, True) Then
            MsgBox "Параметры номенклатуры не переданны в виду отсутствия прав.", _
                        vbCritical + vbSystemModal, _
                        "Запрет доступа"
            End If
        End If
    End If
Exit Sub
err:
Set NmkPars = Nothing
Set Childs = Nothing
MsgBox "Ошибка записи параметра в API", vbCritical + vbSystemModal, "Критическая ошибка"
End Sub

Private Sub LoadPar(Spravochnik As String, IDnomenklaturi As Double, KodPar As String, TextPar As Object)
On Error GoTo err:
If App.NmkClasses.Locate("NOTE", Spravochnik, 0) Then
    Set Nmks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
    If Nmks.Locate("ID", IDnomenklaturi, 0) Then
        Set Childs = Nmks.ChildModules
        Set NmkPars = Childs.ModuleByName("NmkParameters").Value
            NmkPars.First
            While Not NmkPars.EOF
                If NmkPars.Properties(12).DisplayText = KodPar Then TextPar.Text = NmkPars.CurrentParameterValue
                NmkPars.Next
                Wend
        End If
    End If
Set NmkPars = Nothing
Set Childs = Nothing
Exit Sub
err:
Set NmkPars = Nothing
Set Childs = Nothing
MsgBox "Ошибка чтения параметра через API интерфейс.", vbCritical + vbSystemModal, "Критическая ошибка"
End Sub