Отображение каждой даты выбранного периода в таблице (в разных столбцах)

Процедура Сформировать(ФлагЗакрытияФормы = 0)
Перем ПериодДляШапкиОтчета;

Расшифровка = СоздатьОбъект("СписокЗначений");
Расшифровка.Установить("Отчет",?(ПустаяСтрока(РасположениеФайла()) = 1,"СкладскойУчетМПЗ",РасположениеФайла()));
Расшифровка.Установить("ДатаНач", ДатаНач);
Расшифровка.Установить("ДатаКон", ДатаКон);
Расшифровка.Установить("МоноУсловие1", МоноУсловие1);
Расшифровка.Установить("МоноУсловие2", МоноУсловие2);
Расшифровка.Установить("МоноУсловие3", МоноУсловие3);
Расшифровка.Установить("МоноУсловие4", МоноУсловие4);
Расшифровка.Установить("МоноУсловие5", МоноУсловие5);
Расшифровка.Установить("ФлажокУсловие1", ФлажокУсловие1);
Расшифровка.Установить("ФлажокУсловие2", ФлажокУсловие2);
Расшифровка.Установить("ФлажокУсловие4", ФлажокУсловие4);
Расшифровка.Установить("ФлажокУсловие3", ФлажокУсловие3);
Расшифровка.Установить("ФлажокУсловие5", ФлажокУсловие5);
Расшифровка.Установить("СписокУсловие1", СписокУсловие1);
Расшифровка.Установить("СписокУсловие2", СписокУсловие2);
Расшифровка.Установить("СписокУсловие3", СписокУсловие3);
Расшифровка.Установить("СписокУсловие4", СписокУсловие4);
Расшифровка.Установить("СписокУсловие5", СписокУсловие5);
Расшифровка.Установить("Группировки", Группировки);
Расшифровка.Установить("ВыводитьНачОст", ВыводитьНачОст);
Расшифровка.Установить("ВыводитьПриход", ВыводитьПриход);
Расшифровка.Установить("ВыводитьРасход", ВыводитьРасход);
Расшифровка.Установить("ВыводитьКонОст", ВыводитьКонОст);
Расшифровка.Установить("ВсеДаты", ВыводитьВсеДаты); // Дима Федосеев
Расшифровка.Установить("ВыбЕдИзм", ВыбЕдИзм);
Расшифровка.Установить("ВидОтчета",ВидОтчета);
Расшифровка.Установить("ТипыСуммы",ТипыСуммы.ТекущаяСтрока());
Расшифровка.Установить("ТипЦеныДляМатериалов",ТипЦеныДляМатериалов.ТекущаяСтрока());
Расшифровка.Установить("ТипЦеныДляНоменклатуры",ТипЦеныДляНоменклатуры);
Расшифровка.Установить("ТекПоказатьОстатки",ПоказатьОстатки.ТекущаяСтрока());
Расшифровка.Установить("ВыводитьОстаткиСЦенами",ВыводитьОстаткиСЦенами);

ТекРасшифровка = СоздатьОбъект("СписокЗначений");
Расшифровка.Выгрузить(ТекРасшифровка);
Если ВыводитьОстаткиСЦенами =1 Тогда
Если (Группировки.Пометка(Группировки.НайтиЗначение("МПЗ")) = 0) Тогда
Предупреждение("Отчет по остаткам МПЗ со стоимотью может быть сформирован
|только при условии, что отмечена группировка ""МПЗ""!",5);
Возврат;
КонецЕсли;
КонецЕсли;
Заголовок = "";
СписокГруппировок = СоздатьОбъект("СписокЗначений");
Запрос = СоздатьОбъект("Запрос");

Если ПроверкаДат() = 0 Тогда
Возврат;
ИначеЕсли ДатаКон >= ПолучитьДатуТА() Тогда
ПериодПо = "";
ПериодДляШапкиОтчета = Формат(ДатаНач, "Д ДДММГГГГ") + " - " + Формат(ПолучитьДатуТА(), "Д ДДММГГГГ") + " " + ПолучитьВремяТА(,,);
Иначе
ПериодДляШапкиОтчета = ПериодСтр(ДатаНач, ДатаКон);
ПериодПо = " по ДатаКон";
КонецЕсли;
// Андрей Пономарёв
ПриВыбореЕдОстатков();
// Конец А П
Если ПоказатьОстатки.ТекущаяСтрока() = 2 Тогда
Текст = "//{{ЗАПРОС(Складской учет свободного остатка МПЗ)
// |Период с ДатаНач" + ПериодПо + ";
|Период с ДатаНач по ДатаКон;
|ВидМПЗ = Регистр.МестаХранения.ВидМПЗ;
|МестоХранения = Регистр.МестаХранения.МестоХранения, Регистр.Резервы.МестоХранения;
|МПЗ = Регистр.МестаХранения.МПЗ, Регистр.Резервы.Номенклатура;
//|КоэфОбъБРез = Регистр.Резервы.Номенклатура.ОсновнаяЕдиницаИзмерения.КоэфОбБетонаОбр;
//|КоэфОбъИРез = Регистр.Резервы.Номенклатура.ОсновнаяЕдиницаИзмерения.КоэффициентОбр;
|Владелец = Регистр.МестаХранения.Владелец;
|Качество = Регистр.МестаХранения.Качество;
|ТекДок = Регистр.МестаХранения.ТекущийДокумент;";
Если ВыбЕдИзм = 2 Тогда
Текст = Текст + "
|Количество = Регистр.МестаХранения.ОбъемИзд;";
//|Резерв = (Регистр.Резервы.Количество * КоэфОбъИРез);";
ИначеЕсли ВыбЕдИзм = 3 Тогда
Текст = Текст + "
|Количество = Регистр.МестаХранения.ОбъемБет;";
//|Резерв = (Регистр.Резервы.Количество * КоэфОбъБРез);";
Иначе//Если ВыбЕдИзм = 1 Тогда
Текст = Текст + "
|Количество = Регистр.МестаХранения.Количество;
|Резерв = Регистр.Резервы.Количество;";
КонецЕсли;
//Текст = Текст + "
//";
Иначе
Текст = "//{{Запрос(Складской учет МПЗ)
|Период с ДатаНач"+ ПериодПо + ";
|ВидМПЗ = Регистр.МестаХранения.ВидМПЗ;
|МестоХранения = Регистр.МестаХранения.МестоХранения;
|МПЗ = Регистр.МестаХранения.МПЗ;
|Владелец = Регистр.МестаХранения.Владелец;
|Качество = Регистр.МестаХранения.Качество;
|ТекДок = Регистр.МестаХранения.ТекущийДокумент; ";
Если ВыбЕдИзм = 2 Тогда
Текст = Текст + "
|Количество = Регистр.МестаХранения.ОбъемИзд;"
ИначеЕсли ВыбЕдИзм = 3 Тогда
Текст = Текст + "
|Количество = Регистр.МестаХранения.ОбъемБет;"
Иначе//Если ВыбЕдИзм = 1 Тогда
Текст = Текст + "
|Количество = Регистр.МестаХранения.Количество;"
КонецЕсли;
КонецЕсли;

// определяем количество и значения функций, и их условия
Текст = Текст + ?(ВыводитьНачОст = 1, "Функция КолНачОст = НачОст(Количество);", "");
Текст = Текст + ?(ВыводитьПриход = 1, "Функция КолПриход = Приход(Количество);", "");
Текст = Текст + ?(ВыводитьРасход = 1, "Функция КолРасход = Расход(Количество);", "");
Текст = Текст + ?(ВыводитьКонОст = 1, "Функция КолКонОст = КонОст(Количество);", "");
//Текст = Текст + ?(ВыводитьВсеДаты = 1, "Функция ВсеДаты = ВсеДаты(Количество);", ""); // Дима Федосеев

Если ПоказатьОстатки.ТекущаяСтрока() = 2 Тогда
Текст = Текст + ?(ВыводитьКонОст = 1, "Функция РезКонОст = КонОст(Резерв);", "");
КонецЕсли;

Заголовок = "Отмеченные группировки: " + УстановитьГруппировкиЗапроса(Текст);
Заголовок = Заголовок + РазделительСтрок + "Выбранные условия: ";
Если (ПоказатьОстатки.ТекущаяСтрока() <> 2) Тогда
УстановитьУсловиеЗапроса(1, ФлажокУсловие1, МоноУсловие1, СписокУсловие1, "ВидМПЗ", Текст, Заголовок);
КонецЕсли;
УстановитьУсловиеЗапроса(2, ФлажокУсловие2, МоноУсловие2, СписокУсловие2, "МестоХранения", Текст, Заголовок);
УстановитьУсловиеЗапроса(3, ФлажокУсловие3, МоноУсловие3, СписокУсловие3, "МПЗ", Текст, Заголовок);
УстановитьУсловиеЗапроса(5, ФлажокУсловие5, МоноУсловие5, СписокУсловие5, "Качество", Текст, Заголовок);

Если ПоказатьОстатки.ТекущаяСтрока() = 2 Тогда
Текст = Текст + "Условие (Владелец = ПустойКонтрагент);"
Иначе
УстановитьУсловиеЗапроса(4, ФлажокУсловие4, МоноУсловие4, СписокУсловие4, "Владелец", Текст, Заголовок);
КонецЕсли;
Если Прав(Заголовок, 19) = "Выбранные условия: " Тогда
Заголовок = Заголовок + "нет.";
Иначе
Заголовок = Заголовок + ".";
КонецЕсли;

ПозМПЗ = СписокГруппировок.НайтиЗначение("МПЗ");
Если (ВидОтчета = 2) и (ПоказатьОстатки.ТекущаяСтрока() >= 3) Тогда
Если (ПозМПЗ = 0) Тогда
Предупреждение("Не выбрана группировка МПЗ!");
Возврат;
КонецЕсли;
КонецЕсли;

Запрос.Выполнить(Текст);

ИнформацияОСуммах = ""; // текст информации над таблицей
ТекстПредупреждения = ""; // текст предупреждения под таблицей
ЕстьПредупреждение = 0;


Если ВидОтчета = 2 Тогда
ПредставлениеПоказатьОстатки = "";
ПоказатьОстатки.ПолучитьЗначение(ПоказатьОстатки.ТекущаяСтрока(),ПредставлениеПоказатьОстатки);
Заголовок = Заголовок + РазделительСтрок + "Остаток на конец периода: " + ПредставлениеПоказатьОстатки + ".";
КонецЕсли;

// Для получения остатков с ценами.
Если ВыводитьОстаткиСЦенами = 1 Тогда

ТабИт = СоздатьОбъект("ТаблицаЗначений");
СписокОстМПЗ = СоздатьОбъект("СписокЗначений");
Запрос.Выгрузить(ТабИт, 0);
ТабИт.Свернуть("МПЗ", "");
ТабИт.Выгрузить(СписокОстМПЗ,,,"МПЗ");

ТаблицаСумм = 0;

ТипЦеныДляМатериаловСтр = ?(ТипЦеныДляМатериалов.ТекущаяСтрока() = 1, "Отпускная","Покупная");
Если ТипыСуммы.ТекущаяСтрока() = 1 Тогда
ИнформацияОСуммах = "Стоимость в валюте " + глРубли;
ИначеЕсли ТипыСуммы.ТекущаяСтрока() = 2 Тогда
ИнформацияОСуммах = "Стоимость в валюте " + ТипЦеныДляНоменклатуры.Валюта;
КонецЕсли;

// строка действия, описание см выше.
Действие = СформироватьТаблицуОстатковСЦенами(СписокОстМПЗ)+" ";

ПредставлениеТипыСуммы = "";
ТипыСуммы.ПолучитьЗначение(ТипыСуммы.ТекущаяСтрока(),ПредставлениеТипыСуммы);
Заголовок = Заголовок + РазделительСтрок + "Стоимость: " + ПредставлениеТипыСуммы + ".";
КонецЕсли;
// Андрей Пономарёв
Если ВыбЕдИзм=2 Тогда
Заголовок = Заголовок + " в м3 изд.";
ИначеЕсли ВыбЕдИзм=3 Тогда
Заголовок = Заголовок + " в м3 бет.";
Иначе
Заголовок = Заголовок + " в баз. ед.изм.";
КонецЕсли;
// Конец А П

Если (ТипЗначенияСтр(Таб) <> "Таблица") или (Обновить = 0) Тогда
Таб = СоздатьОбъект("Таблица");
Иначе
Таб.Очистить();
КонецЕсли;

Таб.ИсходнаяТаблица("СкладскойУчетМПЗ");
Состояние("Заполнение выходной таблицы...");

Таб.ВывестиСекцию("Кнопки");

КоличествоГруппировок = СписокГруппировок.РазмерСписка();

// определяем параметры расшифровки
Расшифровка.Установить("МенюДляОперативныхОтчетов", 1);
Расшифровка.Установить("Обновить", 0);
РасшифровыватьОтчет = 1;
Если ВыводитьОстаткиСЦенами = 0 Тогда
ПозГруппировкитекДок = Группировки.НайтиЗначение("ТекДок");
Если ПозГруппировкиТекДок > 0 Тогда
Если Группировки.Пометка(ПозГруппировкиТекДок) = 1 Тогда
РасшифровыватьОтчет = 0;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если (ВидОтчета = 2) и (ПоказатьОстатки.ТекущаяСтрока() >= 3) Тогда
РасшифровыватьОтчет = 0;
КонецЕсли;
// установим заголовок первой колонки по самому нижнему
// уровню группировки и выведем шапку отчета
ЗаголовокПервойКолонки = "";
НомерПоследнегоЗначения = СписокГруппировок.РазмерСписка();
Если НомерПоследнегоЗначения > 0 Тогда
СписокГруппировок.ПолучитьЗначение(НомерПоследнегоЗначения, ЗаголовокПервойКолонки);
КонецЕсли;

НомерГруппировкиМПЗ = СписокГруппировок.НайтиЗначение("МПЗ");

Таб.ВывестиСекцию("Заголовок|Показатель");
Если ВыводитьНачОст = 1 Тогда
Таб.ПрисоединитьСекцию("Заголовок|НачОст");
КонецЕсли;
Если ВыводитьПриход = 1 Тогда
Таб.ПрисоединитьСекцию("Заголовок|Приход");
КонецЕсли;
Если ВыводитьРасход = 1 Тогда
Таб.ПрисоединитьСекцию("Заголовок|Расход");
КонецЕсли;


// Андрей Пономарёв
Если ПоказатьОстатки.ТекущаяСтрока() = 2 Тогда
ЗаголовокГрафыКонОст = "Остаток на конец";
Таб.ПрисоединитьСекцию("Заголовок|КонОст");
ЗаголовокГрафыКонОст = "Резерв";
Таб.ПрисоединитьСекцию("Заголовок|КонОст");
Если ВыводитьКонОст = 1 Тогда
ЗаголовокГрафыКонОст = "Свободный остаток на конец";
Таб.ПрисоединитьСекцию("Заголовок|КонОст");
КонецЕсли;
Иначе
// Конец А П
Если ВыводитьКонОст = 1 Тогда
ЗаголовокГрафыКонОст = "Остаток на конец";
Таб.ПрисоединитьСекцию("Заголовок|КонОст");
КонецЕсли;
КонецЕсли;

Если ВыводитьВсеДаты = 1 Тогда // Дима Федосеев
Таб.ПрисоединитьСекцию("Заголовок|ВсеДаты"); // Дима Федосеев
КонецЕсли; // Дима Федосеев

Если глЗначениеПоУмолчанию("ФиксироватьСтрокиШапкиОтчета") = 1 Тогда
ФиксСтрок = Таб.ВысотаТаблицы();
Иначе
ФиксСтрок = 0;
КонецЕсли;

Если ВидОтчета = 2 Тогда
Если ПоказатьОстатки.ТекущаяСтрока() = 2 Тогда
//ЗаголовокГрафыКонОст = "Резерв";
//Таб.ПрисоединитьСекцию("Заголовок|КонОст");
ИначеЕсли ПоказатьОстатки.ТекущаяСтрока() = 5 Тогда
ЗаголовокГрафыКонОст = "Мин. остаток";
Таб.ПрисоединитьСекцию("Заголовок|КонОст");
// Вывод графы с разницей
ЗаголовокГрафыКонОст = "Остаток на конец минус мин. остаток";
Таб.ПрисоединитьСекцию("Заголовок|КонОст");
КонецЕсли;
Если ВыводитьОстаткиСЦенами = 1 Тогда
Таб.ПрисоединитьСекцию("Заголовок|КонОстСумма");
Таб.Область(Таб.ВысотаТаблицы(),5).Текст = "Остаток";
КонецЕсли;
КонецЕсли;

ИтогСуммаВсего = 0;
Если ВыводитьНачОст = 1 Тогда
КолТекОст = Запрос.КолНачОст;
КонецЕсли;
Если ВыводитьКонОст = 1 Тогда
ИтогоКолОст = 0; // для отрицательных остатков
КонецЕсли;

ТаблицаОтчета = СоздатьОбъект("ТаблицаЗначений");

Для Сч = 1 По СписокГруппировок.РазмерСписка() Цикл
НаименГруппировки = СписокГруппировок.ПолучитьЗначение(Сч);
ТаблицаОтчета.НоваяКолонка(НаименГруппировки);
КонецЦикла;
ТаблицаОтчета.НоваяКолонка("НомерГруппировки", "Число", 1);
ТаблицаОтчета.НоваяКолонка("ПолноеНаименование", "Строка");
ТаблицаОтчета.НоваяКолонка("Порядок", "Строка");

ТаблицаОтчета.НоваяКолонка("КолНачОст", "Число", 14, 3);
ТаблицаОтчета.НоваяКолонка("КолПриход", "Число", 14, 3);
ТаблицаОтчета.НоваяКолонка("КолРасход", "Число", 14, 3);
ТаблицаОтчета.НоваяКолонка("КолКонОст", "Число", 14, 3);


ТаблицаОтчета.НоваяКолонка("РезКонОст", "Число", 14, 3);
ТаблицаОтчета.НоваяКолонка("МинОстаток", "Число", 14, 3);
ТаблицаОтчета.НоваяКолонка("КонОстСумма","Число", 15, 2);
ТаблицаОтчета.НоваяКолонка ("ВсеДаты", "Число", 14, 3); // Дима Федосеев
СписокМПЗизЗапроса = СоздатьОбъект("СписокЗначений");
Если (ВидОтчета = 2) и ((ПоказатьОстатки.ТекущаяСтрока() = 3) или (ПоказатьОстатки.ТекущаяСтрока() = 5)) Тогда
ТаблицаИтогов = СоздатьОбъект("ТаблицаЗначений");
Запрос.Выгрузить(ТаблицаИтогов, 0, 0);
ТаблицаИтогов.Выгрузить(СписокМПЗизЗапроса, , , "МПЗ");
КонецЕсли;

Если КоличествоГруппировок > 0 Тогда

Если НомерГруппировкиМПЗ = 1 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;

Пока Запрос.Группировка(1) = 1 Цикл
ЗапомнитьСтроку(1);
Если НомерГруппировкиМПЗ = 2 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;
Если КоличествоГруппировок = 1 Тогда
Продолжить;
КонецЕсли;
Пока Запрос.Группировка(2) = 1 Цикл
ЗапомнитьСтроку(2);
Если НомерГруппировкиМПЗ = 3 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;
Если КоличествоГруппировок = 2 Тогда
Продолжить;
КонецЕсли;
Пока Запрос.Группировка(3) = 1 Цикл
ЗапомнитьСтроку(3);
Если НомерГруппировкиМПЗ = 4 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;
Если КоличествоГруппировок = 3 Тогда
Продолжить;
КонецЕсли;
Пока Запрос.Группировка(4) = 1 Цикл
ЗапомнитьСтроку(4);
Если НомерГруппировкиМПЗ = 5 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;
Если КоличествоГруппировок = 4 Тогда
Продолжить;
КонецЕсли;
Пока Запрос.Группировка(5) = 1 Цикл
ЗапомнитьСтроку(5);
Если НомерГруппировкиМПЗ = 6 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;
Если КоличествоГруппировок = 5 Тогда
Продолжить;
КонецЕсли;
Пока Запрос.Группировка(6) = 1 Цикл
ЗапомнитьСтроку(6);
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЕсли;

Если (ПоказатьОстатки.ТекущаяСтрока() = 3) или (ПоказатьОстатки.ТекущаяСтрока() = 5) Тогда
Если СписокМПЗизЗапроса.РазмерСписка() = 0 Тогда
ЗапомнитьСтрокуИзСправочника(СписокМПЗизЗапроса);
КонецЕсли;
КонецЕсли;

СтрокаСортировки = "";
Для Сч = 1 По СписокГруппировок.РазмерСписка() Цикл
НаименГруппировки = СписокГруппировок.ПолучитьЗначение(Сч);
Если НаименГруппировки = "МПЗ" Тогда
СтрокаСортировки = СтрокаСортировки + "Порядок,ПолноеНаименование,";
КонецЕсли;
СтрокаСортировки = СтрокаСортировки + НаименГруппировки;
Если Сч < СписокГруппировок.РазмерСписка() Тогда
СтрокаСортировки = СтрокаСортировки + ",";
КонецЕсли;
КонецЦикла;

СтрокаСвертки = СтрокаСортировки + ",НомерГруппировки";

ТаблицаОтчета.Свернуть(СтрокаСвертки, "КолНачОст, КолПриход, КолРасход, КолКонОст, РезКонОст, МинОстаток, КонОстСумма");
ТаблицаОтчета.Сортировать(СтрокаСортировки, 1);

Если ПоказатьОстатки.ТекущаяСтрока() = 5 Тогда

КоличествоСтрок = ТаблицаОтчета.КоличествоСтрок();
Для СчСтрок = 0 По КоличествоСтрок - 1 Цикл
НомерСтроки = КоличествоСтрок - СчСтрок;
ТаблицаОтчета.ПолучитьСтрокуПоНомеру(НомерСтроки);

Если ТаблицаОтчета.НомерГруппировки = НомерГруппировкиМПЗ Тогда
Если ТипЗначенияСтр(ТаблицаОтчета.МПЗ) = "Справочник" Тогда
Если (ТаблицаОтчета.МПЗ.Вид() = "Материалы") или (ТаблицаОтчета.МПЗ.Вид() = "Номенклатура")Тогда
МинОстаток = ТаблицаОтчета.МПЗ.МинОстаток;
Иначе
МинОстаток = 0;
КонецЕсли;
ТаблицаОтчета.МинОстаток = МинОстаток;
КонецЕсли;

Если ТаблицаОтчета.КолКонОст - ТаблицаОтчета.МинОстаток > 0 Тогда
ТаблицаОтчета.УдалитьСтроку(НомерСтроки);
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецЕсли;

Если (ВыводитьОстаткиСЦенами = 1) или (ПоказатьОстатки.ТекущаяСтрока() = 4) или (ПоказатьОстатки.ТекущаяСтрока() = 5) Тогда

КоличествоСтрок = ТаблицаОтчета.КоличествоСтрок();
Для Сч = 1 По КоличествоГруппировок Цикл

НомерПоследнейГруппировки = КоличествоГруппировок - Сч + 1;

КонОстСумма = 0;
КолКонОст = 0;
МинОстаток = 0;
Для СчСтрок = 1 По КоличествоСтрок Цикл
НомерСтроки = КоличествоСтрок - СчСтрок + 1;
ТаблицаОтчета.ПолучитьСтрокуПоНомеру(НомерСтроки);

Если (ТаблицаОтчета.НомерГруппировки > НомерПоследнейГруппировки) или (ТаблицаОтчета.НомерГруппировки < НомерПоследнейГруппировки - 1) Тогда
Продолжить;
КонецЕсли;

Если ТаблицаОтчета.НомерГруппировки <> НомерПоследнейГруппировки Тогда
ТаблицаОтчета.КонОстСумма = КонОстСумма;
ТаблицаОтчета.КолКонОст = КолКонОст;
ТаблицаОтчета.МинОстаток = МинОстаток;
КонОстСумма = 0;
КолКонОст = 0;
МинОстаток = 0;
Иначе
ТекНаименГруппировки = СписокГруппировок.ПолучитьЗначение(ТаблицаОтчета.НомерГруппировки);
Наимен = ТаблицаОтчета.ПолучитьЗначение(НомерСтроки, ТекНаименГруппировки);
Если (ТекНаименГруппировки = "МПЗ") или (ТекНаименГруппировки = "Владелец") Тогда
Если Наимен.ЭтоГруппа() = 1 Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонОстСумма = КонОстСумма + ТаблицаОтчета.КонОстСумма;
КолКонОст = КолКонОст + ТаблицаОтчета.КолКонОст;
МинОстаток = МинОстаток + ТаблицаОтчета.МинОстаток;
КонецЕсли;

КонецЦикла;

КонецЦикла;

КонецЕсли;

НаименГруппировки = СписокГруппировок.ПолучитьЗначение(1);

ТаблицаОтчета.ВыбратьСтроки();
Пока ТаблицаОтчета.ПолучитьСтроку() = 1 Цикл
Если ПоказатьОстатки.ТекущаяСтрока() = 4 Тогда
Если ТаблицаОтчета.КолКонОст >= 0 Тогда
Продолжить;
КонецЕсли;
ИначеЕсли ПоказатьОстатки.ТекущаяСтрока() = 5 Тогда
Если (ТаблицаОтчета.КолКонОст - ТаблицаОтчета.МинОстаток) >= 0 Тогда
Продолжить;
КонецЕсли;
КонецЕсли;

СформироватьСтроку(ТаблицаОтчета.НомерГруппировки);

Если ТаблицаОтчета.НомерГруппировки = 1 Тогда
Наимен = ТаблицаОтчета.ПолучитьЗначение(ТаблицаОтчета.НомерСтроки, НаименГруппировки);

ЭтоГруппа = 0;
Если ТипЗначенияСтр(Наимен) = "Справочник" Тогда
Если Наимен.Вид() <> "" Тогда
ЭтоГруппа = Наимен.ЭтоГруппа();
КонецЕсли;
КонецЕсли;

Если ЭтоГруппа = 0 Тогда
ИтогСуммаВсего = ИтогСуммаВсего + ТаблицаОтчета.КонОстСумма;
ИтогоКолОст = ИтогоКолОст + ТаблицаОтчета.КолКонОст;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Запрос.вНачалоВыборки();
Наимен = "Итого";
ТекДок = "";
ДатаДок = "";
КонОстСумма = ИтогСуммаВсего;
ВывестиСтроку("Итого", "Кол", "", Наимен, ТекДок, ДатаДок, , 1);
ВысТаб = Таб.ВысотаТаблицы();
ШирТаб = 4 + ВыводитьНачОст + ВыводитьПриход + ВыводитьРасход + ВыводитьКонОст;

Если ЕстьПредупреждение = 1 Тогда
Таб.ВывестиСекцию("Предупреждение");
КонецЕсли;


глПоказатьТаблицу(Таб, "СкладскойУчетМПЗ", "Складской учет МПЗ", ФиксСтрок,,,?(ВыводитьОстаткиСЦенами = 1,6,8));

Если (ФлагЗакрытияФормы = 1) или (Обновить = 2) Тогда
СтрокаДействийФормы = "#Закрыть";
КонецЕсли;
КонецПроцедуры // Сформировать()

(3) А поподробнее СП почитайте или ЖКК - что такое группировки и какие есть предопеделенные
Вкратце так:

Группировка
Устанавливает порядок выборки информации.
Синтаксис:
Группировка <ИмяГруппировки>|<ПредопредГруппировка>
[Упорядочить по <Порядок>[, <Порядок>]*]
[Без Упорядочивания][Без Групп][Все [ВошедшиеВЗапрос]];

<ПредопредГруппировка>
Ключевое слово одной из встроенных предо­пределенных группировок языка запросов. По этому имени можно будет обращаться к значению группировки из вызывающего программного модуля. Возможные значения приведены ниже.

День
Неделя
Месяц
Квартал
Год

Группировки по дате, дают воз­можность накапливать значения по документам за конкретный период (на каждый день, неделю, месяц и т. д.). В запросе может присутствовать несколько груп­пировок такого типа.

(5) Запрос.День вестимо смотреть при обходе группировки День.

(7) Попробуйте в конструкторе запросов сделать

(10) Ну и кто тебе писать от балды все будет? Выложи свой код, покажут ошибку.

(18) Выложите целиком своё изделие.. поглядеть.

(22) вот сейчас минусов накидают :-)

(22) Да уж..
Нужно было не флажок делать, а всего лишь в Группировка добавить "по дням" и всё...
и всё "само" бы заработало.

(31) Выкладывай оригинальный, НЕ правленный отчет.

(36) получилось, спасибо. Но вот результат должен выглядить вот так:

(42) А ты как думал ? В сказку попал ? Тут думать немного еще надо...
Когда ВывестиСекцию, а когда присоединить...

(42) А что, в моем примере, который я по почте отправил, разве этого нет?

(45) Я уже сегодня сдал работу :D