Revert;
The Revert method cancels changes made when editing the relational data area.
Sub Main;
Var
MB: IMetabase;
MObj : IMetabaseObject;
Report : IPrxReport;
TabIs : IPrxTableIslands;
TI : IPrxTableIsland;
Sources : IPrxTableSources;
Range : ITabRange;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Edit;
Report := MObj As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Item(0);
TI := TI.Edit;
Sources := Report.TableSources;
TI.Source := Sources.Item(1);
TI.Sheet := Report.Sheets.Item(1);
Range := (TI.Sheet As IPrxTable).TabSheet.Cell(20,1);
TI.Range := Range;
TI.Revert;
MObj.Save;
End Sub Main;
After executing the example parameters of the relational area are not changed. Report - identifier of a regular report.
See also: