Модуль формирования пакета

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

Структура кода модуля состоит из двух частей: фиксированная часть, содержащая определение необходимых интерфейсов и классов, и прикладной класс, содержащий реализацию событий. Прикладной класс при необходимости может быть переименован. Для работы модуля формирования пакета добавьте ссылку на системную сборку Metabase.

Пример кода модуля:

// ---Фиксированная часть, всегда должна быть в модуле в указанном виде---
Public Interface IBaseEventArgs
End Interface IBaseEventArgs;

Public Interface IUpdateEventArgs: IBaseEventArgs
    
// Созданный файл обновления (.pefx)
    Public Property Update: IMetabaseUpdate
        
Get
    
End Property Update;
End Interface IUpdateEventArgs;

Public Class BaseEventArgs: Object, IBaseEventArgs
End Class BaseEventArgs;

Public Class UpdateEventArgs: BaseEventArgs, IUpdateEventArgs
    _update: IMetabaseUpdate;

    
Public Constructor Create(Upd: IMetabaseUpdate);
    
Begin
        _update := Upd;
    
End Constructor Create;

    
Public Property Update: IMetabaseUpdate
        
Get
        
Begin
            
Return _update;
        
End Get
    
End Property Update;
End Class UpdateEventArgs;
// Обработчики событий создания пакета
Public Interface ICreatePackageEvents
    
// Событие, наступающее перед созданием пакета
    Public Sub OnBeforeCreateUpdate(Sender: Variant; Args: IBaseEventArgs);
    
// Событие, наступающее после создания файла обновления (.pefx), добавления в него объектов и сортировки
    Public Sub OnAfterSortObjects(Sender: Variant; Args: IUpdateEventArgs);
    
// Событие, наступающее после создания пакета
    Public Sub OnAfterCreateUpdate(Sender: Variant; Args: IBaseEventArgs);
End Interface ICreatePackageEvents;
// ---Конец фиксированной части---
// ---Прикладной класс, содержащий реализацию событий---
Public Class MyComponentCreatePackageEvents: Object, ICreatePackageEvents
    
Public Sub OnBeforeCreateUpdate(Sender: Variant; Args: IBaseEventArgs);
    
Begin
        
// Код события...
    End Sub OnBeforeCreateUpdate;

    
Public Sub OnAfterSortObjects(Sender: Variant; Args: IUpdateEventArgs);
    
Begin
        
// Код события...
    End Sub OnAfterSortObjects;

    
Public Sub OnAfterCreateUpdate(Sender: Variant; Args: IBaseEventArgs);
    
Begin
        
// Код события...
    End Sub OnAfterCreateUpdate;
End Class MyComponentCreatePackageEvents;

См. также:

Формирование и установка обновлений | Формирование и установка обновлений компонента