Credentials: ICredentials;
Свойство Credentials определяет учетные данные пользователя репозитория.
Sub Main;
Var
MB: IMetabase;
LoS: ILogonSession;
Mu: IMetabaseUser;
SPUD: ISecurityPackageUserData;
Cr: ICredentials;
Begin
MB:=MetabaseClass.Active;
LoS:=MB.LogonSession;
Mu:=Los.User;
SPUD:=Mu.PackageData;
Cr:=SPUD.Credentials;
End Sub Main;
После выполнения примера в переменной «Cr» будут содержаться учетные данные пользователя текущего репозитория.
См. также: