42 lines
1.1 KiB
ABAP
42 lines
1.1 KiB
ABAP
INTERFACE {{p}}if_bouquet_check PUBLIC.
|
|
TYPES ty_band TYPE c LENGTH 1.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
|
|
TYPES:
|
|
BEGIN OF ty_result,
|
|
band TYPE ty_band,
|
|
reason TYPE ty_reason,
|
|
END OF ty_result.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_band,
|
|
small TYPE ty_band VALUE 'S',
|
|
medium TYPE ty_band VALUE 'M',
|
|
large TYPE ty_band VALUE 'L',
|
|
END OF c_band.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
invalid TYPE ty_reason VALUE 'ZNVALID',
|
|
short TYPE ty_reason VALUE 'SHORT',
|
|
weight TYPE ty_reason VALUE 'WEIGHT',
|
|
stems TYPE ty_reason VALUE 'STEMS',
|
|
END OF c_reason.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_limit,
|
|
max_stems_small TYPE i VALUE 20,
|
|
max_stems_medium TYPE i VALUE 40,
|
|
max_stems_large TYPE i VALUE 60,
|
|
max_weight_g TYPE i VALUE 3000,
|
|
min_stem_cm TYPE i VALUE 40,
|
|
END OF c_limit.
|
|
|
|
METHODS check_order
|
|
IMPORTING iv_stems TYPE i
|
|
iv_weight_g TYPE i
|
|
iv_stem_cm TYPE i
|
|
RETURNING VALUE(rs_result) TYPE ty_result.
|
|
ENDINTERFACE.
|