IMetabaseUpdateProgress.OnSkip

Sub Main;
Var
    Mb: IMetabase;
    Upd: IMetabaseUpdate;
    Progress: MyUpdateProgress;
Begin   
    MB := MetabaseClass.Active;
    Upd := Mb.CreateUpdate;
    Upd.LoadFromFileNF("D:\Update.pefx");
    Progress := New MyUpdateProgress.Create(Upd);
    Upd.Apply(Progress);
    Upd.SaveToFileNF("D:\Update.pefx");
End Sub Main;

Public Class MyUpdateProgress: UpdateProgress
                update: IMetabaseUpdate;
            
                Public Constructor Create(update_ : IMetabaseUpdate);
                Begin
                               update := update_;
                End Constructor Create;
                
                Public Sub OnProgress(Data: IMetabaseUpdateProgressData);
                Var ObjectNode : IMetabaseUpdateObjectNode;
                Begin
                        Select Case Data.Stage
                            Case MetabaseUpdateProgressStage.Start: 
                                    Debug.WriteLine("Начало обновления объектов");
                                    Debug.WriteLine("лог конфликтов обновления:");
                                    Debug.WriteLine(update.SecurityConflictsLog);
                            Case MetabaseUpdateProgressStage.Prepare: Debug.WriteLine("Подготовка объекта");
                            Case MetabaseUpdateProgressStage.Apply:  Debug.WriteLine("Обновление объекта");
                            Case MetabaseUpdateProgressStage.AfterApply:  
                                    If Data.Node Is IMetabaseUpdateObjectNode Then
                                            Debug.WriteLine("Объект сохранен");
                                            ObjectNode:= Data.Node As IMetabaseUpdateObjectNode;
                                            Debug.WriteLine("лог изменения прав:");
                                            Debug.WriteLine(ObjectNode.SDApplyLog);
                                    End If; 
                            Case MetabaseUpdateProgressStage.Finish:  Debug.WriteLine("Обновления объектов завершено");
                        End Select;
                        Debug.WriteLine("Текущее " + Data.Current.ToString + " из " + Data.Total.ToString + " Объект " + Data.Node.Label);
                End Sub OnProgress;

                Public Sub OnSkip(Data: IMetabaseUpdateProgressData);
                Begin
                    Debug.WriteLine("OnSkip " + Data.Node.Label);
                End Sub OnSkip;
                
            
End Class MyUpdateProgress;