REPORT {{p}}line_output.

TYPES: BEGIN OF ty_record,
         line_no  TYPE {{p}}bottle-line_no,
         shift_no TYPE {{p}}bottle-shift_no,
         bottles  TYPE {{p}}bottle-bottles,
         stop_min TYPE {{p}}bottle-stop_min,
       END OF ty_record,
       tt_record TYPE STANDARD TABLE OF ty_record WITH DEFAULT KEY.

TYPES tt_shift TYPE RANGE OF {{p}}bottle-shift_no.

DATA gv_shift TYPE {{p}}bottle-shift_no.

PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_shift FOR gv_shift.

CLASS lcl_report DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES: BEGIN OF ty_line,
             line_no TYPE {{p}}bottle-line_no,
             bottles TYPE {{p}}bottle-bottles,
             stops   TYPE i,
           END OF ty_line,
           tt_line TYPE STANDARD TABLE OF ty_line WITH DEFAULT KEY.
    METHODS read_records
      IMPORTING iv_date          TYPE d
                it_shift         TYPE tt_shift
      RETURNING VALUE(rt_records) TYPE tt_record.
    METHODS build_lines
      IMPORTING it_records      TYPE tt_record
      RETURNING VALUE(rt_lines) TYPE tt_line.
    METHODS display
      CHANGING ct_lines TYPE tt_line.
ENDCLASS.

CLASS lcl_report IMPLEMENTATION.
  METHOD read_records.
    SELECT line_no shift_no bottles stop_min
      FROM {{p}}bottle
      INTO CORRESPONDING FIELDS OF TABLE rt_records
      WHERE prod_date = iv_date
        AND shift_no IN it_shift.
  ENDMETHOD.

  METHOD build_lines.
    DATA ls_record TYPE ty_record.
    DATA ls_line   TYPE ty_line.

    LOOP AT it_records INTO ls_record.
      READ TABLE rt_lines INTO ls_line WITH KEY line_no = ls_record-line_no.
      IF sy-subrc <> 0.
        CLEAR ls_line.
        ls_line-line_no = ls_record-line_no.
        ls_line-bottles = ls_record-bottles.
        IF ls_record-stop_min > 0.
          ls_line-stops = 1.
        ENDIF.
        APPEND ls_line TO rt_lines.
      ELSE.
        ls_line-bottles = ls_line-bottles + ls_record-bottles.
        IF ls_record-stop_min > 0.
          ls_line-stops = ls_line-stops + 1.
        ENDIF.
        MODIFY rt_lines FROM ls_line INDEX sy-tabix.
      ENDIF.
    ENDLOOP.

    SORT rt_lines BY bottles DESCENDING line_no ASCENDING.
  ENDMETHOD.

  METHOD display.
    TRY.
        cl_salv_table=>factory(
          IMPORTING r_salv_table = DATA(lo_alv)
          CHANGING  t_table      = ct_lines ).
        lo_alv->display( ).
      CATCH cx_salv_msg INTO DATA(lx_error).
        MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
    ENDTRY.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA(go_report) = NEW lcl_report( ).
  DATA(gt_records) = go_report->read_records( iv_date = p_date it_shift = s_shift[] ).
  DATA(gt_lines) = go_report->build_lines( gt_records ).
  go_report->display( CHANGING ct_lines = gt_lines ).

CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS sums_bottles FOR TESTING.
    METHODS counts_stops FOR TESTING.
    METHODS filters_shift FOR TESTING.
ENDCLASS.

CLASS ltc_report IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}BOTTLE' ) ) ).
    DATA lt_bottle TYPE STANDARD TABLE OF {{p}}bottle WITH DEFAULT KEY.
    lt_bottle = VALUE #(
      ( rec_id = 1 line_no = 'A' prod_date = '20260401' shift_no = '1' bottles = 100 stop_min = 0 )
      ( rec_id = 2 line_no = 'A' prod_date = '20260401' shift_no = '1' bottles = 50  stop_min = 10 )
      ( rec_id = 3 line_no = 'B' prod_date = '20260401' shift_no = '2' bottles = 200 stop_min = 0 )
      ( rec_id = 4 line_no = 'C' prod_date = '20260402' shift_no = '1' bottles = 300 stop_min = 0 ) ).
    go_env->insert_test_data( lt_bottle ).
  ENDMETHOD.

  METHOD class_teardown.
    go_env->destroy( ).
  ENDMETHOD.

  METHOD sums_bottles.
    DATA(lt_records) = NEW lcl_report( )->read_records( iv_date = '20260401' it_shift = VALUE #( ) ).
    DATA(lt_lines) = NEW lcl_report( )->build_lines( lt_records ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 200 act = lt_lines[ 1 ]-bottles ).
    cl_abap_unit_assert=>assert_equals( exp = 150 act = lt_lines[ 2 ]-bottles ).
  ENDMETHOD.

  METHOD counts_stops.
    DATA(lt_records) = NEW lcl_report( )->read_records( iv_date = '20260401' it_shift = VALUE #( ) ).
    DATA(lt_lines) = NEW lcl_report( )->build_lines( lt_records ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 1 ]-stops ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lt_lines[ 2 ]-stops ).
  ENDMETHOD.

  METHOD filters_shift.
    DATA(lt_records) = NEW lcl_report( )->read_records(
      iv_date  = '20260401'
      it_shift = VALUE #( ( sign = 'I' option = 'EQ' low = '1' ) ) ).
    DATA(lt_lines) = NEW lcl_report( )->build_lines( lt_records ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'A' act = lt_lines[ 1 ]-line_no ).
  ENDMETHOD.
ENDCLASS.