DataObject: IMetabaseObject;
DataObject: Prognoz.Platform.Interop.Metabase.IMetabaseObject;
The DataObject property returns a repository object corresponding to the specified data source.
Executing the example requires a regular report with the REGULAR_REPORT identifier that contains data sources. Add links to the Metabase, Report system assemblies.
Sub UserProc;
Var
MB: IMetabase;
Rep: IPrxReport;
DSs: IPrxDataSources;
DS: IPrxDataSource;
Begin
MB := MetabaseClass.Active;
Rep := MB.ItemById("REGULAR_REPORT").Bind As IPrxReport;
DSs := Rep.DataSources;
For Each DS In DSs Do
Debug.WriteLine(DS.DataObject.Id);
End For;
End Sub UserProc;
After executing the example the console displays identifiers of repository objects included into regular report data source.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Rep: IPrxReport;
DSs: IPrxDataSources;
DS: IPrxDataSource;
Begin
MB := Params.Metabase;
Rep := MB.ItemById["REGULAR_REPORT"].Bind() As IPrxReport;
DSs := Rep.DataSources;
For Each DS In DSs Do
System.Diagnostics.Debug.WriteLine(DS.DataObject.Id);
End For;
End Sub;
See also: