22 lines
670 B
ABAP
22 lines
670 B
ABAP
INTERFACE {{p}}if_tool_hire PUBLIC.
|
|
TYPES ty_tool TYPE c LENGTH 1.
|
|
TYPES ty_days TYPE i.
|
|
TYPES ty_amount TYPE p LENGTH 13 DECIMALS 2.
|
|
TYPES ty_reason TYPE c LENGTH 12.
|
|
TYPES:
|
|
BEGIN OF ty_result,
|
|
fee TYPE ty_amount,
|
|
reason TYPE ty_reason,
|
|
END OF ty_result.
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
unknown_tool TYPE ty_reason VALUE 'UNKNOWN_TOOL',
|
|
too_short TYPE ty_reason VALUE 'TOO_SHORT',
|
|
END OF c_reason.
|
|
METHODS calculate
|
|
IMPORTING iv_tool TYPE ty_tool
|
|
iv_days TYPE ty_days
|
|
RETURNING VALUE(rs_result) TYPE ty_result.
|
|
ENDINTERFACE.
|