03ab36149e
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
30 lines
935 B
ABAP
30 lines
935 B
ABAP
INTERFACE {{p}}if_hotel_rate PUBLIC.
|
|
TYPES ty_category TYPE c LENGTH 1.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
TYPES ty_amount TYPE p LENGTH 10 DECIMALS 2.
|
|
TYPES:
|
|
BEGIN OF ty_result,
|
|
reason TYPE ty_reason,
|
|
price TYPE ty_amount,
|
|
END OF ty_result.
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
nights TYPE ty_reason VALUE 'NIGHTS',
|
|
guests TYPE ty_reason VALUE 'GUESTS',
|
|
category TYPE ty_reason VALUE 'CATEGORY',
|
|
END OF c_reason.
|
|
CONSTANTS:
|
|
BEGIN OF c_category,
|
|
basic TYPE ty_category VALUE 'S',
|
|
comfort TYPE ty_category VALUE 'C',
|
|
suite TYPE ty_category VALUE 'U',
|
|
END OF c_category.
|
|
METHODS calculate
|
|
IMPORTING iv_category TYPE ty_category
|
|
iv_nights TYPE i
|
|
iv_guests TYPE i
|
|
iv_breakfast TYPE abap_bool
|
|
RETURNING VALUE(rs_result) TYPE ty_result.
|
|
ENDINTERFACE.
|