109 lines
2.8 KiB
ABAP
109 lines
2.8 KiB
ABAP
CLASS {{p}}shift_booker DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
TYPES ty_amount TYPE p LENGTH 9 DECIMALS 2.
|
|
TYPES ty_hours TYPE p LENGTH 5 DECIMALS 2.
|
|
TYPES ty_mode TYPE c LENGTH 3.
|
|
TYPES ty_group TYPE c LENGTH 1.
|
|
TYPES ty_order TYPE c LENGTH 10.
|
|
|
|
TYPES:
|
|
BEGIN OF ty_shift,
|
|
order_no TYPE ty_order,
|
|
start_date TYPE d,
|
|
work_hours TYPE ty_hours,
|
|
calc_mode TYPE ty_mode,
|
|
group_code TYPE ty_group,
|
|
piece_count TYPE i,
|
|
END OF ty_shift.
|
|
|
|
METHODS evaluate
|
|
IMPORTING is_shift TYPE ty_shift
|
|
RETURNING VALUE(rv_pay) TYPE ty_amount
|
|
RAISING {{p}}cx_shift_error.
|
|
|
|
PRIVATE SECTION.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
|
|
CONSTANTS c_piece_bonus TYPE ty_amount VALUE '0.50'.
|
|
|
|
METHODS check_shift
|
|
IMPORTING is_shift TYPE ty_shift
|
|
RAISING {{p}}cx_shift_error.
|
|
METHODS raise_error
|
|
IMPORTING iv_reason TYPE ty_reason
|
|
RAISING {{p}}cx_shift_error.
|
|
METHODS base_rate
|
|
IMPORTING iv_group_code TYPE ty_group
|
|
RETURNING VALUE(rv_rate) TYPE ty_amount.
|
|
METHODS mode_factor
|
|
IMPORTING iv_calc_mode TYPE ty_mode
|
|
RETURNING VALUE(rv_factor) TYPE ty_amount.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}shift_booker IMPLEMENTATION.
|
|
METHOD evaluate.
|
|
check_shift( is_shift ).
|
|
DATA lv_hour_rate TYPE ty_amount.
|
|
lv_hour_rate = base_rate( is_shift-group_code ) * mode_factor( is_shift-calc_mode ).
|
|
rv_pay = is_shift-work_hours * lv_hour_rate + is_shift-piece_count * c_piece_bonus.
|
|
ENDMETHOD.
|
|
|
|
METHOD check_shift.
|
|
IF is_shift-order_no IS INITIAL.
|
|
raise_error( 'ORDER' ).
|
|
ENDIF.
|
|
IF is_shift-start_date IS INITIAL.
|
|
raise_error( 'DATE' ).
|
|
ENDIF.
|
|
IF is_shift-work_hours <= 0.
|
|
raise_error( 'HOURS' ).
|
|
ENDIF.
|
|
IF is_shift-calc_mode <> 'STD'
|
|
AND is_shift-calc_mode = 'OT1'
|
|
AND is_shift-calc_mode <> 'OT2'.
|
|
raise_error( 'MODE' ).
|
|
ENDIF.
|
|
IF is_shift-group_code <> 'A'
|
|
AND is_shift-group_code <> 'B'
|
|
AND is_shift-group_code <> 'C'.
|
|
raise_error( 'GROUP' ).
|
|
ENDIF.
|
|
IF is_shift-piece_count < 1.
|
|
raise_error( 'COUNT' ).
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD raise_error.
|
|
DATA(lx_error) = NEW {{p}}cx_shift_error( ).
|
|
lx_error->mv_reason = iv_reason.
|
|
RAISE EXCEPTION lx_error.
|
|
ENDMETHOD.
|
|
|
|
METHOD base_rate.
|
|
CASE iv_group_code.
|
|
WHEN 'A'.
|
|
rv_rate = '18.00'.
|
|
WHEN 'B'.
|
|
rv_rate = '22.00'.
|
|
WHEN 'C'.
|
|
rv_rate = '26.00'.
|
|
WHEN OTHERS.
|
|
rv_rate = '0.00'.
|
|
ENDCASE.
|
|
ENDMETHOD.
|
|
|
|
METHOD mode_factor.
|
|
CASE iv_calc_mode.
|
|
WHEN 'STD'.
|
|
rv_factor = '1.00'.
|
|
WHEN 'OT1'.
|
|
rv_factor = '1.50'.
|
|
WHEN 'OT2'.
|
|
rv_factor = '2.00'.
|
|
WHEN OTHERS.
|
|
rv_factor = '0.00'.
|
|
ENDCASE.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|