helpf.pro
Регистрация

v8: Регистры сведений отбор

lapinio
30.08.2011 09:31Прочитано: 3750
Как выгрузить запрос из регистра и сделать отбор по данным регистра в справочнике!!!.

В модуле формы код:

&НаСервереБезКонтекста
Функция зк(Контрагент)
зп=новый Запрос;
зп.Текст="ВЫБРАТЬ
| исПланЭтаповОплатыСрезПоследних.ЭтапОплаты
|ИЗ
| РегистрСведений.исПланЭтаповОплаты.СрезПоследних(, Контрагент = &Контрагент) КАК исПланЭтаповОплатыСрезПоследних";
зп.УстановитьПараметр("Контрагент",Контрагент);
рз=зп.Выполнить().Выгрузить();
//вб=рз.Выбрать();
//Пока вб.Следующий() Цикл
Возврат рз;
//КонецЦикла;
КонецФункции

&НаКлиенте
Процедура ЭтапРаботНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
объект.ЭтапРабот="";
СтандартнаяОбработка = Ложь;
рез1=зк(Объект.Контрагент);
ЗначениеОтбора= новый Структура("Наименование",рез1);
Парам= Новый Структура("Отбор",ЗначениеОтбора);
фм=ПолучитьФорму("Справочник.исЭтапыРабот.ФормаСписка",Парам);
фм.открыть();
КонецПроцедуры
Yandex
Возможно, вас также заинтересует
Реклама на портале
E_Migachev
30.08.2011 12:38Ответ № 1
Так вот и идет выгрузка рз=зп.Выполнить().Выгрузить();
опиши подробнее, что ты хочешь!?
lapinio
30.08.2011 17:10Ответ № 2
Правильный вариант!!!

Код 1C v 8.2 УП
 &НаСервереБезКонтекста
Функция зк(Договор)
зп=новый Запрос;
зп.УстановитьПараметр("Договор",Договор);
зп.Текст="ВЫБРАТЬ
| исПланЭтаповОплатыСрезПоследних.ЭтапОплаты
|ИЗ
| РегистрСведений.исПланЭтаповОплаты.СрезПоследних(, Договор = &Договор) КАК исПланЭтаповОплатыСрезПоследних";
рз=зп.Выполнить().Выгрузить();
массив=рз.ВыгрузитьКолонку("ЭтапОплаты");
Возврат массив;
КонецФункции

&НаКлиенте
Процедура ЭтапРаботНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка =Ложь;
объект.ЭтапРабот="";
Значение= зк(Объект.Договор);
ФМ = ПолучитьФорму("Справочник.исЭтапыРабот.ФормаВыбора", ,Элемент, , );
ЭлементОтбора = фм.Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Ссылка");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ПравоеЗначение = Значение;
ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
ФМ.Заголовок="Выбор этапа работ";
ФМ.Открыть();
КонецПроцедуры

Изменено 31.08.11 10:33:35 по причине: Раскрашен Код
Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.