ITabSheet.Options

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Opt: ITabOptions;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("Reg_rep").Edit;
    Rep:=MObj As IPrxReport;
    Tab:=Rep.ActiveSheet.Table;
    Opt:=Tab.Options;
    Opt.AutoPercentEntry:=True;
    MObj.Save;
End Sub UserProc;