93 lines
3.0 KiB
ABAP
93 lines
3.0 KiB
ABAP
CLASS {{p}}quote_merger DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
TYPES ty_price TYPE p LENGTH 11 DECIMALS 2.
|
|
TYPES:
|
|
BEGIN OF ty_quote,
|
|
material TYPE c LENGTH 18,
|
|
supplier TYPE c LENGTH 10,
|
|
price TYPE ty_price,
|
|
END OF ty_quote.
|
|
TYPES tt_quote TYPE STANDARD TABLE OF ty_quote WITH DEFAULT KEY.
|
|
TYPES:
|
|
BEGIN OF ty_result,
|
|
material TYPE c LENGTH 18,
|
|
supplier TYPE c LENGTH 10,
|
|
price TYPE ty_price,
|
|
quote_count TYPE i,
|
|
END OF ty_result.
|
|
TYPES tt_result TYPE STANDARD TABLE OF ty_result WITH DEFAULT KEY.
|
|
|
|
METHODS merge
|
|
IMPORTING it_quotes_a TYPE tt_quote
|
|
it_quotes_b TYPE tt_quote
|
|
EXPORTING et_result TYPE tt_result
|
|
ev_rejected TYPE i.
|
|
|
|
PRIVATE SECTION.
|
|
TYPES tt_aggregate TYPE HASHED TABLE OF ty_result WITH UNIQUE KEY material.
|
|
|
|
METHODS collect
|
|
IMPORTING it_quotes TYPE tt_quote
|
|
CHANGING ct_aggregate TYPE tt_aggregate
|
|
cv_rejected TYPE i.
|
|
METHODS is_valid
|
|
IMPORTING is_quote TYPE ty_quote
|
|
RETURNING VALUE(rv_valid) TYPE abap_bool.
|
|
METHODS update_aggregate
|
|
IMPORTING is_quote TYPE ty_quote
|
|
CHANGING ct_aggregate TYPE tt_aggregate.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}quote_merger IMPLEMENTATION.
|
|
METHOD merge.
|
|
DATA lt_aggregate TYPE tt_aggregate.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
collect( EXPORTING it_quotes = it_quotes_a
|
|
CHANGING ct_aggregate = lt_aggregate
|
|
cv_rejected = lv_rejected ).
|
|
collect( EXPORTING it_quotes = it_quotes_b
|
|
CHANGING ct_aggregate = lt_aggregate
|
|
cv_rejected = lv_rejected ).
|
|
|
|
et_result = lt_aggregate.
|
|
SORT et_result BY material.
|
|
ev_rejected = lv_rejected.
|
|
ENDMETHOD.
|
|
|
|
METHOD collect.
|
|
LOOP AT it_quotes INTO DATA(ls_quote).
|
|
IF is_valid( ls_quote ) = abap_false.
|
|
cv_rejected = cv_rejected + 1.
|
|
CONTINUE.
|
|
ENDIF.
|
|
update_aggregate( EXPORTING is_quote = ls_quote
|
|
CHANGING ct_aggregate = ct_aggregate ).
|
|
ENDLOOP.
|
|
ENDMETHOD.
|
|
|
|
METHOD is_valid.
|
|
rv_valid = xsdbool( is_quote-material IS NOT INITIAL AND is_quote-price > 0 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD update_aggregate.
|
|
READ TABLE ct_aggregate ASSIGNING FIELD-SYMBOL(<ls_aggregate>)
|
|
WITH TABLE KEY material = is_quote-material.
|
|
IF sy-subrc <> 0.
|
|
INSERT VALUE #( material = is_quote-material
|
|
supplier = is_quote-supplier
|
|
price = is_quote-price
|
|
quote_count = 1 ) INTO TABLE ct_aggregate.
|
|
RETURN.
|
|
ENDIF.
|
|
<ls_aggregate>-quote_count = <ls_aggregate>-quote_count + 1.
|
|
IF is_quote-price < <ls_aggregate>-price
|
|
OR ( is_quote-price = <ls_aggregate>-price
|
|
AND is_quote-supplier < <ls_aggregate>-supplier ).
|
|
<ls_aggregate>-price = is_quote-price.
|
|
<ls_aggregate>-supplier = is_quote-supplier.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|