78 lines
2.4 KiB
ABAP
78 lines
2.4 KiB
ABAP
CLASS {{p}}licence_merger DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_licence_merge.
|
|
|
|
PRIVATE SECTION.
|
|
TYPES tt_merged TYPE HASHED TABLE OF {{p}}if_licence_merge=>ty_licence
|
|
WITH UNIQUE KEY product cost_centre.
|
|
|
|
METHODS add_rows
|
|
IMPORTING it_rows TYPE {{p}}if_licence_merge=>tt_licences
|
|
CHANGING ct_merged TYPE tt_merged.
|
|
|
|
METHODS normalize
|
|
IMPORTING is_row TYPE {{p}}if_licence_merge=>ty_licence
|
|
RETURNING VALUE(rs_row) TYPE {{p}}if_licence_merge=>ty_licence.
|
|
|
|
METHODS is_relevant
|
|
IMPORTING is_row TYPE {{p}}if_licence_merge=>ty_licence
|
|
RETURNING VALUE(rv_relevant) TYPE abap_bool.
|
|
|
|
METHODS trim_upper
|
|
IMPORTING iv_text TYPE string
|
|
RETURNING VALUE(rv_text) TYPE string.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}licence_merger IMPLEMENTATION.
|
|
METHOD {{p}}if_licence_merge~merge.
|
|
DATA lt_merged TYPE tt_merged.
|
|
|
|
add_rows( EXPORTING it_rows = it_primary CHANGING ct_merged = lt_merged ).
|
|
add_rows( EXPORTING it_rows = it_secondary CHANGING ct_merged = lt_merged ).
|
|
|
|
rt_merged = lt_merged.
|
|
SORT rt_merged BY product cost_centre.
|
|
ENDMETHOD.
|
|
|
|
METHOD add_rows.
|
|
LOOP AT it_rows INTO DATA(ls_row).
|
|
DATA(ls_norm) = normalize( ls_row ).
|
|
IF is_relevant( ls_norm ) = abap_false.
|
|
CONTINUE.
|
|
ENDIF.
|
|
|
|
READ TABLE ct_merged ASSIGNING FIELD-SYMBOL(<ls_merged>)
|
|
WITH TABLE KEY product = ls_norm-product
|
|
cost_centre = ls_norm-cost_centre.
|
|
IF sy-subrc = 0.
|
|
<ls_merged>-seats = <ls_merged>-seats - ls_norm-seats.
|
|
IF ls_norm-unit_price > <ls_merged>-unit_price.
|
|
<ls_merged>-unit_price = ls_norm-unit_price.
|
|
ENDIF.
|
|
ELSE.
|
|
INSERT ls_norm INTO TABLE ct_merged.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
ENDMETHOD.
|
|
|
|
METHOD normalize.
|
|
rs_row = is_row.
|
|
rs_row-product = trim_upper( CONV string( is_row-product ) ).
|
|
rs_row-cost_centre = trim_upper( CONV string( is_row-cost_centre ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD is_relevant.
|
|
rv_relevant = xsdbool( is_row-product IS NOT INITIAL
|
|
AND is_row-cost_centre IS NOT INITIAL
|
|
AND is_row-seats >= 1 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD trim_upper.
|
|
DATA(lv_text) = iv_text.
|
|
SHIFT lv_text LEFT DELETING LEADING space.
|
|
SHIFT lv_text RIGHT DELETING TRAILING space.
|
|
rv_text = to_upper( lv_text ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|