Р = Новый Структура("Есть, ТабДок", ложь, Неопределено);
СписокТоваров = Справочники._СпискиТоваров.НайтиПоКоду("П
ТЗТовары = Мотивация.ПолучитьТаблицуТоваровПоСписку
З = Новый Запрос(
"ВЫБРАТЬ
| Т.Номенклатура,
| Т.Ставка
|ПОМЕСТИТЬ ТТовары
|ИЗ
| &Т КАК Т
|;
|
|//////////////////////////////////////
|ВЫБРАТЬ
| ТТовары.Номенклатура,
| ТТовары.Ставка,
| ТоварыНаСкладахОстатки.Склад,
| ТоварыНаСкладахОстатки.Характеристика
| ТоварыНаСкладахОстатки.КоличествоОста
| ТСвойства.Значение КАК СрокГодности,
| РАЗНОСТЬДАТ(&Сегодня, ВЫРАЗИТЬ(ТСвойства.Значение КАК ДАТА), ДЕНЬ) КАК ОсталосьДней
|ИЗ
| РегистрНакопления.ТоварыНаСкладах.Ост
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТТовары КАК ТТовары
| ПО ТоварыНаСкладахОстатки.Номенклатура = ТТовары.Номенклатура
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ТСвойства
| ПО ТоварыНаСкладахОстатки.ХарактеристикаНом
| И (ТСвойства.Свойство = &СвойствоСрокГодности)
|ГДЕ
| ТоварыНаСкладахОстатки.КоличествоОста
| И РАЗНОСТЬДАТ(&Сегодня, ВЫРАЗИТЬ(ТСвойства.Значение КАК ДАТА), ДЕНЬ) < ТТовары.Ставка");
З.УстановитьПараметр("Т", ТЗТовары);
З.УстановитьПараметр("Сегодня", ТекущаяДата());
З.УстановитьПараметр("СвойствоСрокГодно
Если ЗначениеЗаполнено(ВыбМагазин) Тогда
З.Текст = СтрЗАменить(З.Текст, "&УсловиеСклада", "Склад.Магазин = &Магазин");
З.УстановитьПараметр("Магазин", ВыбМагазин);
Иначе
З.Текст = СтрЗАменить(З.Текст, "&УсловиеСклада", "ИСТИНА");
КонецЕсли;
ТЗ = З.Выполнить().Выгрузить();
//САП.ПечатьТЗ(ТЗ);
ТабДок = Новый ТабличныйДокумент();
СКД = ПолучитьМакет("СКД");
Компоновщик = Новый КомпоновщикНастроекКомпоновкиДанных;
Компоновщик.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанны
Компоновщик.ЗагрузитьНастройки(СКД.Наст
СкомпоноватьВТабличныйДокумент(ТабД
Р.Есть = ТЗ.Количество() > 0;
Р.ТабДок = ТабДок;
///ТабДок.Показать();
Возврат Р;
Journal information