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

Комментарии

• gpi

  February 2015 отредактировано 09:54

  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