ITabSheet.ErrorCheckingOptions

Синтаксис Fore

ErrorCheckingOptions: ITabErrorCheckingOptions;

Синтаксис Fore.NET

ErrorCheckingOptions: Prognoz.Platform.Interop.Tab.TabErrorCheckingOptions;

Описание

Свойство ErrorCheckingOptions возвращает параметры индикации ошибок в формулах таблицы.

Комментарии

Для проверки, осуществляется ли проверка и индикация ошибок в формулах, используйте свойство ITabErrorCheckingOptions.EnableChecking.

Пример Fore

Для выполнения примера предполагается регламентного отчета с идентификатором «REGULAR_REPORT».

Добавьте ссылки на системные сборки Metabase, Report, Tab.

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    tabSheet: ITabSheet;
    Sheet: IPrxTable;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    Sheet := Report.Sheets.Item(0) As IPrxTable;
    tabSheet := Sheet.TabSheet;
    tabSheet.ErrorCheckingOptions.EnableChecking := True;
    tabSheet.ErrorCheckingOptions.EmptyValuesTreatmentType := TabEmptyValuesTreatmentType.AsZeroWithInfo;
    tabSheet.ErrorCheckingOptions.NumberAsText := True;
    tabSheet.Recalc;
    (Report As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера будут настроены параметры индикации ошибок в формулах таблицы:

• включена проверка и индикация ошибок;

• в формулы, ссылающиеся на пустые значения, для расчета будет подставляться ноль и отображаться индикатор ошибки;

• числа, отформатированные как текст, будут помечены ошибочными.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    tabSheet: ITabSheet;
    Sheet: IPrxTable;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    Sheet := Report.Sheets.Item[0] As IPrxTable;
    tabSheet := Sheet.TabSheet;
    tabSheet.ErrorCheckingOptions.EnableChecking := True;
    tabSheet.ErrorCheckingOptions.EmptyValuesTreatmentType := TabEmptyValuesTreatmentType.tevttAsZeroWithInfo;
    tabSheet.ErrorCheckingOptions.NumberAsText := True;
    tabSheet.Recalc();
    (Report As IMetabaseObject).Save();
End Sub;

См. также:

ITabSheet