Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 дек 2024, 02:41

Не перезаполняюся исполнители

Автор Voyajer, 27 апр 2014, 18:33

0 Пользователей и 1 гость просматривают эту тему.

Voyajer

Модуль формы документа:

&НаКлиенте
Процедура БригадаПриИзменении(Элемент)
ДокументОбъект=Объект;
ТрудовоеУчастиеНаКлиенте.ВыполнитьБригадаПриИзменении(ДокументОбъект,стБригада);
КонецПроцедуры


Общий модуль ТрудовоеУчастиеНаКлиенте :

Процедура ВыполнитьБригадаПриИзменении(ДокументОбъект,стБригада) Экспорт
Если ДокументОбъект.Исполнители.Количество()>0 Тогда
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Таблица исполнителей будет перезаполнена. Вы уверены?", Режим, 0);
Если Ответ = КодВозвратаДиалога.Нет Тогда
ДокументОбъект.Бригада=стБригада;
    Возврат;
КонецЕсли;
КонецЕсли;
стБригада=ДокументОбъект.Бригада;
    ТрудовоеУчастиеНаСервере.ДобавитьСостав(ДокументОбъект);
КонецПроцедуры


Общий модуль ТрудовоеУчастиеНаСервере :

&НаСервере
Процедура ДобавитьСостав(ДокументОбъект) Экспорт
ДокументОбъект.Исполнители.Очистить();
Если Не ДокументОбъект.Бригада.Пустая() Тогда
БригадаОбъект=ДокументОбъект.Бригада.ПолучитьОбъект();
ТЧ=БригадаОбъект.Состав;
Для каждого Элемент из ТЧ Цикл
СтрокаТЧ=ДокументОбъект.Исполнители.Добавить();
СтрокаТЧ.Сотрудник=Элемент.ФизЛицо;
КонецЦикла;
КонецЕсли;
КонецПроцедуры


Исполнители не перезаполняются...Проблема, я думаю, при передаче в функцию ДобавитьСостав ДокументОбъект

wise

ХОРОШЕЕ предположение... :)

а ЧТО говорит отладчик ?? :mellow:
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

cska-fanat-kz

Параллельный вопрос:
Цитата: Voyajer от 27 апр 2014, 18:33БригадаОбъект=ДокументОбъект.Бригада.ПолучитьОбъект();

Зачем получать объект Бригады?

Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Теги:

Похожие темы (1)

Рейтинг@Mail.ru

Поиск