Связь Параметров

[Artjomrgv]

Помогите с параметрами. 1С 8.2, БП 2.0. Смысл следующий  программно задать соответствие между организацией и контрагентом. Возможно ли такое


Процедура ОрганизацияПриИзменении(Элемент)
ПараметрОрганизация = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Организация");
ПараметрОрганизация.Использование = Истина;
ПараметрОрганизация.Значение  = Организация;

КонецПроцедуры

   
Процедура КонтрагентВХПриИзменении(Элемент)
ПараметрКонтрагентВХ = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("КонтрагентВХ");
ПараметрКонтрагентВХ.Использование = Истина
ПараметрКонтрагентВХ.Значение  = КонтрагентВХ;

КонтрагентВХ=Выбор КОГДА ПараметрОрганизация="ОПЕР" ТОГДА Справочники.Контрагенты.НайтиПоНаименованию("Сод") ИНАЧЕ Справочники.Контрагенты.НайтиПоНаименованию("ТОР")КОНЕЦ   
                           
КонецПроцедуры

Заранее спасибо

[cska-fanat-kz]

то же самое только с использованием оператора ?(,,)

[Artjomrgv]

то же самое только с использованием оператора ?(,,)

Маленько упростил.

Настройки=КомпоновщикНастроек.Настройки;
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Организация", Справочники.Организации.НайтиПоНаименованию("ОПЕР"));
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Контрагент", Справочники.Контрагенты.НайтиПоНаименованию("СУД"));
                                                               
Если Организация=Справочники.Организации.НайтиПоНаименованию("ОПЕР")
Тогда                                                                                                         
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("ДОР"))
Иначе   Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("СОН"))
КонецЕсли

Как обратиться именно к значению параметра Организация

[cska-fanat-kz]

Настройки=КомпоновщикНастроек.Настройки;
мОрганизация = Справочники.Организации.НайтиПоНаименованию("ОПЕР");
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Организация", мОрганизация);
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Контрагент", Справочники.Контрагенты.НайтиПоНаименованию("СУД"));
                                                               
Если Организация=мОрганизация Тогда                                                                                                         
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("ДОР"))
Иначе   Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("СОН"))
КонецЕсли

[Artjomrgv]

Настройки=КомпоновщикНастроек.Настройки;
мОрганизация = Справочники.Организации.НайтиПоНаименованию("ОПЕР");

Спасибо но маленько не так. Пользователь будет выбирать значение параметра Организация и в зависимости от значения параметра Организация будет устанавливаться параметр КонтрагентВХ

мОрганизация = Справочники.Организации.НайтиПоНаименованию("ОПЕР");
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Организация", мОрганизация);

                                                               
Если Значение параметра организация=мОрганизация Тогда                                                                                                         
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("ДОР"))
Иначе   Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("СОН"))
КонецЕсли

Не могу разобраться как сравнить мОрганизация именно со значением параметра организация.

Добавлено: 11 окт 2014, 20:45

Спасибо большое все оказалось просто. Впрочем как и всегда.
Процедура КонтрагентПриИзменении(Элемент)
      ПараметрКонтрагент = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Контрагент");
       ПараметрКонтрагент.Использование = Истина;
       ПараметрКонтрагент.Значение  = Контрагент;
      Настройки=КомпоновщикНастроек.Настройки;
      Если Контрагент=Справочники.Контрагенты.НайтиПоНаименованию("ОПЕР") Тогда                                                                                                         
       Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("ОрганизацияВХ", Справочники.Организации.НайтиПоНаименованию("ОПЕР))  КонецЕсли;
      

Процедура ОрганизацияПриИзменении(Элемент)
      ПараметрОрганизация = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Организация");
       ПараметрОрганизация.Использование = Истина;
       ПараметрОрганизация.Значение  = Организация;
      Настройки=КомпоновщикНастроек.Настройки;
      Если Организация=Справочники.Организации.НайтиПоНаименованию("СОД") Тогда                                                                                                         
       Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонтрагентВХ", Справочники.Контрагенты.НайтиПоНаименованию("СОД"))  КонецЕсли;
    
  КонецПроцедуры