
Отчет 2 Складской отчет
Модуль:
//*******************************************
//{{БУХГАЛТЕРСКИЙ ЗАПРОС(Сформировать)
//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
//{{ Схема номер 6
//{{ ДтКт 1011100
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("СформироватьКонтрагента");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
если ВыбСубконто1.выбран()=1 тогда
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,ВыбСубконто1, 1);
иначе
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
конецесли;
// Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
если ВыбСубконто2.выбран()=1 тогда
Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,ВыбСубконто2, 1);
иначе
Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,, 1);
конецесли;
// Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, 62.1,,, 2,, "СК");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
// Сформировать_Колонки(Ит, Таб, "Субконто1");
Таб.ВывестиСекцию("Заголовок");
Таб.ВывестиСекцию("Шапка");
Таб.ВывестиСекцию("Субконто1");
Ит.ВыбратьКорСубконто(ВидыСубконто.Товары);
Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Товары) = 1 Цикл
// Сформировать_Колонки(Ит, Таб, "КорСубконто1");
Таб.ВывестиСекцию("Субконто2");
КонецЦикла;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС
Процедура ПриОткрытии()
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(Сформировать)
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА
КонецПроцедуры
Рисунок 9 – Форма отчета для анализа сбыта
Рисунок 10 – Сформировать
Отчет 3 Анализ сбыта
Модуль:
//*******************************************
Процедура Сформировать()
КонецПроцедуры
//{{БУХГАЛТЕРСКИЙ ЗАПРОС(СформироватьАнализ)
//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
//{{ Схема номер 6
//{{ ДтКт 1011100
Процедура СформироватьАнализ()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("СформироватьАнализ");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбСубконто1, 1);
Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62.1",,, 2,, "СК");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
Таб.ВывестиСекцию("Субконто1");
Ит.ВыбратьКорСубконто(ВидыСубконто.Товары);
Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Товары) = 1 Цикл
Таб.ВывестиСекцию("КорСубконто1");
КонецЦикла;
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("СформироватьАнализ","");
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС
Процедура ПриОткрытии()
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(СформироватьАнализ)
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА
КонецПроцедуры
Рисунок 11 – Форма отчета Анализ сбыта
Рисунок 12 – Печатная форма Анализ сбыта