Получить обороты по субконто в 1С 7.7 бухгалтерия
29.01.2012
10:00
#1
"Чтобы получить обороты делаю
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
ИТ.Рассчитать(ВыбНачПериода,ВыбКонПериода);
Ит.ИспользоватьСубконто(Видысубконто.БанковскиеСчета,,1);
Ит.ИспользоватьКорСубконто(Видысубконто.Контрагенты,,1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,);
Таб.ВывестиСекцию("Заголовок");
Таб.ВывестиСекцию("Шапка");
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто() = 1 Цикл
Ит.ВыбратьКорСубконто();
Пока Ит.ПолучитьКорСубконто() = 1 Цикл
П_62 = Ит.КО(); //(пробую и Ит.КорКО())
Если П_62 > 0 Тогда
Таб.ВывестиСекцию("Субконто1_Р");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
В результате ничего не получаю. Выборка субконото банковские счета проходит. А дальше ничего."
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
ИТ.Рассчитать(ВыбНачПериода,ВыбКонПериода);
Ит.ИспользоватьСубконто(Видысубконто.БанковскиеСчета,,1);
Ит.ИспользоватьКорСубконто(Видысубконто.Контрагенты,,1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,);
Таб.ВывестиСекцию("Заголовок");
Таб.ВывестиСекцию("Шапка");
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто() = 1 Цикл
Ит.ВыбратьКорСубконто();
Пока Ит.ПолучитьКорСубконто() = 1 Цикл
П_62 = Ит.КО(); //(пробую и Ит.КорКО())
Если П_62 > 0 Тогда
Таб.ВывестиСекцию("Субконто1_Р");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
В результате ничего не получаю. Выборка субконото банковские счета проходит. А дальше ничего."
Читают тему
(гостей: 1)