ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
Для Каждого Строка Из Объект.Товары Цикл
Товары = Макет.ПолучитьОбласть("Товары");
Товары.Параметры.Товар = Строка.Товар;
Товары.Параметры.Вес = Строка.Вес;
Товары.Параметры.ЦенаЗаГрамм = Строка.ЦенаЗаГрамм;
Товары.Параметры.Количество = Строка.Количество;
Товары.Параметры.Цена = Строка.Цена;
Товары.Параметры.Сумма = Строка.Сумма;
ТабДок.Вывести(Товары);
ВсегоТоваров = Строка.Количество + ВсегоТоваров;
ОбщаяСумма = Строка.Сумма + ОбщаяСумма;
КонецЦикла;
Итоги = Макет.ПолучитьОбласть("Итоги");
Итоги.Параметры.ВсегоТоваров = ВсегоТоваров;
Итоги.Параметры.ОбщаяСумма = ОбщаяСумма;
ТабДок.Вывести(Итоги);
КонецПроцедуры
&НаКлиенте
Процедура Печать(Команда)
ТабДок = Новый ТабличныйДокумент;
ПечатьБилетаНаСервере(ТабДок);
ТабДок.Показать();
КонецПроцедуры
Элементы.Дата.Видимость = Ложь;
Код модуля документа «Продажа товара»
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Товары Расход
Движения.Товары.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Товары.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Товар = ТекСтрокаТовары.Товар;
Движение.Вес = ТекСтрокаТовары.Вес;
Движение.Цена = ТекСтрокаТовары.Цена;
Движение.ЦенаЗаГрамм = ТекСтрокаТовары.ЦенаЗаГрамм;
Движение.Количество = ТекСтрокаТовары.Количество;
Движение.Сумма = ТекСтрокаТовары.Сумма;
КонецЦикла;
КонецПроцедуры
Документ «Возврат товара»
Код формы документа «Возврат товара»
&НаКлиенте
Процедура ТоварыЦенаЗаГраммПриИзменении(Элемент)
СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Вес *
СтрокаТабличнойЧасти.ЦенаЗаГрамм;
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Цена;
КонецПроцедуры
&НаКлиенте
Процедура ТоварыВесПриИзменении(Элемент)
СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Вес *
СтрокаТабличнойЧасти.ЦенаЗаГрамм;
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Цена;
КонецПроцедуры
&НаКлиенте
Процедура ТоварыКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена *
СтрокаТабличнойЧасти.Количество;
КонецПроцедуры
&НаСервере
Процедура ПечатьБилетаНаСервере(ТабДок)
ВсегоТоваров = 0;
ОбщаяСумма = 0;
Макет = Документы.ВозвратТовара.ПолучитьМакет("Печать");
ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Номер = Объект.Номер;
Шапка.Параметры.Дата = Объект.Дата;
Шапка.Параметры.Сотрудник = Объект.Сотрудник;
ТабДок.Вывести(ЗаголовокТаблицы);
ТабДок.Вывести(Шапка);
ЗаголовкиТоваров = Макет.ПолучитьОбласть("ЗаголовкиТоваров");
ТабДок.Вывести(ЗаголовкиТоваров);
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
Для Каждого Строка Из Объект.Товары Цикл
Товары = Макет.ПолучитьОбласть("Товары");
Товары.Параметры.Товар = Строка.Товар;
Товары.Параметры.Вес = Строка.Вес;
Товары.Параметры.ЦенаЗаГрамм = Строка.ЦенаЗаГрамм;
Товары.Параметры.Количество = Строка.Количество;
Товары.Параметры.Цена = Строка.Цена;
Товары.Параметры.Сумма = Строка.Сумма;
ТабДок.Вывести(Товары);
ВсегоТоваров = Строка.Количество + ВсегоТоваров;
ОбщаяСумма = Строка.Сумма + ОбщаяСумма;
КонецЦикла;
Итоги = Макет.ПолучитьОбласть("Итоги");
Итоги.Параметры.ВсегоТоваров = ВсегоТоваров;
Итоги.Параметры.ОбщаяСумма = ОбщаяСумма;
ТабДок.Вывести(Итоги);
КонецПроцедуры
&НаКлиенте
Процедура Печать(Команда)
ТабДок = Новый ТабличныйДокумент;
ПечатьБилетаНаСервере(ТабДок);
ТабДок.Показать();
КонецПроцедуры
&НаКлиенте
Процедура НомерПродажиПриИзменении(Элемент)
Объект.Товары.Очистить();
ЗаполнитьТЧ();
КонецПроцедуры
Процедура ЗаполнитьТЧ()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПродажаТовараТовары.Товар,
| ПродажаТовараТовары.Вес,
| ПродажаТовараТовары.ЦенаЗаГрамм,
| ПродажаТовараТовары.Количество,
| ПродажаТовараТовары.Цена,
| ПродажаТовараТовары.Сумма
|ИЗ
| Документ.ПродажаТовара.Товары КАК
ПродажаТовараТовары
|ГДЕ
| ПродажаТовараТовары.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Объект.НомерПродажи);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ТабличнаяЧасть = Объект.Товары.Добавить();
ЗаполнитьЗначенияСвойств(ТабличнаяЧасть,
ВыборкаДетальныеЗаписи);
КонецЦикла;
КонецПроцедуры
Элементы.Дата.Видимость = Ложь;
Код модуля документа «Возврат товара»
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Товары Приход
Движения.Товары.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Товары.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Товар = ТекСтрокаТовары.Товар;
Движение.Вес = ТекСтрокаТовары.Вес;
Движение.Цена = ТекСтрокаТовары.Цена;
Движение.ЦенаЗаГрамм = ТекСтрокаТовары.ЦенаЗаГрамм;
Движение.Количество = ТекСтрокаТовары.Количество;
Движение.Сумма = ТекСтрокаТовары.Сумма;
КонецЦикла;
КонецПроцедуры