topic Populating values in dropdown based on values selected in second dropdown. in Application Development and Automation Discussions

Populating values in dropdown based on values selected in second dropdown.

Former Member — Fri, 10 Jul 2009 23:46:34 GMT

Hi,

I have two listboxes on the screen. Based on value chosen in first dropdown, I want to populate the values to be selected in second dropdown. How can i achieve this? I would be glad if anyone can help me out with this requirement.

Thanks,

Ameet

Re: Populating values in dropdown based on values selected in second dropdown.

former_member156446 — Sat, 11 Jul 2009 00:03:53 GMT

You need to hit an enter after u choose the value.. on p_name..

and its just a sample code... u need to verify if you already have an entry and all...

REPORT  zj_test.

TYPE-POOLS : vrm.
DATA: param TYPE vrm_id,
       values     TYPE vrm_values,
       value LIKE LINE OF values.

PARAMETERS: p_name(10) AS LISTBOX VISIBLE LENGTH 10.
PARAMETERS: p_last(10) AS LISTBOX VISIBLE LENGTH 10.

*AT SELECTION-SCREEN OUTPUT.
INITIALIZATION.
  param = 'P_NAME'.
  value-key = '1'.
  value-text = 'JOHN'.
  APPEND value TO values.
  value-key = '2'.
  value-text = 'PETER'.
  APPEND value TO values.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = param
      values = values.
  CLEAR: param, values.

AT SELECTION-SCREEN.
  param = 'P_LAST'.
  IF p_name EQ '1'.
  value-key = '1'.
  value-text = 'JANARDAN'.
  APPEND value TO values.
  ENDIF.
  IF p_name EQ '2'.
  value-key = '2'.
  value-text = 'PRABHAKAR'.
  APPEND value TO values.
  ENDIF.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = param
      values = values.

Re: Populating values in dropdown based on values selected in second dropdown.

Former Member — Sat, 11 Jul 2009 00:16:10 GMT

Hi Jay,

I am required to do it in a module-pool on a screen where i have these two dropdowns.

Does the same logic works. Please guide me.

Thanks,

Ameet

Re: Populating values in dropdown based on values selected in second dropdown.

Former Member — Sat, 11 Jul 2009 03:46:34 GMT

Coding is same as Jay Given , only with little change.

In module pool , assign a okcode for the first listbox ,

In PAI .

if okcode = listbox.

populate the second listbox based on value in fist.

try and reply

Re: Populating values in dropdown based on values selected in second dropdown.

Former Member — Sat, 11 Jul 2009 05:07:56 GMT

Hi,

I have Provided the Example Which i have done in module pool Programming just check this you will get a clear idea.

MODULE fill_customer INPUT.----

Function module for appending the customer in the customer listbox

>this is the first list box *Checking the customer is initial IF t_customer[] IS INITIAL. SELECT pspid FROM proj INTO t_customer-pspid. APPEND t_customer. ENDSELECT. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'WA_CUSTOMER' value_org = 'S' TABLES value_tab = t_customer return_tab = return2. IF sy-subrc = 0. t_customer-pspid = return2-fieldval. ENDIF.


MODULE fill_project INPUT.------------------------------>Second list box based on first list box
*Filling the Project Details Based on the Customer
  DATA : v1_pspnr TYPE prps-pspnr.
* Refreshing the t_project to get the project details based on the customer
  REFRESH : t_project.
  IF t_project[] IS INITIAL.
    SELECT SINGLE pspnr FROM proj
                INTO v1_pspnr WHERE pspid = wa_customer.
    IF sy-subrc = 0.
      SELECT psphi FROM prps
                INTO t_prps-psphi
                WHERE psphi = v1_pspnr.
        APPEND t_prps.
      ENDSELECT.
    ENDIF.
    SELECT posid  FROM prps INTO
                  t_project-posid
                  WHERE psphi = t_prps-psphi.
      APPEND t_project.
    ENDSELECT.
*Inserting all to the project listbox
    t_project-posid = 'ALL'.
    INSERT t_project INTO t_project INDEX 1.
* Function module for appending the project in the project listbox
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield   = 'WA_PROJECT'
        value_org  = 'S'
      TABLES
        value_tab  = t_project
        return_tab = return3.
    IF sy-subrc = 0.
      t_project-posid  = return3-fieldval.
    ENDIF.
* to get the WBS element
    IF NOT wa_project IS INITIAL.
      SELECT SINGLE pspnr FROM prps INTO prps-pspnr
                                 WHERE posid = wa_project.
      IF sy-subrc = 0.
*        wa_project = prps-pspnr.
        v_pro  = prps-pspnr.
      ENDIF.
    ENDIF.
  ENDIF.
ENDMODULE.                 " FILL_PROJECT  INPUT




  ENDIF.

ENDMODULE.                 " FILL_CUSTOMER  INPUT

you have to declare these two in process on value request.

Re: Populating values in dropdown based on values selected in second dropdown.

MarcinPciak — Mon, 13 Jul 2009 07:50:05 GMT

Hi,

Check program DEMO_DYNPRO_DROPDOWN_LISTBOX . This is what you need.

Regards

Marcin

Re: Populating values in dropdown based on values selected in second dropdown.

venkat_o — Mon, 20 Jul 2009 02:22:15 GMT

<font color=blue>Hi,

<li> Place 2 input fields on screen.

<li>Set Listbox property as it is shown in the below link.

<a href="http://2.bp.blogspot.com/_O5f8iAlgdNQ/SmPSPnRa0tI/AAAAAAAAFCQ/wW_URP-ld6o/s1600-h/drop_down-770536.JPG" target="_new">link to dropdown setting</a>

<li>Set function code to first dropdown box to trigger event when you select value from first dropdown box. So that second one is changed.

<li>Declare variable like below in TOP include of the module pool program.

<pre>DATA: g_drop_1 TYPE char10,

g_drop_2 TYPE char10,

ucomm TYPE sy-ucomm.

TYPE-POOLS vrm.

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.</pre>

<li> Use screen flow logic of the screen like below

<pre>"PROCESS BEFORE OUTPUT.

PROCESS BEFORE OUTPUT.

field g_drop_1 MODULE drop_down_1.

field g_drop_2 MODULE drop_down_2.

"PROCESS AFTER INPUT.

PROCESS AFTER INPUT.

field g_drop_1.

field g_drop_2.</pre>

<li>Corresponding code for two drop down boxes.

<pre>&----

*& Module DROP_DOWN_1 OUTPUT

&----

MODULE drop_down_1 OUTPUT.

CLEAR: list[],g_drop_2.

name = 'G_DROP_1'.

value-key = '1'.

value-text = 'value_1'.

APPEND value TO list.

CLEAR value.

value-key = '2'.

value-text = 'value_2'.

APPEND value TO list.

CLEAR value.

value-key = '3'.

value-text = 'value_3'.

APPEND value TO list.

CLEAR value.

value-key = '4'.

value-text = 'value_4'.

APPEND value TO list.

CLEAR value.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list.

ENDMODULE. " DROP_DOWN_1 OUTPUT

&----

*& Module DROP_DOWN_2 OUTPUT

&----

MODULE drop_down_2 OUTPUT.

CLEAR list[].

name = 'G_DROP_2'.

CASE g_drop_1.

WHEN 1 OR 2.

value-key = '1'.

value-text = 'text1'.

APPEND value TO list.

CLEAR value.

value-key = '2'.

value-text = 'text2'.

APPEND value TO list.

CLEAR value.

WHEN 3 OR 4.

value-key = '3'.

value-text = 'text3'.

APPEND value TO list.

CLEAR value.

value-key = '4'.

value-text = 'text4'.

APPEND value TO list.

CLEAR value.

ENDCASE.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list.

ENDMODULE. " DROP_DOWN_2 OUTPUT</pre>

Thanks

Venkat.O</font>