DBCross

Комментарии

• Lex

  May 2006 отредактировано 21:26

  посмотри сдесь
• rurouni

  May 2006 отредактировано 21:26

  Пробовал я с Cross1OnCalcWidth играться,,, он как-то фигово работает он сменяет ширину, но не сдвигает свепрследующие ячейки и выглядид забавно
• Lex

  May 2006 отредактировано May 2006

  Только что пробовал, все нормально
• rurouni

  May 2006 отредактировано 21:26

  код можеш сюда положить?
• Lex

  May 2006 отредактировано 21:26

  procedure DBCross1OnCalcWidth(ColumnIndex: Integer; ColumnValues: Variant; var Width: Extended);
  begin
    case ColumnIndex of
      0: Width := 100;
      1: Width := 150;
      2: Width := 120;
    end;
  end;
  
• rurouni

  May 2006 отредактировано 21:26

  DBCross умеет скрывать пустые строки?
• Lex

  May 2006 отредактировано 21:26

  а от куда они взялись?
• Lex

  May 2006 отредактировано 21:26

  Впринципе можно попробывать следующим образом
  
  1. делаешь двухпроходный отчет
  
  2. добавляешь массив
  

  var
    RowHide: array of Boolean;
  

  
  3. обработчик OnCalcHieght

  procedure DBCross1OnCalcHeight(RowIndex: Integer; RowValues: Variant; var Height: Extended);
  begin
    if Engine.FinalPass then
    begin
      if RowHide[RowIndex] then
        Height := 0;
    end else
    begin
      if Length(RowHide) < RowIndex + 1 then
        SetLength(RowHide, RowIndex + 1);
    end;
  end;
  

  
  4. обработчик OnPrintCell

  procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  var
    tmpBool: Boolean;
  begin
    if not Engine.FinalPass then
    begin
      tmpBool := (Memo.Text = '');
  
      if ColumnIndex = 0 then
        RowHide[RowIndex] := tmpBool
      else
        RowHide[RowIndex] := RowHide[RowIndex] and tmpBool;
    end;
  end;
  

  
  
• Sergey Maximov

  May 2006 отредактировано 21:26

  А кто подскажет можно ли в DBCroos сделать так чтобы после каждого итого начиналась новая страница?
  
  например
  <span style='font-family:Courier'> ]
    | Касса | Безнал | Итого |
  ___________________________________
  |склад | дата | сумма | сумма | сумма |
  |склад | дата | сумма | сумма | сумма |
  ____________________________________
  склад итого сумма
  
  
  а дальше уже новая страница пошла
  
  | Касса | Безнал | Итого |
  ___________________________________
  |склад2 | дата | сумма | сумма | сумма |
  |склад2 | дата | сумма | сумма | сумма |
  ____________________________________
  склад2 итого сумма
  
  </span>
  
  например проверять
  
  procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
  if IsTotalRow(RowIndex) then StartNewPage;
  end;
  
  только вот так не получается, кто подскажет реально или нет?
• rurouni

  May 2006 отредактировано 21:26

  в Cross отчете если несколькр подряд идущих строк начинаются одинаково, то они в столбце не ставятся разделители между этими строками, можно как-нибуть их ставить всегда......?