M_Volkov
Gold Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: // Устанавливает у ОбъектСвойства - ДоговорыКонтрагентов свойство "Ответная часть договора" в ЗначениеСвойства
// если ЗначениеСвойства=Неопределено, то удаляет данное свойство.
Процедура УстановитьОтветныйДоговор(ОбъектСвойства, ЗначениеСвойства) Экспорт
НаборЗаписейЗначенияСвойств = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
СвойствоОбъекта = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Ответная часть договора");
Если Не ЗначениеСвойства = Неопределено Тогда
Запись = НаборЗаписейЗначенияСвойств.Добавить();
Запись.Объект = ОбъектСвойства;
Запись.Свойство = СвойствоОбъекта;
Запись.Значение = ЗначениеСвойства;
КонецЕсли;
НаборЗаписейЗначенияСвойств.Отбор.Объект.Установить(ОбъектСвойства);
// НаборЗаписейЗначенияСвойств.Отбор.Объект.Установить(СвойствоОбъекта);
Попытка
НаборЗаписейЗначенияСвойств.Записать();
// Сообщить("Договору '"+ОбъектСвойства+"' записана ответная часть договора '"+?(ЗначениеСвойства = Неопределено, "Неопределено",ЗначениеСвойства)+"'");
Исключение
#Если Клиент Тогда
Сообщить("Не удалось записать '" + ОбъектСвойства + "' значения свойства ответная часть договора '" + ?(ЗначениеСвойства = Неопределено, "Неопределено",ЗначениеСвойства) + "'" + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
#КонецЕсли
КонецПопытки;
КонецПроцедуры |
|
Всего записей: 5783 | Зарегистр. 23-06-2008 | Отправлено: 17:30 28-06-2011 | Исправлено: M_Volkov, 17:34 28-06-2011 |
|
