v7: ТиС добавление общего реквизита документа

Процедура Сформировать(ЗакрытьДиалог=0)

Перем Запрос, ТекстЗапроса;

Если глПроверкаДаты(ДатаНачала,ДатаКонца)=0 Тогда
Возврат;
КонецЕсли;

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

Таб.ИсходнаяТаблица( "АнализПродаж" );

// Здесь формируется отчет, который использует регистры, критичные к
// последовательности проведения документов
// поэтому сравним установленные даты периода формируемого отчета с ГП
Если глПроверкаАктуальностиОтчета(ДатаНачала,ДатаКонца,Последовательность.ОсновнаяПоследовательность)=0 Тогда
Возврат;
КонецЕсли;

Расшифровка = СоздатьОбъект("СписокЗначений");
Расшифровка.Установить("Отчет", "АнализПродаж");

// все настройки помещаем в список
Расшифровка.Установить("ДатаНачала", ДатаНачала);
Расшифровка.Установить("ДатаКонца", ДатаКонца);
Расшифровка.Установить("ВыбРазделитель1",ВыбРазделитель1);
Расшифровка.Установить("ВыбРазделитель2",ВыбРазделитель2);
Расшифровка.Установить("ВыбРазделитель3",ВыбРазделитель3);
Расшифровка.Установить("ВидРазделителя",ВидРазделителя);

Расшифровка.Установить("ВыбТМЦ", ВыбТМЦ);
Расшифровка.Установить("ВыбПокупатель", ВыбПокупатель);
Расшифровка.Установить("ВыбПоставщик", ВыбПоставщик);
Расшифровка.Установить("Группировки", Группировки);
Расшифровка.Установить("ВидЕдиницы", ВидЕдиницы);
Расшифровка.Установить("ПоГруппам", ПоГруппам);
////////////
//////2013
Расшифровка.Установить("ВыбТорговыеПредставители", ВыбТорговыеПредставители);
/////////////
///////////

Расшифровка.Установить("ВыбСвойствоТМЦ", ВыбСвойствоТМЦ);
Расшифровка.Установить("ВыбСвойствоПокупателя", ВыбСвойствоПокупателя);
Расшифровка.Установить("ВыбСвойствоПоставщика", ВыбСвойствоПоставщика);

глПриСменеСтрокиТаблицыМФ(1,ТекСтрокаВТаблице,Контекст); // записываем изменения если они были

// запомним МФ только если он задан
Если глМножественныйФильтрЗадан(ТаблицаМФ) = 1 Тогда
Расшифровка.Установить("ТаблицаМФ", ТаблицаМФ);
КонецЕсли;

//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ДатаНачала по ДатаКонца;
|Фирма = Регистр.Продажи.Фирма;
|УпрАналитика = Регистр.Продажи.Фирма.УпрАналитика;
|ЮрЛицо = Регистр.Продажи.Фирма.ЮрЛицо;
|Покупатель = Регистр.Продажи.Покупатель;
//////////////
///////2013
//|Торговый=Регистр.Продажи.ТекущийДокумент.ОбРеквТоргПредстав;

|Торговый=Регистр.Продажи.ТекущийДокумент;

|Условие (ТОрговый.Договор.ТорговыйПредставительДоговор = ВыбТорговыеПредставители);

// Запрос.Торговый.Договор.ТорговыйПредставительДоговор
///////////////
///////////////////
|СвойствоПок = Регистр.Продажи.Покупатель.ОсновноеСвойство.ЗначениеСвойства;
|Номенклатура = Регистр.Продажи.Номенклатура;
|СвойствоТМЦ = Регистр.Продажи.Номенклатура.ОсновноеСвойство.ЗначениеСвойства;
|Поставщик = Регистр.Продажи.Поставщик;
|СвойствоПост = Регистр.Продажи.Поставщик.ОсновноеСвойство.ЗначениеСвойства;";

ЕстьАвтор = 0;
ЕстьПроект = 0;
НомСтроки = 0;
НомКолонки = 0;

// Проверка на необходимость включения в запрос переменной "Автор"
// Сначала проверим, есть ли множественный фильтр по автору.
Если ТаблицаМФ.НайтиЗначение("Автор", НомСтроки, НомКолонки) = 1 Тогда
Если ТаблицаМФ.ПолучитьЗначение(НомСтроки, "ФлВкл") = 2 Тогда
ЕстьАвтор = 1;
КонецЕсли;
КонецЕсли;

// Если фильтра нет, то возможно есть группировка
Если ЕстьАвтор = 0 Тогда
НомСтроки = Группировки.НайтиЗначение("Автор");
Если НомСтроки > 0 Тогда
Если Группировки.Пометка(НомСтроки)=1 Тогда
ЕстьАвтор = 1;
КонецЕсли;
КонецЕсли;
КонецЕсли;

// Проверка на необходимость включения в запрос переменной "Проект"
НомСтроки = 0;
НомКолонки = 0;
Если ТаблицаМФ.НайтиЗначение("Проект", НомСтроки, НомКолонки) = 1 Тогда
Если ТаблицаМФ.ПолучитьЗначение(НомСтроки, "ФлВкл") = 2 Тогда
ЕстьПроект = 1;
КонецЕсли;
КонецЕсли;
Если ЕстьПроект = 0 Тогда
НомСтроки = Группировки.НайтиЗначение("Проект");
Если НомСтроки > 0 Тогда
Если Группировки.Пометка(НомСтроки)=1 Тогда
ЕстьПроект = 1;
КонецЕсли;
КонецЕсли;
КонецЕсли;

Если ЕстьАвтор=1 Тогда
ТекстЗапроса = ТекстЗапроса +
"
|Автор = Регистр.Продажи.ТекущийДокумент.Автор;";
КонецЕсли;

Если ЕстьПроект=1 Тогда
ТекстЗапроса = ТекстЗапроса +
"
|Проект = Регистр.Продажи.ТекущийДокумент.Проект;";

КонецЕсли;

ТекстЗапроса = ТекстЗапроса +
"
|Себест = Регистр.Продажи.Себестоимость;
|Количество = Регистр.Продажи.Количество;
|ПродСт = Регистр.Продажи.ПродСтоимость;
|СебестВ = Регистр.Продажи.СебестоимостьВ;
|КоличествоВ = Регистр.Продажи.КоличествоВ;
|ПродСтВ = Регистр.Продажи.ПродСтоимостьВ;
|Функция СуммаСебест = Сумма(Себест);
|Функция СуммаКоличество = Сумма(Количество);
|Функция СуммаПродСт = Сумма(ПродСт);
|Функция СуммаСебестВ = Сумма(СебестВ);
|Функция СуммаКоличествоВ = Сумма(КоличествоВ);
|Функция СуммаПродСтВ = Сумма(ПродСтВ);";

Загол="";

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

ПечЗаголовок = "Анализ продаж ("+глДоллары.Наименование+")";

ПечЗаголовокСтолбца = "";
УстановитьГруппировкиЗапроса(ТекстЗапроса, ПечЗаголовокСтолбца);
КоличествоГруппировок = СписокГруппировок.РазмерСписка();

Если КоличествоГруппировок > 5 Тогда
Предупреждение("Нельзя сделать больше 5 группировок!",60);
Возврат;
КонецЕсли;

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

глЧислоСтрок = 0;

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

Таб.ВывестиСекцию("Шапка");
НачПовт = НачПовт + Таб.ВысотаСекции("Шапка");

Таб.ВывестиСекцию("ЗаголовокТаблицы");
КонПовт = НачПовт + Таб.ВысотаСекции("ЗаголовокТаблицы");
Таб.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);

глОживить(1);

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0, "АнализПродаж", "АнализПродаж");

// ВЫВОД ГРУППИРОВОК ЗАПРОСА
ВывестиГруппировку(Запрос,1);

ПечатьСтроки(Запрос,0,"Всего","Всего:");

Таб.ОбластьПечати(3);

// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
Таб.Защита(1);
КонецЕсли;

Таб.Показать("Анализ продаж", "");

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

КонецПроцедуры // Сформировать()