Code: Alles auswählen.
METHODE on_pbo.
DATA: list TYPE vrm_values,
value LIKE LINE OF list.
LOOP AT ls_contract_version_set->get_all( ) INTO DATA(lo_contract_version).
value-key = |{ lo_contract_version->get_version( ) }|
value-text = |{ lo_contract_version->get_version( ) }|.
APPEND value TO list.
ENDLOOP.
fill_listbox( lt_listbox = list ).
CLEAR: list ,value.
ENDMETHODE.
METHOD fill_listbox.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'GV_CONTRACT_VERSION'
values = lt_listbox[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
ENDMETHOD.