26 lines
864 B
ABAP
26 lines
864 B
ABAP
INTERFACE {{p}}if_inspection_check PUBLIC.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
no_plate TYPE ty_reason VALUE 'NO_PLATE',
|
|
no_make TYPE ty_reason VALUE 'NO_MAKE',
|
|
reg_date TYPE ty_reason VALUE 'REG_DATE',
|
|
too_old TYPE ty_reason VALUE 'TOO_OLD',
|
|
mileage TYPE ty_reason VALUE 'MILEAGE',
|
|
brakes TYPE ty_reason VALUE 'BRAKES',
|
|
exhaust TYPE ty_reason VALUE 'EXHAUST',
|
|
END OF c_reason.
|
|
|
|
METHODS check_vehicle
|
|
IMPORTING iv_plate TYPE string
|
|
iv_make TYPE string
|
|
iv_first_reg TYPE d
|
|
iv_check_date TYPE d
|
|
iv_mileage_km TYPE i
|
|
iv_brake_pct TYPE i
|
|
iv_exhaust_ppm TYPE i
|
|
RETURNING VALUE(rv_reason) TYPE ty_reason.
|
|
ENDINTERFACE.
|