Checks: ITableChecks;
Свойство Checks возвращает ограничения таблицы.
Для выполнения примера предполагается наличие в репозитории таблицы с идентификатором "TABLE_1". В таблице имеется числовое поле с идентификатором "NUM_FIELD".
Sub UserProc;
Var
MB: IMetabase;
Object: IMetabaseObject;
Table: ITable;
Checks: ITableChecks;
Check: ITableCheck;
Begin
MB := MetabaseClass.Active;
Object := MB.ItemById("TABLE_1").Edit;
Table := Object As ITable;
Checks := Table.Checks;
Check := Checks.Add;
Check.Id := "CheckX";
Check.Name := "Ограничение значения цифрового поля";
Check.Text := "ABS(NUM_FIELD)<100";
Object.Save;
End Sub UserProc;
После выполнения примера в таблице будет создано новое ограничение. Данное ограничение будет проверять абсолютное значение числового поля "NUM_FIELD".
См.также: