29 lines
827 B
ABAP
29 lines
827 B
ABAP
CLASS {{p}}paint_mix DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
TYPES:
|
|
BEGIN OF ty_tint,
|
|
tint_id TYPE c LENGTH 4,
|
|
quantity_ml TYPE i,
|
|
END OF ty_tint,
|
|
ty_tints TYPE STANDARD TABLE OF ty_tint WITH EMPTY KEY.
|
|
|
|
INTERFACES if_oo_adt_classrun.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}paint_mix IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_prices TYPE STANDARD TABLE OF {{p}}tintpr WITH EMPTY KEY.
|
|
lt_prices = VALUE #(
|
|
( tint_id = 'WHIT' price_ml = '0.020' )
|
|
( tint_id = 'BLUE' price_ml = '0.045' )
|
|
( tint_id = 'GREY' price_ml = '0.030' )
|
|
( tint_id = 'GOLD' price_ml = '0.250' ) ).
|
|
|
|
DELETE FROM {{p}}tintpr.
|
|
INSERT {{p}}tintpr FROM TABLE @lt_prices.
|
|
|
|
out->write( |Tint prices seeded: { lines( lt_prices ) }| ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|