|
0
33554432
20.03.15
✎
11:01
|
Ут 11
Реализация
Реквизиты печати ТТН
Там доверенности, их реквизиты
Создан самодельный справочник доверенностей.
Надо чтобы по клику на реквизите выпадал выбор справочника и заполнялись все поля.
Выпадение и заполнение одного поля сделал.
Как сделать заполнение остальных?
Спасибо что дочитали.
Дальше код.
Сделал такую процедуру
&НаСервере
Процедура ДоверенностиСписокНаСервере3(владелец2,лицо2)
запросдов33=новый запрос;
запросдов33.Текст="ВЫБРАТЬ
| ДоверенностиОтПокупателя.Ссылка
|ИЗ
| Справочник.ДоверенностиОтПокупателя КАК ДоверенностиОтПокупателя
|ГДЕ
| ДоверенностиОтПокупателя.ПометкаУдаления = ЛОЖЬ
| И ДоверенностиОтПокупателя.Контрагент = &Контрагент";
запросдов33.УстановитьПараметр("Контрагент",владелец2);
выгрузкадов33=запросдов33.Выполнить().Выгрузить();
Если выгрузкадов33.Количество()>0 тогда
СПРдов33=выгрузкадов33[0].ссылка.доверенности.выгрузить();
конецесли;
Список2 = Новый СписокЗначений;
для каждого стр33 из СПРдов33 цикл
//сообщить(стр33.Номер);
если строка(стр33.Лицо) = строка(лицо2) тогда
//Список2.Добавить(стр33.лицо);
//Список2.Добавить(стр33.Номер);
//Список2.Добавить(стр33.Дата);
//Список2.Добавить(стр33.ОкончаниеДействия);
сообщить(стр33.Номер);
ДоверНом=стр33.Номер;
ДоверенностьВыдана=стр33.Дата;
ДоверенностьДата2=стр33.ОкончаниеДействия;
элементы.ДоверенностьВыдана=стр33.Номер;
конецесли;
конеццикла;
//возврат Список2;
КонецПроцедуры
Вызывается она тут
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
ДоверенностиСписокНаСервере3(этаформа.ВладелецФормы.Объект.Ссылка.Контрагент,строка(этаформа.Элементы.ДоверенностьЛицо));
В итоге ничего не заполняется, при закрытии. Все остается пустым, кроме выбранного фио. Как исправить?
|
|
|
1
Web00001
20.03.15
✎
11:22
|
Это код как я понял из управляемой формы документа? Тогда надо заполнять поля объекта. Где то так Объект.ДоверНом=стр33.Номер; Посмотри как называется основной реквизит на форме. Непонятно если должен вываливаться по клику, то причем здесь "ПриЗакрытии"?
|
|