IMetabase.CreateCheckList

Синтаксис

CreateCheckList: IMetabaseCheckList;

CreateCheckList(): Prognoz.Platform.Interop.Metabase.IMetabaseCheckList;

Описание

Метод CreateCheckList создает список, используемый для расчета и проверки контрольных сумм объектов репозитория.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «Folder_1».

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    CheckList: IMetabaseCheckList;
    MObj, MObj1: IMetabaseObjectDescriptor;
Begin
    MB := MetabaseClass.Active;
    CheckList := MB.CreateCheckList;
    MObj := MB.ItemById("Folder_1");
    CheckList.Add(MObj);
    For Each MObj1 In MObj.Children Do
        CheckList.Add(MObj1);
    End For;
    CheckList.SaveToFile("c:\control.crc");
End Sub UserProc;

Public Shared Sub Main(Params: StartParams);
    Var
    MB: IMetabase;
    CheckList: IMetabaseCheckList;
    MObjs: IMetabaseObjectDescriptors;
    MObj: IMetabaseObjectDescriptor;
    i: Integer;
Begin
    MB := Params.Metabase;
    CheckList := MB.CreateCheckList();
    MObj := MB.ItemById["Folder_1"];
    MObjs := MObj.Children;
    CheckList.Add(MObj);
    For i := 0 To MObjs.Count - 1 Do
        MObj := MObjs.Item[i];
        CheckList.Add(MObj);
    End For;
    CheckList.SaveToFile("c:\control.crc");
End Sub;

После выполнения примера будет создан список для расчета контрольных сумм объектов. В данный список будет добавлен объекта «Folder_1» и все его дочерние объекты, если таковые имеются. После расчета контрольные суммы будут сохранены в файл «c:\control.crc».

См. также:

IMetabase