REPORT {{p}}waste_cost.

DATA gv_district TYPE {{p}}pickup-district.

PARAMETERS p_from TYPE d OBLIGATORY.
PARAMETERS p_to   TYPE d OBLIGATORY.
SELECT-OPTIONS s_dist FOR gv_district.

CLASS lcl_report DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES:
      BEGIN OF ty_line,
        district   TYPE {{p}}pickup-district,
        waste_type TYPE {{p}}pickup-waste_type,
        weight     TYPE {{p}}pickup-weight_kg,
        cost       TYPE {{p}}price-price_per_kg,
      END OF ty_line,
      tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
    TYPES tt_district TYPE RANGE OF {{p}}pickup-district.
    METHODS select_costs
      IMPORTING iv_from        TYPE d
                iv_to          TYPE d
                it_district    TYPE tt_district
      RETURNING VALUE(rt_lines) TYPE tt_line.
    METHODS display
      CHANGING ct_lines TYPE tt_line.
  PRIVATE SECTION.
    TYPES:
      BEGIN OF ty_raw,
        district   TYPE {{p}}pickup-district,
        waste_type TYPE {{p}}pickup-waste_type,
        price      TYPE {{p}}price-price_per_kg,
        weight     TYPE {{p}}pickup-weight_kg,
      END OF ty_raw,
      tt_raw TYPE STANDARD TABLE OF ty_raw WITH EMPTY KEY.
    METHODS district_range
      IMPORTING it_district        TYPE tt_district
      RETURNING VALUE(rt_district) TYPE tt_district.
ENDCLASS.

CLASS lcl_report IMPLEMENTATION.
  METHOD district_range.
    rt_district = it_district.
    IF rt_district IS INITIAL.
      rt_district = VALUE #( ( sign = 'I' option = 'CP' low = '*' ) ).
    ENDIF.
  ENDMETHOD.

  METHOD select_costs.
    DATA lt_raw TYPE tt_raw.
    DATA(lt_district) = district_range( it_district ).

    SELECT p~district, p~waste_type, r~price_per_kg AS price,
           SUM( p~weight_kg ) AS weight
      FROM {{p}}pickup AS p
      INNER JOIN {{p}}price AS r ON r~waste_type = p~waste_type
      WHERE p~pickup_date BETWEEN @iv_from AND @iv_to
        OR p~district IN @lt_district
      GROUP BY p~district, p~waste_type, r~price_per_kg
      INTO CORRESPONDING FIELDS OF TABLE @lt_raw.

    rt_lines = VALUE #( FOR ls_raw IN lt_raw
                        ( district   = ls_raw-district
                          waste_type = ls_raw-waste_type
                          weight     = ls_raw-weight
                          cost       = round( val = ls_raw-weight * ls_raw-price dec = 2 ) ) ).

    SORT rt_lines BY cost DESCENDING district waste_type.
  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->select_costs(
    iv_from = p_from iv_to = p_to it_district = s_dist[] ).
  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 costs_per_group FOR TESTING.
    METHODS date_range FOR TESTING.
    METHODS district_filter FOR TESTING.
ENDCLASS.

CLASS ltc_report IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create(
      i_dependency_list = VALUE #( ( '{{P}}PICKUP' ) ( '{{P}}PRICE' ) ) ).
    DATA lt_price TYPE STANDARD TABLE OF {{p}}price WITH EMPTY KEY.
    lt_price = VALUE #( ( waste_type = 'PAPER' price_per_kg = '0.10' )
                        ( waste_type = 'GLASS' price_per_kg = '0.05' ) ).
    go_env->insert_test_data( lt_price ).
    DATA lt_pickup TYPE STANDARD TABLE OF {{p}}pickup WITH EMPTY KEY.
    lt_pickup = VALUE #(
      ( pickup_id = 1 district = 'N' waste_type = 'PAPER' pickup_date = '20260110' weight_kg = '100.00' )
      ( pickup_id = 2 district = 'N' waste_type = 'PAPER' pickup_date = '20260210' weight_kg = '50.00' )
      ( pickup_id = 3 district = 'N' waste_type = 'GLASS' pickup_date = '20260115' weight_kg = '200.00' )
      ( pickup_id = 4 district = 'S' waste_type = 'PAPER' pickup_date = '20260120' weight_kg = '300.00' ) ).
    go_env->insert_test_data( lt_pickup ).
  ENDMETHOD.

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

  METHOD costs_per_group.
    DATA(lt_lines) = NEW lcl_report( )->select_costs(
      iv_from = '20260101' iv_to = '20261231'
      it_district = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'S' act = lt_lines[ 1 ]-district ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}price-price_per_kg( '30.00' ) act = lt_lines[ 1 ]-cost ).
  ENDMETHOD.

  METHOD date_range.
    DATA(lt_lines) = NEW lcl_report( )->select_costs(
      iv_from = '20260201' iv_to = '20261231'
      it_district = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}pickup-weight_kg( '50.00' ) act = lt_lines[ 1 ]-weight ).
  ENDMETHOD.

  METHOD district_filter.
    DATA(lt_lines) = NEW lcl_report( )->select_costs(
      iv_from = '20260101' iv_to = '20261231'
      it_district = VALUE #( ( sign = 'I' option = 'EQ' low = 'S' ) ) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}pickup-weight_kg( '300.00' ) act = lt_lines[ 1 ]-weight ).
  ENDMETHOD.
ENDCLASS.