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