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