65322f27ff
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
83 lines
1.6 KiB
ABAP
83 lines
1.6 KiB
ABAP
FUNCTION {{p}}museum_fee_old
|
|
IMPORTING
|
|
iv_visitor TYPE string
|
|
iv_day TYPE string
|
|
iv_size TYPE i
|
|
iv_member TYPE abap_bool
|
|
EXPORTING
|
|
ev_fee TYPE decfloat34
|
|
ev_note TYPE string
|
|
EXCEPTIONS
|
|
invalid_input.
|
|
|
|
DATA lv_base TYPE decfloat34.
|
|
DATA lv_total TYPE decfloat34.
|
|
|
|
IF iv_size <= 0.
|
|
RAISE invalid_input.
|
|
ENDIF.
|
|
|
|
IF iv_visitor = 'ADULT'.
|
|
lv_base = 12.
|
|
ELSEIF iv_visitor = 'CHILD'.
|
|
lv_base = 6.
|
|
ELSEIF iv_visitor = 'SENIOR'.
|
|
lv_base = 8.
|
|
ELSEIF iv_visitor = 'STUDENT'.
|
|
lv_base = 7.
|
|
ELSEIF iv_visitor = 'FAMILY'.
|
|
lv_base = 30.
|
|
ELSE.
|
|
RAISE invalid_input.
|
|
ENDIF.
|
|
|
|
IF iv_visitor = 'FAMILY'.
|
|
IF iv_size <= 4.
|
|
lv_total = 30.
|
|
ELSE.
|
|
lv_total = 30 + ( iv_size - 4 ) * 6.
|
|
ENDIF.
|
|
ELSE.
|
|
lv_total = lv_base * iv_size.
|
|
ENDIF.
|
|
|
|
IF iv_day = 'SAT'.
|
|
lv_total = lv_total * '1.2'.
|
|
ELSEIF iv_day = 'SUN'.
|
|
lv_total = lv_total * '1.2'.
|
|
ENDIF.
|
|
|
|
IF iv_member = abap_true.
|
|
lv_total = lv_total - 10.
|
|
IF lv_total < 0.
|
|
lv_total = 0.
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
IF iv_size >= 10.
|
|
lv_total = lv_total * '0.9'.
|
|
ENDIF.
|
|
|
|
ev_fee = lv_total.
|
|
|
|
IF iv_visitor = 'ADULT'.
|
|
ev_note = 'Adult'.
|
|
ELSEIF iv_visitor = 'CHILD'.
|
|
ev_note = 'Child'.
|
|
ELSEIF iv_visitor = 'SENIOR'.
|
|
ev_note = 'Senior'.
|
|
ELSEIF iv_visitor = 'STUDENT'.
|
|
ev_note = 'Student'.
|
|
ELSEIF iv_visitor = 'FAMILY'.
|
|
ev_note = 'Family'.
|
|
ENDIF.
|
|
|
|
IF iv_member = abap_true.
|
|
ev_note = ev_note && ' member'.
|
|
ENDIF.
|
|
|
|
IF iv_size >= 10.
|
|
ev_note = ev_note && ' group'.
|
|
ENDIF.
|
|
ENDFUNCTION.
|