Value selected in Listbox of Selection screen

Hi,
I'm facing a problem where i'm not able to get the value selected in a listbox on selection screen.
TYPE-POOLS : vrm.
DATA : var_itab TYPE vrm_values.
DATA : var_wa LIKE LINE OF var_itab.
DATA: count TYPE i.
Parameters: variant(14) TYPE c AS LISTBOX VISIBLE LENGTH 14.
INITIALIZATION.
count = 1.
name = 'variant'.
SELECT variant FROM varid INTO var_wa-text
                 WHERE report = 'ZP_XXXXXX'.
    var_wa-key = count.
    APPEND var_wa TO var_itab.
    count = count + 1.
ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = var_itab.
START-OF-SELECTION.
WRITE: VARIANT.
Here in Start of selection, the value selected in listbox is not getting written. In fact variable VARIANT does not contain any values.
Please help,
Thanks in advance,

Hi Srinivas,
Thanks for ur reply,
I tried it, it doesnt work.
In Selection screen, it is showing values in listbox.
But i'm not able to catch the value selected there.
If i do:
WRITE: VARIANT.
in start-of-selection.
VARIANT is blank.
Thanks,

Similar Messages

How to populate values into a Listbox on selection screen

Hi All,
Please any one let me know how to populate values (for ex.01,02 and 03) in a list box of selection screen..
Thanks,
Vijay

Try this code ...
REPORT ZLISTBOX.
TYPE-POOLS: VRM.
TABLES SPFLI.
TABLES SSCRFIELDS.
DATA flag.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
PARAMETERS PS_PARM LIKE SPFLI-CARRID AS LISTBOX VISIBLE LENGTH 5
USER-COMMAND fcodex.
data: i_spfli type spfli occurs 0 with header line.
PARAMETERS PQ_PARAM LIKE SPFLI-connid AS LISTBOX VISIBLE LENGTH 15
USER-COMMAND
fcodey.
*DS AS CHECKBOX USER-COMMAND FLAG.
INITIALIZATION.
NAME = 'PS_PARM'.
DATA T TYPE I VALUE 0.
SELECT DISTINCT carrid into corresponding fields of table i_spfli FROM
SPFLI.
loop at i_spfli.
VALUE-KEY = i_spfli-CARRID.
VALUE-TEXT = i_spfli-CARRID.
APPEND VALUE TO LIST.
endloop.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
AT SELECTION-SCREEN.
if sy-ucomm eq 'FCODEX'.
REFRESH LIST.
CLEAR LIST.
PQ_PARAM = ' '.
NAME = 'PQ_PARAM'.
SELECT * FROM SPFLI WHERE CARRID = PS_PARM.
VALUE-KEY = SPFLI-connid.
VALUE-TEXT = SPFLI-connid.
APPEND VALUE TO LIST.
ENDSELECT.
endif.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SY-UCOMM NE 'FCODEX' OR SY-UCOMM NE 'FCODEY'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
START-OF-SELECTION.
clear i_spfli.
refresh i_spfli.
select * into table i_spfli from spfli where carrid = ps_parm and connid
= pq_param.
loop at i_spfli.
WRITE: / 'CITY FROM:', I_SPFLI-CITYFROM, 'CITY TO :',I_SPFLI-CITYTO,
'DEPARTURE TIME :', I_SPFLI-DEPTIME.
ENDLOOP.

How to populate listbox on a screen and get the selected record.

I have place a edit box and converted to listbox .
It should diplay T001-Bukrs values.
When the user selects a value I should get the selected value ...
How can I do that?
The screen is a '0100'. not the normal 1000 selection screen.
Regards.
Erkan.

Hi
You can try something like this to populate the listbox
type-pools: VRM.
data: l_t_values type vrm_values with header line,
        l_wa_ce_conc type pa0001.
clear: l_wa_ce_conc,
         l_t_values.
refresh: l_t_values.
select cod_ce_conc
          des_ce_conc
          into    corresponding fields of l_wa_ce_conc
          from    pa0001
    l_t_values-key         = l_wa_ce_conc-cod_ce_conc.
    l_t_values-text        = l_wa_ce_conc-des_ce_conc.
    append l_t_values.
endselect.
call function 'VRM_SET_VALUES'
       exporting
            id              = 'p0061-cod_ce_conc' <=== Your Dynpro field
            values          = l_t_values[]
       exceptions
            id_illegal_name = 1
            others          = 2.
if sy-subrc <> 0.
    message e398(00) with text-001.
endif.

How to select multiple values from a listbox

Hi,
I have a list box on my UI which is not allowing me to select multiple values
I want to use multi select list box .. When i go to source of UI component and change that to select many listbox my page is not rendering it is giving error
When i drag & drop the component i am unable to drop it as a multi select list box that option is not coming.
I am working on Jdev 11.1.1.3 and I am using ADF/BC components
How to select multiple values from a listbox ?
Thanks,

Hi,
I want to use multi select list box .. When i go to source of UI component and change that to select many listbox my page is not rendering it is giving errorank
And what is the error ?
Frank

Save the selected value from listbox with its respective tab control dropdown selcted values in another listbox

Hi all,
I am making a vi where I have to save the selected value from listbox with its respective tab control dropdown selcted values in another listbox.Whenever I select Item1 then the heading change and respective tab will open for that item.But Now I just want to save the selection and put it in another ListBox.SO that I can renmove or add according to my wish. Plz help me.
Solved!
Go to Solution.
Attachments:
my_vi.png ‏83 KB

Hi, I successfully make the vi to insert itmes from listbox1 to listbox2.Whenever I select itmes 1 in listbox 1 it display same elected item in listbox2 , but it not appending the items in listbox2.Like If 1 is selected in listbox1 then 1 will display , next time after saving when I selct next item like 3 then in listbox 2, 1 is replaced by 3,it dont come in second row of listbox2.Hope I am able to explain.\
Plz help me to resolve this.
Attachments:
listbox_update.vi ‏11 KB

How to use table field values as dynamic parameters on selection screen

Hi,
I need help on dynamic selection parameters.
I need to display no. of parameters from the fields of a database table.
Basically i want to pass field values of a table to selection screen and we can use those values as parameter on selection screen.
If there are 10 entries in a table field( say field is field_name and entries are bukrs,kunnr etc.)
I need to display as many parameters on screen as many values are there in field_name( In this case it is 10)
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETERS:
p_bukrs(5) ,
p_kunnr(5) ,
SELECTION-SCREEN END OF BLOCK b2.
Thanx

Hi,
You can create it using Dynamic Program.Check this link below.
[Creating Dynamic Programs|http://help.sap.com/saphelp_46c/helpdata/en/9f/db996135c111d1829f0000e829fbfe/content.htm]
Hope this might help you.
Thanks,
Prashanth

How to reset values in fileds of a selection screen?

I have a selection screen ,can you please tell me how to reset the values of the fields in selection screen.

Hi,
SELECTION-SCREEN: begin of block blk,
SELECT-OPTIONS FL_DATE FOR SBOOK_WA-FLDATE.
SELECTION-SCREEN: End of block blk,
INITIALIZATION.
REFRESH FL_DATE.
Please Note: Always search SCN before posting.
Hope it helps you,
Regards,
Abhijit G. Borkar

Value selection (F4) in Webrport selection screen

Hi All,
We would like to have Key as well as Description (medium and long) when we go for value selection (F4) for InfoOject in webreport selection screen.How to get this?
for example:
We have ' Status' InfoObject
Key Text
00-not assigned
01-finished
02-Pending
While executing Query in Bex, with F4 we are getting Both Key and Text in selection screen.
But in web report selection screen,we are getting only Key.We want to see key as well as Text.
thanks

Hi AHP,
thanks a lot.
after reading all these notes,i am littile bit confused.
Note 914447 says :
Display as "Key and text" setting in RSDCUBE or RSD1 for an infocube/characteristic will not have effect on the f4 selection in the web variable screen....
F4 dialog from a variable screen always displays text and key only irrespective of the setting for key and text or text and key, since the aim of the dialog is to display both and not concerning the order.
and note 851039 is not relevenat as my infoProvider is not multi Provider.
Note 588704 seems to be relevent but its applicable to release 30B( as its mentioned in note) where as our version is 3.5
can you pl suggest what ashould be done?
Thanks

Restrict variable values in the pop-up selection screen

Hi,
I have a variable based on a caracteristic that has 0COMP_CODE as attribute in a Web Report (BW 3.1B).
This variable has to be accessible so that users can select a value.
I need to restrict the values that users can see on the selection screen according to their 0COMP_CODE value, even in the pop-up.
I have tryed authorization variable and user exit, but none worked.
The best I could do was a "several single values" variable that was preselected with the caracteristics of their 0COMP_CODE, but it didn't worked in the pop-up.
Does anybody knows how to handle this?

As far as I could find out, it should be made through customer exit.
The point is : I have to use a customer exit variable that has been check as "ready for input".
I can't find a way to restrict the values displayed in the variable selection screen (in the help pop-up window for this variable).
The exit can pre-fill the selection fields with values, but whenever the user opens the window, he sees all the values.
I have tryed all the values for I_STEP (0,1,2 and 3) but none did it.
Does anybody knows how to limit those values?

Adding default value for a select-options in a selection-screen

hello gurus,
i have a report program with the following select-options in a selection-screen block:
select-options: so_site for MyTable-werks.
i want the so_site to have a default value once the program displays. can it be possible?
regards,
sid

Hi sid,
1. Whenever we use select-option,
an internal table of type range is
automatically created.
2. so, in fact, we have to put
record in this internal table.
3. eg. Just copy paste in new program.
4.
report abc.
tables : t001.
select-options : bukrs for t001-bukrs.
initialization.
bukrs-sign = 'I'.
bukrs-option = 'EQ'.
bukrs-low = '1000'.
append bukrs.
regards,
amit m.

How to pass Selection screen values to another program's selection screen

Hello,
I have a requriement where in which i need to pass the selection screen values (say list of pernrs) and few others of one program to selection screen of another.
One option that i came across is using Submit. But am unware how to pass only the selection screen values (there wont be any data processing or filtering). Just the values of one prgm's selection screen are to be sent to another.
Thanks
RK

prog1.
data:lt_params type table of RSPARAMS.
data:wa like line of lt_params.
parameters:pa1 type sy-datum.
select-options:so1 type sy-dtaum.
wa-SELNAME = 'PA2'.               "Seletion screen field name
wa-KIND     = 'P'.                    "P-Parameter,S-Select-options
wa-SIGN     = 'I'.                    "I-in
wa-OPTION     = 'EQ'.               "EQ,BT,CP
wa-LOW     = pa1.                    "Selection Option Low,Parameter value
append wa to lt_params.
loop at so1.
wa-SELNAME = 'SO2'.               "Seletion screen field name
wa-KIND     = 'S'.                    "P-Parameter,S-Select-options
wa-SIGN     = 'I'.                    "I-in
wa-OPTION     = 'EQ'.               "EQ,BT,CP
wa-LOW     = so1-low.               "Selection Option Low,Parameter value
wa-HIGH     = so1-high.               "Selection Option Low,Parameter value
append wa to lt_params.
endloop.
CALL FUNCTION 'SUBMIT_REPORT'
EXPORTING
    report                 = 'ZPROG2.'   "report name of ur tocde
    RET_VIA_LEAVE          = ''            "IF 'X' returns to the called program after execution
    SKIP_SELSCREEN         = 'X'       "If 'X' selection screen of called program is not displayed
TABLES
   SELECTION_TABLE        = lt_params       "Contains values to the selection screen
EXCEPTIONS
JUST_VIA_VARIANT       = 1
NO_SUBMIT_AUTH         = 2
OTHERS                 = 3
Prog2.
parameters:pa2 type sy-datum.
select-options:so2 type sy-dtaum.
write pa2.
skip 1.
loop at so2.
write:so2-low,so2-high.
skip 1.
endloop.
Edited by: Keshu Thekkillam on Aug 20, 2009 3:22 PM

Dynamic Selection option in the selection screen

Hi ,
I have a requirement like this ....
The user wants some fields to be default available in the selection screen. But they also want to be able to select the data based on additional fields (all the remaining fields ) which they want to see in the dynamic selection .
The basic list for selections should be limited to the fields listed in the specifications provided to me and the remaining fields should be made available through the dynamic selection option.
In the transaction FBL3N , this facility is provided.
Kindly help me with this..
thanks,
Sumit .

Hi Sumit,
To include dynamic selection check this sample code.
TYPE POOLS DECLARATIONS FOR VALUE REQUEST MANAGER AND ICONS
TYPE-POOLS : vrm,
             icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.*GLOBAL DECLARATIONS
DATA : flag TYPE c,
      tablename(10),
      mmtable LIKE dd02l-tabname,
      sdtable LIKE dd02l-tabname,
      hrtable LIKE dd02l-tabname.*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS : pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
              pb RADIOBUTTON GROUP rad MODIF ID rad,
              pc RADIOBUTTON GROUP rad MODIF ID cad.SELECTION-SCREEN SKIP.**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20 MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20   MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.SELECTION-SCREEN END OF BLOCK blk1.*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2,
                  FUNCTION KEY 3.**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.*CLICK OF FIRST RADIO BUTTON
IF pa = 'X'.
    sscrfields-functxt_01 = 'Materials Management'.
    WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.*CLICK OF SECOND RADIO
IF pb = 'X'.
    sscrfields-functxt_02 = 'Sales And Distribution'.
    WRITE icon_ws_ship AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.*CLICK OF THIRD RADIO
IF pc = 'X'.
    sscrfields-functxt_03 = 'Human Resources'.
    WRITE icon_new_employee AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.*CUSTOMISING THE TOOLBARS OF THE SELECTION SCREEN
*WITH F8 BUTTON DISABLED APPEND : 'PRIN' TO it_ucomm,
            'SPOS' TO it_ucomm,
            'ONLI' TO it_ucomm. CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status = sy-pfkey
    TABLES
      p_exclude = it_ucomm.
**EVENT ON THE SELECTION
AT SELECTION-SCREEN.* LIST BOX ONE VALUES
CASE one.
    WHEN '1'.
      mmtable = 'MARC'.
    WHEN '2'.
      mmtable = 'MARA'.
    WHEN '3'.
      mmtable = 'MARD'.
    WHEN '4'.
      mmtable = 'MARM'.
ENDCASE.* LIST BOX TWO VALUES
CASE two.
    WHEN '1'.
      sdtable = 'VBAK'.
    WHEN '2'.
      sdtable = 'VBAP'.
    WHEN '3'.
      sdtable = 'VBUK'.
    WHEN '4'.
      sdtable = 'VBUP'.
ENDCASE.* LIST BOX THREE VALUES
CASE three.
    WHEN '1'.
      hrtable = 'PA0001'.
    WHEN '2'.
      hrtable = 'PA0006'.
    WHEN '3'.
      hrtable = 'PA0022'.
    WHEN '4'.
      hrtable = 'PA0008'.
ENDCASE.*VALUES FOR CLICK OF THE PUSHBUTTON ON APP TOOLBAR
*AND ENABLING THE BUTTONS TO PERFORM F8
CASE sscrfields-ucomm.
    WHEN 'FC01'.
      tablename = mmtable.
      sscrfields-ucomm = 'ONLI'.
    WHEN 'FC02'.
      tablename = sdtable.
      sscrfields-ucomm = 'ONLI'.
    WHEN 'FC03'.
      tablename = hrtable.
      sscrfields-ucomm = 'ONLI'.
ENDCASE.*INITIALIZATION EVENT
INITIALIZATION.*VALUES ASSIGNED TO DROPDOWNLISTS IN THE SUBROUTINES
PERFORM f4_value_request_pa.
PERFORM f4_value_request_pb.
PERFORM f4_value_request_pc.*START OF SELECTION EVENT
START-OF-SELECTION.*SUBROUTINE FOR OUTPUT
PERFORM output.*&----------------------------------------------------------------*
*&      Form f4_value_request_PA
*       text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST1
FORM f4_value_request_pa. DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'Plant Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'General Material Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Storage Location Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Units of Measure for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'ONE'. CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_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. " f4_value_request_tabname*&----------------------------------------------------------------*
*&      Form f4_value_request_PB
*       text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST2FORM f4_value_request_pb. DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'Sales Document: Header Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'Sales Document: Item Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Sales Document:Header Status'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Sales Document: Item Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'TWO'.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_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. " f4_value_request_PB*&----------------------------------------------------------------*
*&      Form f4_value_request_PC
*       text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST3FORM f4_value_request_pc. DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'HR Master :Infotype 0001 (Org. Assignment)'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'Address Infotype 0006'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Education Infotype 0022'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Basic Pay Infotype 0008'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'THREE'.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_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. " f4_value_request_PC
*&      Form OUTPUT
*       text
*      -->P_TABLENAME text
*fINAL OUTPUT
FORM output. DATA p_table(10). p_table = tablename.*popup to display teh selected table and
*Continue button is clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
    EXPORTING
      titel        = 'User Selections '
      textline1    = p_table
      textline2    = 'is the Selected table'
      start_column = 25
      start_row    = 6.*assigning the table value in p_table to the
* Table in SE16 transaction by explicitly calling
SET PARAMETER ID 'DTB' FIELD p_table.
CALL TRANSACTION 'SE16'.
ENDFORM.                    "OUTPUT
Regards,
Manoj Kumar P

Disable listbox after selecting item.

Hello
I want to disable the listbox after selecting some item from that list..
for example :
first the user select item from the list (at this time listbox is not disable) then after selecting, it should not allow user to change it (so i want to disable it).
I tried "loop at screen" in which i did screen-input = 0. but its not working.
Please help me...
Regards
Virendra

Hi,
TYPE-POOLS vrm.
PARAMETERS : lb TYPE char10 VISIBLE LENGTH 15 AS LISTBOX USER-COMMAND lb.
DATA : vrm_id TYPE vrm_value-text,
          vrm_values TYPE vrm_value OCCURS 0 WITH HEADER LINE.
AT SELECTION-SCREEN OUTPUT.
IF NOT lb IS INITIAL.
    LOOP AT SCREEN.
      IF screen-name = 'LB'.
        screen-input = 0.
"        MODIFY SCREEN. --> You forgot add this Code
" This is a tested piece of Code Just Execute and Check
      ENDIF.
    ENDLOOP.
ENDIF.
LOOP AT SCREEN.
    IF screen-group1 = 'AA' OR
      screen-group1 = 'BB' OR
      screen-group1 = 'CC'.
      screen-invisible = 1.
      screen-active = 0.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
REFRESH vrm_values.
vrm_values-key = 'VBELN'.
vrm_values     = 'VBELN'.
APPEND vrm_values.
vrm_values-key = 'MATNR'.
vrm_values     = 'MATNR'.
APPEND vrm_values.
vrm_values-key = 'AUFNR'.
vrm_values     = 'AUFNR'.
APPEND vrm_values.
vrm_id = 'LB'.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = vrm_id
      values          = vrm_values[]
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
Cheerz
Ram

Default Current year in select option field on selection Screen

Dear Experts,
I want to set current year as default value in fiscal year select-options field on selection screen.
for this, i hv written following code
DATA:VAR_DATE TYPE SY-DATUM.
DATA VAR(4) TYPE C.
VAR_DATE = SY-DATUM.
VAR = VAR_DATE+0(4).
this retrieves current year .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS I11 FOR ANLC-GJAHR DEFAULT VAR TO VAR..                            "Fiscal Year
SELECTION-SCREEN END OF BLOCK B1.
Now when i am executing program pop-up is raised describing "Specify the range Limits". Please help.
Regards,
Apoorv Sharma

>
Ganga Bhavani R wrote:
> Use below lines.
>
> SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
> SELECT-OPTIONS I11 FOR ANLC-GJAHR DEFAULT SY-DATUM+0(4). "Fiscal Year
> SELECTION-SCREEN END OF BLOCK B1.
Hi, Ganga,
I think it will not working properly that way, Please test the bellow Sample Code.
TABLES: anlc.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS i11 FOR anlc-gjahr .
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
IF i11[] IS INITIAL.
    i11-low = sy-datum+0(4).
    APPEND i11.
ENDIF.
Thanks and Regards,
Faisal

Selection parmeters in the selection screen to upload a file to applserver

what are the selection parmeters in the selection screen to upload a file to applserver

hai bharat,
     There are two steps in the solution of this problem.
1. Create an internal table to get the required data based on the given selection parameters.
2. Download the data from internal table to file on the application server.
In the first step,
you should create the internal table with the required structure.
(ii) Use select statement if you want to retrieve data from database with required logic.
In the second step,
Create a string with max. length you required in the report program with some intial value
(ii) Open a dataset by using
OPEN DATASET filename for output in text mode encoding default
to open a file on application server.
(iii) Transfer data from internal table to file opened in first step on application server.To do that
a) Use
      Loop at itab1 into w_itab(workarea).
        transfer w_itab to filename.
      endloop.
(iv) close the data set by using
      CLOSE DATASET filename.
After this step, the file with filename was created on the application server with selected data based on the selectionj parameters.
If you feel, this is useful , reward points.
by
prasad g.v.k

Value selected in Listbox of Selection screen

Similar Messages

Maybe you are looking for