Количество строк в цикле

1С v8

27.03.14

✎

21:21

Делаю
    Результат1 = Запрос1.Выполнить().Выбрать();
         Результат1.Следующий();
                 ОбластьСтрока1.Параметры.датаДокум = Формат(Результат1.ДатаДокумента,"ДФ=dd.MM.yyyy");
                 ОбластьСтрока1.Параметры.Договор   = Результат1.Договор ;



            ОбластьСтрока1.Параметры.СуммаСтроительства  = ВыборкаОбъектыСтроительства.Сумма;
            ТабДок.Вывести( ОбластьСтрока1);



            ВыборкаСтатьиЗатрат = ВыборкаОбъектыСтроительства.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

                Пока ВыборкаСтатьиЗатрат.Следующий() Цикл

                    ОбластьСтрока2.Параметры.СтатьяЗатрат = ВыборкаСтатьиЗатрат.СтатьиЗатрат;
                    ОбластьСтрока2.Параметры.СуммаЗатрат  = ВыборкаСтатьиЗатрат.Сумма;

                    ТабДок.Вывести( ОбластьСтрока2);



                //КонецЕсли;
                //КонецЕсли;
                КонецЦикла;

                       КонецЦикла;

1 Самая счастливая

27.03.14

✎

21:22

необходимо подсчитать строки

2 Самая счастливая

27.03.14

✎

21:23

ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    ВыборкаОбщийИтог.Следующий();        // Общий итог

    // Вставить обработку выборки ВыборкаОбщийИтог

    ВыборкаОбъектыСтроительства = ВыборкаОбщийИтог.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаОбъектыСтроительства.Следующий() Цикл

            ОбластьСтрока1.Параметры.ОбъектСтроительства = ВыборкаОбъектыСтроительства.ОбъектыСтроительства;

        Запрос1 = Новый Запрос;
    Запрос1.Текст = "ВЫБРАТЬ
                    |    ХозрасчетныйДвиженияССубконто.СубконтоКт3 КАК ДатаДокумента1,
                    |    ХозрасчетныйДвиженияССубконто.СубконтоКт3.ДоговорКонтрагента.Ссылка КАК Договор,
                    |    ХозрасчетныйДвиженияССубконто.СубконтоКт3.Дата КАК ДатаДокумента
                    |ИЗ
                    |    РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(&ДатаНач, &ДатаКон, Счет В (&Счет), , ) КАК ХозрасчетныйДвиженияССубконто
                    |ГДЕ
                    |    ХозрасчетныйДвиженияССубконто.СчетДт = ХозрасчетныйДвиженияССубконто.СчетДт
                    |    И ХозрасчетныйДвиженияССубконто.СубконтоДт1 В(&СубконтоДт1)
                    |    И ХозрасчетныйДвиженияССубконто.Организация = &Организация";
    Запрос1.УстановитьПараметр("ДатаНач",Дата(2013,01,01));
    Запрос1.УстановитьПараметр("ДатаКон", ДатаКон);
    Запрос1.УстановитьПараметр("Счет", МассивОтбора);
    Запрос1.УстановитьПараметр("СчетДт", МассивОтбора);
    Запрос1.УстановитьПараметр("Организация", Организация);
    Запрос1.УстановитьПараметр("СубконтоДт1",ВыборкаОбъектыСтроительства.ОбъектыСтроительства);
    Результат1 = Запрос1.Выполнить().Выбрать();
         Результат1.Следующий();
                 ОбластьСтрока1.Параметры.датаДокум = Формат(Результат1.ДатаДокумента,"ДФ=dd.MM.yyyy");
                 ОбластьСтрока1.Параметры.Договор   = Результат1.Договор ;



            ОбластьСтрока1.Параметры.СуммаСтроительства  = ВыборкаОбъектыСтроительства.Сумма;
            ТабДок.Вывести( ОбластьСтрока1);



            ВыборкаСтатьиЗатрат = ВыборкаОбъектыСтроительства.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

                Пока ВыборкаСтатьиЗатрат.Следующий() Цикл

                    ОбластьСтрока2.Параметры.СтатьяЗатрат = ВыборкаСтатьиЗатрат.СтатьиЗатрат;
                    ОбластьСтрока2.Параметры.СуммаЗатрат  = ВыборкаСтатьиЗатрат.Сумма;

                    ТабДок.Вывести( ОбластьСтрока2);



                //КонецЕсли;
                //КонецЕсли;
                КонецЦикла;

                       КонецЦикла;



    ТабДок.Показать();

3 Самая счастливая

27.03.14

✎

21:24

необходимо выводить если ВыборкаОбъектыСтроительства.ОбъектыСтроительства >2 , тогда вывести на новой странице

4 Самая счастливая

27.03.14

✎

21:24

как написать запрос?

5 Самая счастливая

27.03.14

✎

21:25

как написать текст?

6 mc lammer

27.03.14

✎

21:43

ВыборкаОбъектыСтроительства.Количество() > 2 ?

7 mc lammer

27.03.14

✎

21:43

*ВыборкаСтатьиЗатрат

8 Самая счастливая

27.03.14

✎

21:49

{Форма.ФормаОтчета.Форма(118)}: Метод объекта не обнаружен (Количество)
Если ВыборкаОбъектыСтроительства.ОбъектыСтроительства.Количество() >2 тогда

9 mc lammer

27.03.14

✎

22:23

если надо при переборе объектов строительства, начиная с 3го новую страницу начать, то :

ном = 0;
Пока ВыборкаОбъектыСтроительства.Следующий() Цикл
ном = ном + 1;
Если Ном > 2 Тогда
...
КонецЕсли;

...

КонецЦикла;

10 mc lammer

27.03.14

✎

22:24

точнее, условие делаем "ном = 3" , в этом случае новую страницу начинаем

11 Serg_1960

27.03.14

✎

22:53

(0) Что-то мне подсказывает, что автор хотел узнать о ПроверитьВывод(), но стесняется спросить.

12 Самая счастливая

27.03.14