0
Bodrug
12.06.14
✎
17:18
|
Вот код:
Опер = СоздатьОбъект("БухгалтерскиеИтоги");
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Отчет");
Таб.ПараметрыСтраницы(1,,,,,,,,,1,,);
Таб.Опции(0,0);
Таб.Защита(0);
Таб.ВывестиСекцию("Шапка");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Субконто");
ТЗ.НоваяКолонка("Сумма");
ТЗ.НоваяКолонка("Количество");
ТЗ.НоваяКолонка("ЕдИзм");
Опер.ИспользоватьПланСчетов(ПланыСчетов.Основной);
Опер.ИспользоватьСубконто(ВидыСубконто.ТМЦ,,1);
Опер.ВыполнитьЗапрос(НачДата, КонДата, СчетПоКоду("281"), СчетПоКоду("902"),,2,,5);
Опер.ВыбратьСубконто();
Опер.ВыбратьСубконто(1);
Пока Опер.ПолучитьСубконто(1)=1 Цикл
ТМЦ = Опер.Субконто(1);
Сумма = Опер.КО();
Количество = Опер.КО(3);
ТЗ.НоваяСтрока();
ТЗ.Количество = Количество;
ТЗ.Субконто = ТМЦ;
ТЗ.Сумма = Сумма;
ТЗ.ЕдИзм = ТМЦ.БазЕдиница;
//Таб.ВывестиСекцию("Строка");
КонецЦикла;
|
|