Доработка функции ОбщегоНазначения.ЗаменитьСсылки для автоматической чистки или свёртки табличных частей

В функции ОбщегоНазначения.ЗаменитьСсылки можно вставить вызов переопределяемых обработчиков событий по технологии как в БСП, переопределив их в модулях менеджеров этих требующих уникальности строк документов.

Суть метода быстрее всего понять из этого куска кода:

Функция ИзмененныеОбъектыПриЗаменеВОбъекте(ПараметрыВыполнения, МестоИспользования, ОбрабатываемыеСтроки)

Вместо вызова ЗаменитьВКоллекцииСтрок(…) в типовой вставляем наш кусок кода:

 // Табличные части
Для Каждого Элемент Из Описание.ТабличныеЧасти Цикл
СтандартнаяОбработка = Истина;
Если МодульМенеджера <> Неопределено Тогда
МодульМенеджера.ПриЗаменеВКоллекцииСтрок(
"ТабличныеЧасти",
Элемент.Имя,
Объект,
Объект[Элемент.Имя],
Элемент.СписокПолей,
ПарыЗамен,
СтандартнаяОбработка);
КонецЕсли;

// несмотря на наличие вызова модуля - применяем стандартную обработку
Если СтандартнаяОбработка Тогда
ЗаменитьВКоллекцииСтрок(
"ТабличныеЧасти",
Элемент.Имя,
Объект,
Объект[Элемент.Имя],
Элемент.СписокПолей,
ПарыЗамен);
КонецЕсли;
КонецЦикла;

Конечно надо инициализировать МодульМенеджера. Я это делаю в том же модуле ОбщегоНазначения

Функция ИзмененныеОбъектыПриЗаменеВОбъекте(ПараметрыВыполнения, МестоИспользования, ОбрабатываемыеСтроки)

 МодульМенеджера = ПараметрыВыполнения.МодулиМенеджеровПриЗаменеВКоллекцииСтрок[ТипЗнч(Данные)];

Конечно надо инициализировать это соответствие, и пр…  (эту всю кухню смотрите в исходниках, про неё в статье читать скучно, не говоря о том чтобы писать)

[Не намного, но всё же] веселее писать про модуль менеджера документа. Вот пример для УстановкаЦенНоменклатуры:

Процедура ПриЗаменеВКоллекцииСтрок(ВидКоллекции, ИмяКоллекции, Объект, Коллекция, Знач СтруктураПолей, Знач ПарыЗамен, СтандартнаяОбработка) Экспорт

Если ВидКоллекции = "ТабличныеЧасти" Тогда
Если ИмяКоллекции = "Товары" Тогда
СтандартнаяОбработка = Ложь;
ПоискИУдалениеДублей.УдалитьДублиВКоллекцииСтрок(ВидКоллекции, ИмяКоллекции, Объект, Коллекция, СтруктураПолей, ПарыЗамен);
КонецЕсли;

ИначеЕсли ВидКоллекции = "Движения" Тогда

Если ИмяКоллекции = "РегистрСведений.ЦеныНоменклатуры" Тогда
СтандартнаяОбработка = Ложь;
ПоискИУдалениеДублей.УдалитьДублиВКоллекцииСтрок(ВидКоллекции, ИмяКоллекции, Объект, Коллекция, СтруктураПолей, ПарыЗамен);
КонецЕсли;

КонецЕсли;


КонецПроцедуры

Вот пример процедуры общего модуля ПоискИУдалениеДублей — это чтобы не писать в каждом модуле менеджера документа одно и то же — вынес случаи а) и б) в общий модуль:

Процедура УдалитьДублиВКоллекцииСтрок(ВидКоллекции, ИмяКоллекции, Объект, Коллекция, Знач СтруктураПолей, Знач ПарыЗамен) Экспорт

// не представляю какие там бывают коллекции, но
Если Не СтруктураПолей.Свойство("Номенклатура") Тогда
Возврат;
КонецЕсли;

РабочаяКоллекция = Коллекция.Выгрузить();
ПараметрыОтбора = Новый Структура("Номенклатура");

СоответствиеЦелевыхСсылок = ОбщегоНазначения.СоответствиеЗначенийСоответствия(ПарыЗамен);
мСоответствиеЦелевыхСсылок = Новый Соответствие;

Для каждого ЭлементЦелевыхСсылок Из СоответствиеЦелевыхСсылок Цикл

ПараметрыОтбора.Номенклатура = ЭлементЦелевыхСсылок.Ключ;
Если РабочаяКоллекция.НайтиСтроки(ПараметрыОтбора).Количество() > 0 Тогда
мСоответствиеЦелевыхСсылок.Вставить(ЭлементЦелевыхСсылок.Ключ, Истина); // надо переносить данные, потому что из ОбщегоНазначения вернулось ReadOnly соответствие
КонецЕсли;

КонецЦикла;

Модифицировано = Ложь;
Для каждого Пара Из ПарыЗамен Цикл

ЦелеваяСсылка = Пара.Значение;
ПараметрыОтбора.Номенклатура = Пара.Ключ;
НайденныеСтроки = РабочаяКоллекция.НайтиСтроки(ПараметрыОтбора);
Н = НайденныеСтроки.Количество() - 1;
Пока Н >= 0 Цикл
ТекущаяСтрока = НайденныеСтроки[Н];
Если Не мСоответствиеЦелевыхСсылок[ЦелеваяСсылка] = Истина Тогда
// присваиваем вручную в первой встречной строке товара целевую ссылку
//ЗарегистрироватьФактЗамены(Данные, СтрокаТовара.Номенклатура, ЦелеваяСсылка, "ТабличныеЧасти", "Товары", ТаблицаТоваров.Индекс(СтрокаТовара), "Номенклатура");
ТекущаяСтрока.Номенклатура = ЦелеваяСсылка;
мСоответствиеЦелевыхСсылок.Вставить(ЦелеваяСсылка, Истина);
Иначе
РабочаяКоллекция.Удалить(ТекущаяСтрока);
КонецЕсли;

Модифицировано = Истина;

Н = Н - 1;
КонецЦикла;

КонецЦикла;

Если Модифицировано Тогда
Коллекция.Загрузить(РабочаяКоллекция);
КонецЕсли;

КонецПроцедуры

Какие там бывают коллекции — я до сих пор не представляю. Названия нужных ВидКоллекции ловил в отладчике.

Ещё есть элегантный кусок модуля ПоискИУдалениеДублейПереопределяемый, вот он:

#Область ПрограммныйИнтерфейс

// Определить объекты, в модулях менеджеров которых предусмотрена возможность параметризации
// алгоритма поиска дублей с помощью экспортных процедур ПараметрыПоискаДублей, ПриПоискеДублей
// и ВозможностьЗаменыЭлементов.
//
// Параметры:
//   Объекты - Соответствие - объекты, в модулях менеджеров которых размещены экспортные процедуры.
//       ** Ключ     - Строка - полное имя объекта метаданных, подключенного к подсистеме "Поиск и удаление дублей".
//                              Например, "Справочник.Контрагенты".
//       ** Значение - Строка - имена экспортных процедур, определенных в модуле менеджера.
//                              Могут быть указаны:
//                              "ПараметрыПоискаДублей",
//                              "ПриПоискеДублей",
//                              "ВозможностьЗаменыЭлементов".
//                              Каждое имя должно начинаться с новой строки.
//                              Если указана пустая строка, то в модуле менеджера определены все процедуры.
//++ Альберт -- Поиск и замена дублей. Переопределение замены ссылок в документах
//    "ПриЗаменеВКоллекцииСтрок"
//-- Альберт -- Поиск и замена дублей. Переопределение замены ссылок в документах
//
// Пример:
//  1. В справочнике определены все процедуры:
//  Объекты.Вставить(Метаданные.Справочники.Контрагенты.ПолноеИмя(), "");
//
//  2. Определены только процедуры ПараметрыПоискаДублей и ПриПоискеДублей:
//  Объекты.Вставить(Метаданные.Справочники.ЗадачиПроекта.ПолноеИмя(), "ПараметрыПоискаДублей
//                   |ПриПоискеДублей");
//
Процедура ПриОпределенииОбъектовСПоискомДублей(Объекты) Экспорт

//++ Альберт -- Поиск и замена дублей. Переопределение замены ссылок в документах
Объекты.Вставить(Метаданные.Документы.УстановкаЦенНоменклатуры.ПолноеИмя(), "ПриЗаменеВКоллекцииСтрок");
Объекты.Вставить(Метаданные.Документы.РегистрацияЦенНоменклатурыПоставщика.ПолноеИмя(), "ПриЗаменеВКоллекцииСтрок");
Объекты.Вставить(Метаданные.Документы.РегистрацияОстатковНоменклатурыПоставщика.ПолноеИмя(), "ПриЗаменеВКоллекцииСтрок");
Объекты.Вставить(Метаданные.Документы.ЗаказПоставщику.ПолноеИмя(), "ПриЗаменеВКоллекцииСтрок");
Объекты.Вставить(Метаданные.Документы.ПоступлениеТоваровУслуг.ПолноеИмя(), "ПриЗаменеВКоллекцииСтрок");
//-- Альберт -- Поиск и замена дублей. Переопределение замены ссылок в документах

КонецПроцедуры

#КонецОбласти

Во вложении один файл с исходниками, разбитый по областям — именам тех модулей, куда надо вставлять код.

P.S. Друзья, я это никогда нигде не внедрял, (на своей фирме оно как-то само создалось) поэтому могут быть ляпы типа "забыл ещё модуль такой-то". Не судите строго, спрашивайте, догружу недостающие 🙂