REPORT {{p}}scrap_pay.

TYPES: BEGIN OF ty_line,
         metal     TYPE {{p}}scrap-metal,
         total_kg  TYPE p LENGTH 13 DECIMALS 3,
         total_pay TYPE p LENGTH 15 DECIMALS 2,
         deliv_cnt TYPE i,
       END OF ty_line,
       tt_line  TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
       tt_metal TYPE RANGE OF {{p}}scrap-metal.

DATA gv_metal TYPE {{p}}scrap-metal.

PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.

CLASS lcl_report DEFINITION FINAL.
  PUBLIC SECTION.
    CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
    CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.

    METHODS list
      IMPORTING iv_date         TYPE d
                it_metal        TYPE tt_metal
      RETURNING VALUE(rt_lines) TYPE tt_line.

    METHODS display
      CHANGING ct_lines TYPE tt_line.
ENDCLASS.

CLASS lcl_report IMPLEMENTATION.
  METHOD list.
    SELECT metal,
           SUM( weight_kg ) AS total_kg,
           SUM( weight_kg * price_kg ) AS total_pay,
           COUNT( * ) AS deliv_cnt
      FROM {{p}}scrap
      WHERE deliv_date <> @iv_date
        AND metal IN @it_metal
      GROUP BY metal
      INTO CORRESPONDING FIELDS OF TABLE @rt_lines.

    LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
      IF <ls_line>-total_kg >= c_limit.
        <ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
      ENDIF.
    ENDLOOP.

    SORT rt_lines BY total_pay DESCENDING.
  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->list( iv_date = p_date it_metal = s_metal[] ).
  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 bonus_above_limit FOR TESTING.
    METHODS no_bonus_below_limit FOR TESTING.
    METHODS metal_filter FOR TESTING.
ENDCLASS.

CLASS ltc_report IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
    DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
    lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
                        ( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
                        ( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000'  price_kg = '1.00' )
                        ( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000'  price_kg = '1.00' ) ).
    go_env->insert_test_data( lt_scrap ).
  ENDMETHOD.

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

  METHOD bonus_above_limit.
    DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
    DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
    lv_expected = '1540.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
  ENDMETHOD.

  METHOD no_bonus_below_limit.
    DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
    DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
    lv_expected = '10.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
  ENDMETHOD.

  METHOD metal_filter.
    DATA(lt_lines) = NEW lcl_report( )->list(
      iv_date  = '20260115'
      it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
  ENDMETHOD.
ENDCLASS.