IUserWorkGroups Наследование  Функции и процедуры


Список рабочих групп в которых задействован пользователь


Пример на VB:
Dim OCS As CSDN.OCS
Dim App As CSDN.Ocs_Application
Sub Test()
    Call Login
    
    Dim WorkGroups As CSDN.UserWorkGroups
    
    If App.Users.RunModuleForSelect("Выберите пользователя", False) > 0 Then
    
        Set WorkGroups = App.Users.Properties("WORKGROUPS").AsIDispatch
    
        I = WorkGroups.ShowModal("Пользователь задействован в следующих рабочих группах")
        
        Set WorkGroups = Nothing
        
    End If
    
End Sub
Sub Login()
    
    If OCS Is Nothing Then Set OCS = CreateObject("CSDN.OCS")
    
    If App Is Nothing Then Set App = OCS.Login 
    
End Sub