Приложение Б. 1. Программный код для отбора по цене.
1. Программный код для отбора по цене. Процедура ЦенаПриИзменении(Элемент) // Вставить содержимое обработчика. ОтборЦена = СправочникСписок.Отбор.Цена; Если ЦенаПо<>0 Тогда ОтборЦена.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы; ОтборЦена.ЗначениеС = ЦенаС; ОтборЦена.ЗначениеПо = ЦенаПо; Иначе//Если ЦенаС <> 0 и ЦенаПо=0 Тогда ОтборЦена.ВидСравнения = ВидСравнения.Больше; //ОтборЦена.Значение = ЦенаС; ОтборЦена.Значение = ЦенаС; КонецЕсли;
Если ЦенаС = 0 и ЦенаПо=0 Тогда ОтборЦена.использование = ложь; Иначе ОтборЦена.использование = истина; КонецЕсли; КонецПроцедуры
2. Процедура создания чека. Процедура НовыйЧекНажатие(Элемент) // Вставить содержимое обработчика. Продажа = Документы.Продажа.СоздатьДокумент(); НовыйТовар = Продажа.Товар.Добавить(); НовыйТовар.Название = ЭлементыФормы.СправочникСписок.ТекущиеДанные.Ссылка; НовыйТовар.Колво = 1; НовыйТовар.Цена = ЭлементыФормы.СправочникСписок.ТекущиеДанные.Ссылка.Цена; НовыйТовар.Сумма =НовыйТовар.Цена; НовыйТовар.ИнвНомер = ЭлементыФормы.СправочникСписок.ТекущиеДанные.Ссылка.ИнвНомер; Продажа.ПолучитьФорму("ФормаДокумента").Открыть(); Продажа.УстановитьВремя(); ЗначениеЧека=ЭлементыФормы.НомерЧека; ЗначениеЧека.Значение=ТекущаяДата(); Продажа.Записать(); КонецПроцедуры
|
