IMsModelCalculation.ParamValues

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

Sub UserProc;
Var
    mb: IMetabase;
    Catalog: IRubricator;
    Transforms: IMetabaseObjectDescriptor;
    Model: IMsModel;
    parVals: IMsModelParamValues;
    parVal: IMsModelParamValue;
    i: Integer;
    Calculation: IMsModelCalculation;
Begin
    mb := MetabaseClass.Active;
    Catalog := mb.ItemById("FC_PARAM").Bind As IRubricator;
    Transforms := Catalog.ModelSpace;
    Model := mb.ItemByIdNamespace("MODEL", Transforms.Key).Edit As IMsModel;
    Calculation := Model.CreateCalculation;
    parVals := Calculation.ParamValues;
    For i := 0 To parVals.Count - 1 Do
        parVal := parVals.Item(i);
        Debug.WriteLine("Параметр " + i.ToString + ":");
        Debug.WriteLine("  значение параметра: " + parVal.Value);
        Debug.WriteLine("  значение по умолчанию: " + parVal.DefaultValue);
        Debug.WriteLine("  является ли параметр скрытым: " + parVal.Hidden.ToString);
        Debug.WriteLine("  идентификатор параметра: " + parVal.Id);
        Debug.WriteLine("  ключ параметра: " + parVal.Key.ToString);
        Debug.WriteLine("  наименование параметра: " + parVal.Name);
        Debug.WriteLine("  справочник, на который ссылается параметр: " + parVal.LinkedObject.Name);
    End For;
    Model.Execute(Calculation, -1);
    (Model As IMetabaseObject).Save;
End Sub UserProc;