Создание журнала

Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором "BD".

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

Log: ILog;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_LOG;

CrInfo.Id := "NewLog";

CrInfo.Name := "Новый журнал";

CrInfo.Parent := MB.Root;

Log := MB.CreateObject(CrInfo).Edit As ILog;

Log.Database := Mb.ItemById("BD").Bind As IDatabase;

Log.NativeName := "NewLog";

(Log As IMetabaseObject).Save;

End Sub Main;

После выполнения примера в корневом каталоге репозитория будет создан новый журнал. В дальнейшем данный журнал может использоваться для хранения информационных сообщений, используемых при расчете задачи ETL.

См.также:

Примеры