METHOD add_bean_to_box.
DATA: ld_volume LIKE me->gd_volume.
* Neues Fllvolumen des Bohnenbehlters berechnen
ld_volume = me->gd_volume + ir_cbean->get_volume( ).
* Prfen, ob er voll ist
* (maximale berfllung mit einer Bohne)
IF ld_volume > me->gc_max_volume.
* Schreien
RAISE EVENT loaded.
ELSE.
* Fllen
me-> gd_volume = ld_volume.
* WRITE: / 'Vol: ', me->gd_volume.
ENDIF.
ENDMETHOD.