Поворот текста в Dbcross

tarakan

Здравствуйте.

Помогите пожалуйста исправить 2 печатные формы

<!--fonto:Calibri--><span style="font-family:Calibri"><!--/fonto-->1. <!--fontc--></span><!--/fontc-->Карточки.fr3 – надо чтобы дата дотягивалась до конца...

<!--fonto:Calibri--><span style="font-family:Calibri"><!--/fonto-->2. <!--fontc--></span><!--/fontc-->График.fr3 – надо уместить на один лист, единственное, что приходит на ум это повернуть время по вертикали, но у меня почему-то он не поворачивается.

Спасибо.

gpi

1.

procedure QPL1NAIMOnAfterData(Sender: TfrxComponent);
begin
Memo2.Height := QPL1NAIM.CalcHeight;
end;

2. Поворот в ячейках кросса не работает. Разбивайте значение в ячейке на две строки при выполнении запроса

WITH RECURSIVE T (BYDATE, ENDDATE)
AS (SELECT
DATE '01.12.2014',
DATEADD(1 MONTH TO DATE '01.12.2014')
FROM
RDB$DATABASE
UNION ALL
SELECT
DATEADD(1 DAY TO BYDATE),
ENDDATE
FROM
T
WHERE DATEADD(1 DAY TO BYDATE) < ENDDATE)
SELECT
BYDATE,
PL.D,
UPR.NUM,
U.ID as UID,
U.L||' ' ||SUBSTRING((U.F) FROM 1 FOR 1) || '. ' ||SUBSTRING((U.S) FROM 1 FOR 1) ||'.' AS FIO,
SUBSTRING((BYDATE) FROM 9 FOR 2) as CHISLO,
case
when (SUBSTRING((PLUCH.TIMESTRING) FROM 6 FOR 1)='-') then SUBSTRING((PLUCH.TIMESTRING) FROM 1 FOR 6)||:CR ||SUBSTRING((PLUCH.TIMESTRING) FROM 7 FOR 5)
else PLUCH.TIMESTRING
end as TIMESTRING
FROM
T
LEFT OUTER JOIN (SELECT * FROM PL WHERE PL.GRAFIKID = :GRAFIKID) PL ON (PL.D = T.BYDATE)
LEFT OUTER JOIN PLUCH ON (PLUCH.PLID = PL.ID)
LEFT OUTER JOIN UCHENIK U ON (PLUCH.UID = U.ID)
LEFT OUTER JOIN UPR ON (UPR.ID = PL.UPRID)
ORDER BY
T.BYDATE,U.L,U.F,U.S

Параметр CR = #13#10