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