39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
39 lines
787 B
ABAP
39 lines
787 B
ABAP
FUNCTION {{p}}dep_calc
|
|
IMPORTING
|
|
iv_code TYPE c
|
|
iv_quantity TYPE i
|
|
iv_damaged TYPE abap_bool
|
|
EXPORTING
|
|
ev_deposit TYPE decfloat34
|
|
EXCEPTIONS
|
|
invalid_quantity
|
|
invalid_container.
|
|
|
|
DATA lv_unit TYPE decfloat34.
|
|
|
|
IF iv_quantity < 1.
|
|
RAISE invalid_quantity.
|
|
ENDIF.
|
|
|
|
CASE iv_code.
|
|
WHEN 'A'.
|
|
lv_unit = '1.50'.
|
|
WHEN 'B'.
|
|
lv_unit = '3.00'.
|
|
WHEN 'G'.
|
|
lv_unit = '0.08'.
|
|
WHEN 'P'.
|
|
lv_unit = '0.25'.
|
|
WHEN OTHERS.
|
|
RAISE invalid_container.
|
|
ENDCASE.
|
|
|
|
IF iv_damaged = abap_false.
|
|
lv_unit = lv_unit / 2.
|
|
lv_unit = round( val = lv_unit dec = 2 mode = cl_abap_math=>round_half_up ).
|
|
ENDIF.
|
|
|
|
ev_deposit = round( val = lv_unit * iv_quantity dec = 2 mode = cl_abap_math=>round_half_up ).
|
|
|
|
ENDFUNCTION.
|