Copy Customizing Path

[cervantes_nicols]

Hello,

I developed useful functionality for SPRO

I detected that is common the necessity of copy IMG path when you navigated of SPRO Tree Customizing .

With the following code you can copy the path very easy

The change is only apply in Developer System and is necessary register one standard object.

• Step 1: Add customer Button in Status GUI IMG_DISP of Function Group S_IMG_TOOL_1.

Register the object in Marketplace, before the changes apply

• Create a Custom Function Code "ZCOPY_P"

Add custom Function Code "ZCOPY_P"

• Add Custom Code Functions in Interface and Key Function

• Step 2: Insert Implicit Enhancement in INCLUDE: LSHI01F0X - end of FORM  execute_user_command
  

• Step 3: Add the following ABAP code and active the implicit enhancement

DATA: lv_nodekey TYPE tv_nodekey ,

      le_item TYPE shi_item,

      le_node TYPE treev_node,

      lv_relatkey TYPE tv_nodekey,

      lv_text(500) TYPE c ,

      lv_relatship_ant TYPE int4,

      lt_path TYPE STANDARD TABLE OF char100,

      le_path TYPE char100,

      lv_choise TYPE  sy-tabix.



CASE fcode.

  WHEN 'ZCOPY_P'.

    CHECK g_tree_data->tree IS NOT INITIAL.

    READ TABLE g_tree_data->nodes INTO le_node WITH KEY node_key =  g_tree_data->node_key  .

    CHECK sy-subrc = 0.

    READ TABLE g_tree_data->items INTO le_item WITH KEY node_key =  g_tree_data->node_key  item_name = 'TEXT'.

    CHECK sy-subrc = 0.

    le_path =  le_item-text.

    APPEND le_path TO lt_path.

    lv_relatkey  = le_node-relatkey.

    lv_relatship_ant = le_node-relatship.

    WHILE lv_relatkey IS NOT INITIAL.



      READ TABLE g_tree_data->nodes INTO le_node WITH KEY node_key =  lv_relatkey .



      READ TABLE g_tree_data->items INTO le_item WITH KEY node_key =  le_node-node_key item_name = 'TEXT' .



      lv_relatkey = le_node-relatkey .



      IF  le_item-text IS NOT INITIAL AND  lv_relatship_ant = '4'.

        CONCATENATE le_item-text '->' INTO le_path.

*        le_path =  le_item-text.

        INSERT le_path INTO lt_path  INDEX 1.

      ENDIF.

      lv_relatship_ant =  le_node-relatship..

    ENDWHILE.



    CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

      EXPORTING

        endpos_col   = 130

        endpos_row   = 10

        startpos_col = 40

        startpos_row = 1

        titletext    = 'Ruta de Configuración'

*      IMPORTING

*        choise       = lv_choise

      TABLES

        valuetab     = lt_path

      EXCEPTIONS

        break_off    = 1

        OTHERS       = 2.

    IF sy-subrc <> 0.

* Implement suitable error handling here

    ENDIF.

• Step 4: Active all objects and test de functionality. TCode SPRO--> F5 --> "Copy IMG Path"