Переделываю КУДиР под БГУ, но никак не могу решить одну проблему - сначала выводятся итоги за период, а потом уже список документов за этот период. получается вот такая фигня - http://s005.radikal.ru/i212/1206/ed/fe618b54fe47.jpg
понимаю, что где-то в коде ошибка, но не могу найти
подскажите, а?) код взят из типовой БП и переделан под БГУ

ДокументРезультат.Очистить();
   ДокументРезультат.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_КнигаУчетаДоходовИРасходов_Раздел1";
   Макет = ПолучитьМакет("Раздел1");
   
   Секция = Макет.ПолучитьОбласть("Шапка|Основная");
   ДокументРезультат.Вывести(Секция);
   Секция = Макет.ПолучитьОбласть("Шапка|Режим3");
   Секция.Параметры.Заголовок4 = "Доходы";
   
   ДокументРезультат.Присоединить(Секция);
   
   НачДата = ?(CНачалаГода, НачалоГода(Период), НачалоКвартала(Период));
   КолКварталов = Цел(Месяц(КонецКвартала(Период))/3);
   
   НПП = 1;
   
   ТекКвартал = Цел(Месяц(КонецКвартала(НачДата))/3);
   ПоследнийКварталПериода = НомерКвартала(Период);
       
   Для Каждого СтрокаСпискаДокументов Из СписокДокументов Цикл
               
       КварталЗаписи = Цел(Месяц(КонецКвартала(Период))/3);
       
       Пока КварталЗаписи <> ТекКвартал Цикл
           
           ВывестиИтогиЗаКвартал(ТекКвартал, ПоследнийКварталПериода, Макет, ДокументРезультат);
           ТекКвартал = ТекКвартал + 1;
           
       КонецЦикла;
       

       Секция = Макет.ПолучитьОбласть("Строка|Основная");
       Секция.Параметры.НомерПП = НПП;
       Секция.Параметры.ПечДатаНомерДок = "№ " + ОбщегоНазначения.ПолучитьНомерНаПечать(СтрокаСпискаДокументов.Ссылка) + " от " + Формат(СтрокаСпискаДокументов.Дата, "ДФ=dd.MM.yyyy");
       Секция.Параметры.ПечСодерж = "" + ТипЗнч(СтрокаСпискаДокументов.Ссылка) + ": " + СтрокаСпискаДокументов.ВидОперации + " покупателю " + СтрокаСпискаДокументов.Контрагент + " по договору """ + СтрокаСпискаДокументов.Договор + """";
       ДокументРезультат.Вывести(Секция);
       
       Секция = Макет.ПолучитьОбласть("Строка|Режим3");
       Секция.Параметры.ПечДоходы = СтрокаСпискаДокументов.СуммаДокумента;
       ДокументРезультат.Присоединить(Секция);
       НПП = НПП + 1;
   КонецЦикла;
   
   Пока (ПоследнийКварталПериода >= ТекКвартал) Цикл
       
       ВывестиИтогиЗаКвартал(ТекКвартал, ПоследнийКварталПериода, Макет, ДокументРезультат);
       ТекКвартал = ТекКвартал + 1;
       
   КонецЦикла;
   
   // Выведем подвал
   Если (НомерКвартала(Период) = 4) и (Период >= Дата("20060101")) Тогда
       Секция = Макет.ПолучитьОбласть("Справка");
       Секция.Параметры.ПечДоходы = СписокДокументов.Итог("СуммаДокумента");
       
       ДокументРезультат.Вывести(Секция);
   КонецЕсли;
       
   ДокументРезультат.ТолькоПросмотр = Истина;
   ДокументРезультат.ПовторятьПриПечатиСтроки = ДокументРезультат.Область(6,,6,);

вверх

ап

неужто никто не видит ошибки?((

злые вы(

Мы не злые, мы в недоумении - зачем бюджетному учреждению КУДиР?

(5)они предоставляют услуги. по сути им только доходы вывести

(6)
- они автономные?
- что ты хочешь чтобы мы сделали? исправили код ? Поменяй местами вывод соответствующих областей. Без макета только гадать можно...

нашла уже ошибку. тему можно закрыть

хм... прикольно получилось.. ставишь галочку "с начала года" - нормально отображается, не ставишь - зацикливается на
       Пока КварталЗаписи <> ТекКвартал Цикл
           
           ВывестиИтогиЗаКвартал(ТекКвартал, ПоследнийКварталПериода, Макет, ДокументРезультат);
           ТекКвартал = ТекКвартал + 1;
           
       КонецЦикла;

(9) Поди КварталЗаписи ничему не равен, вот и зацикливается

(10)неа, равен. если и ТекКвартал и КварталЗаписи при первом проходе равны, то все ок, а если не равны - уходит в затуп

Итого за CMXCV квартал        
Итого за 9 месяцев 2260 г.        
Итого за CMXCVI квартал        
Итого за 2260 г.        
Итого за CMXCVII квартал        
Итого за 1 квартал 2261 г.        
Итого за CMXCVIII квартал        
Итого за 1 полугодие 2261 г.        
Итого за CMXCIX квартал        
Итого за 9 месяцев 2261 г.

эт писец какой-то =(

(12) что это? О_о

А ТекКвартал это что? Дата или номер квартала?

(14)номер квартала. как и КварталЗаписи. это то, что сейчас выводится в макет. слава богу, что дальше цикл прерывается

+(15)в (0) код где устанавливается ТекКвартал и КварталЗаписи

(15) на 2261г календарь кончился? :)

(17)не. там в функции при выводе итогов вызывается функция ПреобразоватьЧислоВРимскуюНотацию, и там условие, что если арабское число больше 999, то обработка прерывается

http://i021.radikal.ru/1206/09/882fa7e07ac0.jpg
сейчас выводится так. но если не поставить галочку "с начала года", то вывод начинается с 4 квартала и до 2261 года

Все. Отчет закончен. Тему можно сдать в архив