FUNCTION {{p}}hut_fee
  IMPORTING
    iv_guest_type TYPE string
    iv_nights     TYPE i
    iv_member     TYPE abap_bool
    iv_breakfast  TYPE abap_bool
  EXPORTING
    ev_fee        TYPE decfloat34
  EXCEPTIONS
    invalid_nights.

* Fee calculation of the alpine hut Alpenrose.
* Written in 2009. It works, so nobody touched it since then.

  DATA: lv_type  TYPE string,
        lv_rate  TYPE p LENGTH 8 DECIMALS 2,
        lv_room  TYPE p LENGTH 10 DECIMALS 2,
        lv_bf    TYPE p LENGTH 10 DECIMALS 2,
        lv_price TYPE p LENGTH 8 DECIMALS 2.

  ev_fee = 0.
  lv_type = iv_guest_type.
  TRANSLATE lv_type TO UPPER CASE.
  lv_price = '9.50'.

  IF iv_nights <= 0.
    RAISE invalid_nights.
  ELSE.
    IF lv_type = 'ADULT'.
      lv_rate = '28.00'.
      IF iv_member = 'X'.
        lv_rate = lv_rate / 2.
      ENDIF.
    ELSEIF lv_type = 'CHILD'.
      lv_rate = '14.00'.
      IF iv_member = 'X'.
        lv_rate = lv_rate / 2.
      ENDIF.
    ELSEIF lv_type = 'DOG'.
      lv_rate = '5.00'.
    ELSE.
      lv_rate = '28.00'.
      IF iv_member = 'X'.
        lv_rate = lv_rate / 2.
      ENDIF.
    ENDIF.

    lv_room = lv_rate * iv_nights.

    IF iv_nights >= 7.
      lv_room = lv_room * 80 / 100.
    ELSEIF iv_nights >= 3.
      lv_room = lv_room * 90 / 100.
    ENDIF.

    lv_bf = 0.
    IF iv_breakfast = 'X'.
      IF lv_type = 'ADULT' OR lv_type = 'CHILD'.
        lv_bf = lv_price * iv_nights.
      ENDIF.
    ENDIF.

    lv_room = lv_room + lv_bf.
    ev_fee = lv_room.
  ENDIF.

ENDFUNCTION.