1С Режим Конфигуратор
Дополнение - часть 14
|Период с ДатаН по ДатаК;
|Скл = Регистр.ОстаткиТоваров.Склад;
|Товар = Регистр.ОстаткиТоваров.Товар;
|Сорт = Регистр.ОстаткиТоваров.Сорт;
|Количество = Регистр.ОстаткиТоваров.Количество;
|ФлагДвижения = Регистр.ОстаткиТоваров.ФлагДвижения;
|Функция КолНачОстС = НачОст(Количество);
|Функция КолПриходК = Приход(Количество) когда(ФлагДвижения=1);
|Функция КолПриходВ = Приход(Количество) когда(ФлагДвижения=2);
|Функция КолРасходВ = Расход(Количество) когда(ФлагДвижения=2);
|Функция КолРасходК = Расход(Количество) когда(ФлагДвижения=1);
|Функция КолКонОстС = КонОст(Количество);
|Группировка Товар упорядочить по Товар.Код;
|Группировка Сорт;
|Условие(Скл=Склад);";
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Сообщить("Запрос не выполнен");
Возврат;
КонецЕсли;
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("");
Таб.ВывестиСекцию("Шапка");
ИтНачОстС = Запрос.КолНачОстС;
ИтПриходК = Запрос.КолПриходК;
ИтПриходВ = Запрос.КолПриходВ;
ИтРасходВ = Запрос.КолРасходВ;
ИтРасходК = Запрос.КолРасходК;
ИтКонОстС = Запрос.КолКонОстС;
Пока Запрос.Группировка("Товар")=1 Цикл
ТТов=Запрос.Товар;
НачОстС = Запрос.КолНачОстС;
ПриходК = Запрос.КолПриходК;
ПриходВ = Запрос.КолПриходВ;
РасходВ = Запрос.КолРасходВ;
РасходК = Запрос.КолРасходК;
КонОстС = Запрос.КолКонОстС;
Если ТТов.ЭтоГруппа()=1 Тогда
Тов=СокрЛП(ТТов.Наименование);
Таб.ВывестиСекцию("Группа");
Иначе
Тов=СокрЛП(ТТов.Код)+" ("+СокрЛП(ТТов.Наименование)+")";
НачОстС = Запрос.КолНачОстС;
