topic Re: List-box - USERCOMMAND in Application Development and Automation Discussions

List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 11:50:50 GMT

Hello all,,

am using the following code.

How i need to work this listbox with user-command.

TYPE-POOLS : VRM.
DATA : VALUES TYPE vrm_values.
DATA : VW LIKE LINE OF VALUES.

PARAMETERS : LIST(10) TYPE c AS LISTBOX VISIBLE LENGTH 10." user-command


INITIALIZATION.
vw-key = '1'.
vw-text = 'SUN'.
APPEND vw TO VALUES.

vw-key = '2'.
vw-text = 'MON'.
APPEND vw TO VALUES.


vw-key = '3'.
vw-text = 'TUE'.
APPEND vw TO VALUES.

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'LIST'
values = VALUES
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.

Re: List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 11:53:01 GMT

hi,

can u make it somewhat clear?

Re: List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 12:00:47 GMT

yes, on selecting any value from list-box, it should display a list.

instead of pressing the execution button, just by selecting value from the list, it should go to the list.

in response to the user command of selecting.

Re: List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 12:05:10 GMT

but where to display..?

Re: List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 12:28:05 GMT

tale an example:

write:/ 'Hello'.

that's it.

it should come on selecting some value from the list box.

Could you HELP me????

Re: List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 12:35:28 GMT

ok..

means u using module pool and u having list box in selection criteria and when u select something from list box... some action shold take place.....

Is that so?

Re: List-box - USERCOMMAND

Former Member — Mon, 10 Dec 2007 12:59:08 GMT

hi,

if this is the scenario than i have one example.

I have one list box on screen and one table control.

when i select some value in list box and press enter, table control fill with the values accor. to list box.

for this i have done like,

MODULE user_command_1000 INPUT.

CASE ok_code.

WHEN 'BACK' OR 'UP' OR 'CANC'.

LEAVE PROGRAM.

WHEN ''.

IF itab-matnr IS NOT INITIAL.

PERFORM get_val.

ENDIF. ENDCASE.

ENDMODULE. " USER_COMMAND_1000 INPUT

itab-matnr is my field which is list box.....

FORM get_val .

SELECT mblnr INTO CORRESPONDING FIELDS OF TABLE itab1 FROM mseg

WHERE matnr = itab-matnr.

ENDFORM. " get_val

try this

reward if useful