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

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 по причине: Раскрашен Код

Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.