140 lines
5.0 KiB
ABAP
140 lines
5.0 KiB
ABAP
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.
|