26 lines
553 B
ABAP
26 lines
553 B
ABAP
FUNCTION {{p}}glaz_fee
|
|
IMPORTING
|
|
iv_width_mm TYPE i
|
|
iv_height_mm TYPE i
|
|
iv_glass TYPE string
|
|
iv_urgent TYPE abap_bool
|
|
EXPORTING
|
|
ev_fee TYPE decfloat34
|
|
EXCEPTIONS
|
|
invalid_input.
|
|
|
|
DATA lo_calc TYPE REF TO {{p}}glaz_calc.
|
|
lo_calc = NEW #( ).
|
|
|
|
TRY.
|
|
ev_fee = lo_calc->calculate(
|
|
iv_width_mm = iv_width_mm
|
|
iv_height_mm = iv_height_mm
|
|
iv_glass = iv_glass
|
|
iv_urgent = iv_urgent ).
|
|
CATCH cx_abap_invalid_value.
|
|
RAISE invalid_input.
|
|
ENDTRY.
|
|
|
|
ENDFUNCTION.
|