Имя: Пароль:
1C
1С v8
Продолжаю долбить общую форму. Нид хелп.
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.Номер; Посмотри как называется основной реквизит на форме. Непонятно если должен вываливаться по клику, то причем здесь "ПриЗакрытии"?
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс