Sorting in FNCDataGrid seems not working properly when data bind is done using xDataWebDataset

BIZ TMS XData
,
1

Hi team,

The FNCDataGrid sorting option seems not working properly when data bind is done using xDataWebDataset. We have an API developed using xData with service implement. We have a service method which returns customers list. We do show the customers list on FNC Data grid.

In following screen, you can see the following screen, I clicked on the column and it displayed the ascending order image but nothing happened.

image

The same result I get when I click again. It shows a descending order image but nothing happens.

image

code

procedure TfrmCustomerPage.LoadCustomers(inCustNo: string);
var
  sSearchText: string;
  iLiveStatus: integer;
  res: TXDataClientResponse;
begin
  try
    waitMsg1.Show;

    sSearchText := '';
    iLiveStatus := cmbStatus.ItemIndex;
    res := await(dmConnection.clientXDataKMSS.RawInvokeAsync('IcustomerService.GetCustomers',
      [chkShowAll.Checked, LoggedRepID, inCustNo, sSearchText, iLiveStatus]));
    webdsCustomer.Close;
    webdsCustomer.SetJsonData(TJSObject(res.Result)['value']);
    webdsCustomer.Open;

  finally
    waitMsg1.Hide;
  end;

end;

Can you please have look in priority?

2

@wlandgraf

5

Hi,

Sorting is not enabled by default for the FNC Data Grid when connected to an XDataDataSet. You will need to implement the OnSortData event at TTMSFNCDataGridDatabaseAdapter and sort the dataset manually.

You can access TMSFNCDataGrid1.SortIndexList to know which columns have been sorted.

6

Can you please provide some examples with code?
or
can give code for above example.

I tried but was not able to access the Sort indicator value i.e either asc or desc.

10

You will have to use OnSortData to get the sorting information selected by the user, then you will have to perform a new call to LoadCustomers passing the new query.

Since you are using a service operation, you will have to somehow receive such sorting information and return a new set of JSON data with the correct sort order.

Alternatively, you can simply rely on the dataset indexes at client side, which will sort the data in memory. For example:

procedure TForm1.DoSortData(Sender: TObject);
var
  c: Integer;
  f: TField;
  s: TTMSFNCDataGridSortIndex;
  uq: TXDataWebDataset;
  n, fn: string;
  opt: TIndexOptions;
begin
  if Adapter.DataLink.DataSet is TXDataWebDataset then
  begin
    uq := Adapter.DataLink.DataSet as TXDataWebDataset;
    uq.ActiveIndex := '';
    uq.Indexes.Clear;
    fn := '';
    opt := [];
    for s in Grid1.SortIndexList do
    begin
      if s.Direction <> gsdNone then
      begin
        c := s.Column - Grid1.FixedColumnCount;
        f := Adapter.FieldAtColumn[c];
        if Assigned(f) and (f.FieldKind in [fkData, fkInternalCalc, fkLookup]) then
        begin
          n := f.FieldName;
          if s.Direction = gsdDescending then
            opt := opt + [ixDescending];

          if fn = '' then
            fn := n
          else
            fn := fn + ';' + n;
        end;
      end;
    end;

    uq.Indexes.Add('Index1', fn, opt);
    uq.ActiveIndex := 'Index1';
  end;
end;