CrossTab

Комментарии

• kroxa

  May 2005 отредактировано 21:04

  можете описать как вы это делали?

  написал:

  "а то приходится каждый раз в скрипте считать сколько колонок(строк) вывел перед итогами по каждому уровню."

  если нетрудно приведите нужный кусочек скрипта
• Bali

  May 2005 отредактировано 21:04

  Где то так
  

  const
       maxLevel=3;
  var
     RowLevel: array[0..Maxlevel] of integer;
     CurLevel: integer;
  
  
  procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
  with DBCross1 do
       if (IsTotalColumn(ColumnIndex) or IsGrandTotalColumn(ColumnIndex)
       or IsTotalRow(RowIndex) or IsGrandTotalRow(RowIndex)) and (Value=0) then
          Memo.Text := '';
  end;
  
  procedure DBCross1OnCalcHeight(RowIndex: Integer; RowValues: Variant; var Height: Extended);
  var
     i: integer;
  begin
  if DBCross1.IsGrandTotalRow(RowIndex) then
        begin
        if RowLevel[0] < 2 then Height := 0;
        end
     else
        if DBCross1.IsTotalRow(RowIndex) then
           begin
           if RowLevel[CurLevel] < 2 then Height := 0;
           for i := MaxLevel downto CurLevel do
               RowLevel[i] := 0;
           dec(CurLevel);
           if CurLevel < 0 then CurLevel := MaxLevel
              else
                  Inc(RowLevel[CurLevel]);
           end
        else
           begin
           CurLevel := MaxLevel;
           Inc(RowLevel[CurLevel]);
           end;
  end;
  
  var
     i: integer;
  
  begin
  for i := 0 to MaxLevel do
      RowLevel[i] := 0;
  CurLevel := MaxLevel;
  end.
  

  
  Еще заметил такой глюк, не всегда правильно подсчитывается высота строк,
  в случае если длинное наименование переносится на несколько строк (3), а справа одна строка с суммой + Итог, то дополняется полустрокой,
  (т.е. когда высота текста чуть шире высоты данных) и дальше на этой странице все едет на эти полстроки.
  
  Еще бы хотелось иметь возможность задавать несколько ячеек в одном Столбце, а не только в одной строке. Нужно выводить например "Количество"
  и "Сумму" рядом, а не одно под другим.
  
• IkarHC Moscow

  May 2005 отредактировано 21:04

  Чтобы не заводить похожую тему, позвольте "присоседиться"...
  
  Суть проблемы в следующем: Запрос возвращает следующий набор данных:
  Подъезд
  Этаж
  Номер квартиры
  Тип квартиры
  Площадь
  Статус (1 - продана, 0 - свободна)
  
  В кросстабе расположение полей следующее:
  Столбцы: Подъезд, Номер квартиры
  Строки: Этаж
  Ячейки: Тип квартиры, Площадь
  
  В редакторе кросстаба выбираю ячейки (Тип квартиры, Площадь),
  нажимаю кнопку условного выделения и в поле "Условие" пишу: <Статус > = 1, выбираю цвет шрифта и фона, нажимаю "Ок".
  
  При запуске отчета, условие выполняется для вообще всех ячеек (или не выполняется если написать =0).
  
  В общем идея в том, чтобы выделить цветом шрифта и фона проданные квартиры.
  
  Подскажите, что я делаю не правильно и как мне добиться желаемого результата?
• IkarHC Moscow

  May 2005 отредактировано 21:04

  Ауууу... Очень нужно...
• Bali

  May 2005 отредактировано 21:04

  В условии можно анализировать только VALUE, а не поле нобора данных. Для статуса тоже придется завести ячейку, в скрипте можно при значении "1" записать "ПРОДАНО".
  
  У разработчиков вопросы по кросстабу явно вызывает аллергию. Молчат как партизаны.
• vlad_galaxy

  May 2005 отредактировано 21:04

  написал:

  Ауууу... Очень нужно...

  Добавьте статус третим номером в ячейку (CellIndex = 2).
  Сделайте отчет двупроходным
  В обработчике OnPrintCell напишите что-то вроде
  
  procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  var
  sKey, row, col : string;
  begin
  row := IntToStr( RowIndex );
  col := IntToStr( columnIndex );
  
  sKey := row + ':' + col;
  
  if not Engine.FinalPass then
  if (( VarToStr(value) = '1') and ( CellIndex = 2 )) then
  SET(sKey, $FF)
  else
  SET(sKey, $FFFFFF);
  if Engine.FinalPass then
  begin
  Memo.Color := GET(sKey);
  end;
  
  end;
  
  
• IkarHC Moscow

  May 2005 отредактировано 21:04

  2 vlad_galaxy: Спасибо, все получилось.