icon in einer Ausgabevariable

Code: Alles auswählen.

data: t_icon(40) type c.
WRITE: ICON_SUPPLIER AS ICON to t_icon.
concatenate 'text' t_icon into text1.

           perform node_fill
              using '001' "node_key
                    '010' "relatkey
                    cl_gui_column_tree=>relat_last_child "relatship
                    'X' "isfolder
                    aufreißen "expander(aufreißen)
                    <tmp_icon>."n_image

            perform item_fill
              using '001' "node_key
                    'col_01' "item_name
                    cl_gui_column_tree=>item_class_text "class
                    vbeln "text
                    ''. "image

*&---------------------------------------------------------------------*
*&      Form  node_fill
*&---------------------------------------------------------------------*
FORM node_fill using    P_NODE_KEY P_RELATKEY P_RELATSHIP
                        P_ISFOLDER P_EXPANDER P_N_IMAGE.

  CLEAR node.
  node-node_key  = P_NODE_KEY.
  node-relatkey  = P_RELATKEY. "Bezug auf übergeordneten Ordner
  node-relatship = P_RELATSHIP.
  node-isfolder  = P_ISFOLDER.
  node-expander  = P_EXPANDER.
  node-n_image   = P_N_IMAGE. "symbol des Ordners
  node-exp_image = P_N_IMAGE.
  APPEND node TO node_table.

ENDFORM.                    " node_fill


*&---------------------------------------------------------------------*
*&      Form  item_fill
*&---------------------------------------------------------------------*
FORM item_fill USING    P_node_key
                        p_item_name
                        P_class
                        P_item-text
                        p_image.

  CLEAR item.
  item-node_key  = P_node_key.   "Bezug
  item-item_name = p_item_name.    "Ausgabe bei welcher Spalte
  item-class     = P_class. "Text zeile
  item-text      = P_item-text.
  ITEM-T_IMAGE   = p_image.
  APPEND item TO item_table.

ENDFORM.                    " item_fill