[Enum Request] AssignItemCharges > SelectionTxt

[fvet]

Extending Item Charges is quit complex given the current implementation of using hardcoded text values instead of enums.
In our apps, we have added new options to assign item charges as well as some setup to have default item charge methods. (= requiring a 'custom' item charge method enum)

Can you please provide an extensible enum "Item Charge Method" in the Base Application with the default options?

    Extensible = true;

    value(0; Equally)
    {
        Caption = 'Equally';
    }
    value(1; "By Amount")
    {
        Caption = 'By Amount';
    }
    value(2; "By Weight")
    {
        Caption = 'By Weight';
    }
    value(3; "By Volume")
    {
        Caption = 'By Volume';
    }

And in the places (codeunit 5807 "Item Charge Assgnt. (Sales)" / purchase) where used, replace the hardcoded text constants by the new "Item Charge Method" enum?

procedure AssignItemCharges(SalesLine: Record "Sales Line"; TotalQtyToAssign: Decimal; TotalAmtToAssign: Decimal; SelectionTxt: Text)

...

case SelectionTxt of
                AssignEquallyMenuText:

...

procedure AssignEquallyMenuText(): Text
    begin
        exit(EquallyTok)
    end;

Above 'hardcoded' construct should be feasible to replace by enums by looping the enums ordinals / names and dynamically build the strmenu / selection page.