Sorting based on Custom Order - Bubble sort

[Former Member]

Objective: The need of enhancement is to Sort any field in BOL to perform Sorting with a Custom Order ( Not Alphabetically ).

Example Hypothetical Scenario:

               Custom Field (Customer Type) in Search Result View to be Sorted in an arbitrary order so that first Alphabets of description string has order as ( Direct > Internet Sales > Distributor ). This sort order is not alphabetical.

The sorting should be custom in nature & on the relevant field only.

STEPS:

• In Implementation Class of View, Add interface IF_BOL_COL_SORTING.
• Redefine DO_PREPARE_OUTPUT method of implementation class  of view & put the logic as

          me->typed_context->customers->collection_wrapper->sort(

                                                                                                              exporting         iv_attr_name       =   'DESCRIPTION'

                                                                                                                                       iv_sort_callback  =   me

                                                                                                                                       iv_sort_order       =   'D' ).

• Method IF_BOL_COL_STRING~IS_A_GREATER_B

          Because of interface attached to class, a new method is now available i.e,

          IF_BOL_COL_SORTING~IS_A_GREATER_B. This method takes the two values IV_A & IV_B to compare & return rv_result as ‘X if IV_A is greater than B else  ‘  ‘.

• Sorting
  

          Within this method we can use Simple Application of Bubble sort Algorithm to Sort in a custom order.

Logic

if value1 = 'Direct'.     case value2.       when 'Direct'.         if lv_bu_partner2 > lv_bu_partner1.           rv_result = ' '.         else.           rv_result = 'X'.         endif.       when 'Internet Sales'.         rv_result = 'X'.       when 'Distributor'.         rv_result = 'X'.       when 'Archive'.         rv_result = ' '.       when others.         rv_result = 'X'.     endcase.   endif.   if value1 = 'Internet Sales'.     case value2.       when 'Direct'.         rv_result = ' '.       when 'Internet Sales'.         if lv_bu_partner2 > lv_bu_partner1.           rv_result = ' '.         else.           rv_result = ' '.         endif.       when 'Distributor'.         rv_result = 'X'.       when 'Archive'.         rv_result = ' '.       when others.         rv_result = 'X'.     endcase.   endif.   if value1 = 'Distributor'.     case value2.       when 'Direct'.         rv_result = ' '.       when 'Internet Sales'.         rv_result = ' '.       when 'Distributor'.         if lv_bu_partner2 > lv_bu_partner1.           rv_result = ' '.         else.           rv_result = 'X'.         endif.       when 'Archive'.         rv_result = ' '.       when others.         rv_result = 'X'.     endcase.   endif.

We can always Extend this Sorting solution for more fields or number if entries