Работа с дублированием

[S#4]

Здравствуйте!
надеюсь кто-то подскажет
Необходимо оставить первую часть строки ДоговорНаименование и запятую, если обнаруживается дублирование. Если дублирования нет, нужно вывести полное наименование.

Код Выделить Развернуть

ДоговорНаименование = СсылкаНаОбъект.ДоговорКонтрагента.Наименование + " ,";
Если СтрНайти(ДоговорНаименование, "Приложение") = 0 Тогда
Приложение = СсылкаНаОбъект.Товары[0].ПриложенияДоговораКонтрагента.Наименование;
Если ЗначениеЗаполнено(Приложение) Тогда       
СклонениеДоговора = ПолучитьСклоненияСтроки(ДоговорНаименование, , "ПД=Дательный");
ДоговорНаименование = "Приложение № " + Приложение + " к " + СклонениеДоговора[0];
КонецЕсли;
КонецЕсли;     


[Afinogen]

СтрРазделить, СтрЗаменить вам в помощь