khrusTby
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, почему не работает цикл по дням? Нет обхода по дням. По операциям, по проводкам обход работает, а по дням нет... Точнее обход есть, но выбираются только несколько контрагентов, при чем не понятно по какому принципу происходит выход из цикла по субконто. Дебеторов около 80 и если отключить выборку по периодам все они и показываются, а с выборкой остается только 10...
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1,0);
БИ.ВыполнитьЗапрос(ДатаНачала,ДатаКонца,"62.1",,,,"День");
БИ.ВыбратьПериоды();
Пока БИ.ПолучитьПериод() = 1 Цикл
врДата = БИ.НачДата;
Состояние("Обрабатываем " + врДата);
Если БезВыходных = 1 Тогда
Если НомерДняНедели(врДата) > 5 Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
БИ.ВыбратьСубконто(1);
Пока БИ.ПолучитьСубконто(1) = 1 Цикл
врКонтрагент = БИ.Субконто(1);
Если ПодходитК(врКонтрагент) = 0 Тогда
Продолжить;
КонецЕсли;
фл = 0;
Для пц = 3 По ТЗ.КоличествоКолонок() Цикл
ТЗ.ПолучитьПараметрыКолонки(пц,,,,Заг,,,);
Если СтрЗаменить(Заг,"ОстНач","") = Строка(врДата) Тогда
фл = пц;
Прервать;
КонецЕсли;
КонецЦикла;
Если фл = 0 Тогда //такой колонки нет - добавим
ТЗ.НоваяКолонка("ОстНач","Число",,,"ОстНач" + Строка(врДата));
ТЗ.НоваяКолонка("Приход","Число",,,"Приход" + Строка(врДата));
ТЗ.НоваяКолонка("Расход","Число",,,"Расход" + Строка(врДата));
КонецЕсли;
ТЗ.НоваяСтрока();
ТЗ.Контрагент = врКонтрагент;
ТЗ.УстановитьЗначение(ТЗ.НомерСтроки,?(фл = 0, ТЗ.КоличествоКолонок() - 2,фл),БИ.СНД() - БИ.СНК());
ТЗ.УстановитьЗначение(ТЗ.НомерСтроки,?(фл = 0, ТЗ.КоличествоКолонок(),фл + 2),БИ.ДО());
КонецЦикла;
КонецЦикла; |
Всего записей: 10 | Зарегистр. 20-05-2009 | Отправлено: 12:56 27-04-2011 | Исправлено: khrusTby, 14:01 27-04-2011 |
|
Программы » 
Варезник » 
