18 lines
329 B
ABAP
18 lines
329 B
ABAP
FUNCTION {{P}}MIX_SAMPLE
|
|
IMPORTING
|
|
it_tints TYPE {{P}}PAINT_MIX=>TY_TINTS
|
|
EXPORTING
|
|
ev_volume TYPE decfloat34
|
|
EXCEPTIONS
|
|
no_components.
|
|
|
|
IF it_tints IS INITIAL.
|
|
RAISE no_components.
|
|
ENDIF.
|
|
|
|
LOOP AT it_tints INTO DATA(ls_tint).
|
|
ev_volume = ev_volume + ls_tint-quantity_ml.
|
|
ENDLOOP.
|
|
|
|
ENDFUNCTION.
|