Приложение а
Инструкция пользователя
Для работы в созданной конфигурации на платформе 1С:Предприятие необходимо выполнить следующие действия:
Запустить приложение в режиме 1С:Предприятие.
Откроется главная форма справочника.
Развернуть нужную группу товара.
Выбрать товар, при необходимости воспользоваться полями отбора по цене и(или) по производителю.
Нажать кнопку «новый чек».
Откроется новая форма, при необходимости добавления товара нажать кнопку «новая запись» и выбрать наименование товара, указать нужное количество.
Для записи продажи нажать «записать»
Для распечатки гарантийного талона, нажать «чек».
Приложение б
Программный код для отбора по цене.
Процедура ЦенаПриИзменении(Элемент)
// Вставить содержимое обработчика.
ОтборЦена = СправочникСписок.Отбор.Цена;
Если ЦенаПо<>0 Тогда
ОтборЦена.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы;
ОтборЦена.ЗначениеС = ЦенаС;
ОтборЦена.ЗначениеПо = ЦенаПо;
Иначе//Если ЦенаС <> 0 и ЦенаПо=0 Тогда
ОтборЦена.ВидСравнения = ВидСравнения.Больше;
//ОтборЦена.Значение = ЦенаС;
ОтборЦена.Значение = ЦенаС;
КонецЕсли;
Если ЦенаС = 0 и ЦенаПо=0 Тогда
ОтборЦена.использование = ложь;
Иначе
ОтборЦена.использование = истина;
КонецЕсли;
КонецПроцедуры
Процедура создания чека.
Процедура НовыйЧекНажатие(Элемент)
// Вставить содержимое обработчика.
Продажа = Документы.Продажа.СоздатьДокумент();
НовыйТовар = Продажа.Товар.Добавить();
НовыйТовар.Название = ЭлементыФормы.СправочникСписок.ТекущиеДанные.Ссылка;
НовыйТовар.Колво = 1;
НовыйТовар.Цена = ЭлементыФормы.СправочникСписок.ТекущиеДанные.Ссылка.Цена;
НовыйТовар.Сумма =НовыйТовар.Цена;
НовыйТовар.ИнвНомер = ЭлементыФормы.СправочникСписок.ТекущиеДанные.Ссылка.ИнвНомер;
Продажа.ПолучитьФорму("ФормаДокумента").Открыть();
Продажа.УстановитьВремя();
ЗначениеЧека=ЭлементыФормы.НомерЧека;
ЗначениеЧека.Значение=ТекущаяДата();
Продажа.Записать();
КонецПроцедуры
Продолжение приложения Б
Процедура создания чека.
Процедура Чек(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.Продажа.ПолучитьМакет("Печать");
// Шапка
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Шапка);
// Товар
Область = Макет.ПолучитьОбласть("ТоварШапка");
ТабДок.Вывести(Область);
ОбластьТовар = Макет.ПолучитьОбласть("Товар");
Для Каждого ТекСтрокаТовар Из Товар Цикл
ОбластьТовар.Параметры.Заполнить(ТекСтрокаТовар);
ТабДок.Вывести(ОбластьТовар);
//Подвал
КонецЦикла;
Подвал = макет.ПолучитьОбласть("Подвал");
шапка.Параметры.Заполнить(ЭтотОбъект);
Подвал.Параметры.Всего = Товар.Итог("Колво");
Подвал.Параметры.Итого = Товар.Итог("Сумма");
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
Приложение в
Лист
Дата
Подпись
Изм
Лист
№ Документа
НТСТ–09.02.04-ИС-41-2015-ПЗ
