Hi,
Por favor, encuentra este código que puede ayudarte.
TABLAS: 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'. "posición de la columna
w_fcat-fieldname = 'MATNR'. "nombre de la columna
w_fcat-tabname = 'IT_MARA'. "tabla de salida
w_fcat-seltext_m = 'Número de material'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '2'. "posición de la columna
w_fcat-fieldname = 'ERNAM'. "nombre de la columna
w_fcat-tabname = 'IT_MARA'. "tabla de salida
w_fcat-seltext_m = 'Creado por'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '3'. "posición de la columna
w_fcat-fieldname = 'ERSDA'. "nombre de la columna
w_fcat-tabname = 'IT_MARA'. "tabla de salida
w_fcat-seltext_m = 'Fecha'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '4'. "posición de la columna
w_fcat-fieldname = 'AENAM'. "nombre de la columna
w_fcat-tabname = 'IT_MARA'. "tabla de salida
w_fcat-seltext_m = 'Modificado por'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '5'. "posición de la columna
w_fcat-fieldname = 'PSTAT'. "nombre de la columna
w_fcat-tabname = 'IT_MARA'. "tabla de salida
w_fcat-seltext_m = 'Estado'.
w_fcat-key = 'X'.
APPEND w_fcat TO i_fcat.
CLEAR w_fcat.
w_fcat-col_pos = '6'. "posición de la columna
w_fcat-fieldname = 'CH'. "nombre de la columna
w_fcat-tabname = 'IT_MARA'. "tabla de salida
w_fcat-seltext_m = 'Casilla de verificación'.
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 =
