IMetabasePolicy.ReportStamp

Syntax

ReportStamp(Locale:LocaleCodeID): String;

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

Parameters

Locale. Language and regional parameters identifier. Parameters must not be set to None.

Description

The ReportStamp property determines the stamp type used to mark documents.

Comments

The property determines contents of the stamp that appears in the lower right corner on the last page of the document: Printed:, Name and tel.:, Department, type, org., Copies: <number>, Sheets per copy: <number of pages>, Date.

This property is relevant only on using mandatory method of access control.

Example

To execute the example, add links to the Metabase, ForeSystem (for the Fore.NET example) system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Isa: IMetabaseUser;
    Policy: IMetabasePolicy;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    Policy := MS.Policy; 
    // Activate the use of mandatory access control method
    Policy.MandatoryAccessControl := True;
    // Set marking stamp
    Policy.ReportStamp(LocaleCodeID.Russian) := "Department, type, org. &[DEPARTMENT]" + #13 + #10 +
                                                "Copies: &[TOTAL_COPIES]" + #13 + #10 +
                                                "Sheets in copy: &[SHEETS_PER_COPY]";
    // Save changes
    MS.Apply;
    // Check in license
    Lic := Null;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Isa: IMetabaseUser;
    Policy: IMetabasePolicy;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    Policy := MS.Policy;
    // Activate the use of mandatory access control method
    Policy.MandatoryAccessControl := True;
    // Set marking stamp
    Policy.ReportStamp(LocaleCodeID.Russian) := "Department, type, org. &[DEPARTMENT]" + #13 + #10 +
                                                "Copies: &[TOTAL_COPIES]" + #13 + #10 +
                                                "Sheets in copy: &[SHEETS_PER_COPY]";
    // Save changes
    MS.Apply();
    // Check in license
    Lic := Null;
End Sub;

After executing the example the mandatory access control method use will be activated and the stamp type will be specified for Russian.

See also:

IMetabasePolicy