Здравствуйте! Хочу автоматически подставить цену с регистра сведений Ценообразование, в котором измерение номенклатура а ресурс - цена в табличную часть документа.
Обращаясь в модуля формы с процедуры с директивой НаСервере, необходимо сравнить данные регистра с текущими данными в ТЧ, но НаСервере не работают ТекущиеДанные. Подскажите как выйти из ситуации? Спасибо.

НаСервере
Процедура ПолучитьЦену()
   Цены=РегистрыСведений.ЦеныНоменклатуры;
   Отбор=Новый Структура;
   Отбор.Вставить("Номенклатура",ЭтаФорма.ПодчиненныеЭлементы.СоставПродажи.ТекущиеДанные.Товар);
    ТекЦена=Цены.ПолучитьПоследнее(ТекущаяДата(),Отбор);
   
   
КонецПроцедуры

Вот так работает.

&НаКлиенте
Перем ТекущаяНоменклатура;

&НаКлиенте
Функция ТекущиеДанныеФормы();
   ТекущаяНоменклатура = Элементы.СоставПродажи.ТекущиеДанные.Товар;
   Возврат ТекущаяНоменклатура;    
КонецФункции
                 
&НаСервере
Функция ПолучитьЦену(ТекущаяНоменклатура)
   СтруктураЦен = Новый Структура;
   Цены=РегистрыСведений.ЦеныНоменклатуры;
   Отбор=Новый Структура;
   Отбор.Вставить("Номенклатура",ТекущаяНоменклатура);
   ТекЦена=Цены.ПолучитьПоследнее(ТекущаяДата(),Отбор);
   ТекущаяЦена = ТекЦена.Цена;
    Возврат ТекущаяЦена;
КонецФункции

&НаКлиенте
Процедура СоставПродажиТоварОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
   Перем ЦН;
   ТекущиеДанныеФормы();
   ЦН =ПолучитьЦену(ТекущаяНоменклатура);
   Элементы.СоставПродажи.ТекущиеДанные.Цена = ЦН;
КонецПроцедуры

Спасибо :-)

рукалицо

&НаКлиенте
Перем ТекущаяНоменклатура;

&НаКлиенте
Функция ТекущиеДанныеФормы();
   ТекущаяНоменклатура = Элементы.СоставПродажи.ТекущиеДанные.Товар;
   Возврат ТекущаяНоменклатура;      
КонецФункции

Вот это удалить нафиг, ну и процедуру сделать без контекста, а так ничо.

(4) уверен? ты ж вроде в копрокодерстве не был замечен