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.