Обработчик события "ПриИзменении"

[filomonko]

Здравствуйте)) 
Возникла проблема.
Есть документ "БронированиеНомеров". В строке мы выбираем номер, категория этого номера добавляется автоматически. Цена категории добавляется только ПриИзменении категории.
Помогите, пожалуйста, сделать так, чтобы цена категории ставилась не только при изменении категории. А сразу же после того, как в соответствии с определенным номером добавляется его категория, так и ставилась цена этой категории ))))

Код Выделить Развернуть

&НаКлиенте
Процедура ТЧНомерПриИзменении(Элемент)
   Стр=Элементы.ТЧ.ТекущиеДанные;
   Стр.Категория = ПолучитьКатегорию(Стр.Категория, Стр.Номер);
КонецПроцедуры


Код Выделить Развернуть

&НаСервере
Функция ПолучитьКатегорию(Категория, ТекущийНомер)
    Запрос = Новый Запрос;
     Запрос.Текст = "ВЫБРАТЬ
            | КатегорияНомера.Номер КАК Номер,
            | КатегорияНомера.Категория КАК Категория
            |ИЗ
            | РегистрСведений.КатегорияНомера КАК КатегорияНомера
            |ГДЕ
            | КатегорияНомера.Номер = &Номер";
         
    Запрос.УстановитьПараметр("Номер", ТекущийНомер);
    ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();

    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
     Возврат ВыборкаДетальныеЗаписи.Категория;     
Иначе
    Возврат 0;
КонецЕсли;     
КонецФункции


Код Выделить Развернуть

&НаКлиенте
Процедура ТЧКатегорияПриИзменении(Элемент)
   Стр=Элементы.ТЧ.ТекущиеДанные;
   Стр.Цена=ПолучитьЦену(Стр.Цена, Стр.Категория);
КонецПроцедуры


Код Выделить Развернуть

&НаСервере
Функция ПолучитьЦену(Цена, ТекущаяКатегория)
    Запрос = Новый Запрос;
     Запрос.Текст = "ВЫБРАТЬ
            | ЦенаКатегории.Цена КАК Цена,
            | ЦенаКатегории.Категория КАК Категория
            |ИЗ
            | РегистрСведений.ЦенаКатегории КАК ЦенаКатегории
            |ГДЕ
            | ЦенаКатегории.Категория = &Категория";
         
     Запрос.УстановитьПараметр("Категория", ТекущаяКатегория);
    ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();

    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
     Возврат ВыборкаДетальныеЗаписи.Цена;     
Иначе
    Возврат 0;
КонецЕсли;     
КонецФункции


[LexaK]

просто добавьте команду получения цены

Код Выделить Развернуть

&НаКлиенте
Процедура ТЧНомерПриИзменении(Элемент)
   Стр=Элементы.ТЧ.ТекущиеДанные;
   Стр.Категория = ПолучитьКатегорию(Стр.Категория, Стр.Номер);
   Стр.Цена = ПолучитьЦену(Стр.Цена, Стр.Категория);
КонецПроцедуры