Subject: ISecuritySubject;
Свойство Subject определяет субъект безопасности, данные которого необходимо добавить в обновление.
Sub Main;
Var
MB: IMetabase;
MU: IMetabaseUpdate;
SubNode: IMetabaseUpdateSecuritySubjectNode;
Sec: IMetabaseSecurity;
Subj: ISecuritySubject;
i: Integer;
Begin
MB := MetabaseClass.Active;
MU := MB.CreateUpdate;
Sec := MB.Security;
For i := 0 To Sec.Users.Count - 1 Do
Subj := Sec.Users.Item(i);
SubNode := MU.RootFolder.Add(MetabaseUpdateNodeType.SecuritySubject) As IMetabaseUpdateSecuritySubjectNode;
SubNode.Label := Subj.Name;
SubNode.Subject := Subj;
End For;
MU.SaveToFileNF("C:\User_Update.pefx");
End Sub Main;
После выполнения примера будет создано новое обновление. В данное обновление будут включены все пользователи текущего репозитория. Обновление будет сохранено в файл "User_Update.pefx".
См. также: