Имя: Пароль:
1C
1С v8
передача значения на форму подбора
0 wowas
 
09.04.19
21:06
В документе с ТЧ Номенклатура есть кнопка подбора по которой открывается форма с реквизитами Адрес и Выручка. Адрес является одним из условий отбора в ТЧ (это сделал все хорошо), а Выручка просто вспомогательный реквизит (не важно для чего). Как сделать чтобы Выручка заполнялась из документа поля Цена ТЧ Номенклатура?

&НаКлиенте
Процедура Подбор(Команда)

        ПараметрыПередачи = Новый Структура;
         СтруктураОтбора = Новый Структура;
         СтруктураОтбора.Вставить("Адрес",Объект.Адрес);
         ПараметрыПередачи.Вставить("Отбор",СтруктураОтбора);
      
       ОткрытьФорму("Справочник.ТранспортныеСредства.ФормаВыбора",ПараметрыПередачи, Элементы.Номенклатура);
КонецПроцедуры


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
        Авто.Параметры.УстановитьЗначениеПараметра("Адрес", Параметры.Отбор.Адрес);
        Адрес=Параметры.Отбор.Адрес;
    
КонецПроцедуры
1 Жан Пердежон
 
10.04.19
06:30
ПараметрыПередачи.Вставить("Выручка",Выручка);

далее, догадаешься
2 wowas
 
10.04.19
08:11
(1) я тупой((( не догадаюсь((( расскажи плес
3 dexter_86
 
10.04.19
08:54
&НаКлиенте
Процедура Подбор(Команда)

        ПараметрыПередачи = Новый Структура;
ПараметрыПередачи.Вставить("Выручка",Выручка);
         СтруктураОтбора = Новый Структура;
         СтруктураОтбора.Вставить("Адрес",Объект.Адрес);
         ПараметрыПередачи.Вставить("Отбор",СтруктураОтбора);
      
       ОткрытьФорму("Справочник.ТранспортныеСредства.ФормаВыбора",ПараметрыПередачи, Элементы.Номенклатура);
КонецПроцедуры


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
        Авто.Параметры.УстановитьЗначениеПараметра("Адрес", Параметры.Отбор.Адрес);
        Адрес=Параметры.Отбор.Адрес;
     Выручка = Параметры.Выручка;
КонецПроцедуры
4 wowas
 
10.04.19
11:48
(3) Дай Бог тебе здоровья
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс