IMetabaseUpdateUserEvents.OnBeforeApplyUpdate

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

Public Class CUpdateEvents: UpdateEvents
    Public Sub OnBeginUpdate(Update: IMetabaseUpdate);
    Begin
        Debug.WriteLine("Начало обновления объектов репозитория");
    End Sub OnBeginUpdate;

    Public Sub OnBeforeApplyUpdate(Update: IMetabaseUpdate);
    Var
        MB: IMetabase;
        Root: IMetabaseUpdateFolderNode;
        Node: IMetabaseUpdateNode;
        ObjectNode: IMetabaseUpdateObjectNode;
        State: IMetabaseUpdateObjectApplyState;
        CrInfo: IMetabaseObjectCreateInfo;
        MObj: IMetabaseObject;
        i: Integer;
    Begin
        MB := MetabaseClass.Active;
        Root := Update.RootFolder;
        For i := 0 To Root.Count - 1 Do
            Node := Root.Item(i);
            If Node.NodeType = MetabaseUpdateNodeType.Object Then
                ObjectNode := Node As IMetabaseUpdateObjectNode;
                State := ObjectNode.ApplyState;
                Select Case State.State
                    Case MetabaseUpdateObjectApplyState.Conflict, MetabaseUpdateObjectApplyState.ConflictObjectNotFound:
                        CrInfo := MB.CreateCreateInfo;
                        CrInfo.ClassID := ObjectNode.Object.ClassId;
                        CrInfo.Id := MB.GenerateId(ObjectNode.Object.Id);
                        CrInfo.Name := ObjectNode.Object.Name;
                        CrInfo.Parent := MB.Root;
                        CrInfo.SkipIdFormatCheck := True;
                        MObj := MB.CreateObject(CrInfo).Edit;
                        MObj.Save;
                        State.UpdateObject := MObj;
                        State.State := MetabaseUpdateObjectApplyState.EditExisting;
                End Select;
            End If;
        End For;
    End Sub OnBeforeApplyUpdate;

    Public Sub OnEndUpdate(Update: IMetabaseUpdate);
    Begin
        Debug.WriteLine("Обновление объектов завершено");
    End Sub OnEndUpdate;
End Class CUpdateEvents;