DBCross

rurouni

Как подписать Caption к RowHeader'ам... а о оне настройки над ними пустое место а заголовок написать нужно ... как это сделать...... или можно для RowHeder задать свою ширину для каждого Header'а ?

Lex

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

rurouni

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

Lex

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

rurouni

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

Lex

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

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

Lex

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

Lex

Впринципе можно попробывать следующим образом

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

А кто подскажет можно ли в 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

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