IMetaDataRules.Add

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

Sub UserProc;
Var
    Mb: IMetabase;
    Rub: IRubricator;
    Dict: IMetaDictionary;
    MetaDataRules: IMetaDataRules;
    MetaDataRule: IMetaDataRule;
    Conditions: IOrmConditions;
    Condition: IOrmCondition;
    i: Integer;
    x: array Of Variant;
Begin
    Mb := MetabaseClass.Active;
    Rub := Mb.ItemById("OBJ_FC").Bind As IRubricator;
    Dict := (Rub.Facts As IMetabaseObject).Edit As IMetaDictionary;
    MetaDataRules := Dict.DataRules;
    //Удаление всех имеющихся правил
    For i := MetaDataRules.Count - 1 To 0 Step - 1 Do
        MetaDataRules.Remove(MetaDataRules.Item(i));
    End For;
    //Создание нового правила
    MetaDataRule := MetaDataRules.Add;
    //Создание условий словий отбора показателей, для которых необходимо проверить условия правила
    //Условие: Для указанных страны указан один из указанных показателей
    Conditions := MetaDataRule.Condition;
    Condition := Conditions.Add;
    Condition.AttributeName := "COUNTRY";
    Condition.Operator_ := OrmComparisonOperator.In_;
    x := New Variant[2];
    x[0] := 976;
    x[1] := 979;
    Condition.Value := x;
    
    Condition := Conditions.Add;
    Condition.AttributeName := "INDICATOR";
    Condition.Operator_ := OrmComparisonOperator.In_;
    x := New Variant[2];
    x[0] := 1035;
    x[1] := 1036;
    Condition.Value := x;
    Condition.ConditionJoin := OrmLogicalOperator.And_;
    
    //Условия правила, проверяемые для показателей
    //Условие: Соответствие единиц измерения по показателю одному из указанных значений
    Conditions := MetaDataRule.Rule;
    Condition := Conditions.Add;
    Condition.AttributeName := "UNIT";
    Condition.Operator_ := OrmComparisonOperator.Equal;
    Condition.Value := 3430;

    Condition := Conditions.Add;
    Condition.AttributeName := "UNIT";
    Condition.Operator_ := OrmComparisonOperator.Equal;
    Condition.Value := 3530;
    Condition.ConditionJoin := OrmLogicalOperator.Or_;
    
    (Dict As IMetabaseObject).Save;
End Sub UserProc;