Create Group in dbgrid at runtime

[anderson da silva]

Hi,
I have a following Scene:
1. A uniDbGrid with no fields created
2. a TfdMemTable with no Field created
When I populate my TfdMemTable with fields and records, 
I would like to create a grouping in this uniDbGrid that 
received the information.
It does not generate an error, it creates an ordering but does not group.
How to solve? 
I've seen all the examples but in all of them the creation 
already has the grouping and in my case I still don't have a 
field created to be used in this creation.

[Sherzod]

45 minutes ago, anderson da silva said:

I have a following Scene:

Hello,

Can you please specify, which edition and build of UniGUI are you using?

[anderson da silva]

uni-1.90.0.1543

[Sherzod]

Not a Trial Version?

[anderson da silva]

Paid professional version.
Here is the link of a project 
I made as an example of how it should work

 

https://drive.google.com/file/d/1oNZPBzrtGU19WiwkHfNND5W-4fSeGJcp/view?usp=sharing

 

 

[anderson da silva]

Delphi 10.4.2

[anderson da silva]

I tested it a little while also with delphi 11 and uni-1.90.0.1556 and it doesn't work either

[Sherzod]

18 minutes ago, anderson da silva said:

Paid professional version.

Please adjust your forum email address and attach here:

 

[anderson da silva]

OK, I adjusted it on my portal.

[anderson da silva]

My ID is 00144

[anderson da silva]

[Sherzod]

Thanks.

Please attach your testcase here.

[anderson da silva]

GroupRunTime.rar

[Sherzod]

3 hours ago, anderson da silva said:

GroupRunTime.rar 33.18 kB · 2 downloads

Workaround:

1. 

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  with UniDBGrid1.JSInterface do
    JSConfig('features', [JSObject('ftype: "grouping"')])
end;

2. 

...
  UniComboBox1.Items.Clear;
  UniComboBox1.Items.Add('Pais');
  UniComboBox1.Items.Add('Estado');
  UniComboBox1.ItemIndex := 0;
  UniComboBox1.OnChange(UniComboBox1);  //<-------
...

3. 

procedure TMainForm.UniButton2Click(Sender: TObject);
begin
  If UniDBGrid1.Grouping.Enabled = False Then
    Begin
      UniButton2.Caption := 'Desagrupar';
      with UniDBGrid1 do
      begin
        Grouping.Enabled := True;
        JSInterface.JSCall('getStore().setConfig', [JSInterface.JSObject('groupField: "'+ Columns.ColumnFromFieldName(Grouping.FieldName).ColID.ToString +'"')]);
      end;
    End
    else
    Begin
      UniButton2.Caption := 'Agrupar';
      with UniDBGrid1 do
      begin
        Grouping.Enabled := False;
        JSInterface.JSCall('getStore().setConfig', [JSInterface.JSObject('groupField: null')]);
      end;
    End;
end;

 

[anderson da silva]

GroupRunTimeV2.rar

[VolkovVitalD]

This workaround very good, but not work with summary total and grand total. Please make next workaround.

[VolkovVitalD]

I tried this:

  with UniDBGrid1.JSInterface do
    JSConfig('features', [JSObject('ftype: "grouping",showSummaryRow:true'),
                          JSObject('ftype: "summary",ftotal:true,dock:"bottom"')
                         ]
            );

But since Summary=false, no called methods for calculate summary.

[Sherzod]

On 3/10/2022 at 9:16 PM, VolkovVitalD said:

This workaround very good, but not work with summary total and grand total. Please make next workaround.

Hello,

Can you make a simple testcase to test?