Галактика в вопросах и ответах

Код: Выделить всё

//******************************************************************************
//                                                      (c) корпорация Галактика
// Галактика 8.10 - обмен бизнес-документами
// интерфейс pre и post-обработки данных для экспорта/импорта
//******************************************************************************

// Перед компиляцией надо раскомментарить код описания VipInterface
// и добавить свой код в реализуемые этим интерфейсом public функции

#component "C_EXPIMP"

#include ExpImpScript.vih

VipInterface ExpImpScript_Default implements ObjExpImpScript licensed(free);

//------------------------------------------------------------------------------
// Обработчик точки расширения epBeforeExport
// Всегда должен возвращать TRUE для вызова других обработчиков.
handler with replace Default_BeforeExport on extensionPoint epBeforeExport (cIEHead : comp; sFileName : string) [100]
action
{
   var ifc : ExpImpScript_Default;
   ifc.BeforeExport (cIEHead, sFileName);
   result := true;
}

//------------------------------------------------------------------------------
// Обработчик точки расширения epAfterExport
// Всегда должен возвращать TRUE для вызова других обработчиков.
handler with replace Default_AfterExport on extensionPoint epAfterExport (cIEHead : comp; sFileName : string) [100]
action
{
   var ifc : ExpImpScript_Default;
   ifc.AfterExport (cIEHead, sFileName);
   result := true;
}

//------------------------------------------------------------------------------
// Обработчик точки расширения epBeforeImport
// Всегда должен возвращать TRUE для вызова других обработчиков.
handler with replace Default_BeforeImport on extensionPoint epBeforeImport (cIEHead : comp; sFileName : string) [100]
action
{
   var ifc : ExpImpScript_Default;
   ifc.BeforeImport (cIEHead, sFileName);
   result := true;
}

//------------------------------------------------------------------------------
// Обработчик точки расширения epAfterImport
// Всегда должен возвращать TRUE для вызова других обработчиков.
handler with replace Default_AfterImport on extensionPoint epAfterImport (cIEHead : comp; sFileName : string) [50]
action
{
   var ifc : ExpImpScript_Default;
   ifc.AfterImport (cIEHead, sFileName);
   result := true;
}



//------------------------------------------------------------------------------
// ObjExpImpScript - вызвается интерфейсами до/после экспорта/импорта документов.
// Сторонние разработчики могут написать свои реализации этого объектного интерфейса,
// чтобы привести данные в файле к нужному формату

Interface ExpImpScript_Default;
Create view;

// эта процедура вызвается до того, как файл для экспорта будет открыт
// sFileName - полный путь к файлу
// cIEHead - ссылка на настройку экспорта
public procedure BeforeExport(cIEHead : comp; sFileName : string);
{
    if (cIEHead = 0)  sFileName := '';
}

// эта процедура вызвается после того, как файл с результатами экспорта закрыт
// sFileName - полный путь к файлу
// cIEHead - ссылка на настройку экспорта
procedure AfterExport(cIEHead : comp; sFileName : string);
{
    if (cIEHead = 0)  sFileName := '';   // Чтобы не было предупреждений при компиляции
}

// эта процедура вызвается до того, как файл с данными для импорта будет открыт
// sFileName - полный путь к файлу
// cIEHead - ссылка на настройку импорта
procedure BeforeImport(cIEHead : comp; sFileName : string);
{
    if (cIEHead = 0)  sFileName := '';   // Чтобы не было предупреждений при компиляции
}

// эта процедура вызвается после того, как файл с данными для импорта будет закрыт
// sFileName - полный путь к файлу
// cIEHead - ссылка на настройку импорта
procedure AfterImport(cIEHead : comp; sFileName : string);
{
    if (cIEHead = 0)  sFileName := '';   // Чтобы не было предупреждений при компиляции
}
end. // интерфейс


/*
*/