Olá,
Por favor, encontre este código que pode ajudá-lo.
TABELAS: mara.
TIPOS: BEGIN OF ty_mara,
ch TYPE cc,
matnr TYPE matnr,
ernam TYPE ernam,
ersda TYPE ersda,
aenam TYPE aenam,
pstat TYPE pstat_d,
END OF ty_mara.
DATA: it_mara TYPE STANDARD TABLE OF ty_mara,
wa_mara TYPE ty_mara.
DATA: i_fcat TYPE slis_t_fieldcat_alv.
DATA: w_fcat LIKE LINE OF i_fcat.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
START-OF-SELECTION.
SELECT * FROM mara INTO CORRESPONDING FIELDS OF TABLE it_mara
WHERE matnr IN s_matnr.
w_fcat-col_pos = '1'. "posição da coluna
w_fcat-fieldname = 'MATNR'. "nome da coluna
w_fcat-tabname = 'IT_MARA'. "tabela de saída
w_fcat-seltext_m = 'Número do material'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '2'. "posição da coluna
w_fcat-fieldname = 'ERNAM'. "nome da coluna
w_fcat-tabname = 'IT_MARA'. "tabela de saída
w_fcat-seltext_m = 'Criado por'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '3'. "posição da coluna
w_fcat-fieldname = 'ERSDA'. "nome da coluna
w_fcat-tabname = 'IT_MARA'. "tabela de saída
w_fcat-seltext_m = 'Data'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '4'. "posição da coluna
w_fcat-fieldname = 'AENAM'. "nome da coluna
w_fcat-tabname = 'IT_MARA'. "tabela de saída
w_fcat-seltext_m = 'Modificado por'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '5'. "posição da coluna
w_fcat-fieldname = 'PSTAT'. "nome da coluna
w_fcat-tabname = 'IT_MARA'. "tabela de saída
w_fcat-seltext_m = 'Estado'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '6'. "posição da coluna
w_fcat-fieldname = 'CH'. "nome da coluna
w_fcat-tabname = 'IT_MARA'. "tabela de saída
w_fcat-seltext_m = 'Caixa de seleção'.
w_fcat-checkbox = 'X'.
w_fcat-edit = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID =
