Is there any way to sort Integer Dimensions?

vinceliu666

I use an Integer Dimensions and I want to sort dimensions value from small to big. Is there any way to do ? Just like ArrayList.Sort() in C#.

vaprog

Depends on where exactly you want to achieve what exactly.

Basically, the answer is: You need to add an integer field to the table and a sort key on that field; or else you need to create a list somewhere, sort that list and then retrieve the dimension records based on that list.

vaprog

You can do something like

VAR
  DimensionValue : Record 349;

PROCEDURE ProcessDimSorted();
  VAR
    IntegerTemp : TEMPORARY Record 2000000026;
BEGIN
  IF DimensionValue.FINDSET THEN
    REPEAT
      EVALUATE(IntegerTemp.Number,DimensionValue.Code);
      IF IntegerTemp.INSERT THEN;
    UNTIL DimensionValue.NEXT = 0;
  IntegerTemp.FINDSET;
  REPEAT
    DimensionValue.SETRANGE(Code,FORMAT(IntegerTemp,0,9)); // type 9 to avoid thousands separators
    DimensionValue.FINDSET;
    REPEAT
      // Process(DimensionValue);
    UNTIL DimensionValue.NEXT = 0;
  UNTIL IntegerTemp.NEXT = 0;
  IntegerTemp.DELETALL;
END;

The first REPEAT loop populates the temporary integer table, the second retrieves entries from the table in sorted order.
EVALUATE and FORMAT are used to convert between Integer and Code in both directions.

This solution depends on the codes not having leading zeros. Also empty codes are not supported.

vaprog

Depends on where exactly you want to achieve what exactly.

Basically, the answer is: You need to add an integer field to the table and a sort key on that field; or else you need to create a list somewhere, sort that list and then retrieve the dimension records based on that list.

vinceliu666

Hi Vaprog:
Thanks for your relpy. Finally, I found an article to solve it by using bubble sort.

https://community.dynamics.com/nav/b/technicalfindingsindynamicsnav/posts/bubble-sort-in-c-al

vaprog

Why don't you use a temporary instance of Integer table? This avoids having to decide on an arbitrarily sized array, you do not have to implement a sorting algorithm, and it is probably faster anyway.

vinceliu666

Hi vaprog:
I don't really understand how to use temporary instance of integer table?Could you ,please ,provide sample code?

vaprog

You can do something like

VAR
  DimensionValue : Record 349;

PROCEDURE ProcessDimSorted();
  VAR
    IntegerTemp : TEMPORARY Record 2000000026;
BEGIN
  IF DimensionValue.FINDSET THEN
    REPEAT
      EVALUATE(IntegerTemp.Number,DimensionValue.Code);
      IF IntegerTemp.INSERT THEN;
    UNTIL DimensionValue.NEXT = 0;
  IntegerTemp.FINDSET;
  REPEAT
    DimensionValue.SETRANGE(Code,FORMAT(IntegerTemp,0,9)); // type 9 to avoid thousands separators
    DimensionValue.FINDSET;
    REPEAT
      // Process(DimensionValue);
    UNTIL DimensionValue.NEXT = 0;
  UNTIL IntegerTemp.NEXT = 0;
  IntegerTemp.DELETALL;
END;

The first REPEAT loop populates the temporary integer table, the second retrieves entries from the table in sorted order.
EVALUATE and FORMAT are used to convert between Integer and Code in both directions.

This solution depends on the codes not having leading zeros. Also empty codes are not supported.

vinceliu666

Hi vaprog :
Thanks for providing the sample code.