генирация в определенном порядке

SELS

Существует определенной количество записей, скажем N (порядка 10 000).
Необходимо чтобы отчет формировался по две записи на листе следующим образом:
первый лист
первая запись
N/2 запись
второй лист
вторая запись
N/2+1 запись
...
N/2-1 лист
N/2-1 запись
N запись


Есть идея печатать отчет в два прохода. На первом проходе печатаем первую половину каждого листа. На втором - вторую половину. Но вот не могу найти способа возврата к первому листу. Или есть какие-нибудь другие варианты решить такую задачу?

Andrew_Sh

SELS написал:

Существует определенной количество записей, скажем N (порядка 10 000).
Необходимо чтобы отчет формировался по две записи на листе следующим образом:
первый лист
      первая запись
            N/2 запись
второй лист
      вторая запись
        N/2+1 запись
...
N/2-1 лист
      N/2-1 запись
          N  запись


Есть идея печатать отчет в два прохода. На первом  проходе печатаем первую половину каждого листа. На втором - вторую половину.  Но вот не могу найти способа возврата к первому листу. Или есть какие-нибудь другие варианты решить такую задачу?

Вариант 1:
А возможности произвести сортировку данных в запросе нет?
Тогда можно было бы свести к использованию такого скрипта:

var
  iLineCount: integer = 0;
const
  LINES_PER_PAGE = 2; // строк на лист

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  inc(iLineCount);
  if iLineCount > LINES_PER_PAGE
    then begin
      iLineCount := 1;
      Engine.NewPage;
    end;
end;

begin

end.

где MasterData1OnBeforePrint - это обработчик для события OnBeforePrint вашего Master-бэнда.

Вариант 2:
Разделить данные на два датасета - DataSet1, DataSet2. DataSet1 привязать к MasterData и в обработчике OnBeforePrint выполнять

  DataSet2.Next;

На MasterData выводить поля DataSet1 и DataSet2

Lex

Как вариант в обработчике OnBeforePrint напиши что-то типа

написал:

if <line#> > 1 then
begin
  if <line#> mod 2 =0 then
  begin
    // next-ами в цикле перемещаешься на N/2 + <line#> запись
  end else
  begin
    // prior-ами в цикле перемещаешься на <line#>/2 запись
  end;
end;

мог ошибиться в номерах записей но думаю смысл понятен,
ну и плюс

написал:

Тогда можно было бы свести к использованию такого скрипта:


CODE 

var
iLineCount: integer = 0;
const
LINES_PER_PAGE = 2; // строк на лист

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
inc(iLineCount);
if iLineCount > LINES_PER_PAGE
  then begin
    iLineCount := 1;
    Engine.NewPage;
  end;
end;

begin

end.



где MasterData1OnBeforePrint - это обработчик для события OnBeforePrint вашего Master-бэнда.

Хотя всеже лучше отсортировать в запросе.

SELS

Next и Prior в цикле не спасают компьютер не справляется.
И записи это скорее готовые отчеты в которых есть masterData и много DetailData и почти на каждый бенд есть onBefore....
Можно по подробнее про два DataSet`а?
Сортировка в запросе тоже не возможна.

GekFinn

Как это сортировка невозможна ?

А можно увидеть запрос (SQL) или таблицы-dataset в Delfi (указание индексного поля) ?, список полей ?

Andrew_Sh

SELS написал:

Next и Prior в цикле не спасают компьютер не справляется.
И записи это скорее готовые отчеты в которых есть masterData и много DetailData и почти на каждый бенд есть onBefore....
Можно по подробнее про два DataSet`а?
Сортировка в запросе тоже не возможна.

Переосмыслил вопрос с разделнием DataSet-а на 2 DataSet и пришел к выводу, что это очень трудоемко будет.

Если невозможна сортировка, то может стоит попробовать создать виртуальный датасет и скопировать записи из исходного источника с нужным порядком записей?

Еще вариант - использовать событие OnManualBuild для страницы отчета, гонять указатель на нужные номера записей и печатать бэнды.

gpi

А если попробовать создать два одинаковых датасета, сделать выборку в оба (или скопировать данные из первого во второй) и в начале формирования отчёта во втором датасете переместиться на запись с номером N/2+1 и затем выводить строку первого датасета, строку второго, DataSet2.Next и т. д.
Если SQL-сервер позволяет, можно сначала определить N, а затем в первый датасет отобрать SELECT FIRST N/2 .... ,а во второй - SELECT SKIP N/2 .... или что-нибудь подобное

SELS

Всего в программе используются 7 запросов и 7 DataSet`ов. Шесть запросов привязаны к первому.

написал:

Если невозможна сортировка, то может стоит попробовать создать виртуальный датасет и скопировать записи из исходного источника с нужным порядком записей?

А как копировать в нужном порядком? Я так понял, что копиравание создать DataSet с уже нужным порядком записей?

написал:

гонять указатель на нужные номера записей и печатать бэнды.

Чем гонять, next и prior не подходят. Получается надо в цикле 5000 раз next потом 4999 вверх и так для каждой строчки.
Если кто-нибудь знает как перемещаться иным способом подскажите.

написал:

переместиться на запись с номером N/2+1 и затем выводить строку первого датасета, строку второго, DataSet2.Next и т. д.

А как при это будут отрабатывать другие DataSet`ы т.е. остальные 6 привязанные к первому по id?


Как альтернатива. Есть ли возможность вы водить на печать (на принтер) готовые страницы отчета в заданном порядке, т.е. печатать страницы: 1, н/2+1, 2, н/2+2 итд?

Stranger

Все это должно делаться средствами движка базы данных. Ты ж формулы написал. Выбери данные во временную таблицу и перенумеруй.