Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 10:29

помогите с отчетом

Автор Vasya Povar, 28 ноя 2016, 16:01

0 Пользователей и 1 гость просматривают эту тему.

Vasya Povar

Есть часть кода в 7.7 версии
Нужно реализовать в 8.3
Таб1 = СоздатьОбъект("Таблица");
Таб1.ИсходнаяТаблица("Поставщики");
Таб1.ВывестиСекцию("Шапка");
Таб1.Опции(0,0,Таб1.ВысотаТаблицы(),0);
Ит1 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит1.ИспользоватьРазделительУчета(ВыбРазделительУчета);
Ит1.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
Ит1.ИспользоватьКорСубконто(ВидыСубконто.ТМЦ,,1);
Ит1.ВключатьСубсчета(-1,-1);
Если ПустоеЗначение(ВыбОсновной)=1 Тогда
СчетЗапроса="631,6851,6852,6853,6854,6855,6859";
Иначе
СчетЗапроса=ВыбОсновной;
КонецЕсли;
Ит1.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, СчетЗапроса, ,, 3, "Операция", "СК");

Таб1.ВывестиСекцию("Шапка2");


Написал пока так:
ТабДок = Новый ТабличныйДокумент;
Макет = Отчеты.ХарактеристикаКонтрагентов.ПолучитьМакет("Поставщики");
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка1 = Макет.ПолучитьОбласть("Шапка1");
ТабДок.Вывести(Шапка);
ТабДок.Вывести(Шапка1);
Строка1 = Макет.ПолучитьОбласть("Строка1");

//Тут не знаю запрос делать наверно надо, но какой и откуда брать итоги
ТабДок.Вывести(Строка1);



Vasya Povar

Возможно нужно сделать регистр сведений по Контрагентам

Вот так должно получится в итоге



cska-fanat-kz

Бухгалтерские итоги = запрос к регистру бухгалтерии
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Теги: буг 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск