Как отобрать "Следующие" записи?

[jobsdata]

Добрый день.
Сильно не ругайтесь, я из "стажеров".

Есть Справочник.Сотрудники, в нем 70 записей (фамилий).

Есть запрос:

Код Выделить Развернуть

&НаКлиенте
Процедура Печать(Команда)
Печ();
КонецПроцедуры

&НаСервере
Функция Печ()
ТабДок = Новый ТабличныйДокумент;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
Макет = Справочники.Сотрудники.ПолучитьМакет("Макет");
Запрос = Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 40 ФИО, Телефон ИЗ Справочник.Сотрудники УПОРЯДОЧИТЬ ПО ФИО АВТОУПОРЯДОЧИВАНИЕ");
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
ОблСтрока = Макет.ПолучитьОбласть("Строка");

Пока Выборка.Следующий() Цикл
ОблСтрока.Параметры.Фамилия = Выборка.ФИО;
ОблСтрока.Параметры.Телефон = Выборка.Телефон;
ТабДок.Вывести(ОблСтрока);
КонецЦикла;

ТабДок.Показать("Телефонный справочник");

Возврат ТабДок;
КонецФункции;




   
   
   
   
   

Сюда попадают	первые 40 записей	---------------------	Как сюда впихать	оставшиеся записи?
Петров А.С.	111-11-11		??????????	??????????
Сидоров А.С.	111-11-11		??????????	??????????
Иванов А.С.	111-11-11		??????????	??????????
........................	.......и так далее		..................	..............

Грубо говоря на листе А4 в альбомном варианте, есть 2 таблички. В левую табличку я вставляю 40 записей (по высоте листа), оставшиеся 30 записей хочу вставить в правую таблицу.

Не могу найти/сообразить как в запросе или в цикле правильно написать что то типо

Код Выделить Развернуть

Если Выборка = 40 Тогда
    Область1.Вставить 40 записей
Иначе
    Оставшиеся 30 Область2.Вставить

Или в запросе как то получить выборку с 41 позиции...

Подскажите, уважаемые программисты, куда копать?

[ef0din]

Добрый день.
Сильно не ругайтесь, я из "стажеров".

Есть Справочник.Сотрудники, в нем 70 записей (фамилий).

Есть запрос:

Код Выделить Развернуть

&НаКлиенте
Процедура Печать(Команда)
Печ();
КонецПроцедуры

&НаСервере
Функция Печ()
ТабДок = Новый ТабличныйДокумент;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
Макет = Справочники.Сотрудники.ПолучитьМакет("Макет");
Запрос = Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 40 ФИО, Телефон ИЗ Справочник.Сотрудники УПОРЯДОЧИТЬ ПО ФИО АВТОУПОРЯДОЧИВАНИЕ");
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
ОблСтрока = Макет.ПолучитьОбласть("Строка");

Пока Выборка.Следующий() Цикл
ОблСтрока.Параметры.Фамилия = Выборка.ФИО;
ОблСтрока.Параметры.Телефон = Выборка.Телефон;
ТабДок.Вывести(ОблСтрока);
КонецЦикла;

ТабДок.Показать("Телефонный справочник");

Возврат ТабДок;
КонецФункции;




   
   
   
   
   

Сюда попадают	первые 40 записей	---------------------	Как сюда впихать	оставшиеся записи?
Петров А.С.	111-11-11		??????????	??????????
Сидоров А.С.	111-11-11		??????????	??????????
Иванов А.С.	111-11-11		??????????	??????????
........................	.......и так далее		..................	..............

Грубо говоря на листе А4 в альбомном варианте, есть 2 таблички. В левую табличку я вставляю 40 записей (по высоте листа), оставшиеся 30 записей хочу вставить в правую таблицу.

Не могу найти/сообразить как в запросе или в цикле правильно написать что то типо

Код Выделить Развернуть

Если Выборка = 40 Тогда
    Область1.Вставить 40 записей
Иначе
    Оставшиеся 30 Область2.Вставить

Или в запросе как то получить выборку с 41 позиции...

Подскажите, уважаемые программисты, куда копать?

[/b]



Может стоит получить сразу все, которые нужны. А в цикле считать количество, и , когда больше, чем 40, использовать метод "Присоединить". Про "присоединить" почитайте сами лучше, уже не помню точно, как я делал. Кажется, присоединял к полученной области, а потом уже выводил ее. Если в этом не ошибаюсь - получаете области, нумеруете их разными значениями переменных, поочередно присоединяете к ним в случае итератора цикла больше сорока ,а, когда уже все добавите - выводите их в табличный документ.

[jobsdata]

Может стоит получить сразу все, которые нужны. А в цикле считать количество, и , когда больше, чем 40, использовать метод "Присоединить". Про "присоединить" почитайте сами лучше, уже не помню точно, как я делал. Кажется, присоединял к полученной области, а потом уже выводил ее. Если в этом не ошибаюсь - получаете области, нумеруете их разными значениями переменных, поочередно присоединяете к ним в случае итератора цикла больше сорока ,а, когда уже все добавите - выводите их в табличный документ.

Имеете ввиду в цикле Выборка.Количество() ?

[ef0din]

Может стоит получить сразу все, которые нужны. А в цикле считать количество, и , когда больше, чем 40, использовать метод "Присоединить". Про "присоединить" почитайте сами лучше, уже не помню точно, как я делал. Кажется, присоединял к полученной области, а потом уже выводил ее. Если в этом не ошибаюсь - получаете области, нумеруете их разными значениями переменных, поочередно присоединяете к ним в случае итератора цикла больше сорока ,а, когда уже все добавите - выводите их в табличный документ.

Имеете ввиду в цикле Выборка.Количество() ?

Наверно даже любопытнее будет через массив попробовать.
Допустим:

Код Выделить Развернуть

МассВыводимыхСтрок = Новый Массив;
Пока Выборка.Следующий() Цикл

ВыводимаяСтрока = Макет.ПолучитьОбласть(Строка);
//Заполняем строку
МассВыводимыхСтрок.Добавить(ВыводимаяСтрока);
КонецЦикла

ТекНомер = 0;
Пока НЕ (ТекНомер + 1) > 40 Цикл
ТабДок.Вывести(МассВыводимыхСтрок.Получить(ТекНомер));
ТекСч = 1;
Пока НЕ ТекСч > (Цел(МассВыводимыхСтрок.Количество() / 40) + 1) Цикл
Если (ТекСч*40 + (ТекНомер - Цел(ТекНомер/40) + 1)) > МассВыводимыхСтрок Тогда
Прервать;
Иначе
ТабДок.Присоединить(МассВыводимыхСтрок.Получить(ТекСч*40 + (ТекНомер - Цел(ТекНомер/40) + 1)))
КонецЕсли;
КонецЦикла;
КонецЦикла;



Примерно что-то такое попробовать можно.

И вот что еще: когда шапку тч выводите так же нужно будет рассчитать сколько раз по горизонтали ее вывести нужно. Это будет целое от деления количества строк в массиве + 1, если результат этого деления не равен его целому. Если равен - тогда просто целое от деления.

Добавлено: 04 мар 2020, 12:37

Можно, кстате, попробовать подобным же образом, но через таблицу значений. При этом, в случае каждого нового "40го цикла" добавлять колонку, обзывать ее по шаблону, что-то типа: ""ДопКолонка" + Индекс." А при выводе проходить по строкам таблицы значений, значение основной колонки выводить, а далее проверять по шаблону наличие каждой следующей колонки и, в случае ее наличия и не пустого значения, - присоединять.