W Pub: ABAP Prog Propios ZSE 78

  1.  
  2. REPORT  Z_TRANSPORTAR_GRAFICOS.
  3. TABLES: STXBITMAPS.
  4.  
  5. Types: begin of ty_list,
  6.          mark type xfeld,
  7.          TDOBJECT type TDOBJECTGR,
  8.          TDNAME TYPE TDOBNAME,
  9.          TDID TYPE TDIDGR,
  10.          TDBTYPE TYPE TDBTYPE,
  11.        end of ty_list.
  12.  
  13. data: t_f4_select type STANDARD TABLE OF ty_list,
  14.       wa_f4_select type ty_list,
  15.       x_fieldcat TYPE slis_fieldcat_alv,
  16.       it_fieldcat TYPE slis_t_fieldcat_alv,
  17.       L_TASK LIKE E070-TRKORR.
  18.  
  19.  
  20. END-OF-SELECTION.
  21.   SELECT * FROM  STXBITMAPS INTO CORRESPONDING FIELDS OF TABLE t_f4_select.
  22.  
  23.   x_fieldcat-fieldname = 'MARK'.
  24.   x_fieldcat-tabname = 't_f4_select'.
  25.   x_fieldcat-col_pos = 1.
  26.   x_fieldcat-input = 'X'.
  27.   x_fieldcat-edit = 'X'.
  28.   x_fieldcat-checkbox = 'X'.
  29.   APPEND x_fieldcat TO it_fieldcat.
  30.   CLEAR x_fieldcat.
  31.  
  32.   x_fieldcat-fieldname = 'TDNAME'.
  33.   x_fieldcat-seltext_l = 'Nombre'.
  34.   x_fieldcat-tabname = 't_f4_select'.
  35.   x_fieldcat-outputlen  = 70.
  36.   x_fieldcat-col_pos = 2.
  37.   APPEND x_fieldcat TO it_fieldcat.
  38.   CLEAR x_fieldcat.
  39.  
  40.   x_fieldcat-fieldname = 'TDBTYPE'.
  41.   x_fieldcat-seltext_l = 'Color'.
  42.   x_fieldcat-tabname = 't_f4_select'.
  43.   x_fieldcat-col_pos = 3.
  44.   APPEND x_fieldcat TO it_fieldcat.
  45.   CLEAR x_fieldcat.
  46.  
  47.   CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
  48.     EXPORTING
  49.      I_TITLE                       = 'Selección Gráfico'
  50.      I_SELECTION                   = 'X'
  51.      I_ZEBRA                       = 'X'
  52.      I_SCREEN_START_COLUMN         = 5
  53.      I_SCREEN_START_LINE           = 5
  54.      I_SCREEN_END_COLUMN           = 120
  55.      I_SCREEN_END_LINE             = 20
  56.      I_CHECKBOX_FIELDNAME          = 'MARK'
  57.      I_SCROLL_TO_SEL_LINE          = 'X'
  58.       I_TABNAME                     = 't_f4_select'
  59.      IT_FIELDCAT                   = it_fieldcat
  60.     TABLES
  61.       T_OUTTAB                      = t_f4_select
  62.    EXCEPTIONS
  63.      PROGRAM_ERROR                 = 1
  64.      OTHERS                        = 2.
  65.  
  66.   loop at t_f4_select into wa_f4_select where mark = 'X'.
  67.  
  68.    CALL FUNCTION 'SAPSCRIPT_TRANSPORT_OBJECTS'
  69.     EXPORTING
  70.       OBJECTTYPE                     = 'BDS'
  71.       GROBJECT                       = wa_f4_select-TDOBJECT
  72.       GRNAME                         = wa_f4_select-TDNAME
  73.       GRID                           = wa_f4_select-TDID
  74.       GRTYPE                         = wa_f4_select-TDBTYPE
  75.     IMPORTING
  76.       E_TASK                         = L_TASK
  77.     EXCEPTIONS
  78.       ILLEGAL_OBJECTTYPE             = 1
  79.       ILLEGAL_OBJECT                 = 2
  80.       ILLEGAL_ID                     = 3
  81.       ILLEGAL_NAME                   = 4
  82.       ILLEGAL_LANGUAGE               = 5
  83.       ILLEGAL_SAVEMODE               = 6
  84.       ILLEGAL_GRTYPE                 = 7
  85.       TRANSPORT_IMPOSSIBLE           = 8
  86.       NOTHING_FOUND                  = 9
  87.       OTHERS                         = 10.
  88.   endloop.
  89.