Ага, пример неудачный, все равно возьмется именно первый объект из иерархии, чей тип равен Док.РКО

kms писал(а) 30. Мая 2006 :: 15:08:

Еще хуже
Есть разница - в этом случае класс Документы_СБухИтогами ни в коем случае не должен наследовать от Док.РКО, ведь в иерархии он не унаследован от такого класса !

Автор, пиши еще

artbear писал(а) 30. Мая 2006 :: 15:12:

Это как?

Я и рисую другую иерархию, чтоб было понятно:

класс Документы_СБухИтогами = __Документы_СБИ@MD : Справочник.Товары
{};

Документы_СБухИтогами::Инит(__Конкретный_Товар)
{
ЗаменитьБазовыйОбъект("Справочник.Товары", __Конкретный_Товар);
}
 

Еще скажи, что документы от справочников не наследуют 

В примере с товаром, если принять предложение Федора,

СоздатьОбъект("Документы_СБухИтогами").Инит(Товар) будет работать,
 

а

СоздатьОбъект("Документ_РКО").Инит(Товар) не будет.
 

Ну разве это не хреново, други?

Брр, я почти запутался. Какое предложение Федора??
Вроде в последнем примере все правильно, все нормально наследуется и заменяется.
Юнит-тесты есть

Вот беру я мою иерархию. И в код класса Документы_СБухИтогами (который у меня сам по себе, и ни от кого не наследуется) вставляю вызов Сам(Контекст).Вид().
И не смотря на то, что класс Документы_СБухИтогами ничего не знает об иерархии класса Документ_РКО - этот вызов нормально отрабатывает и делает именно то, что мне нужно.

И называется это полиморфизм.

Почему же когда я хочу добиться подобного поведения не от метода Вид(), а от метода ЗаменитьЭксзБазовогоКласса() - это уже становится не ООП?

Пока я вижу в своем предложении единственную проблему, описанную в твоем примере. Но эта проблема появляется только в случае, когда у нас задвоены суперклассы в иерархии. Однако в данном случае мы в первую очередь сталкиваемся с отвратительным дизайном, что само по себе
kms писал(а) 30. Мая 2006 :: 12:50:

Федор, еще раз поясни, что ты хочешь от ЗаменитьБазовыйОбъект? с учетом того, как счас мы построили иерархию

artbear писал(а) 30. Мая 2006 :: 15:30:


Еще раз от начала и до самого конца.

Итак, у нас есть два документа, и два класса, расширяющих функционал штатных 1С-вых документов.
Например "Документ.РКО" => "Документ_РКО" и "Документ.РКО_Вексельный" => "Документ_РКО_Вексельный".
Смотрим мы в модуль проведения каждого из этих документов и видим, что у нас имеется одинаковая последовательность методов:

_Сам = СоздатьОбъект("Документ_РКО");
_Сам.ЗаменитьЭксзБазовогоКласса("Документ.РКО", Контекст);
_Сам.__Инит__();
 

В _Сам.__Инит__() происходит расчет всяких разных нужных данных. Например бухитогов на позицию документа. Более того, метод __Инит__() для обоих классов одинаковый, и реализован в суперклассе "Документы_СБухИтогами".

Итоговая иерархия вот такая:
defcls.prm

класс Документы_СБухИтогами = __Документы_СБухИтогами@MD
{
    void __Инит__();
};

класс Документ_РКО = __Документ_РКО@MD : Документ.РКО, Документы_СБухИтогами
{};

класс Документ_РКО_Вексельный = __Документ_РКО_Вексельный@MD : Документ.РКО_Вексельный, Документы_СБухИтогами
{};
 

Хочется и строчку _Сам.ЗаменитьЭксзБазовогоКласса("Документ.РКО", Контекст); засунуть в этот самый __Инит__(), с тем чтобы это выглядело примерно так:

_Сам = СоздатьОбъект("Документ_РКО");
_Сам.__Инит__(Контекст);
 

При этом в методе Документы_СБухИтогами::__Инит__(КонтекстДокумента) первой строчкой будет стоять вот такое:

Сам(Контекст).ЗаменитьЭксзБазовогоКласса("Документ."+КонтекстДокумента.Вид(), КонтекстДокумента)
 

Так вот, когда такое делаешь - реальной замены базового класса не происходит. То есть если в тот же самый __Инит__ следующими строчками вставить

Сообщить(""""+КонтекстДокумента.Фирма+"""");
Сообщить(""""+Сам(Контекст).Фирма+"""");
 

то будет написано
Цитата: