39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
25 lines
655 B
ABAP
25 lines
655 B
ABAP
INTERFACE {{p}}if_loyalty_rules PUBLIC.
|
|
TYPES ty_points TYPE i.
|
|
TYPES ty_tier TYPE c LENGTH 1.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_tier,
|
|
basic TYPE ty_tier VALUE 'B',
|
|
silver TYPE ty_tier VALUE 'S',
|
|
gold TYPE ty_tier VALUE 'G',
|
|
platinum TYPE ty_tier VALUE 'P',
|
|
END OF c_tier.
|
|
|
|
METHODS get_tier
|
|
IMPORTING iv_points TYPE ty_points
|
|
RETURNING VALUE(rv_tier) TYPE ty_tier.
|
|
|
|
METHODS get_discount
|
|
IMPORTING iv_tier TYPE ty_tier
|
|
RETURNING VALUE(rv_percent) TYPE i.
|
|
|
|
METHODS points_to_next_tier
|
|
IMPORTING iv_points TYPE ty_points
|
|
RETURNING VALUE(rv_points) TYPE i.
|
|
ENDINTERFACE.
|