Сколько можно взять за такой отчет?

//=========================================================
//Вызывается при двойном щелчке по списку
Процедура СЗКонтрагент_ПриВыборе()
Если СЗКонтрагент.РазмерСписка() > 0 Тогда
ВыбранноеЗначение = СЗКонтрагент.ПолучитьЗначение(СЗКонтрагент.ТекущаяСтрока());
ОткрытьФорму(ВыбранноеЗначение.ТекущийЭлемент());
КонецЕсли;
КонецПроцедуры

//=========================================================
Процедура СЗКонтрагент_ДобавитьЗначение()
Спр = СоздатьОбъект("Справочник.Контрагенты");
Если Спр.Выбрать("Выберите элемент", "Основная") = 1 Тогда
СЗКонтрагент.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли;
КонецПроцедуры

//=========================================================
Процедура СЗКонтрагент_УдалитьЗначение()
Если СЗКонтрагент.ТекущаяСтрока() > 0 Тогда
СЗКонтрагент.УдалитьЗначение(СЗКонтрагент.ТекущаяСтрока());
КонецЕсли;
КонецПроцедуры

//=========================================================
Процедура СЗКонтрагент_УдалитьВсе()
СЗКонтрагент.УдалитьВсе();
КонецПроцедуры

//=========================================================
Процедура СЗКонтрагент_МножественныйВыбор()
ОткрытьПодбор("Справочник.Контрагенты", "Основная",,1);
КонецПроцедуры

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

//=========================================================
Процедура СЗКонтрагент_ЗначениеВверх()
Если СЗКонтрагент.ТекущаяСтрока() > 1 Тогда
СЗКонтрагент.СдвинутьЗначение(-1, СЗКонтрагент.ТекущаяСтрока());
КонецЕсли;
КонецПроцедуры

//=========================================================
Процедура СЗКонтрагент_ЗначениеВниз()
Если (СЗКонтрагент.ТекущаяСтрока() > 0) И (СЗКонтрагент.ТекущаяСтрока() < СЗКонтрагент.РазмерСписка()) Тогда
СЗКонтрагент.СдвинутьЗначение(1, СЗКонтрагент.ТекущаяСтрока());
КонецЕсли;
КонецПроцедуры

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

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Фирма
//Таб.ВывестиСекцию("Фирма");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей Склад
//Таб.ВывестиСекцию("Склад");
Пока Запрос.Группировка(3) = 1 Цикл
// Заполнение полей Номенклатура
//Таб.ВывестиСекцию("Номенклатура");
// Пока Запрос.Группировка(4) = 1 Цикл
// Заполнение полей Контрагент
Попытка
печАдрес=Запрос.Контрагент.ЮрФизЛицо.ФактАдрес;
Исключение
печАдрес=Запрос.Контрагент.ОсновнойДоговор;
КонецПопытки;
Таб.ВывестиСекцию("Контрагент");
// КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
// Заполнение полей "Итого"
//Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");

КонецПроцедуры

3 Часа моей работы. По меркам маленького города.