Voyajer
23.04.2014, 20:31
&НаКлиенте
Процедура БригадаПриИзменении(Элеме� �т)
// Вставить содержимое обработчика.
Если Объект.Исполнители.Количес тво()>0 Тогда
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Таблица исполнителей будет перезаполнена. Вы уверены?", Режим, 0);
Если Ответ = КодВозвратаДиалога.Нет Тогда
Объект.Бригада=стБригада;
Возврат;
Иначе
Объект.Исполнители.Очистит ь();
КонецЕсли;
КонецЕсли;
стБригада=Объект.Бригада;
Бригада=Объект.Бригада;
Исполнители=Объект.Исполни тели;
ДобавитьСостав(Бригада,Исп олнители);
КонецПроцедуры
&НаСервере
Процедура ДобавитьСостав(Бригада,Исп олнители)
БригадаОбъект=Бригада.Полу читьОбъект();
ТЧ=БригадаОбъект.Состав;
Для каждого Элемент из ТЧ Цикл
СтрокаТЧ=Исполнители.Добав ить();
СтрокаТЧ.Сотрудник=Элемент .ФизЛицо;
КонецЦикла;
КонецПроцедуры
Процедура БригадаПриИзменении(Элеме� �т)
// Вставить содержимое обработчика.
Если Объект.Исполнители.Количес тво()>0 Тогда
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Таблица исполнителей будет перезаполнена. Вы уверены?", Режим, 0);
Если Ответ = КодВозвратаДиалога.Нет Тогда
Объект.Бригада=стБригада;
Возврат;
Иначе
Объект.Исполнители.Очистит ь();
КонецЕсли;
КонецЕсли;
стБригада=Объект.Бригада;
Бригада=Объект.Бригада;
Исполнители=Объект.Исполни тели;
ДобавитьСостав(Бригада,Исп олнители);
КонецПроцедуры
&НаСервере
Процедура ДобавитьСостав(Бригада,Исп олнители)
БригадаОбъект=Бригада.Полу читьОбъект();
ТЧ=БригадаОбъект.Состав;
Для каждого Элемент из ТЧ Цикл
СтрокаТЧ=Исполнители.Добав ить();
СтрокаТЧ.Сотрудник=Элемент .ФизЛицо;
КонецЦикла;
КонецПроцедуры