bcquality/microsoft/knowledge/interfaces/prefer-interface-over-case-branching.bad.al

enum 50204 "Shipping Method Bad"
{
    Extensible = true;

    value(0; Standard) { }
    value(1; Express) { }
}

codeunit 50205 "Shipping Charge Bad"
{
    // Anti-pattern: every call site must 'case' over the enum, and every new
    // shipping method forces a synchronized edit to each of these blocks.
    procedure GetRate(Method: Enum "Shipping Method Bad"; Weight: Decimal): Decimal
    begin
        case Method of
            Method::Standard:
                exit(Weight * 1.5);
            Method::Express:
                exit((Weight * 1.5) + 25);
        end;
    end;

    procedure GetDeliveryDays(Method: Enum "Shipping Method Bad"): Integer
    begin
        case Method of
            Method::Standard:
                exit(5);
            Method::Express:
                exit(1);
        end;
    end;
}