|
0
Эльчин
04.03.13
✎
11:39
|
Поможете исправить ошибки?
&НаКлиенте
Процедура ОказанныеУслугиУслугаПриИзменении(Элемент)
ТекДанные = Элементы.ОказанныеУслуги.ТекущиеДанные;
ПолучитьЦену(ТекДанные);
ТекДанные.Цена = Цена;
КонецПроцедуры
&НаСервере
Процедура ПолучитьЦену(ТекДанные)
Выборка = ПланыВидовРасчета.ВидыУслуг.Выбрать();
Пока Выборка.Следующий() цикл
Если Выборка.Наименование = ТекДанные.Услуга Тогда
Цена = Выборка.Цена;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
|
