UserNomenclatureDesktopByNmkClass(NmkClassId As Long) As IUserNomenclatureDesktop ( PropertyGet )
Рабочий стол пользователя для определенного класса
Синтаксис:
objectvariable.UserNomenclatureDesktopByNmkClass( NmkClassId )
objectvariable -
ITcs_Application2
NmkClassId - идентификатор класса
Возвращает: указатель на
UserNomenclatureDesktop
Пример на VB Script:
Sub Test()
Dim I, NmkClassId
If TCSApp.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
NmkClassId = TCSApp.NmkClasses.Properties("ID").AsInteger
I = TCSApp.UserNomenclatureDesktopByNmkClass(NmkClassId).ShowModal("Мой рабочий стол для определенного класса")
End If
End Sub