31 lines
614 B
ABAP
31 lines
614 B
ABAP
FUNCTION {{p}}evt_fee
|
|
IMPORTING
|
|
iv_doc_type TYPE string
|
|
iv_amount TYPE decfloat34
|
|
EXPORTING
|
|
ev_skip TYPE abap_bool
|
|
CHANGING
|
|
cv_fee TYPE decfloat34
|
|
EXCEPTIONS
|
|
invalid_amount.
|
|
|
|
ev_skip = abap_false.
|
|
IF iv_amount < 0.
|
|
RAISE invalid_amount.
|
|
ENDIF.
|
|
CASE iv_doc_type.
|
|
WHEN 'IN'.
|
|
cv_fee = round( val = iv_amount * 2 / 100 dec = 2 mode = cl_abap_math=>round_half_up ).
|
|
IF cv_fee < 1.
|
|
cv_fee = 1.
|
|
ELSEIF cv_fee > 50.
|
|
cv_fee = 50.
|
|
ENDIF.
|
|
WHEN 'CR'.
|
|
ev_skip = abap_true.
|
|
WHEN OTHERS.
|
|
cv_fee = 0.
|
|
ENDCASE.
|
|
|
|
ENDFUNCTION.
|