Edit drop down list in SHD0(transaction variant)

Hello all,
How can we control the values displayed in drop doen list using transaction variant? i am using SHD0 to create a transaction variant and want only few values to be dispayed in drop down list instead of all the values in orignal transaction.
Thanks
Arjun

As far as I konw, you can not.
You can edit the properties (Visible/Invisible, etc ) but not restrict the values originally displayed.
Regards

Similar Messages

Editable Drop-Down List

Hello!
I am using Dreamweaver's Editable Drop-Down List
Application panel, Server Behaviors > + > Developer Toolbox > Form Controls > Editable Drop-down
Which has been a GREAT option, but I need to add on 1 option, when I am about to ADD an item to the list, all you can do is add 1 item to 1 column in a database.
Database Struture:
listid   userid   listItem    listitemValue
But all I can get it to update is listItem I need to be able to when the button, "ADD THIS" is pushed, that I can add a value to USERID also, is this possible? I tried diving deap into it, but some certains things I just didn't understand that far down.
Any help would be greatly appreciated!
Cheers, and thank you in advance.
Justin

Ok I completely misunderstood. Sorry for the confusion. I'm afraid I may not be much help on this particular function. Some functions I've really torn apart and modified, this is not one of them.
This does not look like one of the more simple functions to change unlike some others,
Before trying to go into lengthy info on how to break it down, is there any chance the info you are trying to update is some type of default name or incremental name, something than can be hard coded? ..or is it unique like a visitor, so you are pulling down each time? Ex: User1, user2    vs.   sally101, david2009, etc.
IF not, there are a several lines of variable setting and function modification to change at first glance.
I can look into later, but the variables are not even in the same insert function page.
Here is the Key line in WDG_recordsetInsert.php,
$sql = 'INSERT INTO ' . $vars['table'] . ' (' . KT_escapeFieldName($vars['updatefield']) . ') VALUES (' . KT_escapeForSql($text, 'STRING_TYPE') . ')';
but the vars appear to come out of an array in 'WDG_functions.inc.php : here is the function variables being set for the insert function above
$WDG_sessInsTest = &$_SESSION['WDG_sessInsTest'];
     $WDG_sessInsTest[] = array(
          'conn' => $connectionName,
          'rsName' => $rsName,
          'table' => $sqlTable,
          'idfield' => $idField,
          'updatefield' => $updateField     );
This array (at first glance) could be modified, but I can't promise that the vars will carry through because I don't see exactly where this array is being used again.
As I mentioned, if the values you need are something you could hard code and increment, you could easily modify the 'insert to' function above.
I would also toy around with some $_POST data and Session data vars and see if you can drop those straight into the sql statement above.
Sorry I can't be more help on this one.

Adding field with drop down list to Opportunity transaction

Hi All,
I want to add a field from one of the Z table to the opportunity transaction Using EEWB. I have added the field but my problem is that the field should be drop down list with values coming from the Z table.
Please help me if in case if you have idea or any relevant note or document.
Thanks in Advance
Gaurav

Hi Gaurav,
Go to your development package with your EEWB extension, look at function group like ZCRM_BTX_EEW_UI* and here you have you screen, your pbo, your pai.
Modify with the same logic of program demo in your field.
Regards.
Manuel

The drop down list values want to vary based on the contents of another drop down field

hi,
hi in search page i have two drop down list. i have two tables and one mapping tables. service line and subservice line are tables and i have one mapping table. using rapid application i create one component using mapping table. now in search page i have two drop list. one is servline and another is sub serviceline. in service line i have values like 1,2 k for subservice 3,4.5,6 for one service line ex. for 1 i have two subservice 3,4 and for 2 i have 5,6. now my requirment in if i choose service line 1 in first drop down list, automatically in second drop down list want to contain values 3, 4. before both the drop down list have values.if i chose one value the correponding mapping value want to come in drop down list in same context node.

Hi,
This requirement involves defining p-getter for the service type, and the v-getter of you sub type.
Since this involves to populate the values of subtype attribute depending on value of service type, u need a round trip.
This is done in the p-getter of the 1st attribute(service type in your case).
In the v-getter of the 2nd attribute, 1st fetch the current value of attribute 1, then filter the value in the dropdown table according to ur logic.
Ref :Drop down values in table view
Regrads
Anish

Editing drop down list

How can I show the drop down list box as empty or blank when not used as I would like to use the drop down list on a form that has multiple lines for name entries but sometimes I will not populate all of the available lines?
I am using livecycle designer 8.0 under the vista operating system on a hp 9000 laptop with 2GB of memory.

Not sure how this is related to Workspace, maybe you can post this on the designer forum. http://www.adobeforums.com/webx/.3bca1ed7/

Sugar CRM issues: can't create or edit drop-down lists

''locking as a duplicate - https://support.mozilla.com/en-US/questions/822646''
Sugar CRM CE 6.2.0 will not let me add drop down boxes in Firefox. Yes I've cleared the cache. Yes I can do what I need in IE8. Yes the server permissions have been checked by the web host.
IE8 was partially faulty but works since the host reset my permissions.
Initally I got this errror:
User Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; Tablet PC 2.0; .NET4.0C; InfoPath.3)
Timestamp: Mon, 16 May 2011 05:51:03 UTC
Message: 'inputsWithErrors[...].style' is null or not an object
Line: 1
Char: 1
Code: 0
URI: http://www.[hostname].com/beta3/index.php?module=ModuleBuilder&action=index&type=dropdowns
Message: 'inputsWithErrors[...].style' is null or not an object
Line: 1
Char: 1
Code: 0
URI: http://www.[hostname].com/beta3/index.php?module=ModuleBuilder&action=index&type=dropdowns
Can anyone suggest a fix for FF so I can stop using horrible IE?
Thanks in advance,
Jo

Just look a little lower on the left-hand side. It's under the "Links" category, just below "customer ratings" and "more from..."

How to modify the size of the editable drop down

I have used the editable drop down list which works perfectly. The only problem i find is that it has a static width, unlike a regular select/option list that adjust according to the lengh of the data that is in it. Is there any way i can adjust the width of the editable drop down list. Thank you.

try removing the width completely...leave that field blank

Value need to select from the drop down list & should be save under Variant

Hi,
My requirement is that i need to display two values in drop down list of a selection screen. Between two values , one value will be display as a default value. During program execution user can choose any value from drop down list as per requirement and
he can save this in a Variant.
Next time if he choose data from Variant, but still he will be able to select any value from drop down list.
For that i am using FM VRM_SET_VALUES. How can i make the changes to meet my requirement using this function module or any other suggestions will be highly appreciated.
Thanks & Regards,
Tutun
Edited by: tutun nandy on Nov 19, 2010 12:21 PM

Try to disable hardware acceleration in Firefox.
*Tools > Options > Advanced > General > Browsing: "Use hardware acceleration when available"
*https://hacks.mozilla.org/2010/09/hardware-acceleration/
*https://support.mozilla.org/kb/how-do-i-upgrade-my-graphics-drivers
*https://support.mozilla.org/kb/Troubleshooting+extensions+and+themes

How do I edit a drop down list in a form just created?

I have created a form with several drop down lists. During the design process, I did not enter in data for the drop down, however cannot figure out how to edit that now. Please help!

GKaiseril - can you help me please?
I've created a fillable form in Adobe Professional and my text boxes are prefilling...I did a few tests and it promts me to use the language used in my testing. I do not want the text boxes to show prefilled options. I checked Options tab and it does not have any values. I am not sure why it's prefilling and how to remove it. Any suggestions?

Drop-down list in editable ALV

Hello all,
Does anyone know how to display the values instead of the internal values when using the alias table to specify a drop-down list in an editable ALV grid ?
Apparently the BC_ALV* examples have the same problem.
thx
Pieter

Hi,
These links will help you to implement a drop down list...
http://help.sap.com/saphelp_46c/helpdata/en/9f/dbabe435c111d1829f0000e829fbfe/content.htm
Also refer the pgm:
RSDEMO_DROPDOWN_LISTBOX
BCALV_TEST_GRID_F4_HELP
Also take a look the SAP example program BCALV_TEST_GRID_EDITABLE. It has a working Drop Down List Box.
You have to fill a table of type lvc_t_drop. In this you set a handle and value for every item you want to have in a all possible drop down lists. You will later connect a sub set of this data to your grid display data by joining on this handle. You can then send this table to your ALV grid using the method SET_DROP_DOWN_TABLE. You will also want to set the DRDN_FIELD in your field catalog to the field name in your data table that will contain the handle for the values in your drop down table you want to expose. You will need to add this field to your data table.
Best Regards,
Anjali

Show the drop down list of variant on the selection screen in ALV reports

Hi,
i have a alv report when i execute this display will come and then i click display layout it save as a variant on the selection screen and when i go back to selection screen and press f4 on the display variant its show the drop down list of varient.
can u send me some code for this functionality...its very urgent.
thanks!
Vipin

Hi,
try inserting this code apropietly in you program. (1 parameter + Initialization + At-selection-screen + 2 forms)
START HERE
PARAMETERS: pa_vari TYPE disvariant-variant.
INITIALIZATION.
g_repid = sy-repid.
CLEAR e_variant.
e_variant-report   = sy-cprog.
e_variant-username = sy-uname.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save     = 'A'
    CHANGING
      cs_variant = e_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 0.
    pa_vari = e_variant-variant.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_vari.
PERFORM alv_variant_f4 CHANGING pa_vari.
*&      Form ALV_VARIANT_F4
FORM alv_variant_f4 CHANGING pa_vari.
DATA: l_exit(1) TYPE c.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant       = e_variant
      i_tabname_header = 'ANYTHING'
      i_save           = 'A'
    IMPORTING
      e_exit           = l_exit
      es_variant       = e_variant
    EXCEPTIONS
      not_found        = 2.
IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF l_exit = space.
      pa_vari = e_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                               " ALV_VARIANT_F4
END
Hope iy helps!
Alfonso

Where is the drop down list with "edit web part" for a list??

In Sharepoint 2010, there was a drop down list to the far right of a list. One of the options was to Edit Web Part. In Sharepoint 2013, I can't find the drop down list. Nothing is to the right of my list and mouse overs down't reveal
anything. I am trying to get to that area to change my toolbar type. Any clues as to where the "edit web part" has gone to?

I've been able to edit Web Part properties for weeks, but a few days ago, I could no longer do it, either by using the checkbox in the upper right corner of the web part or by using Web Part Properties in the Web Part tab. It's greyed out.
Then yesterday I could do it again and today I can't. An intermittent problem!
No one has changed any Sharepoint Admin settings.
Anyone have any ideas? They would be greatly appreciated.

How to change number of remembered items which would be shown in drop down list for edit controls. This use to be at least 5 I think, but now it is only 2!

I need to see 3 different remembered usernames in drop-down list for username input.

Works fine here. I can see at least four user names in the drop down list of a login form.
Start Firefox in <u>[[Safe Mode|Safe Mode]]</u> to check if one of the extensions (Firefox/Tools > Add-ons > Extensions) or if hardware acceleration is causing the problem (switch to the DEFAULT theme: Firefox/Tools > Add-ons > Appearance).
*Do NOT click the Reset button on the Safe Mode start window or otherwise make changes.
*https://support.mozilla.org/kb/Safe+Mode
*https://support.mozilla.org/kb/Troubleshooting+extensions+and+themes

Selection Screen Bug :: Drop Down List.

Hi
I have created the following ABAP Report. I am new at this and I have just hit an issue. I have two drop down boxes linked to transactions. Now when I select a report from Drop Down 1 and click it it goes to the transaction. Now if I also have a selection in Drop Down 2 it actually runs both transactions.
How can i fix this?
Thanks
Adeel
REPORT TEST.
*TYPE POOLS DECLARATIONS
TYPE-POOLS: vrm.
TABLES: sscrfields.
*SELECTION SCREEN FIELDS
*DATA: c(20) TYPE c.
***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-tt1.
PARAMETERS: one(20) AS LISTBOX VISIBLE LENGTH 40.
PARAMETERS: two(20) AS LISTBOX VISIBLE LENGTH 40.
* ADD Afer 40 to show text "DEFAULT 'PLEASE SELECT'"
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK blk1.
*********DROP DOWN SELECTION WITH DESCP******************
AT SELECTION-SCREEN OUTPUT.
PERFORM ONE.
PERFORM TWO.
*&      Form ONE
*       text
FORM one.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
name = 'ONE'.
value-key = '1 ::'.
value-text = 'Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2 ::'.
value-text = 'Open Sales Order Report'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    "ONE
*&      Form TWO
*       text
FORM two.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
name = 'TWO'.
value-key = '1 ::'.
value-text = 'AS Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2 ::'.
value-text = 'AS Open Sales Order Report'.
APPEND value TO list.
clear value.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    "TWO
***********LINKS TO ABOVE SELECTION**********************
START-OF-SELECTION.
IF ONE = '&IC1'.
CASE one.
    WHEN '1 ::'.
      CALL TRANSACTION 'MB5L' AND SKIP FIRST SCREEN.
    WHEN '2 ::'.
      CALL TRANSACTION 'ZSOD'.
ENDCASE.
ENDIF.
IF TWO = '&IC1'.
CASE two.
    WHEN '1 ::'.
      CALL TRANSACTION 'MB52' AND SKIP FIRST SCREEN.
    WHEN '2 ::'.
      CALL TRANSACTION 'ZSOD'.
ENDCASE.
ENDIF.

Hi Now try this one,.
*TYPE POOLS DECLARATIONS
TYPE-POOLS: vrm.
TABLES: sscrfields.
*SELECTION SCREEN FIELDS *
DATA: c(20) TYPE c.
**********SELECTION-SCREENS*********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-tt1.
PARAMETERS: one(20) AS LISTBOX VISIBLE LENGTH 40.
PARAMETERS: two(20) AS LISTBOX VISIBLE LENGTH 40.
ADD Afer 40 to show text "DEFAULT 'PLEASE SELECT'"
SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK blk1.
********DROP DOWN SELECTION WITH DESCP*****************
AT SELECTION-SCREEN OUTPUT.
PERFORM one.
PERFORM two.
*& Form ONE
text ----------------------------------------------------------------------
FORM one.
DATA: name TYPE vrm_id,
        list TYPE vrm_values,
        value LIKE LINE OF list.
name = 'ONE'.
value-key = '1'.
value-text = 'Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2'.
value-text = 'Open Sales Order Report'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "ONE
*& Form TWO
text ----------------------------------------------------------------------
FORM two.
DATA: name TYPE vrm_id,
        list TYPE vrm_values,
        value LIKE LINE OF list.
name = 'TWO'.
value-key = '1'.
value-text = 'AS Stock Report'.
APPEND value TO list.
CLEAR value.
value-key = '2'.
value-text = 'AS Open Sales Order Report'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.      "TWO
**********LINKS TO ABOVE SELECTION*********************
START-OF-SELECTION.
CASE one.
    WHEN '1'.
      CALL TRANSACTION 'MB5L'AND SKIP FIRST SCREEN.
    WHEN '2'.
      CALL TRANSACTION 'MM01'.
ENDCASE.
CASE two.
    WHEN '1'.
      CALL TRANSACTION 'MB52' AND SKIP FIRST SCREEN.
    WHEN '2'.
      CALL TRANSACTION 'MM01'.
ENDCASE.
Give the 1:: as 1 and 2:: as 2 it will work...
Regards,
Bharani
Edited by: SeethaRamaiah Bharani on Dec 18, 2009 8:10 PM

Drop down list in alv tree

Hi,
I am developing an ALV TREE. I need help Its really urgent. In the output screen there will be 2 level nodes. in the item line 1 field should be input enabled using which the database table is to be modified.when user left clicks on this field a drop down list will appear from which he selects his choice.
I looked into BCALV_TREE_SIMPLE_DEMO reports available in SAP.
I would also like to know what is register_events, what is an handler.
help me.
Edited by: Sudipa Das on Oct 4, 2008 11:53 AM
Edited by: Sudipa Das on Oct 4, 2008 11:53 AM
Edited by: Sudipa Das on Oct 4, 2008 11:54 AM

Hello Sudipa
I do not think you can have editable fields other than checkboxes in ALV trees. In sample report ZUS_SDN_ALV_TREE_DEMO_1 I have set the fieldcatalog property LS_FCAT-EDIT = 'X' for all fields yet only LOEVM is editable because it is defined as checkbox, too.
However, you may use the LINK_CLICK of the ALV tree (set LS_FCAT-HOTSPOT = 'X' in fieldcatalog) to trigger e.g. a seach help for input.
*& Report ZUS_SDN_ALV_TREE_DEMO
*& Thread: drop down list in alv tree
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1074082"></a>
*& Thread: alv tree checbox problem when attempt to get the selected checjboxes
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1050473"></a>
*& Thread: alv tree checkbox problem
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1046535"></a>
*& Thread: double click in ALV tree output????
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="742412"></a>
*& Flow logic of screen '0100' (contains no screen elements):
** PROCESS BEFORE OUTPUT.
**    MODULE STATUS_0100.
** PROCESS AFTER INPUT.
**    MODULE USER_COMMAND_0100.
*& user-command (for command window): DISPLAY, SELECTED_NODES
REPORT zus_sdn_alv_tree_demo_1.
CLASS cl_gui_column_tree DEFINITION LOAD.
CLASS cl_gui_cfw DEFINITION LOAD.
TYPE-POOLS: abap, shlp.
TYPES: BEGIN OF ty_s_key.
TYPES: nkey       TYPE lvc_nkey.
TYPES: parent_key TYPE lvc_nkey.
TYPES: END OF ty_s_key.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE knvv AS data.
INCLUDE TYPE ty_s_key AS key.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab    TYPE STANDARD TABLE OF ty_s_outtab
                      WITH DEFAULT KEY.
DATA: gt_outtab    TYPE ty_t_outtab.
DATA:
gd_okcode        TYPE ui_func,
gd_repid         TYPE syst-repid,
gt_fcat          TYPE lvc_t_fcat,
gs_layout        TYPE lvc_s_layo,
gs_variant       TYPE disvariant,
go_docking       TYPE REF TO cl_gui_docking_container,
go_tree          TYPE REF TO cl_gui_alv_tree.
*       CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
    CLASS-METHODS:
    handle_node_double_click
      FOR EVENT node_double_click OF cl_gui_alv_tree
      IMPORTING node_key,
    handle_item_double_click
      FOR EVENT item_double_click OF cl_gui_alv_tree
      IMPORTING node_key
                fieldname,
    handle_checkbox_change
      FOR EVENT checkbox_change OF cl_gui_alv_tree
      IMPORTING checked
                fieldname
                node_key,
    handle_link_click
      FOR EVENT link_click OF cl_gui_alv_tree
      IMPORTING fieldname
                node_key.
ENDCLASS.                    "lcl_eventhandler DEFINITION
*       CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_node_double_click.
    MESSAGE 'Event=Double-Click on Node' TYPE 'I'.
    CALL TRANSACTION 'XD03'.
ENDMETHOD.                    "handle_node_double_click
METHOD handle_item_double_click.
    MESSAGE 'Event=Double-Click on Item' TYPE 'I'.
    CALL TRANSACTION 'VA03'.
ENDMETHOD.                    "handle_item_double_click
METHOD handle_checkbox_change.
    DATA: ls_outtab     TYPE ty_s_outtab.
    BREAK-POINT.
    IF ( fieldname = 'LOEVM' ).
      CALL METHOD go_tree->get_outtab_line
        EXPORTING
          i_node_key     = node_key
        IMPORTING
          e_outtab_line = ls_outtab
*          e_node_text    =
*          et_item_layout =
*          es_node_layout =
        EXCEPTIONS
          node_not_found = 1
          OTHERS         = 2.
      IF sy-subrc <> 0.
*       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*                  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      ls_outtab-loevm = checked.
      MODIFY gt_outtab FROM ls_outtab
        TRANSPORTING loevm
        WHERE ( nkey = node_key ).
    ENDIF.
    " Trigger PAI
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'REFRESH'
*        IMPORTING
*          rc       =
ENDMETHOD.                    "handle_checkbox_change
METHOD handle_link_click.
    data: ls_shlp         type SHLP_DESCR,
          lt_retvalues    type STANDARD TABLE OF DDSHRETVAL.
    BREAK-POINT.
    CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
      EXPORTING
        shlpname       = 'USER_COMP'
*       SHLPTYPE       = 'SH'
      IMPORTING
        SHLP           = ls_shlp.
    CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
      EXPORTING
        shlp                = ls_shlp
*       DISPONLY            = ' '
*       MAXRECORDS          = 500
*       MULTISEL            = ' '
*       CUCOL               = SY-CUCOL
*       CUROW               = SY-CUROW
*     IMPORTING
*       RC                  =
      tables
        return_values       = lt_retvalues.
ENDMETHOD.                    "handle_link_click
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
PERFORM init_controls.
gd_repid = syst-repid.
CALL METHOD go_docking->link
    EXPORTING
      repid                       = gd_repid
      dynnr                       = '0100'
*      container                   =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      lifetime_dynpro_dynpro_link = 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 SCREEN '0100'.
** NOTE: no elements on screen
** PROCESS BEFORE OUTPUT.
**    MODULE STATUS_0100.
** PROCESS AFTER INPUT.
**    MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*&      Module STATUS_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
TRANSLATE gd_okcode TO UPPER CASE.
CASE gd_okcode.
    WHEN 'BACK' OR
         'EXIT' OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'REFRESH'.
      CALL METHOD go_tree->update_calculations
*        EXPORTING
*          no_frontend_update =
    WHEN 'SELECTED_NODES'.
      PERFORM get_selected_nodes.
    WHEN 'DISPLAY'.
      PERFORM display.
    WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Form init_controls
*       text
* --> p1        text
* <-- p2        text
FORM init_controls .
* Create docking container
CREATE OBJECT go_docking
    EXPORTING
      parent = cl_gui_container=>screen0
      ratio = 90
    EXCEPTIONS
      OTHERS = 6.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* create tree control
CREATE OBJECT go_tree
    EXPORTING
      parent                      = go_docking
      node_selection_mode         = cl_gui_column_tree=>node_sel_mode_multiple
      item_selection              = 'X' " required for double-click event on item
      no_html_header              = ''
      no_toolbar                  = ''
    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 <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
ENDIF.
* create Hierarchy-header
DATA ls_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING ls_hierarchy_header.
PERFORM build_fieldcatalog.
PERFORM set_layout_and_variant.
* create emty tree-control
CALL METHOD go_tree->set_table_for_first_display
    EXPORTING
**      i_structure_name     = 'KNVV'
      is_variant           = gs_variant
      i_save               = 'A'
*      i_default            = 'X'
      is_hierarchy_header = ls_hierarchy_header
*      is_exception_field   =
*      it_special_groups    =
*      it_list_commentary   =
*      i_logo               =
*      i_background_id      =
*      it_toolbar_excluding =
*      it_except_qinfo      =
    CHANGING
      it_outtab            = gt_outtab
*      it_filter            =
      it_fieldcatalog      = gt_fcat.
* create hierarchy
PERFORM create_hierarchy.
* register events
PERFORM register_events.
* adjust column_width
CALL METHOD go_tree->column_optimize.
ENDFORM.                    " init_controls
*&      Form build_hierarchy_header
*       build hierarchy-header-information
*      -->P_L_HIERARCHY_HEADER strucxture for hierarchy-header
FORM build_hierarchy_header CHANGING
                               p_hierarchy_header TYPE treev_hhdr.
p_hierarchy_header-heading = 'Hierarchy Header'.          "#EC NOTEXT
p_hierarchy_header-tooltip =
                         'This is the Hierarchy Header !'. "#EC NOTEXT
p_hierarchy_header-width = 30.
p_hierarchy_header-width_pix = ''.
ENDFORM.                               " build_hierarchy_header
*&      Form BUILD_FIELDCATALOG
*       text
* --> p1        text
* <-- p2        text
FORM build_fieldcatalog .
DATA: ls_fcat   TYPE lvc_s_fcat.
REFRESH: gt_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = 'KNVV'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
      i_bypassing_buffer           = 'X'
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DELETE gt_fcat FROM 10.
ls_fcat-tech = 'X'.
MODIFY gt_fcat FROM ls_fcat
    TRANSPORTING tech
    WHERE ( key = 'X' ).
ls_fcat-edit = 'X'.
MODIFY gt_fcat FROM ls_fcat
    TRANSPORTING edit
    WHERE ( key NE 'X' ).
READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'LOEVM'.
IF ( syst-subrc = 0 ).
    ls_fcat-checkbox = 'X'.
    ls_fcat-edit     = 'X'.
**    ls_fcat-hotspot = 'X'.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDIF.
READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'ERNAM'.
IF ( syst-subrc = 0 ).
    ls_fcat-hotspot = 'X'.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDIF.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form SET_LAYOUT_AND_VARIANT
*       text
* --> p1        text
* <-- p2        text
FORM set_layout_and_variant .
CLEAR: gs_layout,
         gs_variant.
gs_variant-report = syst-repid.
gs_variant-handle = 'TREE'.
ENDFORM.                    " SET_LAYOUT_AND_VARIANT
*&      Form create_hierarchy
*       text
* --> p1        text
* <-- p2        text
FORM create_hierarchy .
DATA: ls_knvv     TYPE sflight,
        ld_idx      TYPE i,
        ls_outtab   TYPE ty_s_outtab,
        lt_outtab   TYPE ty_t_outtab.
* get data
SELECT * FROM knvv INTO CORRESPONDING FIELDS OF TABLE lt_outtab
                        UP TO 20 ROWS .                 "#EC CI_NOWHERE
SORT lt_outtab BY kunnr vkorg.
* add data to tree
DATA: ld_root_key TYPE lvc_nkey,
        ld_kunnr_key TYPE lvc_nkey,
        ld_vkorg_key TYPE lvc_nkey,
        ld_last_key TYPE lvc_nkey.
ld_idx = 0.
LOOP AT lt_outtab INTO ls_outtab.
    AT FIRST.
      PERFORM add_root_line USING    ls_outtab-data
                              CHANGING ld_root_key.
      ADD 1 TO ld_idx.
      ls_outtab-nkey       = ld_root_key.
      ls_outtab-parent_key = space.
      MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
        TRANSPORTING key.
    ENDAT.
    ON CHANGE OF ls_outtab-kunnr.
      PERFORM add_customer_line USING    ls_outtab-data
                                         ld_root_key
                              CHANGING ld_kunnr_key.
      ADD 1 TO ld_idx.
      ls_outtab-nkey       = ld_kunnr_key.
      ls_outtab-parent_key = ld_root_key.
      MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
        TRANSPORTING key.
    ENDON.
    ON CHANGE OF ls_outtab-vkorg.
      PERFORM add_salesorg_line USING    ls_outtab-data
                                         ld_kunnr_key
                              CHANGING ld_vkorg_key.
      ADD 1 TO ld_idx.
      ls_outtab-nkey       = ld_vkorg_key.
      ls_outtab-parent_key = ld_kunnr_key.
      MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
        TRANSPORTING key.
    ENDON.
    PERFORM add_complete_line USING ls_outtab-data
                                     ld_vkorg_key
                            CHANGING ld_last_key.
    ADD 1 TO ld_idx.
    ls_outtab-nkey       = ld_last_key.
    ls_outtab-parent_key = ld_vkorg_key.
    MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
      TRANSPORTING key.
ENDLOOP.
* calculate totals
CALL METHOD go_tree->update_calculations.
* this method must be called to send the data to the frontend
CALL METHOD go_tree->frontend_update.
ENDFORM.                    " create_hierarchy
*&      Form add_customer_line
*       add hierarchy-level 1 to tree
*      -->P_LS_SFLIGHT sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_root_line USING     us_data TYPE ty_s_outtab-data
                             ud_relat_key TYPE lvc_nkey
                     CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_data TYPE ty_s_outtab-data.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@3Q@'. " icon_overview
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-style   =
                        cl_gui_column_tree=>style_intensifd_critical.
APPEND ls_item_layout TO lt_item_layout.
* add node
l_node_text = 'Overview: Sales Areas'.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image   = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
    EXPORTING
      i_relat_node_key = ud_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_data
      is_node_layout   = ls_node
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = cd_node_key.
ENDFORM.                               " add_root_line
*&      Form add_customer_line
*       add hierarchy-level 1 to tree
*      -->P_LS_SFLIGHT sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_customer_line USING     us_data TYPE ty_s_outtab-data
                                 ud_relat_key TYPE lvc_nkey
                     CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_data TYPE ty_s_outtab-data.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@A0@'. " icon_customer.
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-style   =
                        cl_gui_column_tree=>style_intensifd_critical.
APPEND ls_item_layout TO lt_item_layout.
* add node
l_node_text = us_data-kunnr.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image   = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
    EXPORTING
      i_relat_node_key = ud_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_data
      is_node_layout   = ls_node
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = cd_node_key.
ENDFORM.                               " add_customer_line
*&      Form add_salesorg_line
*       add hierarchy-level 1 to tree
*      -->P_LS_SFLIGHT sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_salesorg_line USING     us_data TYPE ty_s_outtab-data
                                 ud_relat_key TYPE lvc_nkey
                     CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_data TYPE ty_s_outtab-data.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@DS@'. " ICON_PARTNER_SALES_ACTIVITY
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-style   =
                        cl_gui_column_tree=>style_intensifd_critical.
APPEND ls_item_layout TO lt_item_layout.
* add node
l_node_text = us_data-vkorg.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image   = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
    EXPORTING
      i_relat_node_key = ud_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_data
      is_node_layout   = ls_node
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = cd_node_key.
ENDFORM.                               " add_salesorg_line
*&      Form add_cmplete_line
*       add hierarchy-level 3 to tree
*      -->P_LS_SFLIGHT sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_complete_line USING     us_data TYPE ty_s_outtab-data
                                 ud_relat_key TYPE lvc_nkey
                     CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-class   = cl_gui_column_tree=>item_class_checkbox.
ls_item_layout-editable = 'X'.
APPEND ls_item_layout TO lt_item_layout.
** clear: ls_item_layout.
** ls_item_layout-fieldname = 'BEGRU'.
** ls_item_layout-class   = cl_gui_column_tree=>ITEM_CLASS_CHECKBOX.
** ls_item_layout-editable = 'X'.
** APPEND ls_item_layout TO lt_item_layout.
** CLEAR ls_item_layout.
** ls_item_layout-fieldname = 'PLANETYPE'.
** ls_item_layout-alignment = cl_gui_column_tree=>align_right.
** APPEND ls_item_layout TO lt_item_layout.
l_node_text = us_data-vtweg.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image   = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
    EXPORTING
      i_relat_node_key = ud_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      is_outtab_line   = us_data
      i_node_text      = l_node_text
      is_node_layout   = ls_node
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = cd_node_key.
ENDFORM.                               " add_complete_line
*&      Form register_events
*       text
* --> p1        text
* <-- p2        text
FORM register_events.
* define the events which will be passed to the backend
DATA: lt_events TYPE cntl_simple_events,
        l_event TYPE cntl_simple_event.
* define the events which will be passed to the backend
l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_checkbox_change.
APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_header_click.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.
** APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_node_double_click.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_double_click.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_link_click.
APPEND l_event TO lt_events.
CALL METHOD go_tree->set_registered_events
    EXPORTING
      events                    = lt_events
    EXCEPTIONS
      cntl_error                = 1
      cntl_system_error         = 2
      illegal_event_combination = 3.
IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
ENDIF.
* set Handler
SET HANDLER:
    lcl_eventhandler=>handle_node_double_click FOR go_tree,
    lcl_eventhandler=>handle_item_double_click FOR go_tree,
    lcl_eventhandler=>handle_checkbox_change   FOR go_tree,
    lcl_eventhandler=>handle_link_click        FOR go_tree.
** DATA: l_event_receiver TYPE REF TO lcl_tree_event_receiver.
** CREATE OBJECT l_event_receiver.
** SET HANDLER l_event_receiver->handle_node_ctmenu_request
**                                                        FOR tree1.
** SET HANDLER l_event_receiver->handle_node_ctmenu_selected
**                                                        FOR tree1.
** SET HANDLER l_event_receiver->handle_item_ctmenu_request
**                                                        FOR tree1.
** SET HANDLER l_event_receiver->handle_item_ctmenu_selected
**                                                        FOR tree1.
** SET HANDLER l_event_receiver->handle_checkbox_change FOR tree1.
ENDFORM.                               " register_events
*&      Form DISPLAY
*       text
* --> p1        text
* <-- p2        text
FORM display .
DATA: ls_outtab   TYPE ty_s_outtab,
        ls_line     TYPE ty_s_outtab,
        ld_msg      TYPE bapi_msg.
BREAK-POINT.
LOOP AT gt_outtab INTO ls_outtab
          WHERE ( loevm = 'X' ).
    CONCATENATE 'Checkbox:'
                ls_outtab-kunnr
                ls_outtab-vkorg
                ls_outtab-vtweg
                ls_outtab-spart
                ls_outtab-loevm
      INTO ld_msg SEPARATED BY space.
    MESSAGE ld_msg TYPE 'I'.
ENDLOOP.
IF ( syst-subrc NE 0 ).
    MESSAGE 'No marked checkboxes found' TYPE 'I'.
ENDIF.
PERFORM get_selected_nodes.
ENDFORM.                    " DISPLAY
*&      Form GET_SELECTED_NODES
*       text
* --> p1        text
* <-- p2        text
FORM get_selected_nodes.
* define local data
DATA: ld_msg        TYPE bapi_msg,
        lt_nodes      TYPE lvc_t_nkey,
        ls_outtab     TYPE ty_s_outtab,
        ld_nkey       TYPE lvc_nkey,
        lt_items      TYPE lvc_t_layi,
        ls_item       TYPE lvc_s_layi.
CALL METHOD go_tree->get_selected_nodes
    CHANGING
      ct_selected_nodes = lt_nodes
    EXCEPTIONS
      cntl_system_error = 1
      dp_error          = 2
      failed            = 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.
CHECK ( lt_nodes IS NOT INITIAL ).
BREAK-POINT.
LOOP AT lt_nodes INTO ld_nkey.
    CALL METHOD go_tree->get_outtab_line
      EXPORTING
        i_node_key     = ld_nkey
      IMPORTING
        e_outtab_line = ls_outtab-data
*        e_node_text    =
        et_item_layout = lt_items
*        es_node_layout =
      EXCEPTIONS
        node_not_found = 1
        OTHERS         = 2.
    IF sy-subrc <> 0.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    LOOP AT lt_items INTO ls_item
                     WHERE ( chosen = 'X' ).
      CONCATENATE 'Item:'
                  ls_outtab-kunnr
                  ls_outtab-vkorg
                  ls_outtab-vtweg
                  ls_outtab-spart
                  ls_outtab-loevm
        INTO ld_msg SEPARATED BY space.
      MESSAGE ld_msg TYPE 'I'.
    ENDLOOP.
ENDLOOP.
ENDFORM.                    " GET_SELECTED_NODES
Regards
Uwe

Edit drop down list in SHD0(transaction variant)

Similar Messages

Maybe you are looking for