&НаКлиенте

Процедура ТоварНоменклатураПриИзменении(Элемент)

	СтрокаТабличнойЧасти = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;

	Номенклатура = СтрокаТабличнойЧасти.Номенклатура;

	ТипЦен = ЭтаФорма.ТипЦен;

	ТекДата = Объект.Дата;

	СтрокаТабличнойЧасти.Цена = ПолучитьЦену(Номенклатура, ТипЦен, ТекДата);

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





&НаСервере

Функция ПолучитьЦену(Номенклатура, ТипЦен, ТекДата) Экспорт

	Отбор = Новый Структура;

	Отбор.Вставить("Номенклатура",Номенклатура);

	Отбор.Вставить("ТипЦены",ТипЦен);	

	ЦенаТовара = РегистрыСведений.ЦеныНоменклатуры.ПолучитьПоследнее(ТекДата,Отбор);

	Возврат ЦенаТовара.Цена;

КонецФункции





   

 //Искать по всей таблице значений

НайденнаяСтрока = ТаблицаЗначений.Найти(ИскомоеЗначение); 



//Искать в колонках Поставщик, Покупатель

НайденнаяСтрока = ТаблицаЗначений.Найти(ИскомоеЗначение, "Поставщик, Покупатель"); 



//еще

НайденнаяСтрока = ТаблицаЦен.Найти(ВыбТовар, "Товар");

Если НайденнаяСтрока = Неопределено Тогда

    Предупреждение("Товар не найден!");

Иначе

    ЦенаТовара = НайденнаяСтрока.Цена;

КонецЕсли;    

 // Сформировать структуру отбора. 

СтруктураПоиска = Структура("Сотрудник", ИскомоеЗначение); 

// Найти строки. 

МассивНайденныхСтрок = ТаблицаЗначений.НайтиСтроки(СтруктураПоиска); 



// .... ИЛИ

НайдСтроки = тзСхемы.НайтиСтроки(Новый Структура("Доставка", ОформлениеСтроки.ДанныеСтроки.Ссылка));

Если НайдСтроки.Количество() > 0 Тогда

	ОформлениеСтроки.Ячейки.Схема.УстановитьТекст(НайдСтроки[0].Схема);

Иначе

	ОформлениеСтроки.Ячейки.Схема.УстановитьТекст("Нет");

КонецЕсли;