0
ПашаК
11.03.13
✎
09:04
|
осваиваю управляемые формы... запутался
Пока получилось как то так:
&НаКлиенте
Процедура Команда1(Команда)
пвМероприятия.Очистить();
СЗ = Новый СписокЗначений;
ЗаполнитьСписокДокументов(СЗ);
Для каждого стрСЗ Из СЗ Цикл
ВидМероприятия="";
Сотрудник="";
НовСтрокаТЗ=пвМероприятия.Добавить();
ЗаполнитьРеквизитыДокумента(стрСЗ.Значение,ВидМероприятия, Сотрудник);
НовСтрокаТЗ.мероприятиеТЗ=стрСЗ.Значение;
НовСтрокаТЗ.Вид=ВидМероприятия;
НовСтрокаТЗ.Куратор=Сотрудник;
КонецЦикла;
Элементы.пвМероприятия.Видимость = Истина;
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ЗаполнитьРеквизитыДокумента(СсылкаДок,ВидМероприятия, Сотрудник)
ДатаМероприятия=СсылкаДок.ДатаПроведения;
ВидМероприятия=СсылкаДок.ВидМероприятия;
Сотрудник=СсылкаДок.Организатор;
КонецПроцедуры //
&НаСервереБезКонтекста
Процедура ЗаполнитьСписокДокументов(сз)
ДокВыборка= Документы.Мероприятие.Выбрать();
Пока ДокВыборка.Следующий() Цикл
сз.Добавить(ДокВыборка.Ссылка);
КонецЦикла;
КонецПроцедуры
Сначала вызываю процедуру на сервере и забиваю список документами (тз не передается). Потом вызываю другую процедуру, чтобы вытянуть реквизиты для каждого документа. Но это как то некрасиво.
|
|