Public Property Comments As TDMSComments

Option Explicit
Call GroupsInfo()


'==============================================================================
' Вывести описания всех групп пользователей и их состав
'==============================================================================
Sub GroupsInfo()
        
        Dim user, Group, Groups, StrUsers, StrDescr
        
        'Получить ссылку на коллекцию групп пользователей приложения
        Set Groups = ThisApplication.Groups
        
        'Для каждой группы...
        For Each Group In Groups
                'Для каждого пользователя в группе...
                For Each user In Group.Users
                        'Добавить описание пользователя к строке сообщения
                        StrUsers = StrUsers & user.Description & Chr(13)
                Next
                
                'Сформировать строку с описанием групп
                StrDescr = "Группа """ & Group.Description & """" & Chr(13) &_
                                        "Первый комментарий - " & Group.Comments(0) & Chr(13)_
                                        "Системное имя - " & Group.SysName & Chr(13)_
                                        "Автоформируемая: " & Group.Autoforming & Chr(13) & StrUsers
                
                'Вывести описания групп в окно сообщений
                ThisApplication.AddNotify  StrDescr 
                
                'В логах отладчика выводим идентификатор
                ThisApplication.DebugPrint("Идентификатор группы """ & Group.Description & """ - " & Group.Handle)
                
                'Очистить строку сообщения
                StrUsers = Empty
                StrDescr = Empty
        Next
End Sub
'==============================================================================