Проблема с QuickRep

← →
denmin (2003-12-11 09:08) [0]

Здравствуйте.
Хочу напечатать в Band-е Summary набор данных, состоящий из многих записей, из Query. Помогите пожалуйста.

← →
Dmitriy O. (2003-12-11 09:10) [1]

Надо кинуть в суммари qrmemo. И в бефоре принт вывести записи в цикле. Не забыть тока после каждой вставки записи увеличивать высоту суммари и мемо.

← →
alex_*** (2003-12-11 09:14) [2]

А если кинуть детальку, но не привязывать ее как мастер-деталь? Тoгда сначала выведется главный Detail, затем SubDetail

← →
denmin (2003-12-11 09:19) [3]

у меня структура репорта такая: Title, ColumnHeader, Group, Detail, GroupFooter, а потом Summary. Так что как я понимаю SubDetail не пройдет

← →
alex_*** (2003-12-11 09:26) [4]

А если у SubDetail как HeaderBand назначить GroupFooter? ПО кр. мере в дизайнере SubDetail лежит в самом низу.

← →
Johnmen (2003-12-11 09:35) [5]

>alex_*** (11.12.03 09:26)

Не ври...:)

← →
alex_*** (2003-12-11 09:41) [6]

Ну чего не ври... В дизайнере так и есть. Тестовый отчет делать лень, как он будет работать можно только предполагать.

← →
denmin (2003-12-11 09:45) [7]

попробовал с Memo, появилась проблема и с ним. Мне надо чтоб все записи кверя заносились в одно Memo друг под другом. Например,
А 100
Б 200
В 300 и т.д.
Пишу так
Form2.Query7.Close;
Form2.Query7.Open;
Form2.Table2.Open;
while not Form2.Table2.Eof do
Form2.Table2.Delete;
while not Form2.Query7.Eof do
begin
if Form2.Query7["accopl"]<>null then
acc:=Form2.Query7["accopl"]
else
acc:=" ";
if Form2.Query7["summaopl"]<>null then
summ:=Form2.Query7["summaopl"]
else
summ:=0;
Form2.Table2.Edit;
Form2.Table2["memo1"]:=acc+" "+FloatToStr(summ);
Form2.Table2.Post;
Form2.Query7.Next;
end;
но заносит только последнюю строку. Помогите!!!!!!!!!

← →
Johnmen (2003-12-11 09:49) [8]

Где тут мемо ?

← →
denmin (2003-12-11 09:54) [9]

всем благодарен. сделал так и получилось
Form2.Query7.Close;
Form2.Query7.Open;
Form2.Table2.Open;
while not Form2.Table2.Eof do
Form2.Table2.Delete;
while not Form2.Query7.Eof do
begin
if Form2.Query7["accopl"]<>null then
acc:=Form2.Query7["accopl"]
else
acc:=" ";
if Form2.Query7["summaopl"]<>null then
summ:=Round(Form2.Query7["summaopl"]*100)/100
else
summ:=0;
Form2.Table2.Edit;
if Form2.Table2["memo1"]<>null then
Form2.Table2["memo1"]:=Form2.Table2["memo1"]+#13#10+acc+" "+FloatToStr(summ)+"; "
else
Form2.Table2["memo1"]:=acc+" "+FloatToStr(summ)+"; ";
Form2.Table2.Post;
Form2.Query7.Next;
end;
Form2.Query7.Close;

← →
denmin (2003-12-11 09:57) [10]

Johnmen мемо это Table2["memo1"

← →
denmin (2003-12-11 10:26) [11]

ладно, мемо сделал, а вот печататься на QuickRep не хочет. Кто подскажет?

← →
Dmitriy O. (2003-12-11 11:30) [12]

Тык вроде надо в бефоре принт писать. т.к. отчет составляется и в режиме просмотра и снова пересоставляется когда на печать выводишь т.е. на просмотре все ОК а когда на печать выводишь твоя проца которая в мемо пишет уже не задействованна вот мемо и выходит пустым.

← →
Anatoly Podgoretsky (2003-12-11 12:33) [13]

Это называется композитные отчеты

Проблема с QuickRep Найти похожие ветки