REPORT Z_TRANSPORTAR_GRAFICOS.
TABLES: STXBITMAPS.
Types: begin of ty_list,
mark type xfeld,
TDOBJECT type TDOBJECTGR,
TDNAME TYPE TDOBNAME,
TDID TYPE TDIDGR,
TDBTYPE TYPE TDBTYPE,
end of ty_list.
data: t_f4_select type STANDARD TABLE OF ty_list,
wa_f4_select type ty_list,
x_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv,
L_TASK LIKE E070-TRKORR.
END-OF-SELECTION.
SELECT * FROM STXBITMAPS INTO CORRESPONDING FIELDS OF TABLE t_f4_select.
x_fieldcat-fieldname = 'MARK'.
x_fieldcat-tabname = 't_f4_select'.
x_fieldcat-col_pos = 1.
x_fieldcat-input = 'X'.
x_fieldcat-edit = 'X'.
x_fieldcat-checkbox = 'X'.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'TDNAME'.
x_fieldcat-seltext_l = 'Nombre'.
x_fieldcat-tabname = 't_f4_select'.
x_fieldcat-outputlen = 70.
x_fieldcat-col_pos = 2.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'TDBTYPE'.
x_fieldcat-seltext_l = 'Color'.
x_fieldcat-tabname = 't_f4_select'.
x_fieldcat-col_pos = 3.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
I_TITLE = 'Selección Gráfico'
I_SELECTION = 'X'
I_ZEBRA = 'X'
I_SCREEN_START_COLUMN = 5
I_SCREEN_START_LINE = 5
I_SCREEN_END_COLUMN = 120
I_SCREEN_END_LINE = 20
I_CHECKBOX_FIELDNAME = 'MARK'
I_SCROLL_TO_SEL_LINE = 'X'
I_TABNAME = 't_f4_select'
IT_FIELDCAT = it_fieldcat
TABLES
T_OUTTAB = t_f4_select
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
loop at t_f4_select into wa_f4_select where mark = 'X'.
CALL FUNCTION 'SAPSCRIPT_TRANSPORT_OBJECTS'
EXPORTING
OBJECTTYPE = 'BDS'
GROBJECT = wa_f4_select-TDOBJECT
GRNAME = wa_f4_select-TDNAME
GRID = wa_f4_select-TDID
GRTYPE = wa_f4_select-TDBTYPE
IMPORTING
E_TASK = L_TASK
EXCEPTIONS
ILLEGAL_OBJECTTYPE = 1
ILLEGAL_OBJECT = 2
ILLEGAL_ID = 3
ILLEGAL_NAME = 4
ILLEGAL_LANGUAGE = 5
ILLEGAL_SAVEMODE = 6
ILLEGAL_GRTYPE = 7
TRANSPORT_IMPOSSIBLE = 8
NOTHING_FOUND = 9
OTHERS = 10.
endloop.