135 lines
5.0 KiB
ABAP
135 lines
5.0 KiB
ABAP
REPORT {{p}}exhib_cmp.
|
|
|
|
TYPES ty_exhib_id TYPE {{p}}exhib-exhib_id.
|
|
|
|
DATA gv_exhib TYPE ty_exhib_id.
|
|
|
|
PARAMETERS p_from TYPE d OBLIGATORY.
|
|
PARAMETERS p_to TYPE d OBLIGATORY.
|
|
SELECT-OPTIONS s_exhib FOR gv_exhib.
|
|
|
|
CLASS lcl_report DEFINITION FINAL.
|
|
PUBLIC SECTION.
|
|
TYPES:
|
|
BEGIN OF ty_line,
|
|
exhib_id TYPE {{p}}exhib-exhib_id,
|
|
exhib_name TYPE {{p}}exhib-exhib_name,
|
|
plan_vis TYPE i,
|
|
act_vis TYPE i,
|
|
gap TYPE i,
|
|
END OF ty_line,
|
|
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
|
|
TYPES tt_exhib TYPE RANGE OF {{p}}exhib-exhib_id.
|
|
METHODS collect
|
|
IMPORTING iv_from TYPE d
|
|
iv_to TYPE d
|
|
it_exhib TYPE tt_exhib
|
|
RETURNING VALUE(rt_lines) TYPE tt_line.
|
|
METHODS display
|
|
CHANGING ct_lines TYPE tt_line.
|
|
ENDCLASS.
|
|
|
|
CLASS lcl_report IMPLEMENTATION.
|
|
METHOD collect.
|
|
SELECT exhib_id, exhib_name, plan_vis
|
|
FROM {{p}}exhib
|
|
WHERE exhib_id IN @it_exhib
|
|
INTO TABLE @DATA(lt_plan).
|
|
|
|
SELECT exhib_id, SUM( visitors ) AS act_vis
|
|
FROM {{p}}visit
|
|
WHERE visit_date BETWEEN @iv_from AND @iv_to
|
|
AND exhib_id IN @it_exhib
|
|
GROUP BY exhib_id
|
|
INTO TABLE @DATA(lt_act).
|
|
|
|
DATA lt_result TYPE HASHED TABLE OF ty_line WITH UNIQUE KEY exhib_id.
|
|
LOOP AT lt_plan INTO DATA(ls_plan).
|
|
INSERT VALUE #( exhib_id = ls_plan-exhib_id
|
|
exhib_name = ls_plan-exhib_name
|
|
plan_vis = ls_plan-plan_vis ) INTO TABLE lt_result.
|
|
ENDLOOP.
|
|
|
|
LOOP AT lt_act INTO DATA(ls_act).
|
|
READ TABLE lt_result ASSIGNING FIELD-SYMBOL(<ls_line>)
|
|
WITH TABLE KEY exhib_id = ls_act-exhib_id.
|
|
IF sy-subrc = 0.
|
|
<ls_line>-act_vis = ls_act-act_vis.
|
|
ELSE.
|
|
INSERT VALUE #( exhib_id = ls_act-exhib_id
|
|
act_vis = ls_act-act_vis ) INTO TABLE lt_result.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
|
|
rt_lines = CORRESPONDING #( lt_result ).
|
|
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_out>).
|
|
IF <ls_out>-act_vis >= <ls_out>-plan_vis.
|
|
<ls_out>-gap = <ls_out>-plan_vis - <ls_out>-act_vis.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
SORT rt_lines BY act_vis DESCENDING exhib_id 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_lines) = go_report->collect( iv_from = p_from iv_to = p_to it_exhib = s_exhib[] ).
|
|
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 merged_lines FOR TESTING.
|
|
METHODS unplanned_line FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
CLASS ltc_report IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_osql_test_environment=>create(
|
|
i_dependency_list = VALUE #( ( '{{P}}EXHIB' ) ( '{{P}}VISIT' ) ) ).
|
|
DATA lt_exhib TYPE STANDARD TABLE OF {{p}}exhib WITH EMPTY KEY.
|
|
lt_exhib = VALUE #( ( exhib_id = 'A1' exhib_name = 'One' plan_vis = 100 ) ).
|
|
go_env->insert_test_data( lt_exhib ).
|
|
DATA lt_visit TYPE STANDARD TABLE OF {{p}}visit WITH EMPTY KEY.
|
|
lt_visit = VALUE #( ( visit_id = 1 exhib_id = 'A1' visit_date = '20260110' visitors = 60 )
|
|
( visit_id = 2 exhib_id = 'A1' visit_date = '20260111' visitors = 50 )
|
|
( visit_id = 3 exhib_id = 'B2' visit_date = '20260110' visitors = 20 ) ).
|
|
go_env->insert_test_data( lt_visit ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD merged_lines.
|
|
DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101' iv_to = '20260131'
|
|
it_exhib = VALUE #( ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 1 ]-exhib_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 110 act = lt_lines[ 1 ]-act_vis ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 100 act = lt_lines[ 1 ]-plan_vis ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 1 ]-gap ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unplanned_line.
|
|
DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101' iv_to = '20260131'
|
|
it_exhib = VALUE #( ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 2 ]-exhib_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 2 ]-plan_vis ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 20 act = lt_lines[ 2 ]-act_vis ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 2 ]-gap ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|