3550f0b651
- docs/eval-inceleme.md checklist; harness/review.py - 19 accept, 1 fix pending (G0019), 4 flagged (I/E tasks solvable without legacy code) - generator: categories I and E fix/refactor the seed object in place Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
105 lines
2.8 KiB
ABAP
105 lines
2.8 KiB
ABAP
CLASS {{p}}delivery_schedule DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
|
|
PUBLIC SECTION.
|
|
|
|
TYPES ty_holidays TYPE STANDARD TABLE OF d WITH EMPTY KEY.
|
|
|
|
METHODS is_working_day
|
|
IMPORTING iv_date TYPE d
|
|
it_holidays TYPE ty_holidays
|
|
RETURNING VALUE(rv_working) TYPE abap_bool.
|
|
|
|
METHODS next_working_day
|
|
IMPORTING iv_date TYPE d
|
|
it_holidays TYPE ty_holidays
|
|
RETURNING VALUE(rv_date) TYPE d.
|
|
|
|
METHODS add_working_days
|
|
IMPORTING iv_start TYPE d
|
|
iv_days TYPE i
|
|
it_holidays TYPE ty_holidays
|
|
RETURNING VALUE(rv_date) TYPE d.
|
|
|
|
METHODS count_working_days
|
|
IMPORTING iv_from TYPE d
|
|
iv_to TYPE d
|
|
it_holidays TYPE ty_holidays
|
|
RETURNING VALUE(rv_count) TYPE i.
|
|
|
|
PRIVATE SECTION.
|
|
|
|
CONSTANTS c_reference_monday TYPE d VALUE '19000101'.
|
|
|
|
METHODS is_weekend
|
|
IMPORTING iv_date TYPE d
|
|
RETURNING VALUE(rv_weekend) TYPE abap_bool.
|
|
|
|
METHODS is_holiday
|
|
IMPORTING iv_date TYPE d
|
|
it_holidays TYPE ty_holidays
|
|
RETURNING VALUE(rv_holiday) TYPE abap_bool.
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}delivery_schedule IMPLEMENTATION.
|
|
|
|
METHOD is_working_day.
|
|
rv_working = xsdbool( is_weekend( iv_date ) = abap_false
|
|
AND is_holiday( iv_date = iv_date
|
|
it_holidays = it_holidays ) = abap_false ).
|
|
ENDMETHOD.
|
|
|
|
METHOD next_working_day.
|
|
rv_date = iv_date.
|
|
WHILE is_working_day( iv_date = rv_date
|
|
it_holidays = it_holidays ) = abap_false.
|
|
rv_date = rv_date + 1.
|
|
ENDWHILE.
|
|
ENDMETHOD.
|
|
|
|
METHOD add_working_days.
|
|
rv_date = iv_start.
|
|
IF iv_days = 0.
|
|
RETURN.
|
|
ENDIF.
|
|
DATA(lv_remaining) = iv_days.
|
|
DATA(lv_step) = COND i( WHEN iv_days > 0 THEN 1 ELSE -1 ).
|
|
WHILE lv_remaining <> 0.
|
|
rv_date = rv_date + lv_step.
|
|
IF is_working_day( iv_date = rv_date
|
|
it_holidays = it_holidays ) = abap_true.
|
|
lv_remaining = lv_remaining - lv_step.
|
|
ENDIF.
|
|
ENDWHILE.
|
|
ENDMETHOD.
|
|
|
|
METHOD count_working_days.
|
|
rv_count = 0.
|
|
DATA(lv_date) = iv_from.
|
|
WHILE lv_date <= iv_to.
|
|
IF is_working_day( iv_date = lv_date
|
|
it_holidays = it_holidays ) = abap_true.
|
|
rv_count = rv_count + 1.
|
|
ENDIF.
|
|
lv_date = lv_date + 1.
|
|
ENDWHILE.
|
|
ENDMETHOD.
|
|
|
|
METHOD is_weekend.
|
|
DATA(lv_days) = iv_date - c_reference_monday.
|
|
rv_weekend = xsdbool( lv_days MOD 8 >= 5 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD is_holiday.
|
|
rv_holiday = abap_false.
|
|
LOOP AT it_holidays INTO DATA(lv_holiday).
|
|
IF lv_holiday = iv_date.
|
|
rv_holiday = abap_true.
|
|
RETURN.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|