IUserProfiles.AddStr

Синтаксис Fore

AddStr(StrSid: String; Name: String): IUserProfile;

Синтаксис Fore.NET

AddStr(StrSid: String; Name: String): Prognoz.Platform.Interop.Metabase.IUserProfile;

Параметры

StrSid. Строковое значение идентификатора безопасности пользователя. Данное значение может быть получено в свойстве ISid.AsString.

Name. Наименование добавляемого профиля.

Описание

Метод AddStr добавляет в коллекцию профиль с указанным наименованием и привязкой к субъекту безопасности с указанным идентификатором безопасности.

Добавление профилей доступно только в коллекцию профилей репозитория, полученную в свойстве IMetabase.Profiles. Изменять коллекцию может только администратор репозитория. При выполнении метода AddStr параметр StrSid не может иметь пустое значение. Если указан идентификатор, который не соответствует ни одному субъекту, то будет создан локальный профиль. Данный профиль может использоваться для хранения любого списка электронных адресов или каких-либо параметров. Локальный профиль также может быть найден с помощью метода FindByStrSid. Если в коллекции уже существует профиль, соответствующий идентификатору безопасности StrSid, то генерируется исключительная ситуация.

Пример Fore

Указанный пример должен выполняться под администратором репозитория.

Sub UserProc;
Var
    Mb: IMetabase;
    Profs: IUserProfiles;
    Prof: IUserProfile;
    Props: IUserProfileProperties;
Begin
    Mb := MetabaseClass.Active;
    Profs := Mb.Profiles;
    Prof := Profs.AddStr(Mb.Name + "_SID", Mb.Name + "_Parameters").Edit;
    Prof.Email := Mb.Name + "@example.ru";
    Props := Prof.Properties;
    Props.Add("Param1", "Value1");
    Props.Add("Param2", "Value1");
    Prof.Apply;
End Sub UserProc;

После выполнения примера в коллекцию профилей репозитория будет добавлен локальный профиль. В настройках профиля будет указан электронный адрес по умолчанию и два свойства.

Пример Fore.NET

Указанная процедура является точкой входа для .NET-сборки. Пример должен выполняться под администратором репозитория.

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Profs: IUserProfiles;
    Prof: IUserProfile;
    Props: IUserProfileProperties;
Begin
    Mb := Params.Metabase;
    Profs := Mb.Profiles;
    Prof := Profs.AddStr(Mb.Name + "_SID", Mb.Name + "_Parameters").Edit();
    Prof.Email := Mb.Name + "@example.ru";
    Props := Prof.Properties;
    Props.Add("Param1", "Value1");
    Props.Add("Param2", "Value1");
    Prof.Apply();
End Sub;

См. также:

IUserProfiles