0
Gendos
24.04.12
✎
17:57
|
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
глПроверкаДаты(Дата1,Дата2);
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|ПЕРИОД С Дата1 По Дата2;
|Обрабатывать НеПомеченныеНаУдаление;
|ОбрабатыватьДокументы Проведенные;
|Док = Документ.РасходнаяНакладная.ТекущийДокумент, Документ.Обмен.ТекущийДокумент, Документ.ПриходнаяНакладная.ТекущийДокумент;
|Склад = Документ.РасходнаяНакладная.Склад, Документ.Обмен.Склад, Документ.ПриходнаяНакладная.Склад;
|Товар = Документ.РасходнаяНакладная.Товар, Документ.Обмен.Товар, Документ.ПриходнаяНакладная.Товар;
|Кол = Документ.РасходнаяНакладная.Количество, Документ.Обмен.Количество, Документ.ПриходнаяНакладная.Количество;
|Цена = Документ.РасходнаяНакладная.ЦенаСНДС, Документ.Обмен.ЦенаСНДС, Документ.ПриходнаяНакладная.ЦенаСНДС;
|Скидка = Документ.РасходнаяНакладная.СуммаСкидки, Документ.Обмен.СуммаСкидки, Документ.ПриходнаяНакладная.СуммаСкидки;
|СуммаСНДС = Документ.РасходнаяНакладная.СуммаСНДС, Документ.Обмен.СуммаСНДС, Документ.ПриходнаяНакладная.СуммаСНДС;
|ВидОперации = Документ.РасходнаяНакладная.ВидОперации, Документ.Обмен.ВидРасчетаНБ,Документ.ПриходнаяНакладная.ВидОперации;
|Дисконт = Документ.РасходнаяНакладная.Дисконт, Документ.Обмен.Дисконт, Документ.ПриходнаяНакладная.Дисконт;
|Группировка Док упорядочить по Док.ДатаДок;
|Группировка Товар без групп;
|Условие(Дисконт = ВыбДисконт.Дисконт.Наименование);
|Без Итогов;
|"//}}
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Ном = 1;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка("Док") = 1 Цикл
Пока Запрос.Группировка("Товар") = 1 Цикл
Ном = Ном + 1;
Таб.ВывестиСекцию("Расход");
КонецЦикла;
Таб.ВывестиСекцию("ИтогоПоДок");
КонецЦикла;
|
|