ICubeCacheSaver

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

Sub UpdateCacheSaver;
Var
    MB: IMetabase;
    MDesc, CacheDesc: IMetabaseObjectDescriptor;
    CacheSaver: ICubeCacheSaver;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("<ID>");
    CacheDesc := GetCache(MDesc);
    If CacheDesc <> Null Then
        CacheSaver := CacheDesc.Edit As ICubeCacheSaver;
        (CacheSaver As IMetabaseObject).Save;
    End If;
End Sub UpdateCacheSaver;

Function GetCache(MObj: IMetabaseObjectDescriptor): IMetabaseObjectDescriptor;
Var
    MDescs: IMetabaseObjectDescriptors;
    MDesc: IMetabaseObjectDescriptor;
Begin
    MDescs := MObj.Children;
    For Each MDesc In MDescs Do
        If MDesc.ClassId = MetabaseObjectClass.KE_CLASS_CUBE_CACHE_SAVER Then
            Return MDesc;
        End If;
    End For;
    Return Null;
End Function GetCache;