The most popular item in the table

Sv1N2S

Hi. I am having a table of identifiers and elements on how to calculate the number of entries with the same identifier to find out which one is most popular.
I understand that I need to use filters

SALESLIST.SETFILTER ("No", '<>% 1', "No");
SALESLIST.SETRANGE (ID, ID);

but I can not find a solution to calculate the most popular record

AK

If the table in the screenshot is called A, you may create table B with the ID as primary key. Call this field for example "Code". Also add a field named like "No. of Entries in table A" to table B. This field is a flowfield with CalcFormula

Count("Table A" WHERE (ID=FIELD(Code)))

You have to set proper relations between the fields and may have to add or alter a key of table A, but in that case you'll get a error message that explains what to do.

If you create a key for table B with "No. of Entries in table A", you can sort for the biggest entry.

Of course this only makes sense if this function is used very often.

KTA8

using setrange (over ID) and count, you should be able to do it; but I'm not getting the approach...

AK

If the table in the screenshot is called A, you may create table B with the ID as primary key. Call this field for example "Code". Also add a field named like "No. of Entries in table A" to table B. This field is a flowfield with CalcFormula

Count("Table A" WHERE (ID=FIELD(Code)))

You have to set proper relations between the fields and may have to add or alter a key of table A, but in that case you'll get a error message that explains what to do.

If you create a key for table B with "No. of Entries in table A", you can sort for the biggest entry.

Of course this only makes sense if this function is used very often.

Slawek_Guzek

Not exaclty sure if this is what you are after but the bit below will calculate
number of occurrences per ID

TempBuf : Record 368 TEMPORARY;

if SALESLIST.findset THEN
REPEAT
 CLEAR(TempBuf);
 TempBuf.Code := SALESLIST.ID;
 IF NOT TempBuf.FIND THEN 
  TempBuf.INSERT;
   
 TempBuf.Level += 1;
 TempBuf.MODIFY;
UNTIL  SALESLIST.NEXT = 0;

TempBuf.SETCURRENTKEY(Level); 
TempBuf.ASCENDING(FALSE); //TempBuf is now ordered from the most popular (most frequent) ID 
                          //to least popular/least frequent

Slawek