Scaling in F.01 with ALV Tree Control

Hi Experts,
Is there any possibility of generating the financial statements in F.01 in ALV tree control with amount scaled to 3 or 5 zero's. When i try to use ALV with scaling, the scaling is reset to 0
Thanks in Advance

Nelow message will appear and not possible technically
Output option ALV Tree Control: Parameter Scaling set to 0/0
Message no. FR098
Diagnosis
You selected output option ALV Tree Control. For technical reasons, only the value 0/0 is possible for the parameter Scaling.
System Response
Parameter Scaling set to the value 0/0.
Procedure
If you want to compare the program output for output options ALV Tree Control and Classical list, you have to also set the parameter Scaling to '0/0' when running the program with output option Classical list.

Similar Messages

TRIAL BALANCE WITH ALV TREE CONTROL

Hi Friends,
My manager wants to see trial balance with cost centers like ALV tree control display.
Does SAP have any Std trial balance report which can show cost centers also for accounts and activities within those cost centers.
Please help.
Thanks

Nelow message will appear and not possible technically
Output option ALV Tree Control: Parameter Scaling set to 0/0
Message no. FR098
Diagnosis
You selected output option ALV Tree Control. For technical reasons, only the value 0/0 is possible for the parameter Scaling.
System Response
Parameter Scaling set to the value 0/0.
Procedure
If you want to compare the program output for output options ALV Tree Control and Classical list, you have to also set the parameter Scaling to '0/0' when running the program with output option Classical list.

Report with ALV tree and ALV list?

I need to create a report with layout as same as this one
[http://trangiegie.com/MyFile/output.JPG]
It looks like a report with combination of ALV tree and list. The tree works like a navigation bar. Wonder if there are any demo programs like this. Will appreciate any help.

For Tree alone - You can check program : BCALV_TREE_02
Program Name                   Report title
BCALV_GRID_DND_TREE            ALV Grid: Drag and Drop with ALV Tree
BCALV_GRID_DND_TREE_SIMPLE     ALV GRID: Drag and drop with ALV tree (simple)
BCALV_TEST_COLUMN_TREE         Program BCALV_TEST_COLUMN_TREE
BCALV_TEST_SIMPLE_TREE         Program BCALV_TEST_SIMPLE_TREE
BCALV_TREE_01                  ALV Tree Control: Build Up the Hierarchy Tree
BCALV_TREE_02                  ALV Tree Control: Event Handling
BCALV_TREE_03                  ALV Tree Control: Use an Own Context Menu
BCALV_TREE_04                  ALV Tree Control: Add a Button to the Toolbar
BCALV_TREE_05                  ALV Tree Control: Add a Menu to the Toolbar
BCALV_TREE_06                  ALV tree control: Icon column and icon for nodes/items
BCALV_TREE_DEMO                Demo for ALV tree control
BCALV_TREE_DND                 ALV tree control: Drag & Drop within a hierarchy tree
BCALV_TREE_DND_MULTIPLE        ALV tree control: Drag & Drop within a hierarchy tree
BCALV_TREE_EVENT_RECEIVER      Include BCALV_TREE_EVENT_RECEIVER
BCALV_TREE_EVENT_RECEIVER01
BCALV_TREE_ITEMLAYOUT          ALV Tree: Change Item Layouts at Runtime
BCALV_TREE_MOVE_NODE_TEST      Demo for ALV tree control
BCALV_TREE_SIMPLE_DEMO         Program BCALV_TREE_SIMPLE_DEMO
BCALV_TREE_VERIFY              Verifier for ALV Tree and Simple ALV Tree

ALV TREE CONTROL

Hi experts,
How to create tree node with folder symbol dynamically in alv tree control.
Thanks
Ramesh VR

It is just a tree structure display in ALV output mode
BCALV_TREE_DEMO Demo program for ALV tree control
Many times in Finance there are requirements where User wants to see balance sheet report based on cost center groups and cost centres within it in this form

S_ALR_87012284 - List Output - ALV Tree Control

Dear Friends,
In Standard Financial statement report when I use List output -> ALV Tree Control lay out. In the display area is it possible to save the expanded folders in lay out. So that next time when I run the report with the same ALV Tree Contorl lay out, I would like to see folders expanded.
Thanks,
Venky

Hi Venky,
There is no way to have expanded tree list. You must hit Expand tree button to.
You can also use ttrasaction code F.01 for balance sheet.
Best regards

Exending SAME ALV tree control to different screens

Hi Experts,
I have to extend same ALV tree control to other different screens:
For exmaple:
I have screen 100 in that I have splitter control on Left ( say TREE_LEFT) which has ALV tree (ref to CL_GUI_ALV_TREE).
The same Tree I want to show it in Screen 200 with the same reference(TREE_LEFT) ..I do not want to create another rererence to for the same tree control, as I have to show the same tree display in screen 200 also.
Please suggest.
Regards,
Sathishkumar.V

Hi Sathish,
You are passing the Data to the Screen 100,200,..... by using ALV_GRID OO concept.so the screen is not a constant one.
It is possible to pass the Data (Based on the ALV_TREE user selection) and Modify the Screen dynamically by designing the Fieldcat.
So use only one screen may it 100 or 200 and then Pass data based on the user selection from the Tree control.
For Example Go to TCODE WE02 Execute it will appear one ALV Tree, Based on the Idocs in the Left side tree then screen will display the dynamic Data.
Thanks,
Kanagaraja .L

Report with Dynamic tree control

I have a report with a TREE CONTROL.

A Tree is referenced to: CL_GUI_ALV_TREE_SIMPLE and is located on the left side of the screen.

See diagram below. The Tree has MULTI-LEVEL nodes and the user can click on any of the nodes which will
trigger a report (rellevant for that node) to appear in the REPORT container.

Everythign is working fine.

I now have a requirement to add a TREE ON/OFF functionality. I have added this by 'Freeing' TREE
container and by initializing when the user Turns ON the TREE. It is working fine, HOWEVER, when
it initilizes the TREE it is COLLAPSED and obviously does not point to the NODE that was clicked.

My goal is to retain the value of the NODE that was pressed and EXPAND the tree to that node and
highlight it... Please note that I have MULTI-LEVEL nodes and the user can double click on NODES
and ITEMS.

I tried using GET_SELECTED_NODES, but it only works if the user selects the LOWEST level node/item.

Any advise will be appreciated.

Also, as an alternative, I was thinking of resizing TREE container to WIDTH of 1 when the user PRESSES
TREE OFF and resizing back to width 200 when the user presses TREE ON. I could not find any methods
that would work with CL_GUI_DOCKING_CONTAINER.
Please help! Thank you in advance.
 
 
<img src="http://img237.imageshack.us/img237/6684/bdccz3.jpg" border="0"/></a>



I have a report with a TREE CONTROL.

A Tree is referenced to: CL_GUI_ALV_TREE_SIMPLE and is located on the left side of the screen.

See diagram below. The Tree has MULTI-LEVEL nodes and the user can click on any of the nodes which will
trigger a report (rellevant for that node) to appear in the REPORT container.

Everythign is working fine.

I now have a requirement to add a TREE ON/OFF functionality. I have added this by 'Freeing' TREE
container and by initializing when the user Turns ON the TREE. It is working fine, HOWEVER, when
it initilizes the TREE it is COLLAPSED and obviously does not point to the NODE that was clicked.

My goal is to retain the value of the NODE that was pressed and EXPAND the tree to that node and
highlight it... Please note that I have MULTI-LEVEL nodes and the user can double click on NODES
and ITEMS.

I tried using GET_SELECTED_NODES, but it only works if the user selects the LOWEST level node/item.

Any advise will be appreciated.

Also, as an alternative, I was thinking of resizing TREE container to WIDTH of 1 when the user PRESSES
TREE OFF and resizing back to width 200 when the user presses TREE ON. I could not find any methods
that would work with CL_GUI_DOCKING_CONTAINER.
Please help! Thank you in advance.
 
 
<img src="http://img237.imageshack.us/img237/6684/bdccz3.jpg" border="0"/></a>

Help required in ALV Tree Control

Hi All,
I am using OO ALV tree Control in my Project every thing is working fine.
in treecontrol 'If we double click on Node I con it displays resultant screen'- its fine for us
'If we double click on Node Text it is displaying nothing means no Event is triggering.
my Requirement is tha 'it should work even if we click on Node Text' . Like in standard Applications SE15 .
Suggest some Methods regarding this. Note All these nodes are Dynamic Nodes comes from Data Base table.
Thanks in Adv.
Murthy

Just check Tcode: DWDM.
Good no of example programs for oops tree are available there

How to avoid multiple selection in ALV tree control?

Hi,
Experts,
I want to avoid multiple selections on Alv tree control after pressing control keyboard button(Ctrl). Even by pressing Ctrl keyword button i want to select only one row of a Alv tree control.i have used cl_salv_tree class for it is there any method to achieve this please pass some code/idea on it.
Thanks in advance,
Shabeer ahmed.

I haven't tried it before but it should help.
[https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/cda3992d-0e01-0010-90b2-c4e1f899ac01|https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/cda3992d-0e01-0010-90b2-c4e1f899ac01]

GL Account analysis report with ALV Grid control

Hi Everyone,
I am looking for a GL Account analysis report with ALV Grid Control.
Can I get sample code for this report.
Thank you
Prasad

Hi Rob,
Actually, I am searching for a Report which gives GL account analysis.
If anybody can throw more light on this ...it would be great.
Which Tables and fields i should refer for this report.
Thanks

How to works with a tree control in LV7.1

Hi,
I am needing some help with a tree control.
I have a tree control with two colluns, and I would like to double click on a item in the first collun and this iten
must be send to the second collun in the first blank line avaible.
Can you guys help me with that ?
Thanks
Eduardo

Hi
what erectly the problem is ?
Things are same in CE 7.1 also.
Check this [thread|Help on WebDynpro - Tree Structure in a Table;
BR
Satish Kumar
Edited by: satish jhariya on Mar 3, 2009 11:35 AM

Is it possible to create a pop up screen with alv tree within it?

I was wondering whether it is possible to create a pop up screen where an ALV tree is within the pop up screen and the user may select a record from it..
is there a function module for such function?

you may use class cl_gui_alv_tree and display it in a popup screen. Look at RSDEMO_DIALOGBOX_CONTROL program (popup + cl_gui_picture control), and you combine it with BCALV_TREE_04 (cl_gui_alv_tree) to replace cl_gui_picture. You may access all demos from menu SE38, Environment, Examples (and finally Controls Examples in your case)

Drag and Drop between two ALV Tree Controls

Hello all,
I have designed a spilt control of two ALV Trees using CL_GUI_ALV_TREE.
I have a top node as the Sales order Number and the child node as the items belonging to that sales order number.
Now i need to drag and drop the lines from one sales order to another.
Also these drag drop can take place between the nodes of the two different trees.
Can someone provide with a detail example as i need to complete the same urgently.
Regards,
Arun

Once check the Below code For tree to tree drag an drop
*       CLASS lcl_main DEFINITION
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
* Types
    TYPES:
            BEGIN OF t_ekpo,
              ebeln TYPE ebeln,
              ebelp TYPE ebelp,
            END OF    t_ekpo.
    TYPES:
            BEGIN OF t_vbap,
              vbeln TYPE vbeln,
              posnr TYPE vbelp,
            END OF    t_vbap.
* Internal Tables
    DATA:
          i_ekpo        TYPE STANDARD TABLE OF t_ekpo,
          i_ekpo_op     TYPE STANDARD TABLE OF t_ekpo,
          i_vbap        TYPE STANDARD TABLE OF t_vbap,
          i_vbap_op     TYPE STANDARD TABLE OF t_vbap,
          i_fcat_ekpo   TYPE                   lvc_t_fcat,
          i_fcat_vbap   TYPE                   lvc_t_fcat.
* Work Areas
    DATA:
          wa_ekpo   TYPE t_ekpo,
          wa_ekpo1 TYPE t_ekpo,
          wa_vbap   TYPE t_vbap,
          wa_vbap1 TYPE t_vbap.
* Data Declarations
    DATA:
          g_ebeln TYPE ebeln,
          g_vbeln TYPE vbeln_va.
    DATA: g_variant          TYPE disvariant,
          g_hierarchy_header TYPE treev_hhdr,
          g_handle_drag      TYPE i,
          g_handle_drop      TYPE i.
* Class data
    DATA:
          splitter    TYPE REF TO cl_gui_splitter_container,
          container   TYPE REF TO cl_gui_custom_container,
          container_1 TYPE REF TO cl_gui_container,
          container_2 TYPE REF TO cl_gui_container,
          tree1       TYPE REF TO cl_gui_alv_tree,
          tree2       TYPE REF TO cl_gui_alv_tree,
          g_drag      TYPE REF TO cl_dragdrop,
          g_drop      TYPE REF TO cl_dragdrop.
* Constants
    CONSTANTS:
              c_30(2) TYPE c VALUE '30'.
* Methods
    METHODS:
              get_data,                          " Data Fatch
              build_display,                     " Display Container
              display_ekpo,                      " Ekpo table display
              display_vbap,                      " Vbap table display
              add_node_ekpo                      " Add node to Ekpo
                IMPORTING table TYPE t_ekpo
                          key    TYPE lvc_nkey
                          text   TYPE lvc_value
                          flag   TYPE c
                CHANGING i_key TYPE lvc_nkey,
              add_node_vbap                      " Add node to vbap
                IMPORTING table TYPE t_vbap
                          key    TYPE lvc_nkey
                          text   TYPE lvc_value
                          flag   TYPE c
                CHANGING i_key TYPE lvc_nkey,
              dnd_behaviour,                     " Drag and drop behavour
              register_events_ekpo,              " Register Events Ekpo
              register_events_vbap,              " Register events vbap
              handle_drag_multiple               " Drag Multiple Values
                 FOR EVENT on_drag_multiple
                 OF cl_gui_alv_tree
                 IMPORTING sender node_key_table fieldname drag_drop_object,
              handle_drop                        " Drop the values
                 FOR EVENT on_drop
                 OF cl_gui_alv_tree
                 IMPORTING sender node_key drag_drop_object,
              add_node_drop                      " Add node to Drop Node
                IMPORTING table TYPE t_ekpo
                          key    TYPE lvc_nkey
                          text   TYPE lvc_value
                CHANGING i_key TYPE lvc_nkey.
ENDCLASS.                                        " Lcl_main DEFINITION
*       CLASS LCL_DRAGOBJ DEFINITION
* Drag And drop Structure
CLASS lcl_dragobj DEFINITION INHERITING FROM lcl_main FINAL.
PUBLIC SECTION.
* Types
    TYPES: BEGIN OF t_node_info,
              l_ekpo      TYPE t_ekpo,
              l_node_text TYPE lvc_value,
              l_node_key TYPE lvc_nkey,
           END OF t_node_info.
* Data
    DATA: i_node_info TYPE TABLE OF t_node_info,
          wa_node_info TYPE t_node_info.
ENDCLASS.                                        " LCL_DRAGOBJ DEFINITION
* Object Declarations
DATA obj_main TYPE REF TO lcl_main.
* Initialization                                                     *
INITIALIZATION.
CREATE OBJECT obj_main.
* Selection Screen                                                   *
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME.
SELECT-OPTIONS:
                  s_ebeln FOR obj_main->g_ebeln,
                  s_vbeln FOR obj_main->g_vbeln MATCHCODE OBJECT cs_vbeln.
SELECTION-SCREEN END OF   BLOCK block1.
* Start of Selection                                                 *
START-OF-SELECTION.
* Call Screen
CALL SCREEN 100.
*       CLASS lcl_main IMPLEMENTATION
* Local class Implementation
CLASS lcl_main IMPLEMENTATION.
* Get Data                                                           *
METHOD get_data.
* Data from Ekpo
    SELECT ebeln
            ebelp
      FROM ekpo
      UP TO 100 ROWS
      INTO TABLE i_ekpo
     WHERE ebeln IN s_ebeln.
* Data from Vbap
    SELECT vbeln
            posnr
      FROM vbap
      UP TO 100 ROWS
      INTO TABLE i_vbap
     WHERE vbeln IN s_vbeln.
ENDMETHOD.                                     " Get_data
* Build Display                                                      *
METHOD build_display.
* Create Container
    CREATE OBJECT container
      EXPORTING
        container_name = 'CUST_CONT'.
* Split the container
    CREATE OBJECT splitter
      EXPORTING
        parent = container
        rows    = 1
        columns = 2.
    CALL METHOD splitter->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = container_1.
    CALL METHOD splitter->get_container
      EXPORTING
        row       = 1
        column    = 2
      RECEIVING
        container = container_2.
* create tree control
    CREATE OBJECT tree1
      EXPORTING
        parent                      = container_1
        node_selection_mode         = cl_gui_column_tree=>node_sel_mode_multiple
        item_selection              = 'X'
        no_html_header              = 'X'
        no_toolbar                  = 'X'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        illegal_node_selection_mode = 5
        failed                      = 6
        illegal_column_name         = 7.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
    CREATE OBJECT tree2
      EXPORTING
        parent                      = container_2
        node_selection_mode         = cl_gui_column_tree=>node_sel_mode_multiple
        item_selection              = 'X'
        no_html_header              = 'X'
        no_toolbar                  = 'X'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        illegal_node_selection_mode = 5
        failed                      = 6
        illegal_column_name         = 7.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
    g_variant-report      = sy-repid.
    g_variant-handle      = space.
    g_variant-log_group   = space.
    g_variant-username    = space.
    g_variant-text        = space.
    g_variant-dependvars = space.
* Call method for get data
    CALL METHOD get_data.
* Drap And Drop behaviour method
    CALL METHOD dnd_behaviour.
* Display the Ekpo table
    CALL METHOD obj_main->display_ekpo.
* Diaplay the vbap table
    CALL METHOD obj_main->display_vbap.
    CALL METHOD tree1->frontend_update.
    CALL METHOD tree2->frontend_update.
ENDMETHOD.                                     " Build_display
* Display EKPO                                                       *
METHOD display_ekpo.
* Data
    DATA:
          l_key1 TYPE lvc_nkey,
          l_key2 TYPE lvc_nkey,
          l_key3 TYPE lvc_nkey,
          l_node_text TYPE lvc_value.
* ALV control service modules
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = 'X'
        i_structure_name       = 'EKPO'
        i_client_never_display = 'X'
        i_bypassing_buffer     = space
      CHANGING
        ct_fieldcat            = i_fcat_ekpo
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    IF sy-subrc EQ 0.
      DELETE i_fcat_ekpo FROM 4.
    ENDIF.                                       " IF sy-subrc EQ 0.
    g_hierarchy_header-heading = 'Purchase Order Details'(001).
    g_hierarchy_header-tooltip = 'Purchase Order'(002).
    g_hierarchy_header-width = c_30.
    g_hierarchy_header-width_pix = ' '.
* Diaply
    CALL METHOD tree1->set_table_for_first_display
      EXPORTING
        is_hierarchy_header = g_hierarchy_header
        is_variant          = g_variant
      CHANGING
        it_outtab           = obj_main->i_ekpo_op
        it_fieldcatalog     = i_fcat_ekpo.
    LOOP AT i_ekpo INTO wa_ekpo1.
      MOVE wa_ekpo1 TO wa_ekpo.
      l_key1 = ''.
      AT NEW ebeln.
        MOVE wa_ekpo-ebeln TO l_node_text.
* Call method for Add Node to Ekpo
        CALL METHOD add_node_ekpo
          EXPORTING
            table = wa_ekpo
            key   = l_key1
            text = l_node_text
            flag = space
          CHANGING
            i_key = l_key2.
      ENDAT.
      CLEAR l_node_text.
      MOVE wa_ekpo-ebelp TO l_node_text.
* Call method for Add Node to Ekpo
      CALL METHOD add_node_ekpo
        EXPORTING
          table = wa_ekpo
          key   = l_key2
          text = l_node_text
          flag = 'X'
        CHANGING
          i_key = l_key3.
    ENDLOOP.                                     " LOOP AT i_ekpo INTO wa_ekpo1.
* Call method For Register events
    CALL METHOD register_events_ekpo.
ENDMETHOD.                                     " Display_ekpo
* Display VBAP                                                       *
METHOD display_vbap.
* Data
    DATA:
       l_key1 TYPE lvc_nkey,
       l_key2 TYPE lvc_nkey,
       l_key3 TYPE lvc_nkey,
       l_node_text TYPE lvc_value.
    REFRESH i_fcat_vbap.
* ALV control service modules
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = 'X'
        i_structure_name       = 'VBAP'
        i_client_never_display = 'X'
        i_bypassing_buffer     = space
      CHANGING
        ct_fieldcat            = i_fcat_vbap
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    IF sy-subrc EQ 0.
      DELETE i_fcat_vbap FROM 4.
    ENDIF.                                       " IF sy-subrc EQ 0.
    g_hierarchy_header-heading = 'Sales Order Details'(003).
    g_hierarchy_header-tooltip = 'Sales Order'(004).
    g_hierarchy_header-width = c_30.
    g_hierarchy_header-width_pix = ' '.
* Display
    CALL METHOD tree2->set_table_for_first_display
      EXPORTING
        is_hierarchy_header = g_hierarchy_header
        is_variant          = g_variant
      CHANGING
        it_outtab           = obj_main->i_vbap_op
        it_fieldcatalog     = i_fcat_vbap.
    LOOP AT i_vbap INTO wa_vbap1.
      MOVE wa_vbap1 TO wa_vbap.
      l_key1 = ''.
      AT NEW vbeln.
        MOVE wa_vbap-vbeln TO l_node_text.
* Call method for Add Node to vbap
        CALL METHOD add_node_vbap
          EXPORTING
            table = wa_vbap
            key   = l_key1
            text = l_node_text
            flag = 'X'
          CHANGING
            i_key = l_key2.
      ENDAT.
      CLEAR l_node_text.
      MOVE wa_vbap-posnr TO l_node_text.
* Call method for Add Node to vbap
      CALL METHOD add_node_vbap
        EXPORTING
          table = wa_vbap
          key   = l_key2
          text = l_node_text
          flag = space
        CHANGING
          i_key = l_key3.
    ENDLOOP.                                     " LOOP AT i_vbap INTO wa_vbap1.
* Call method For Register events
    CALL METHOD register_events_vbap.
ENDMETHOD.                                     " Display_vbap
* Add Node to Ekko                                                   *
METHOD add_node_ekpo.
* Data
    DATA: l_layout_node TYPE lvc_s_layn.
    IF flag = 'X'.
      l_layout_node-dragdropid = g_handle_drag.
    ENDIF.                                       " IF flag = 'X'.
*   Add node to tree1
    CALL METHOD tree1->add_node
      EXPORTING
        i_relat_node_key     = key
        i_relationship       = cl_gui_column_tree=>relat_last_child
        is_outtab_line       = table
        i_node_text          = text
        is_node_layout       = l_layout_node
      IMPORTING
        e_new_node_key       = i_key
      EXCEPTIONS
        relat_node_not_found = 1
        node_not_found       = 2
        OTHERS               = 3.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
ENDMETHOD.                                     " Add_node_ekpo
* Add Node to Vbap                                                   *
METHOD add_node_vbap.
* Data
    DATA: l_layout_node TYPE lvc_s_layn.
    IF flag = 'X'.
      l_layout_node-dragdropid = g_handle_drop.
    ENDIF.                                       " IF flag = 'X'.
* Add node for tree2
    CALL METHOD tree2->add_node
      EXPORTING
        i_relat_node_key     = key
        i_relationship       = cl_gui_column_tree=>relat_last_child
        is_outtab_line       = table
        i_node_text          = text
        is_node_layout       = l_layout_node
      IMPORTING
        e_new_node_key       = i_key
      EXCEPTIONS
        relat_node_not_found = 1
        node_not_found       = 2
        OTHERS               = 3.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
ENDMETHOD.                                     " Add_node_vbap
* Dnd behaviour                                                      *
METHOD dnd_behaviour.
* Data
    DATA: effect TYPE i,
          l_flavor TYPE c VALUE 'f'.
* For drag
    CREATE OBJECT g_drag.
    effect = cl_dragdrop=>copy.
    CALL METHOD g_drag->add
      EXPORTING
        flavor         = l_flavor
        dragsrc        = 'X'
        droptarget     = ' '
        effect         = effect
        effect_in_ctrl = effect.
    CALL METHOD g_drag->get_handle
      IMPORTING
        handle = g_handle_drag.
* For Drop
    CREATE OBJECT g_drop.
    effect = cl_dragdrop=>copy.
    CALL METHOD g_drop->add
      EXPORTING
        flavor         = l_flavor
        dragsrc        = ' '
        droptarget     = 'X'
        effect         = effect
        effect_in_ctrl = effect.
    CALL METHOD g_drop->get_handle
      IMPORTING
        handle = g_handle_drop.
ENDMETHOD.                                     " Dnd_behaviour
* register events                                                    *
METHOD register_events_ekpo.
* Data
    DATA: lt_events TYPE cntl_simple_events.
* Tree events registers ALV Tree
    CALL METHOD tree1->get_registered_events
      IMPORTING
        events = lt_events.
* Register events on frontend
    CALL METHOD tree1->set_registered_events
      EXPORTING
        events                    = lt_events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
* Event Handling
    SET HANDLER obj_main->handle_drag_multiple FOR tree1.
ENDMETHOD.                                     " Register_events_ekpo
* register events                                                    *
METHOD register_events_vbap.
* Data
    DATA: lt_events TYPE cntl_simple_events.
* Tree events registers ALV Tree
    CALL METHOD tree2->get_registered_events
      IMPORTING
        events = lt_events.
* Register events on frontend
    CALL METHOD tree2->set_registered_events
      EXPORTING
        events                    = lt_events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
* Event
    SET HANDLER obj_main->handle_drop FOR tree2.
ENDMETHOD.                                     " Register_events_vbap
* Handle drag multiple Values                                        *
METHOD handle_drag_multiple.
* Data
    DATA: dataobj       TYPE REF TO lcl_dragobj,
          l_node_key    TYPE lvc_nkey,
          l_ekpo        TYPE t_ekpo,
          l_node_text   TYPE lvc_value,
          l_node_layout TYPE lvc_s_layn.
* Create and fill dataobject for event ON_DROP.
    CREATE OBJECT dataobj.
* Loop the Node key Table
    LOOP AT node_key_table INTO l_node_key.
      CALL METHOD sender->get_outtab_line
        EXPORTING
          i_node_key     = l_node_key
        IMPORTING
          e_outtab_line = l_ekpo
          e_node_text    = l_node_text
          es_node_layout = l_node_layout.
      IF l_node_layout-isfolder NE 'X'.
        dataobj->wa_node_info-l_node_key = l_node_key.
        dataobj->wa_node_info-l_ekpo      = l_ekpo.
        dataobj->wa_node_info-l_node_text = l_node_text.
        APPEND dataobj->wa_node_info TO dataobj->i_node_info.
      ENDIF.                                     " IF l_node_layout-isfolder NE 'X'.
    ENDLOOP.                                     " LOOP AT node_key_table INTO l_node_key
    drag_drop_object->object = dataobj.
ENDMETHOD.                                     " Handle_drag_multiple
* Handle drop multiple Values                                        *
METHOD handle_drop.
    DATA: dataobj TYPE REF TO lcl_dragobj,
          l_new_key TYPE lvc_nkey,
          l_node_text TYPE lvc_value.
    CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
* ON_DROP
      dataobj ?= drag_drop_object->object.
      LOOP AT dataobj->i_node_info INTO dataobj->wa_node_info.
        MOVE dataobj->wa_node_info-l_node_text TO l_node_text.
* Call method for Add Node to vbap
        CALL METHOD add_node_drop
          EXPORTING
            table = dataobj->wa_node_info-l_ekpo
            key   = node_key
            text = l_node_text
          CHANGING
            i_key = l_new_key.
      ENDLOOP.                                   " LOOP AT dataobj->i_node_info INTO dataobj->wa_node_inf
* Expand the node
      CALL METHOD sender->expand_node
        EXPORTING
          i_node_key = node_key
      CALL METHOD sender->frontend_update.
    ENDCATCH.
    IF sy-subrc NE 0.
      CALL METHOD drag_drop_object->abort.
    ENDIF.                                       " IF sy-subrc NE 0
ENDMETHOD.                                     " Handle_drop
* Add Node to drop                                                   *
METHOD add_node_drop.
* Add node to drop tree
    CALL METHOD tree2->add_node
      EXPORTING
        i_relat_node_key     = key
        i_relationship       = cl_gui_column_tree=>relat_last_child
        is_outtab_line       = table
        i_node_text          = text
*       is_node_layout       = l_layout_node
      IMPORTING
        e_new_node_key       = i_key
      EXCEPTIONS
        relat_node_not_found = 1
        node_not_found       = 2
        OTHERS               = 3.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0
ENDMETHOD.                                     " Add_node_drop
ENDCLASS.                                        " lcl_main IMPLEMENTATION
*&      Module STATUS_0100 OUTPUT
* Screen 100 Pbo
MODULE status_0100 OUTPUT.
SET PF-STATUS 'BACK'.
* SET TITLEBAR 'xxx'.
CALL METHOD obj_main->build_display.
ENDMODULE.                                       " Status_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
* Screen 100 Pai
MODULE user_command_0100 INPUT.
IF sy-ucomm EQ 'BACK'.
    LEAVE TO SCREEN 0.
ENDIF.                                         " IF sy-ucomm EQ 'BACK'
ENDMODULE.                                       " USER_COMMAND_0100 INPUT
*& Report ZBPS_TREE_DRAG_DROP
REPORT zbps_tree_drag_drop.
*       CLASS lcl_main DEFINITION
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
* Types
    TYPES:
            BEGIN OF t_ekpo,
              ebeln TYPE ebeln,
              ebelp TYPE ebelp,
            END OF    t_ekpo.
    TYPES:
            BEGIN OF t_vbap,
              vbeln TYPE vbeln,
              posnr TYPE vbelp,
            END OF    t_vbap.
* Internal Tables
    DATA:
          i_ekpo        TYPE STANDARD TABLE OF t_ekpo,
          i_ekpo_op     TYPE STANDARD TABLE OF t_ekpo,
          i_vbap        TYPE STANDARD TABLE OF t_vbap,
          i_vbap_op     TYPE STANDARD TABLE OF t_vbap,
          i_fcat_ekpo   TYPE                   lvc_t_fcat,
          i_fcat_vbap   TYPE                   lvc_t_fcat.
* Work Areas
    DATA:
          wa_ekpo   TYPE t_ekpo,
          wa_ekpo1 TYPE t_ekpo,
          wa_vbap   TYPE t_vbap,
          wa_vbap1 TYPE t_vbap.
* Data Declarations
    DATA:
          g_ebeln TYPE ebeln,
          g_vbeln TYPE vbeln_va.
    DATA: g_variant          TYPE disvariant,
          g_hierarchy_header TYPE treev_hhdr,
          g_handle_drag      TYPE i,
          g_handle_drop      TYPE i.
* Class data
    DATA:
          splitter    TYPE REF TO cl_gui_splitter_container,
          container   TYPE REF TO cl_gui_custom_container,
          container_1 TYPE REF TO cl_gui_container,
          container_2 TYPE REF TO cl_gui_container,
          tree1       TYPE REF TO cl_gui_alv_tree,
          tree2       TYPE REF TO cl_gui_alv_tree,
          g_drag      TYPE REF TO cl_dragdrop,
          g_drop      TYPE REF TO cl_dragdrop.
* Constants
    CONSTANTS:
              c_30(2) TYPE c VALUE '30'.
* Methods
    METHODS:
              get_data,                          " Data Fatch
              build_display,                     " Display Container
              display_ekpo,                      " Ekpo table display
              display_vbap,                      " Vbap table display
              add_node_ekpo                      " Add node to Ekpo
                IMPORTING table TYPE t_ekpo
                          key    TYPE lvc_nkey
                          text   TYPE lvc_value
                          flag   TYPE c
                CHANGING i_key TYPE lvc_nkey,
              add_node_vbap                      " Add node to vbap
                IMPORTING table TYPE t_vbap
                          key    TYPE lvc_nkey
                          text   TYPE lvc_value
                          flag   TYPE c
                CHANGING i_key TYPE lvc_nkey,
              dnd_behaviour,                     " Drag and drop behavour
              register_events_ekpo,              " Register Events Ekpo
              register_events_vbap,              " Register events vbap
              handle_drag_multiple               " Drag Multiple Values
                 FOR EVENT on_drag_multiple
                 OF cl_gui_alv_tree
                 IMPORTING sender node_key_table fieldname drag_drop_object,
              handle_drop                        " Drop the values
                 FOR EVENT on_drop
                 OF cl_gui_alv_tree
                 IMPORTING sender node_key drag_drop_object,
              add_node_drop                      " Add node to Drop Node
                IMPORTING table TYPE t_ekpo
                          key    TYPE lvc_nkey
                          text   TYPE lvc_value
                CHANGING i_key TYPE lvc_nkey.
ENDCLASS.                                        " Lcl_main DEFINITION
*       CLASS LCL_DRAGOBJ DEFINITION
* Drag And drop Structure
CLASS lcl_dragobj DEFINITION INHERITING FROM lcl_main FINAL.
PUBLIC SECTION.
* Types
    TYPES: BEGIN OF t_node_info,
              l_ekpo      TYPE t_ekpo,
              l_node_text TYPE lvc_value,
              l_node_key TYPE lvc_nkey,
           END OF t_node_info.
* Data
    DATA: i_node_info TYPE TABLE OF t_node_info,
          wa_node_info TYPE t_node_info.
ENDCLASS.                                        " LCL_DRAGOBJ DEFINITION
* Object Declarations
DATA obj_main TYPE REF TO lcl_main.
* Initialization                                                     *
INITIALIZATION.
CREATE OBJECT obj_main.
* Selection Screen                                                   *
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME.
SELECT-OPTIONS:
                  s_ebeln FOR obj_main->g_ebeln,
                  s_vbeln FOR obj_main->g_vbeln MATCHCODE OBJECT cs_vbeln.
SELECTION-SCREEN END OF   BLOCK block1.
* Start of Selection                                                 *
START-OF-SELECTION.
* Call Screen
CALL SCREEN 100.
*       CLASS lcl_main IMPLEMENTATION
* Local class Implementation
CLASS lcl_main IMPLEMENTATION.
* Get Data                                                           *
METHOD get_data.
* Data from Ekpo
    SELECT ebeln
            ebelp
      FROM ekpo
      UP TO 100 ROWS
      INTO TABLE i_ekpo
     WHERE ebeln IN s_ebeln.
* Data from Vbap
    SELECT vbeln
            posnr
      FROM vbap
      UP TO 100 ROWS
      INTO TABLE i_vbap
     WHERE vbeln IN s_vbeln.
ENDMETHOD.                                     " Get_data
* Build Display                                                      *
METHOD build_display.
* Create Container
    CREATE OBJECT container
      EXPORTING
        container_name = 'CUST_CONT'.
* Split the container
    CREATE OBJECT splitter
      EXPORTING
        parent = container
        rows    = 1
        columns = 2.
    CALL METHOD splitter->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = container_1.
    CALL METHOD splitter->get_container
      EXPORTING
        row       = 1
        column    = 2
      RECEIVING
        container = container_2.
* create tree control
    CREATE OBJECT tree1
      EXPORTING
        parent                      = container_1
        node_selection_mode         = cl_gui_column_tree=>node_sel_mode_multiple
        item_selection              = 'X'
        no_html_header              = 'X'
        no_toolbar                  = 'X'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        illegal_node_selection_mode = 5
        failed                      = 6
        illegal_column_name         = 7.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
    CREATE OBJECT tree2
      EXPORTING
        parent                      = container_2
        node_selection_mode         = cl_gui_column_tree=>node_sel_mode_multiple
        item_selection              = 'X'
        no_html_header              = 'X'
        no_toolbar                  = 'X'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        illegal_node_selection_mode = 5
        failed                      = 6
        illegal_column_name         = 7.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
    g_variant-report      = sy-repid.
    g_variant-handle      = space.
    g_variant-log_group   = space.
    g_variant-username    = space.
    g_variant-text        = space.
    g_variant-dependvars = space.
* Call method for get data
    CALL METHOD get_data.
* Drap And Drop behaviour method
    CALL METHOD dnd_behaviour.
* Display the Ekpo table
    CALL METHOD obj_main->display_ekpo.
* Diaplay the vbap table
    CALL METHOD obj_main->display_vbap.
    CALL METHOD tree1->frontend_update.
    CALL METHOD tree2->frontend_update.
ENDMETHOD.                                     " Build_display
* Display EKPO                                                       *
METHOD display_ekpo.
* Data
    DATA:
          l_key1 TYPE lvc_nkey,
          l_key2 TYPE lvc_nkey,
          l_key3 TYPE lvc_nkey,
          l_node_text TYPE lvc_value.
* ALV control service modules
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = 'X'
        i_structure_name       = 'EKPO'
        i_client_never_display = 'X'
        i_bypassing_buffer     = space
      CHANGING
        ct_fieldcat            = i_fcat_ekpo
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    IF sy-subrc EQ 0.
      DELETE i_fcat_ekpo FROM 4.
    ENDIF.                                       " IF sy-subrc EQ 0.
    g_hierarchy_header-heading = 'Purchase Order Details'(001).
    g_hierarchy_header-tooltip = 'Purchase Order'(002).
    g_hierarchy_header-width = c_30.
    g_hierarchy_header-width_pix = ' '.
* Diaply
    CALL METHOD tree1->set_table_for_first_display
      EXPORTING
        is_hierarchy_header = g_hierarchy_header
        is_variant          = g_variant
      CHANGING
        it_outtab           = obj_main->i_ekpo_op
        it_fieldcatalog     = i_fcat_ekpo.
    LOOP AT i_ekpo INTO wa_ekpo1.
      MOVE wa_ekpo1 TO wa_ekpo.
      l_key1 = ''.
      AT NEW ebeln.
        MOVE wa_ekpo-ebeln TO l_node_text.
* Call method for Add Node to Ekpo
        CALL METHOD add_node_ekpo
          EXPORTING
            table = wa_ekpo
            key   = l_key1
            text = l_node_text
            flag = space
          CHANGING
            i_key = l_key2.
      ENDAT.
      CLEAR l_node_text.
      MOVE wa_ekpo-ebelp TO l_node_text.
* Call method for Add Node to Ekpo
      CALL METHOD add_node_ekpo
        EXPORTING
          table = wa_ekpo
          key   = l_key2
          text = l_node_text
          flag = 'X'
        CHANGING
          i_key = l_key3.
    ENDLOOP.                                     " LOOP AT i_ekpo INTO wa_ekpo1.
* Call method For Register events
    CALL METHOD register_events_ekpo.
ENDMETHOD.                                     " Display_ekpo
* Display VBAP                                                       *
METHOD display_vbap.
* Data
    DATA:
       l_key1 TYPE lvc_nkey,
       l_key2 TYPE lvc_nkey,
       l_key3 TYPE lvc_nkey,
       l_node_text TYPE lvc_value.
    REFRESH i_fcat_vbap.
* ALV control service modules
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = 'X'
        i_structure_name       = 'VBAP'
        i_client_never_display = 'X'
        i_bypassing_buffer     = space
      CHANGING
        ct_fieldcat            = i_fcat_vbap
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    IF sy-subrc EQ 0.
      DELETE i_fcat_vbap FROM 4.
    ENDIF.                                       " IF sy-subrc EQ 0.
    g_hierarchy_header-heading = 'Sales Order Details'(003).
    g_hierarchy_header-tooltip = 'Sales Order'(004).
    g_hierarchy_header-width = c_30.
    g_hierarchy_header-width_pix = ' '.
* Display
    CALL METHOD tree2->set_table_for_first_display
      EXPORTING
        is_hierarchy_header = g_hierarchy_header
        is_variant          = g_variant
      CHANGING
        it_outtab           = obj_main->i_vbap_op
        it_fieldcatalog     = i_fcat_vbap.
    LOOP AT i_vbap INTO wa_vbap1.
      MOVE wa_vbap1 TO wa_vbap.
      l_key1 = ''.
      AT NEW vbeln.
        MOVE wa_vbap-vbeln TO l_node_text.
* Call method for Add Node to vbap
        CALL METHOD add_node_vbap
          EXPORTING
            table = wa_vbap
            key   = l_key1
            text = l_node_text
            flag = 'X'
          CHANGING
            i_key = l_key2.
      ENDAT.
      CLEAR l_node_text.
      MOVE wa_vbap-posnr TO l_node_text.
* Call method for Add Node to vbap
      CALL METHOD add_node_vbap
        EXPORTING
          table = wa_vbap
          key   = l_key2
          text = l_node_text
          flag = space
        CHANGING
          i_key = l_key3.
    ENDLOOP.                                     " LOOP AT i_vbap INTO wa_vbap1.
* Call method For Register events
    CALL METHOD register_events_vbap.
ENDMETHOD.                                     " Display_vbap
* Add Node to Ekko                                                   *
METHOD add_node_ekpo.
* Data
    DATA: l_layout_node TYPE lvc_s_layn.
    IF flag = 'X'.
      l_layout_node-dragdropid = g_handle_drag.
    ENDIF.                                       " IF flag = 'X'.
*   Add node to tree1
    CALL METHOD tree1->add_node
      EXPORTING
        i_relat_node_key     = key
        i_relationship       = cl_gui_column_tree=>relat_last_child
        is_outtab_line       = table
        i_node_text          = text
        is_node_layout       = l_layout_node
      IMPORTING
        e_new_node_key       = i_key
      EXCEPTIONS
        relat_node_not_found = 1
        node_not_found       = 2
        OTHERS               = 3.
    IF sy-subrc NE 0.
      CLEAR sy-subrc.
    ENDIF.                                       " IF sy-subrc NE 0.
ENDMETHOD.                                     " Add_node_ekpo
* Add Node to Vbap                                                   *
METHOD add_node_vbap.
* Data
    DATA: l_layout_node TYPE lvc_s_layn.
    IF flag = 'X'.
      l_layout_node-dragdropid = g_handle_drop.
    ENDIF.                                       " IF flag = 'X'.
* Add node for tree2
    CALL METHOD t

Editable Field in ALV Tree Control

Hello All,
Can anyone tell me how can i make a field editable in an Alv Tree grid. I have tried with fiedcatalog-edit = 'X'. but that doesn't work.
also please provide a piece of code to be clear ...
Thanks,
Ravi Aswani

hI ,
Data : LI_fieldcat type lvc_t_fcat,
          ls_fcat type lvc_s_fcat.
IF OKCODE = 'MAIN'.
      CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
    I_BUFFER_ACTIVE              =
      i_structure_name             = 'ZCUS'
    I_CLIENT_NEVER_DISPLAY       = 'X'
    I_BYPASSING_BUFFER           =
    I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = LI_fieldcat[]            .
LOOP AT LI_FIELDCAT INTO LS_FCAT.
    CASE ls_fcat-fieldname.
      WHEN 'KUNNR'.
        ls_fcat-col_pos = 1.
      WHEN 'NAME1'.
        ls_fcat-edit = 'X'.
        ls_fcat-col_pos = 2.
      WHEN 'ORT01'.
        ls_fcat-edit = 'X'.
        ls_fcat-col_pos = 3.
        ls_fcat-drdn_hndl = '1'.
        ls_fcat-outputlen = 20.
      WHEN 'LAND1'.
        ls_fcat-edit = 'X'.
        ls_fcat-col_pos = 4.
    ENDCASE.
    MODIFY LI_fieldcat FROM ls_fcat.
ENDLOOP.
ENDIF.
With this The internal Table contains 4 fields Kunnr Name1 Ort01 Land1 Here Kunnr is the Key field so , it is not editable , reaming fields are Editable.
There u must write the Modify statement.
check it once
Regards
Krishna

Problem with alv grid control editable

Hello all. I ask your help with this question because I did not find the answer in the forum. Sorry for my pour english.
I have an alv grid control (OO) with the standards buttons 'insert a line', 'delete a line', 'copy a line'.
My problem is I want to catch the event of these buttons, because after I register the events mc_evt_enter y mc_evt_modifies, when I push the button to insert a new line the alv grid show the new line and then get a dump with error: Field symbol has not yet been assigned.
My problem is that no event is launched when I push the button. I tried to catch the event before command but it does not happen.
It is like these standard buttons works apart and it is not possible to find out what they are doing.
I have read the manual easy reference for alv grid control, and I created the class lcl_event_handler exactly equal.
I have tried to debug the code in order to find the error but I can find out where it has been done.
Thank you in advance. If anybody needs to see my code I will send you or post you.

David,
What you need to do for that is to enable the editing field by field. You will have to add a field STYLE type LVC_T_STYL to the DATA table. This nested internal table will hold the information for each field of the row, whether the column is editable or not. So, if you have 5 columns, then the nested internal table will have 5 rows for each row of the main internal table.
Once this is done, you will have to append a blank row to the table, making all the fields editable and REFRESH the display.
Regards,
Ravi
Note: Please mark the answers as helpful if they help.

Scaling in F.01 with ALV Tree Control

Similar Messages

Maybe you are looking for