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