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