41 lines
1.2 KiB
ABAP
41 lines
1.2 KiB
ABAP
INTERFACE {{p}}if_sail_repair PUBLIC.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
TYPES ty_damage TYPE c LENGTH 4.
|
|
TYPES ty_cloth TYPE c LENGTH 4.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
empty TYPE ty_reason VALUE 'EMPTY',
|
|
damage TYPE ty_reason VALUE 'DAMAGE',
|
|
cloth TYPE ty_reason VALUE 'CLOTH',
|
|
length TYPE ty_reason VALUE 'LENGTH',
|
|
rush TYPE ty_reason VALUE 'RUSH',
|
|
END OF c_reason.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_damage,
|
|
tear TYPE ty_damage VALUE 'TEAR',
|
|
seam TYPE ty_damage VALUE 'SEAM',
|
|
eylt TYPE ty_damage VALUE 'ZYLT',
|
|
batt TYPE ty_damage VALUE 'BATT',
|
|
END OF c_damage.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_cloth,
|
|
lite TYPE ty_cloth VALUE 'LITE',
|
|
medm TYPE ty_cloth VALUE 'MEDM',
|
|
heav TYPE ty_cloth VALUE 'HEAV',
|
|
END OF c_cloth.
|
|
|
|
CONSTANTS c_max_length TYPE i VALUE 400.
|
|
CONSTANTS c_rush_limit TYPE i VALUE 200.
|
|
|
|
METHODS check_order
|
|
IMPORTING iv_damage TYPE ty_damage
|
|
iv_cloth TYPE ty_cloth
|
|
iv_length TYPE i
|
|
iv_rush TYPE abap_bool
|
|
RETURNING VALUE(rv_reason) TYPE ty_reason.
|
|
ENDINTERFACE.
|