Спасибо Алексей Диркс
git
Техника такая
в файле определения классов я вношу такие изменения
класс Меркурий_ГлобальныйМодуль.База = ExtForms\Меркурий\Меркурий_ГлобальныйМодуль.ert{};
класс Меркурий_ГлобальныйМодуль = ExtForms\Меркурий\Меркурий_ГлобальныйМодуль_МС.ert : Меркурий_ГлобальныйМодуль.База{};
Таким образом получаю класс Меркурий_ГлобальныйМодуль, который наследует от Меркурий_ГлобальныйМодуль.База. Теперь в наследнике я могу переопределять любые методы базового класса, с возможностью вызова методов базового класса в произвольном порядке.
например:
Функция ЗаполнитьСтрокуДокумента(тзРезультат, тзОснование, докОснование = "") Экспорт
//Базовый функционал
База = Сам(Контекст).ПолучитьБазовыйКласс();
База.ЗаполнитьСтрокуДокумента(тзРезультат, тзОснование, докОснование);
//==== Наша самодеятельность ====
оНом = СоздатьОбъект("ТСправочник.Номенклатура");
ПродЭл = тзРезультат.Продукция_Элемент; //:Справочник.ВСД_Продукция_Элемент
Мест = оНом.Мест(тзРезультат.Номенклатура, тзРезультат.Количество);
тзРезультат.ФормаУпак2 = ПродЭл.ФормаУпаковки;
тзРезультат.КолВоУпак2 = Мест;
/// и т.д.
КонецФункции
И чтобы всё это работало, в базовом классе все вызовы методов, которые могут быть переопределены, длжны выполняться через Сам().
Т.е. вместо
ЗаполнитьСтрокуДокумента( ТЗПартий, тз, Докум );
надо писать
Сам().ЗаполнитьСтрокуДокумента( ТЗПартий, тз, Докум );
В парадигме ООП это называется виртуальными методами.
Обновлено