Имя: Пароль:
1C
1C 7.7
v7: Бух итоги по нескольким счетам. Второе субконто только на одном из них
0 toypaul
 
гуру
10.07.15
14:07
Так что ли нельзя в 7ке?

    БИ = СоздатьОбъект("БухгалтерскиеИтоги");
    БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
    БИ.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные);
    БИ.ВыполнитьЗапрос(,ДатаОкончания,"62.2,76.АВ");

    БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл
        Контрагент = БИ.Субконто(1);
        
        Остаток62 = 0;
        
        ТабСФ = СоздатьОбъект("ТаблицаЗначений");
        ТабСФ.НоваяКолонка("СФ");
        ТабСФ.НоваяКолонка("Остаток");
        
        БИ.ВыбратьСчета();
        Пока БИ.ПолучитьСчет() = 1 Цикл
            Если БИ.Счет.Код = "62.2" Тогда
                Остаток62 = БИ.СКК();
            Иначе
                БИ.ВыбратьСубконто(2);
                Пока БИ.ПолучитьСубконто(2) = 1 Цикл
                    ТабСФ.НоваяСтрока();
                    ТабСФ.Остаток = БИ.СКД();
                    ТабСФ.СФ = БИ.Субконто(2);
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
1 toypaul
 
гуру
10.07.15
14:07
По 62.2 не видит остаток