IMetabasePolicy.ReportStamp

Синтаксис Fore

ReportStamp(Locale:LocaleCodeID):String;

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

ReportStamp[Prognoz.Platform.Interop.ForeSystem.LocaleCodeID]: System.String;

Параметры

Locale. Идентификаторы языка и региональных параметров. Параметр Locale не может быть равным LocaleCodeID.None.

Описание

Свойство ReportStamp определяет вид штампа, которым маркируются документы.

Свойство отвечает за содержимое штампа, который выводится в нижнем правом углу на последнем листе документа: Отпечатано:, ФИО и тел.:, Подразделение, тип, уч., Экземпляров: <количество>, Листов в экземпляре: <количество страниц>, Дата.

Свойство актуально только при использовании мандатного метода разграничения доступа.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку Metabase.

Sub Macro;
Var
    policy: IMetabasePolicy;
    security: IMetabaseSecurity;
Begin
    security := MetabaseClass.Active.Security;
    policy := security.Policy;
    policy.ReportStamp(LocaleCodeID.Russian) := "Подразделение, тип, уч. &[DEPARTMENT]" + #13 + #10 +
                                                "Экземпляров: &[TOTAL_COPIES]" + #13 + #10 +
                                                "Листов в экземпляре: &[SHEETS_PER_COPY]";
    security.Apply;
End Sub Macro;

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

Пример Fore.NET

Для выполнения примера добавьте ссылку на системную сборку ForeSystem.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;

...

Public Shared Sub Main(Params: StartParams);
Var
    policy: IMetabasePolicy;
    security: IMetabaseSecurity;
Begin
    security := Params.Metabase.Security;
    policy := security.Policy;
    policy.ReportStamp[LocaleCodeID.lcidRussian] := "Подразделение, тип, уч. &[DEPARTMENT]" + char.ConvertFromUtf32(13) + char.ConvertFromUtf32(10) +
                                                "Экземпляров: &[TOTAL_COPIES]" + char.ConvertFromUtf32(13) + char.ConvertFromUtf32(10) +
                                                "Листов в экземпляре: &[SHEETS_PER_COPY]";
    security.Apply();
End Sub;