Имя: Пароль:
1C
1C 7.7
v7: Подскажите, как получить документ из бух итогов?
0 Bodrug
 
12.06.14
17:18
Вот код:

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