IDatasetModelField.IsCalculated

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

Sub UserProc;
Var
    MB: IMetabase;
    DSInst: IDatasetInstance;
    DSModel: IDatasetModel;
    Fields: IDatasetModelFields;
    Field: IDatasetModelField;
    s: String;
Begin
    MB:=MetabaseClass.Active;
    DSInst:=MB.ItemById("Table_1").Open(Null) As IDatasetInstance;
    DSModel:=DSInst.Dataset;
    Fields:=DSModel.Fields;
    Field:=Fields.Item(0);
    If Field.IsCalculated Then
        s:="Yes";
    Else
        s:="No";
    End If;
    DSInst.Close;
End Sub UserProc;