Как в 1С8.3 реализовать Функции 7.7 Объект Бухгалтерские итоги

18.12.14

✎

21:53

Надо конвертировать в 8.3 отчет из 1С 7.7 Бухгалтерия там работа идет с объектом БухгалтерскиеИтоги как реализовать в 8.3 (Стандартная бухгалтерия) к примеру следующий код из 7.7?

БухИт =СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
БухИт.ВыполнитьЗапрос(ДатаОст,,Счет36);
БухИт.ВыбратьСубконто(1,,1);
Пока БухИт.ПолучитьСубконто(1,1) = 1 Цикл;
     Если БухИт.СНД > 0 Тогда
        ТбОтчета.НоваяСтрока();
        ТбОтчета.Контрагент = БухИт.Субконто(1);
        ТбОтчета.ОстДт = БухИт.СНД();
     КонецЕсли;
КонецЦикла;

1 Otkr

18.12.14

✎

21:55

Запросом к регистру бухгалтерии

2 heyfec

18.12.14

✎

22:04

Каким образом? в каком именно регистре бухгаптерии Обороты или ОстаткиИОбороты?

3 ДенисЧ

18.12.14

✎

22:08

(2) метлу не предлагать?
А может, всё-таки предложить?

4 Мимохожий Однако

18.12.14

✎

22:08

Регистр бухгалтерии Хозрасчетный (БП3.0)

5 heyfec

18.12.14

✎

22:12

Ну вот пример и чего как мне выбрать к примеру субконто Контагентызадать условие?

    Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |    ХозрасчетныйОстаткиИОбороты.СуммаОборотДт
               |ИЗ
               |    РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты КАК ХозрасчетныйОстаткиИОбороты";

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл
Сообщить(Выборка.СуммаОборотДт);


КонецЦикла;

6 Мимохожий Однако

18.12.14

✎

22:14

Используй конструктор запроса

7 2S

18.12.14

✎

22:19

В бп для этого целая подсистема есть