IForeMethods.Clear

Clear;

Clear();

Sub UserProc;
Var
    Mb: IMetabase;
    SharedParams: ISharedParams;
Begin
    Mb := MetabaseClass.Active;
    SharedParams := Mb.SpecialObject(MetabaseSpecialObject.SharedParams).Edit As ISharedParams;
    SharedParams.Methods.Clear;
    (SharedParams As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.KeFore;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    SharedParams: ISharedParams;
Begin
    Mb := Params.Metabase;
    SharedParams := Mb.SpecialObject[MetabaseSpecialObject.msoSharedParams].Edit() As ISharedParams;
    SharedParams.Methods.Clear();
    (SharedParams As IMetabaseObject).Save();
End Sub;