DisplaySourceName: TriState;
DisplaySourceName: Prognoz.Platform.Interop.ForeSystem.TriState;
The DisplaySourceName property determines whether source names will be displayed.
By default source names are displayed.
Executing the example requires that the repository contains an express report with the EXPRESS identifier. The report should have several data sources.
Add links to the Express, Metabase system assemblies.
Sub UserProc;
Var
MB: IMetabase;
Exp: IEaxAnalyzer;
ExpDA: IEaxDataArea;
ExpDAS: IEaxDataAreaSources;
ExpDASS: IEaxDataAreaSource;
ExpDs: IEaxDataSources;
ExpD: IEaxDataSource;
Begin
// Get repository
MB := MetabaseClass.Active;
// Get express report
Exp := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
// Get express report analytical area and its data sources
ExpDA := Exp.DataArea;
ExpDAS := ExpDA.DataSources;
ExpDASS := ExpDAS.Item(0);
// Get virtual data sources
ExpDs := ExpDASS.VirtualSources;
// Get the first source
ExpD := ExpDs.Item(0);
// Disable source name display
ExpD.DisplaySourceName := TriState.OffOption;
// Save express report
(Exp As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Exp: IEaxAnalyzer;
ExpDA: IEaxDataArea;
ExpDAS: IEaxDataAreaSources;
ExpDASS: IEaxDataAreaSource;
ExpDs: IEaxDataSources;
ExpD: IEaxDataSource;
Begin
// Get repository
MB := Params.Metabase;
// Get express report
Exp := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
// Get express report analytical area and its data sources
ExpDA := Exp.DataArea;
ExpDAS := ExpDA.DataSources;
ExpDASS := ExpDAS.Item[0];
// Get virtual data sources
ExpDs := ExpDASS.VirtualSources;
// Get the first source
ExpD := ExpDs.Item[0];
// Disable source name display
ExpD.DisplaySourceName := TriState.tsOffOption;
// Save express report
(Exp As IMetabaseObject).Save();
End Sub;
See also: