ReportStamp(Locale:LocaleCodeID): String;
ReportStamp[Prognoz.Platform.Interop.ForeSystem.LocaleCodeID]: System.String;
Locale. Language and regional parameters identifier. Parameters must not be set to None.
The ReportStamp property determines the stamp type used to mark documents.
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.
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;
// Get 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;
// Get 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: