Harness: runner, generator, tasks T01 T13 T14 T15, CLAUDE.md

tasks/T13/reference/evt_fee.func.abap

@@ -0,0 +1,30 @@
+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.