ISecurityLevel.Description

Синтаксис

Description: String;

Описание

Свойство Description определяет описание, которое будет использовано в тексте метки в правом верхнем углу первого листа при маркировке объектов при экспорте и печати.

Комментарии

Если описание пусто, то при маркировке будет использовано наименование уровня безопасности.

Пример

Sub UserProc;

Var

MB: imetabase;

se: IMetabaseSecurity;

PO: IMetabasePolicy;

MA: IMetabaseMandatoryAccess;

Ctgr: ISecurityCategory;

SecLvl: ISecurityLevel;

Begin

MB := MetabaseClass.Active;

SE := MB.Security;

PO := SE.Policy;

MA := PO.MandatoryAccess;

Ctgr := MA.Category(0);

SecLvl := Ctgr.Level(1);

WinApplication.InformationBox(SecLvl.Name);

SecLvl.Description := "Для служебного пользования";

SecLvl.Marking := True; // Маркировать объекты при экспорте и печати

SecLvl.TreatSectionAsDocument := True; // Считать секцию документа отдельным документом

SE.Apply;

End Sub UserProc;

После выполнения примера будут изменены параметры уровня безопасности.

См. также:

ISecurityLevel