Передать отмеченные строки из Grid в отчет

Комментарии

• DimaBr

  December 2016 отредактировано 05:23

  type
  TfrxDataSetGrid_cx = class(TfrxUserDataSet)
    private
      i: integer;
      F: boolean;
      fView: TcxCustomGridTableView;
      procedure DoFirst(Sender: TObject);
      procedure DoNext(Sender: TObject);
      procedure DoGetValue(const VarName: String; var Value: Variant);
      procedure DoCheckEOF(Sender: TObject; var Eof: Boolean);
    public
      constructor Create(AOwner: TComponent); override;
    published
      property View: TcxCustomGridTableView read fView write fView;
  end;
  
  constructor TfrxDataSetGrid_cx.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    OnCheckEOF := DoCheckEOF;
    OnFirst := DoFirst;
    OnGetValue := DoGetValue;
    OnNext := DoNext;
  end;
  
  procedure TfrxDataSetGrid_cx.DoCheckEOF(Sender: TObject; var Eof: Boolean);
  begin
    Eof := F or not Assigned(View);
  end;
  
  procedure TfrxDataSetGrid_cx.DoFirst(Sender: TObject);
  begin
    i := 0;
    F := false;
  end;
  
  procedure TfrxDataSetGrid_cx.DoGetValue(const VarName: String; var Value: Variant);
  var Item: TcxCustomGridTableItem;
  begin
    Item := View.FindItemByName(VarName);
    if not Assigned(Item) and (View.DataController is TcxGridDBDataController)
      then Item := TcxGridDBDataController(View.DataController).GetItemByFieldName(VarName);
    if Item = nil then raise Exception.Create('Invalid field name "'+VarName+'"');
    with View.DataController do
      Value := Values[FilteredRecordIndex[i],Item.Index];
  end;
  
  procedure TfrxDataSetGrid_cx.DoNext(Sender: TObject);
  begin
    with View.DataController do
      if I < FilteredRecordCount-1 then begin
        inc(i);
      end
      else F := true;
  end;
  
  initialization
    frxObjects.RegisterObject1(TfrxDataSetGrid_cx, nil, '', '', 0, 38);