Если ТипДанных = Тип("РегистрНакопленияНаборЗаписей.ТоварыНаСкладах") Тогда
Если ТипЗнч(ЭлементДанных.Отбор.Регистратор.Значение) = Тип("ДокументСсылка.ПеремещениеТоваров") Тогда
Если ЭлементДанных.Отбор.Регистратор.Значение.СкладПолучатель <> Склад Тогда
ОтправкаЭлемента = ОтправкаЭлементаДанных.Удалить;
КонецЕсли;
КонецЕсли;
Если ТипДанных = Тип("РегистрНакопленияНаборЗаписей.ТоварыНаСкладах") Тогда
Если ТипЗнч(ЭлементДанных.Отбор.Регистратор.Значение) = Тип("ДокументСсылка.ПеремещениеТоваров") Тогда
Если ЭлементДанных.Отбор.Регистратор.Значение.СкладПолучатель <> Склад Тогда
ОтправкаЭлемента = ОтправкаЭлементаДанных.Удалить;
КонецЕсли;
КонецЕсли;
Иначе
ОтправкаЭлемента = ОтправкаЭлементаДанных.Удалить;
КонецЕсли;
(1) в данном случае в переферии нужны только перемещения товаров
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший