&НаСервере
Функция СоздатьОсновнойДоговор(Организация, Контрагент, ВидДоговора, СделатьОсновным=Ложь)
НовыйДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
НовыйДоговор.Организация = Организация;
НовыйДоговор.Владелец = Контрагент;
НовыйДоговор.ВидДоговора = ВидДоговора;
НовыйДоговор.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить();
НовыйДоговор.Наименование = ВидДоговора;
Попытка
НовыйДоговор.Записать();
Исключение
ТекстОшибки = СтрШаблон("Не удалось сохранить новый договор для контрагента %1 по виду договора %2 для организации %3", Контрагент, ВидДоговора, Организация);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
Возврат Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
КонецПопытки;
Если СделатьОсновным Тогда
СтруктураПараметров = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(НовыйДоговор.Ссылка, "Организация, ВидДоговора, Владелец");
НоваяЗапись = РегистрыСведений.ОсновныеДоговорыКонтрагента.СоздатьМенеджерЗаписи();
НоваяЗапись.Организация = СтруктураПараметров.Организация;
НоваяЗапись.Контрагент = СтруктураПараметров.Владелец;
НоваяЗапись.ВидДоговора = СтруктураПараметров.ВидДоговора;
НоваяЗапись.Договор = НовыйДоговор;
Попытка
НоваяЗапись.Записать(Истина);
Исключение
ТекстОшибки = СтрШаблон("Не удалось указать договор %1 основным для контрагента %2", НовыйДоговор, Контрагент);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
КонецПопытки;
КонецЕсли;
Возврат НовыйДоговор.Ссылка;
КонецФункции
Удаление дублей договоров в 1С
Сформировать сумму строкой в договор