Код:
//--------------------------------------------------------------------------------
Перем Бут1, Бут2, Бут3, Бут4, Дал1, Дал2, Дал3, Дал4,
Бут_1, Бут_2, Бут_3, Бут_4, Дал_1, Дал_2, Дал_3, Дал_4;
//*******************************************
//{{БУХГАЛТЕРСКИЙ ЗАПРОС(Сформировать)
//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
//{{ Схема номер 4
//{{ ДтКт 1100001
Процедура Сформировать_Колонки(Ит, Таб, Стр)
Таб.ВывестиСекцию(Стр+"|Начало");
Ит.ВыбратьКорСчета(1, 1);
Пока Ит.ПолучитьКорСчет() = 1 Цикл
Если Ит.КорСчет.Код="26" Тогда
НаименованиеСчета="Произв.";
Иначе
НаименованиеСчета=Ит.КорСчет.Наименование;
КонецЕсли;
Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Дт");
КонецЦикла;
// Таб.ПрисоединитьСекцию(Стр+"|Оборот_Дт");
Ит.ВыбратьКорСчета(1, 2);
Пока Ит.ПолучитьКорСчет() = 1 Цикл
Если Ит.КорСчет.Код="26" Тогда
НаименованиеСчета="На отв.хран.";
ИначеЕсли Ит.КорСчет.Код="90" Тогда
НаименованиеСчета="Реализация";
ИначеЕсли Ит.КорСчет.Код="94" Тогда
НаименованиеСчета="Слив";
Иначе
НаименованиеСчета=Ит.КорСчет.Наименование;
КонецЕсли;
Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Кт");
КонецЦикла;
// Таб.ПрисоединитьСекцию(Стр+"|Оборот_Кт");
Таб.ПрисоединитьСекцию(Стр+"|Конец");
КонецПроцедуры
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Отчет");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, ВыбСубконто1, 2);
Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ, ВыбСубконто2, 1, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "26",,, 3,, "СК");
Таб.ВывестиСекцию("Заголовок");
Сформировать_Колонки(Ит, Таб, "Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ);
Бут_1=0;
Дал_1=0;
Бут_3=0;
Дал_3=0;
Дал_2=0;
Дал_4=0;
Пока Ит.ПолучитьСубконто(ВидыСубконто.ТМЦ) = 1 Цикл
Если Ит.Субконто(ВидыСубконто.ТМЦ).ЭтоГруппа()=1 Тогда
Сформировать_Колонки(Ит, Таб, "Группа");
Иначе
Бут1=(Ит.СНД(3)-Ит.СНК(3));
Дал1=Бут1*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал;
Бут3=(Ит.СКД(3)-Ит.СКК(3));
Дал3=Бут3*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал;
Сформировать_Колонки(Ит, Таб, "Субконто1");
Бут_1=Бут_1+Бут1;
Дал_1=Дал_1+Дал1;
Дал_2=Дал_2+(Ит.КорДО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
Бут_3=Бут_3+Бут3;
Дал_3=Дал_3+Дал3;
Дал_4=Дал_4+(Ит.КорКО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
КонецЕсли;
КонецЦикла;
Сформировать_Колонки(Ит, Таб, "Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС
Процедура ПриОткрытии()
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(Сформировать)
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА
КонецПроцедуры
//--------------------------------------------------------------------------------
Формы таблицы отчета в конфигураторе и после формирования отчета
Социальные закладки