Single Click on simple tree node

[Former Member]

Hi Experts,

I have a problem ,please help me.

I need event is trigger on single click on node of simple tree.There is event of double click but i need on single click only.

If you have any test program please forward it also.

Ankur Garg.

[athavanraja]

to achieve single click make the item as

item-node_key = gpname1 .

item-item_name = 'Column1'. "#EC NOTEXT

item-class = cl_gui_column_tree=><b>item_class_link</b>.

• item-t_image = '@3C@'.

item-text = item_text .

append item to item_table.

and register the event for this.

event-eventid = cl_gui_column_tree=>eventid_link_click.

event-appl_event = 'X'.

append event to events.

set handler g_application->handle_link_click for g_tree.

and write the logic in the method handle_link_click

Raja

[Former Member]

i dont think for single click you can get any event in simple list... you can make hotspot on by this way single click will trigger the at line-selection event.

REPORT  ZSPDEXDET LINE-SIZE 200 line-count 19(4).

TABLES : MAST,STPO,MARA,MARC.
INCLUDE <SYMBOL>.

DATA : BEGIN OF I_BOM OCCURS 0.
        INCLUDE STRUCTURE STPOX.

DATA : END OF I_BOM.

DATA : BEGIN OF ITAB OCCURS 0,
       STUFE LIKE STPOX-STUFE,
       IDNRK LIKE STPOX-IDNRK,
       WEGXX LIKE STPOX-WEGXX, "NODE NO
       TTIDX LIKE STPOX-TTIDX, "NODE NO WITH PARENTNODE + 1
       VWEGX LIKE STPOX-VWEGX, "NODE NO OF PARENT
       MENGE LIKE STPOX-MENGE,
       SYMBOL,
       END OF ITAB.
DATA : ITAB1 LIKE ITAB OCCURS 0 WITH HEADER LINE,
       ITAB2 LIKE ITAB OCCURS 0 WITH HEADER LINE.
DATA : V_PARENTID LIKE STPOX-VWEGX,
       V_WEGXX LIKE STPOX-WEGXX,
       V_STUFE LIKE STPOX-STUFE,
       PREV_STUFE LIKE STPOX-STUFE.
DATA : V_OFFSET TYPE I VALUE 1,
       V_CONTENT TYPE I,
       TABIX LIKE SY-TABIX,
       V_TABIX LIKE SY-TABIX,
       T_TABIX LIKE SY-TABIX,
       V_SYMBOL,
       V_LINE LIKE SY-TABIX,
       T_INDEX TYPE I.

DATA :  V_PAGE LIKE SY-PAGNO,
        T_PAGE LIKE SY-PAGNO,
        V_LIN LIKE SY-LILLI.


PARAMETERS : P_MATNR LIKE MAST-MATNR,
             P_WERKS LIKE MARC-WERKS.



PERFORM BOM_EXPLODE.
ITAB1[] = ITAB[].
READ TABLE ITAB1 INDEX 1.
APPEND ITAB1 TO ITAB2.
PERFORM PRINT TABLES ITAB2.
AT LINE-SELECTION.

  V_LIN = SY-LILLI.
  T_PAGE = V_PAGE.
  PREV_STUFE = ITAB2-STUFE.
  V_STUFE = ITAB2-STUFE + 1.
  V_WEGXX = ITAB2-WEGXX.
  V_SYMBOL = ITAB2-SYMBOL.
  IF ITAB2-SYMBOL = '+'.
    ITAB2-SYMBOL = '-'.
    MODIFY ITAB2 INDEX V_TABIX.
  ELSEIF ITAB2-SYMBOL = '-'.
    ITAB2-SYMBOL = '+'.
    MODIFY ITAB2 INDEX V_TABIX.

  ENDIF.


  LOOP AT ITAB WHERE STUFE = V_STUFE AND VWEGX = V_WEGXX.


    V_TABIX = V_TABIX + 1.
    IF V_SYMBOL = '+'.

      MOVE-CORRESPONDING ITAB TO ITAB2.
      ITAB2-SYMBOL = '+'.

      INSERT ITAB2 INDEX V_TABIX.
    ELSEIF V_SYMBOL = '-'.
     IF V_TABIX GT 2.
      LOOP AT ITAB2 FROM V_TABIX WHERE STUFE = PREV_STUFE.
        T_TABIX = SY-TABIX.

        T_TABIX = T_TABIX - 1.
        EXIT.
      ENDLOOP.
       IF V_TABIX LE T_TABIX.

        DELETE ITAB2 FROM V_TABIX TO T_TABIX.
       ELSE.
        LOOP AT ITAB2 FROM V_TABIX.
*          T_TABIX = T_TABIX + 1.
          IF ITAB2-STUFE GT PREV_STUFE.
           DELETE ITAB2 INDEX SY-TABIX.
          ELSE.
            EXIT.
          ENDIF.
        ENDLOOP.
*        DELETE ITAB2 FROM V_TABIX WHERE STUFE LT V_STUFE.

       ENDIF.
       EXIT.

      ELSE.
        DELETE ITAB2 FROM V_TABIX.
        EXIT.
      ENDIF.
    ENDIF.
  ENDLOOP.

  SY-LSIND = 0.
  T_INDEX = 1.
  PERFORM PRINT TABLES ITAB2.
  SCROLL LIST INDEX T_INDEX TO PAGE T_PAGE . " LINE V_LIN .




*&---------------------------------------------------------------------*
*&      Form  BOM_EXPLODE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BOM_EXPLODE .

  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
    EXPORTING
      CAPID                 = 'PP01'
      DATUV                 = SY-DATUM
      MEHRS                 = 'X'
      MTNRV                 = P_MATNR
      WERKS                 = P_WERKS
    TABLES
      STB                   = I_BOM
    EXCEPTIONS
      ALT_NOT_FOUND         = 1
      CALL_INVALID          = 2
      MATERIAL_NOT_FOUND    = 3
      MISSING_AUTHORIZATION = 4
      NO_BOM_FOUND          = 5
      NO_PLANT_DATA         = 6
      NO_SUITABLE_BOM_FOUND = 7
      CONVERSION_ERROR      = 8
      OTHERS                = 9.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  ITAB-IDNRK = P_MATNR.
  ITAB-MENGE = '1'.
  ITAB-STUFE = '0'.
  ITAB-WEGXX = '0'.
  ITAB-TTIDX = '0'.
  ITAB-VWEGX = '-1'.
  ITAB-SYMBOL = '+'.
  APPEND ITAB.
  CLEAR ITAB.

  LOOP AT I_BOM.
    MOVE-CORRESPONDING I_BOM TO ITAB.
    APPEND ITAB.
    CLEAR ITAB.
  ENDLOOP.

ENDFORM.                    " BOM_EXPLODE
*&---------------------------------------------------------------------*
*&      Form  PRINT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ITAB1  text
*----------------------------------------------------------------------*
FORM PRINT  TABLES   P_ITAB1 STRUCTURE ITAB.
  DATA : V_ID LIKE STPOX-VWEGX.
  DATA : T_LINE LIKE SY-TABIX,
         V_LINE TYPE I,
         V_HLINE TYPE I.


  DATA : PAGE TYPE I.
  DESCRIBE TABLE P_ITAB1 LINES V_LINE.

  T_LINE = V_LINE - 1.
  LOOP AT P_ITAB1.
    V_OFFSET = P_ITAB1-STUFE * 3.
    V_CONTENT = P_ITAB1-STUFE * 6.

    V_LINE = P_ITAB1-STUFE * 4.
    IF P_ITAB1-STUFE NE 0.
      V_HLINE = V_LINE + 2.
    ELSE.
      V_HLINE = 2.
    ENDIF.

*    T_INDEX = T_INDEX + 1.
    COMPUTE PAGE = SY-TABIX MOD 13.
    IF PAGE EQ 0.
      NEW-PAGE.
      V_PAGE = SY-PAGNO.
*     T_INDEX = 0.
    ENDIF.


    V_TABIX = SY-TABIX.
    IF P_ITAB1-SYMBOL = '+'.

       WRITE : /.

        WRITE AT : V_OFFSET  SYM_PLUS_FOLDER AS SYMBOL
                COLOR 4 INTENSIFIED HOTSPOT.
        WRITE : AT V_CONTENT P_ITAB1-IDNRK,P_ITAB1-MENGE.

      HIDE : P_ITAB1,V_TABIX,V_PAGE.


    ELSEIF P_ITAB1-SYMBOL = '-'.
      WRITE : /.
      WRITE AT V_OFFSET SYM_MINUS_FOLDER AS SYMBOL
                COLOR 4 INTENSIFIED HOTSPOT.

      WRITE : AT V_CONTENT P_ITAB1-IDNRK,P_ITAB1-MENGE.
      HIDE : P_ITAB1,V_TABIX,V_PAGE.


    ENDIF.
  ENDLOOP.

ENDFORM.                    " PRINT

regards

shiba dutta

[Former Member]

Hi Shiba,

Thanks for this program,I need program for Dialog module.

The requirement is Single click on the node of Simple tree control.Which method and event of simple tree we use for trigger this event.

Thanks.

Ankur Garg.

[Former Member]

Hi,

see code :

REPORT  Z_TREE_SO_FLOWCHART  MESSAGE-ID Z7NEW.
*----------------------------------------------------------------------*
* TYPES
*----------------------------------------------------------------------*

TYPE-POOLS: FIBS,
            STREE.

DATA: RAPI_NODE TYPE SNODETEXT,
      RAVI_TAB LIKE RAPI_NODE OCCURS 0 WITH HEADER LINE,
      PATIL_TAB LIKE RAPI_NODE OCCURS 0 WITH HEADER LINE.

DATA: F15 TYPE C.

*----------------------------------------------------------------------*
* INITIALIZATION EVENT
*----------------------------------------------------------------------*

INITIALIZATION.

CLEAR: RAVI_TAB, RAVI_TAB[],
       PATIL_TAB, PATIL_TAB[].

*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.

RAVI_TAB-TYPE = 'T'.
RAVI_TAB-NAME = 'FLOW CHART OF SALES ORDER '.
RAVI_TAB-TLEVEL = '01'.
RAVI_TAB-NLENGTH = '30'.
RAVI_TAB-COLOR = '4'.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.


RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'INQUIRY'.
RAVI_TAB-TLEVEL = '02'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '6'.
RAVI_TAB-TEXT = ' INQUIRY '.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 6.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'QUATION'.
RAVI_TAB-TLEVEL = '03'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '9'.
RAVI_TAB-TEXT = ' QUATION '.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 9.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = ' SO PROCESSING '.
RAVI_TAB-TLEVEL = '04'.
RAVI_TAB-NLENGTH = '15'.
RAVI_TAB-COLOR = '4'.
RAVI_TAB-TEXT = 'SALES ORDER PROCESSING'.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 4.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'DELIVERY'.
RAVI_TAB-TLEVEL = '05'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '7'.
RAVI_TAB-TEXT = ' DELIVERY '.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 7.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'PICKING'.
RAVI_TAB-TLEVEL = '06'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '6'.
RAVI_TAB-TEXT = 'PICKING MATERIAL'.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 6.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'PACKING'.
RAVI_TAB-TLEVEL = '06'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '5'.
RAVI_TAB-TEXT = 'PACKING MATERIAL'.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 5.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'PGI'.
RAVI_TAB-TLEVEL = '06'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '4'.
RAVI_TAB-TEXT = 'POST GOODS ISSUE'.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 4.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'DELIVERY'.
RAVI_TAB-TLEVEL = '05'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '3'.
RAVI_TAB-TEXT = ' DELIVERY '.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 3.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'BILLING'.
RAVI_TAB-TLEVEL = '07'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '2'.
RAVI_TAB-TEXT = ' BILLING DOCUMENT (INVOICE) '.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 2.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

RAVI_TAB-TYPE = 'S'.
RAVI_TAB-NAME = 'FI'.
RAVI_TAB-TLEVEL = '08'.
RAVI_TAB-NLENGTH = '10'.
RAVI_TAB-COLOR = '5'.
RAVI_TAB-TEXT = ' FINANCE ACCOUNTING DOCUMENT '.
RAVI_TAB-TLENGTH ='50'.
RAVI_TAB-TCOLOR = 5.
APPEND RAVI_TAB.
CLEAR RAVI_TAB.

*----------------------------------------------------------------------*
* FUNCTION CALL
*----------------------------------------------------------------------*

CALL FUNCTION 'RS_TREE_CONSTRUCT'
* EXPORTING
*   INSERT_ID                = '000000'
*   RELATIONSHIP             = ' '
*   LOG                      =
  TABLES
    nodetab                  = RAVI_TAB
* EXCEPTIONS
*   TREE_FAILURE             = 1
*   ID_NOT_FOUND             = 2
*   WRONG_RELATIONSHIP       = 3
*   OTHERS                   = 4
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
* EXPORTING
*   CALLBACK_PROGRAM                =
*   CALLBACK_USER_COMMAND           =
*   CALLBACK_TEXT_DISPLAY           =
*   CALLBACK_MOREINFO_DISPLAY       =
*   CALLBACK_COLOR_DISPLAY          =
*   CALLBACK_TOP_OF_PAGE            =
*   CALLBACK_GUI_STATUS             =
*   CALLBACK_CONTEXT_MENU           =
*   STATUS                          = 'IMPLICIT'
*   CHECK_DUPLICATE_NAME            = '1'
*   COLOR_OF_NODE                   = '4'
*   COLOR_OF_MARK                   = '3'
*   COLOR_OF_LINK                   = '1'
*   COLOR_OF_MATCH                  = '5'
*   LOWER_CASE_SENSITIVE            = ' '
*   MODIFICATION_LOG                = ' '
*   NODE_LENGTH                     = 30
*   TEXT_LENGTH                     = 75
*   TEXT_LENGTH1                    = 0
*   TEXT_LENGTH2                    = 0
*   RETURN_MARKED_SUBTREE           = ' '
*   SCREEN_START_COLUMN             = 0
*   SCREEN_START_LINE               = 0
*   SCREEN_END_COLUMN               = 0
*   SCREEN_END_LINE                 = 0
*   SUPPRESS_NODE_OUTPUT            = ' '
*   LAYOUT_MODE                     = ' '
*   USE_CONTROL                     = f
 IMPORTING
   F15                             = F15.

reward if useful.