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);
КонецЦикла;
КонецЕсли;
КонецЦикла;
|
|