цикл по субконто
22.08.2007
19:40
#1
"Надо сделать отчет по долгам фирмы перед контрагентами. Программа делает запрос по 60 счету, перебирая субконто "Контрагенты". Однако цикл состоит всего из 2х итераций, а в справочнике порядка 30 записей. Не могу понять почему.
Вот текст:
Процедура Сформировать()
БИ=СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
БИ.ВыполнитьЗапрос(,ТекущаяДата(), "60");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("""");
Таб.ВывестиСекцию("Шапка");
БИ.ВыбратьСубконто();
Пока БИ.ПолучитьСубконто()=1 цикл
СуммаЗадолженности=БИ.СКК();
Если СуммаЗадолженности>0 тогда
Наименование=БИ.Субконто();
Таб.ВывестиСекцию("Строка");
конецесли;
конеццикла;
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,0,0);
Таб.Показать("Справка о задолженности поставщикам");
КонецПроцедуры"
Вот текст:
Процедура Сформировать()
БИ=СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
БИ.ВыполнитьЗапрос(,ТекущаяДата(), "60");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("""");
Таб.ВывестиСекцию("Шапка");
БИ.ВыбратьСубконто();
Пока БИ.ПолучитьСубконто()=1 цикл
СуммаЗадолженности=БИ.СКК();
Если СуммаЗадолженности>0 тогда
Наименование=БИ.Субконто();
Таб.ВывестиСекцию("Строка");
конецесли;
конеццикла;
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,0,0);
Таб.Показать("Справка о задолженности поставщикам");
КонецПроцедуры"
23.08.2007
09:44
#2
Ну, и что именно Вас смущает? Нормальный цикл с перебором значений субконто вида "Контрагенты".
Читают тему
(гостей: 1)