topic Re: list box in module pool programming in Application Development and Automation Discussions

list box in module pool programming

former_member125931 — Mon, 13 Apr 2009 13:24:04 GMT

Hi All,

In Module pool program I given drop down for a field,

drop down list is comming but not holding the values in the field,

below is my code in PBO.

 type-pools: vrm.

  data: begin of itab occurs 0,
        field(10) type c,
        end of itab.

  data: ivrm_values type vrm_values.
  data: xvrm_values like line of ivrm_values.
  data: name type vrm_id.

  name = 'ITAB-FIELD'.


  refresh i_ltak.
  select LGNUM BNAME from ltak
    into table i_ltak2.

  delete adjacent duplicates from i_ltak2.

  loop at i_ltak2 into wa_ltak2.

    xvrm_values-key = wa_ltak2-lgnum.
    xvrm_values-text = wa_ltak2-bname.
    append xvrm_values to ivrm_values.

    call function 'VRM_SET_VALUES'
      EXPORTING
        id     = name
        values = ivrm_values.

thanks n regds,

sree,

Re: list box in module pool programming

Former Member — Mon, 13 Apr 2009 13:35:32 GMT

Hi Sree,

is your FM 'VRM_SET_VALUES' is with in the loop.....? or out side....?

and do below.

loop at i_ltak2 into wa_ltak2.
 
    xvrm_values-key = wa_ltak2-lgnum.
    xvrm_values-text = wa_ltak2-bname.
    append xvrm_values to ivrm_values.
 endloop.

    call function 'VRM_SET_VALUES'
      EXPORTING
        id     = 'NAME'    "See this
        values = ivrm_values.

i have done below.

* This fm will get the values from the list box of DEVICEID field
  CALL FUNCTION 'VRM_GET_VALUES'
    EXPORTING
      id            = 'deviceid'
    IMPORTING
      values        = lt_values    " even it is not the expor parameter...it will work..
   EXCEPTIONS
     id_not_found   = 1
     OTHERS         = 2.
  IF sy-subrc NE 0.
*   No sy-subrc check required.
  ENDIF.

for me it works.

Thanks!

Edited by: Prasanth on Apr 13, 2009 7:07 PM

Re: list box in module pool programming

Former Member — Mon, 13 Apr 2009 13:39:36 GMT

You can try with the below function module also.

call function 'F4IF_INT_TABLE_VALUE_REQUEST'

exporting

retfield = 'NAME'

tables

value_tab = ivrm_values

EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.

Regards,

Aswin.

Re: list box in module pool programming

Former Member — Mon, 13 Apr 2009 13:39:51 GMT

Hi Sree,

Call the FM 'VRM_SET_VALUES' after the loop at i_ltak2 instead of calling with in the loop.

Hope this helps!!!

Regards,

Hemanth

Re: list box in module pool programming

Former Member — Mon, 13 Apr 2009 13:56:41 GMT

HI...

Goto to se51 in ur form painter..

select ur field and double click on it..

In the attributes window...select the listbox in dropdown field.

And Use the below shown FM as per ur requirement---

DATA : BEGIN OF VALUE ,

FRMNM TYPE PINPF-FRMNM,

END OF VALUE .

DATA : VTAB LIKE TABLE OF VALUE ,

VAL LIKE LINE OF VTAB .

CLEAR VTAB .

MOVE 'YES' TO VAL-FRMNM .

APPEND VAL TO VTAB .

CLEAR VAL .

MOVE 'NO' TO VAL-FRMNM .

APPEND VAL TO VTAB .

CLEAR VAL .

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

RETFIELD = 'FRMNM'

PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'ZSTORES-MODVATE'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

VALUE_TAB = VTAB

FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.