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