116 lines
4.1 KiB
ABAP
116 lines
4.1 KiB
ABAP
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.
|