Transform: IMsFormulaTransform;
Свойство Transform возвращает объект, содержащий настройки правила валидации.
Для выполнения примера в репозитории должна присутствовать база данных временных рядов с идентификатором «OBJ_RUBRICATOR».
Sub Main;
Var
mb: IMetabase;
RubrDescr: IMetabaseObjectDescriptor;
Rubr: IRubricator;
Info: IMetabaseObjectCreateInfo;
Descr: IMetabaseObjectDescriptor;
Obj: IMetabaseObject;
Validation: IValidation;
Transform: IMsFormulaTransform;
Outputs: IMsFormulaTransformVariables;
Output: IMsFormulaTransformVariable;
Slice: IMsFormulaTransformSlice;
AttrValueList: IMsMetaAttributeValueList;
Attribute: IMetaAttribute;
Selector: IMsFormulaTransformSelector;
Formula: IMsFormula;
Begin
mb := MetabaseClass.Active;
RubrDescr := mb.ItemById("OBJ_RUBRICATOR");
Rubr := RubrDescr.Bind As IRubricator;
Info := mb.CreateCreateInfo;
Info.Parent := RubrDescr;
Info.ClassId := MetabaseObjectClass.KE_CLASS_VALIDATION;
Descr := mb.CreateObject(Info);
Obj := Descr.Edit;
Obj.Description := "Label at " + DateTime.Now.ToString;
Obj.Id := "VALIDATION";
Obj.Name := "VALIDATION";
Validation := Obj As IValidation;
Transform := Validation.Transform;
Outputs := Transform.Outputs;
Output := Outputs.Count = 0 ? Outputs.Add(Null) : Outputs.Item(0);
Slice := Output.Slices.Add(Null);
AttrValueList := Slice.MetaAttributeValueList;
AttrValueList.Clear;
Attribute := Rubr.Facts.Attributes.FindById("REV");
AttrValueList.Add(Attribute);
Selector := Transform.CreateSelector;
Selector.Slice := Slice;
Formula := Transform.Transform(Selector) As IMsFormula;
Formula.Kind := MsFormulaKind.Deterministic;
Formula.Level := DimCalendarLevel.Year;
(Formula.Method As IMsDeterministicTransform).Expression.AsString := "x[t] <> 0";
Obj.Save;
End Sub Main;
После выполнения примера в базы данных временных рядов будет создано правило валидации.
См. также: