Ф-я "Объединить Поставщиков" где код то?

[Константин!]

Наивно пологая найти ченибуть свеженькое в навике пошол в отчет 12465 "Объединение операций Контрагентов" и обнаружил что реально кода по переименованию записей связязаных с контрагентом не сушествует а все зашитов в движке.
Блин так хотелось халявы и все обламилось

[apanko]

Странно, я в этом отчете обнаружил следующий код

IF (OldVendor <> '') AND (NewVendor <> '') THEN
   WITH Vendor DO BEGIN
	   Vend.GET(NewVendor);
	   TmpVendor.INIT;
	   TmpVendor.TRANSFERFIELDS(Vend);
	   Vend.DELETE;
	   IF RENAME(NewVendor) THEN BEGIN
		  TRANSFERFIELDS(TmpVendor);
		  MODIFY;
	   END ELSE BEGIN
	   TmpVendor.INSERT;
	END;
END;

Вы искали что-нибудь другое или недовольны, что объединение выполнено с помощью RENAME?

[Константин!]

Да я искал код исправления всех связаных таблиц.