39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
28 lines
753 B
ABAP
28 lines
753 B
ABAP
INTERFACE {{p}}if_vet_fee PUBLIC.
|
|
TYPES:
|
|
ty_species TYPE c LENGTH 8,
|
|
ty_weight TYPE p LENGTH 7 DECIMALS 3,
|
|
ty_amount TYPE p LENGTH 9 DECIMALS 2,
|
|
ty_reason TYPE c LENGTH 10.
|
|
|
|
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',
|
|
species TYPE ty_reason VALUE 'SPECIES',
|
|
weight TYPE ty_reason VALUE 'WEIGHT',
|
|
END OF c_reason.
|
|
|
|
METHODS calculate
|
|
IMPORTING iv_species TYPE ty_species
|
|
iv_weight TYPE ty_weight
|
|
iv_emergency TYPE abap_bool
|
|
iv_registered TYPE abap_bool
|
|
RETURNING VALUE(rs_result) TYPE ty_result.
|
|
ENDINTERFACE.
|