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

[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?