Code: Alles auswählen.
FORM fieldcat_create CHANGING pt_fcat TYPE lvc_t_fcat.
FIELD-SYMBOLS: <fs_fcat> TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'ztabelle'
CHANGING
ct_fieldcat = gt_fcat.
LOOP AT gt_fcat ASSIGNING <fs_fcat>.
CASE <fs_fcat>-fieldname.
...
WHEN 'BEARBEITUNG'.
<fs_fcat>-edit = 'X'.
<fs_fcat>-drdn_hndl = '1'.
...
ENDCASE.
ENDLOOP.
ENDFORM. "fieldcat_create
Code: Alles auswählen.
FORM dropdown_table CHANGING alv_grid TYPE REF TO cl_gui_alv_grid.
DATA: lt_dropdown TYPE lvc_t_drop WITH HEADER LINE,
gs_f4 TYPE lvc_s_f4,
gt_f4 TYPE lvc_t_f4.
CLEAR gt_f4.
gs_f4-fieldname = 'BEARBEITUNG'.
gs_f4-register = 'X'.
gs_f4-getbefore = 'X'.
gs_f4-chngeafter = 'X'.
APPEND gs_f4 TO gt_f4.
CALL METHOD alv_grid->register_f4_for_fields
EXPORTING
it_f4 = gt_f4.
lt_dropdown-handle = '1'.
lt_dropdown-value = 'BK'.
APPEND lt_dropdown.
lt_dropdown-handle = '1'.
lt_dropdown-value = 'UL'.
APPEND lt_dropdown.
lt_dropdown-handle = '1'.
lt_dropdown-value = 'WE'.
APPEND lt_dropdown.
lt_dropdown-handle = '1'.
lt_dropdown-value = 'R'.
APPEND lt_dropdown.
lt_dropdown-handle = '1'.
lt_dropdown-value = 'Mail'.
APPEND lt_dropdown.
lt_dropdown-handle = '1'.
lt_dropdown-value = 'Sonstige'.
APPEND lt_dropdown.
lt_dropdown-handle = '1'.
lt_dropdown-VALUE = ' '.
APPEND lt_dropdown.
CALL METHOD alv_grid->set_drop_down_table
EXPORTING
it_drop_down = lt_dropdown{}.
ENDFORM.
Um es mit den Worten eines großen deutschen Schauspielers zu sagen:Legxis hat geschrieben:Kann man die Länge des Dropdown verändern?