Restriction of space in a List box

Hello All,
Would any will suggest how to resrrict a apce in a List box..I am using the function module VRM_SET_VALUES to display values in list box and also I am getting one space row aprt from my actual values...
Thanks,
Vijay

Hi Vijay,
Make ur Parameter as Obligatory.
Ex:
PARAMETERS: p_matnr TYPE matnr OBLIGATORY AS LISTBOX VISIBLE LENGTH 20 .
Thanks,

Similar Messages

How to reduce List Box prompt height

Hello,
I have a list box prompt which contains 20 values, but there is space for close to 30 values. I want to reduce that space for the list box to fit only the said number of values. I have tried reducing the height of the box (going to edit properties of the prompt and changed the value against Height), but there is no change in the prompt height.
Can anyone please help me in changing the height of this list box, so that it has no space available below the last value displayed in my prompt..?
Thanks and Regards,
P.R

Hi,
This is found working-
SELECT "Diversity Gender"."Diversity Gender Key" FROM "GECIS Consolidated Model" where "Diversity Gender"."Diversity Gender Key" IS NOT NULL
Regards
MuRam
NOTE: Please mention if this resolved your problem/still facing and close the thread.

IS there a way to fix the issue with text list boxes where they shift (empty space is smaller than the text size) when two text lsit boxes are side by side?

Currently I have a webpage I designed for a company where I have multiple text list boxes side by side for the purpose of displaying data in each one based on a category in the database. So a text list box for the primary key, name, serial number, etc. I have to use Firefox as it typically works best for printing and functionality for the page. The single issue we are having is that in Firefox if the field is null as far as text the text are shrinks meaning all the data in that list box shifts up and is no longer in line with its congruent data in the other text list boxes. In other browsers that's not a problem and everything stays lined up regardless of whether there's text in the box or not.
Unfortunately I cannot provide a link but if contacted I will provide screen shots.

Try posting at the Web Development / Standards Evangelism forum at MozillaZine. The helpers over there are more knowledgeable about web page development issues with Firefox. 
http://forums.mozillazine.org/viewforum.php?f=25 
You'll need to register and login to be able to post in that forum.

In ALV list box

How to set the List box to the field in ALV Grid/List display.

If you don't have a newer version, then you won't have this program. I copied it out of my 6.40 engine into my 46c system and modified it, so that you don't have to create a screen. Just copy/paste the code in SE38. It will show you what you need to do. If you don't have any flight data in your system run program SAPBC_TOOLS_GENERATOR_NEW
report zrich_0003 .
* Purpose:
* ~~~~~~~~
* This example shows how to define a dropdown listbox for all cells
* of one column in an editable ALV Grid Control.
* To check program behavior
* ~~~~~~~~~~~~~~~~~~~~~~~~~
* Klick on the dropdown button of column 'WUNIT'. It shows
* 'KG' and 'G' as suitable units for luggage weight.
* (The standard F4-Help shows many other units that does not
* make sense in this context).
* Essential steps (search for '§')
* ~~~~~~~~~~~~~~~
* 1.Define a dropdown table and pass it to ALV.
* 2.Set status of column WUNIT to editable and set a dropdown handle.
data: ok_code like sy-ucomm,
      save_ok like sy-ucomm,
      g_container type scrfname value 'BCALV_GRID_DEMO_0100_CONT1',
      g_docking type ref to cl_gui_docking_container,
      g_grid type ref to cl_gui_alv_grid,
      g_custom_container type ref to cl_gui_custom_container,
      gt_fieldcat type lvc_t_fcat,
      gs_layout type lvc_s_layo,
      g_max type i value 100.
data: gt_outtab type table of sbook.
data: repid type sy-repid.
parameters: p_check.
at selection-screen output.
repid = sy-repid.
create object g_docking
              exporting repid     = repid
                        dynnr     = sy-dynnr
                        side      = g_docking->dock_at_left
                        extension = 1700.
if g_custom_container is initial.
    perform create_and_init_alv changing gt_outtab
                                         gt_fieldcat.
endif.
*&      Form BUILD_FIELDCAT
form build_fieldcat changing pt_fieldcat type lvc_t_fcat.
data ls_fcat type lvc_s_fcat.
call function 'LVC_FIELDCATALOG_MERGE'
       exporting
            i_structure_name = 'SBOOK'
       changing
            ct_fieldcat      = pt_fieldcat.
loop at pt_fieldcat into ls_fcat.
    if    ls_fcat-fieldname eq 'WUNIT'.
*§2.Set status of column WUNIT to editable and set a dropdown handle.
      ls_fcat-edit = 'X'.
      ls_fcat-drdn_hndl = '1'.
      ls_fcat-outputlen = 7.
* Field 'checktable' is set to avoid shortdumps that are caused
* by inconsistend data in check tables. You may comment this out
* when the test data of the flight model is consistent in your system.
      ls_fcat-checktable = '!'.        "do not check foreign keys
      modify pt_fieldcat from ls_fcat.
    endif.
endloop.
endform.
*&      Form CREATE_AND_INIT_ALV
form create_and_init_alv changing pt_outtab like gt_outtab[]
                                  pt_fieldcat type lvc_t_fcat.
data: lt_exclude type ui_functions,
        lt_f4 type lvc_t_f4 with header line.
create object g_grid
         exporting i_parent = g_docking.
* Build fieldcat and set column WUNIT
* edit enabled. Assign a handle for the dropdown listbox.
perform build_fieldcat changing pt_fieldcat.
* Optionally restrict generic functions to 'change only'.
*   (The user shall not be able to add new lines).
perform exclude_tb_functions changing lt_exclude.
* Define a drop down table.
perform set_drdn_table.
select * from sbook into table pt_outtab up to g_max rows.
                                                       "#EC ci_nowhere
if sy-subrc ne 0.
* generate own entries if database table is empty
    perform generate_entries changing pt_outtab.
endif.
call method g_grid->set_table_for_first_display
       exporting it_toolbar_excluding = lt_exclude
       changing it_fieldcatalog       = pt_fieldcat
                 it_outtab             = pt_outtab.
* Set editable cells to ready for input initially
call method g_grid->set_ready_for_input
   exporting
    i_ready_for_input = 1.
clear lt_f4.
lt_f4-fieldname = 'WUNIT'.
lt_f4-register = 'X'.
append lt_f4.
endform.
*&      Form EXCLUDE_TB_FUNCTIONS
form exclude_tb_functions changing pt_exclude type ui_functions.
* Only allow to change data not to create new entries (exclude
* generic functions).
data ls_exclude type ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
append ls_exclude to pt_exclude.
endform.
*&      Form set_drdn_table
form set_drdn_table.
*§1.Define a dropdown table and pass it to ALV.
*   One listbox is referenced by a handle, e.g., '1'.
*   For each entry that shall appear in this listbox
*   you have to append a line to the dropdown table
*   with handle '1'.
*   This handle can be assigned to several columns
*   of the output table using the field catalog.
data: lt_dropdown type lvc_t_drop,
        ls_dropdown type lvc_s_drop.
* First listbox (handle '1').
ls_dropdown-handle = '1'.
ls_dropdown-value = 'KG'.
append ls_dropdown to lt_dropdown.
ls_dropdown-handle = '1'.
ls_dropdown-value = 'G'.
append ls_dropdown to lt_dropdown.
call method g_grid->set_drop_down_table
            exporting it_drop_down = lt_dropdown.
endform.
*&      Form generate_entries
form generate_entries changing pt_sbook type standard table.
* This form is only needed if database table sbook is empty.
* It generates some entries so that you may
* still try out this example program.
data: ls_sbook type sbook,
        l_month(2) type c,
        l_day(2) type c,
        l_date(8) type c,
     l_prebookid type i.
ls_sbook-carrid = 'LH'.
ls_sbook-connid = '0400'.
ls_sbook-forcurkey = 'DEM'.
ls_sbook-loccurkey = 'USD'.
ls_sbook-custtype = 'B'.
do 110 times.
    l_prebookid = sy-index.
    ls_sbook-forcuram = sy-index * 10.
    ls_sbook-loccuram = ls_sbook-loccuram * 2.
    ls_sbook-customid = sy-index.
    ls_sbook-counter = 18.
    ls_sbook-agencynum = 11.
    l_month = sy-index / 10 + 1.
    do 2 times.
      l_day = 3 + l_month + sy-index * 2.
      l_date+0(4) = '2000'.
      l_date+4(2) = l_month.
      l_date+6(2) = l_day.
      ls_sbook-fldate = l_date.
      subtract 3 from l_day.
      ls_sbook-order_date+0(6) = l_date+0(6).
      ls_sbook-order_date+6(2) = l_day.
      ls_sbook-bookid = l_prebookid * 2 + sy-index.
      if sy-index eq 1.
        ls_sbook-smoker = 'X'.
      else.
        ls_sbook-smoker = space.
      endif.
      ls_sbook-luggweight = l_prebookid * 10.
      if ls_sbook-luggweight ge 1000.
        ls_sbook-wunit = 'G'.
        ls_sbook-class = 'C'.
      else.
        ls_sbook-wunit = 'KG'.
        ls_sbook-class = 'Y'.
      endif.
      if ls_sbook-bookid > 40 and ls_sbook-wunit eq 'KG'.
        ls_sbook-invoice = 'X'.
      endif.
      if ls_sbook-bookid eq 2.
        ls_sbook-cancelled = 'X'.
        ls_sbook-class = 'F'.
      endif.
      append ls_sbook to pt_sbook.
    enddo.
enddo.
endform.
Please make sure to award points for helpful answers and mark your post as solved when you problem is solved. THanks.
Regards,
Rich Heilman

Event for the List Box in ALV Grid Control

Hello,
I have the below urgent requirment.
I have an ALV Grid Control built using ABAP Objects. In the grid, I have few fields and one of these fields is a List Box. Depending on the values selected, I need to enable or disable some fields. So, is there any event for the List box in ALV Grid Control.
For ex: I have 2 Fields, Designation and Commission. The designation field is a List Box field having 'Software Engineer' and 'Manager' as values. When I select 'Software Engineer', the commission field should be disabled. When I select 'Manager', the comission field should be enabled.
Early reply is hightly appreciated.
Priya

REPORT ZTEST1234 MESSAGE-ID ZZ .
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_VALID TYPE C,
 V_FLAG,
 V_DATA_CHANGE,
 V_ROW TYPE LVC_S_ROW,
 V_COLUMN TYPE LVC_S_COL,
 V_ROW_NUM TYPE LVC_S_ROID.
DATA: OK_CODE LIKE SY-UCOMM,
 SAVE_OK LIKE SY-UCOMM,
 G_CONTAINER1 TYPE SCRFNAME VALUE 'TEST',
 GS_LAYOUT TYPE LVC_S_LAYO.
DATA:BEGIN OF ITAB OCCURS 0,
 VBELN LIKE LIKP-VBELN,
 POSNR LIKE LIPS-POSNR,
 COMISN(10),
 CELLCOLOR TYPE LVC_T_SCOL, "required for color
 DROP(20),
 HANDLE_STYLE TYPE LVC_T_STYL,
 END OF ITAB.
* CLASS lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
 METHODS:
**Hot spot Handler
 HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,
**Handler to Check the Data Change
 HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED
 OF CL_GUI_ALV_GRID
 IMPORTING ER_DATA_CHANGED
 E_ONF4
 E_ONF4_BEFORE
 E_ONF4_AFTER,
**Double Click Handler
 HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN ES_ROW_NO.
ENDCLASS. "lcl_event_handler DEFINITION
* CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
 CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.
 V_ROW = E_ROW_ID.
 V_COLUMN = E_COLUMN_ID.
 V_ROW_NUM = ES_ROW_NO.
 MESSAGE I000 WITH V_ROW 'clicked'.
ENDMETHOD. "lcl_event_handler
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK.
ENDMETHOD. "handle_double_click
**Handle Data Change
METHOD HANDLE_DATA_CHANGED.
 DATA: X_CHANGE TYPE LVC_S_MODI,
 X_FINAL TYPE ITAB,
 L_FLAG,
 LS_OUTTAB LIKE LINE OF ITAB.
 DATA: LS_EDIT TYPE LVC_S_STYL,
 LT_EDIT TYPE LVC_T_STYL.
 LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO X_CHANGE.
 IF X_CHANGE-FIELDNAME = 'DROP' AND X_CHANGE-VALUE = 'S/W ENGINEER'.
 LS_EDIT-FIELDNAME = 'COMISN'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
 MODIFY ITAB INDEX X_CHANGE-ROW_ID FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
 else.
 LS_EDIT-FIELDNAME = 'COMISN'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
 MODIFY ITAB INDEX X_CHANGE-ROW_ID FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
 ENDIF.
 ENDLOOP.
 CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY
 EXCEPTIONS
 FINISHED = 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.
ENDMETHOD. "HANDLE_DATA_CHANGED
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
*& Global Definitions
DATA: G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1
 G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler
*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
 X_FIELDCAT TYPE LVC_S_FCAT,
 LS_VARI TYPE DISVARIANT.
* START-OF_SELECTION
START-OF-SELECTION.
SELECT VBELN
 POSNR
 FROM LIPS
 UP TO 20 ROWS
 INTO CORRESPONDING FIELDS OF TABLE ITAB.
END-OF-SELECTION.
IF NOT ITAB[] IS INITIAL.
 CALL SCREEN 100.
ELSE.
 MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
ENDIF.
*& Form CREATE_AND_INIT_ALV
* text
FORM CREATE_AND_INIT_ALV .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING CONTAINER_NAME = G_CONTAINER1.
CREATE OBJECT G_GRID
 EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
* Set a titlebar for the grid control
CLEAR GS_LAYOUT.
GS_LAYOUT-GRID_TITLE = TEXT-003.
 GS_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
GS_LAYOUT-ZEBRA = SPACE.
GS_LAYOUT-CWIDTH_OPT = 'X'.
GS_LAYOUT-NO_ROWMARK = 'X'.
GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'.
 CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.
CREATE OBJECT G_HANDLER.
SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.
 SET HANDLER G_HANDLER->HANDLE_DATA_CHANGED FOR G_GRID.
DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color
DATA: L_INDEX TYPE SY-TABIX.
"Here i am changing the color of line 1,5,10...
"so you can change the color of font conditionally
LOOP AT ITAB.
 L_INDEX = SY-TABIX.
 IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10.
 LS_CELLCOLOR-FNAME = 'VBELN'.
 LS_CELLCOLOR-COLOR-COL = '6'.
 LS_CELLCOLOR-COLOR-INT = '0'.
 LS_CELLCOLOR-COLOR-INV = '1'.
 APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
 MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
 LS_CELLCOLOR-FNAME = 'POSNR'.
 LS_CELLCOLOR-COLOR-COL = '6'.
 LS_CELLCOLOR-COLOR-INT = '0'.
 LS_CELLCOLOR-COLOR-INV = '1'.
 APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
 MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
 ENDIF.
ENDLOOP.
* setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = G_GRID.
* Build fieldcat and set editable for date and reason code
* edit enabled. Assign a handle for the dropdown listbox.
PERFORM BUILD_FIELDCAT.
PERFORM SET_DRDN_TABLE.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
**Vaiant to save the layout
LS_VARI-REPORT = SY-REPID.
LS_VARI-HANDLE = SPACE.
LS_VARI-LOG_GROUP = SPACE.
LS_VARI-USERNAME = SPACE.
LS_VARI-VARIANT = SPACE.
LS_VARI-TEXT = SPACE.
LS_VARI-DEPENDVARS = SPACE.
CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.
**Calling the Method for ALV output
CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_VARIANT = LS_VARI
 IS_LAYOUT = GS_LAYOUT
 I_SAVE = 'A'
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT
 IT_OUTTAB = ITAB[].
* Set editable cells to ready for input initially
CALL METHOD G_GRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
ENDFORM. "CREATE_AND_INIT_ALV
*& Form EXCLUDE_TB_FUNCTIONS
* text
* -->PT_EXCLUDE text
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.
* Only allow to change data not to create new entries (exclude
* generic functions).
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM. " EXCLUDE_TB_FUNCTIONS
*& Form build_fieldcat
* Fieldcatalog
FORM BUILD_FIELDCAT .
DATA: L_POS TYPE I.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(025).
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Drop'(025).
X_FIELDCAT-FIELDNAME = 'DROP'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-DRDN_HNDL = '1'.
X_FIELDCAT-DRDN_ALIAS = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Comissn'(025).
X_FIELDCAT-FIELDNAME = 'COMISN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EDIT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM. " build_fieldcat
*& Module STATUS_0100 OUTPUT
* text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER IS INITIAL.
**Initializing the grid and calling the fm to Display the O/P
 PERFORM CREATE_AND_INIT_ALV.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form SET_DRDN_TABLE
* text
FORM SET_DRDN_TABLE.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = 'S/W Engineer'.
LS_DRAL-INT_VALUE = 'S/W Engineer'.
APPEND LS_DRAL TO LT_DRAL.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = 'Manager'.
LS_DRAL-INT_VALUE = 'Manager'.
APPEND LS_DRAL TO LT_DRAL.
**Setting the Drop down table for Reason Code
CALL METHOD G_GRID->SET_DROP_DOWN_TABLE
 EXPORTING
 IT_DROP_DOWN_ALIAS = LT_DRAL.
ENDFORM. " set_drdn_table
Regards
vijay

How to capture the selected values from module pool dialog list box !

Hi experts,
Can anyone help me out in capturing the values from the list box.
i am able to set the values in the list box.But i am not able to capture the selected value from the list box. Always the list box name is getting as "space"
I also tried in using the FM "VRM_GET_VALUES" but it is retireving all the values. Is there is any flag for filttering out the selected value.
Your inputs are appreciated.
Thanks,
Vijay.

Along with the PBO and PAI event, add a POV event in the flow logic of the screen
DEMO_DROPDOWN_LIST_BOX -is a good demo example.
PROCESS ON VALUE-REQUEST.
FIELD structure_name-field_name MODULE create_dropdown_box.
In the report :
MODULE create_dropdown_box INPUT.
SELECT carrid carrname
 FROM scarr
 INTO CORRESPONDING FIELDS OF TABLE itab_carrid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 retfield = 'CARRID'
 value_org = 'S'
 TABLES
 value_tab = itab_carrid
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
ENDMODULE.
In the layout, assign a Function Code , for eg : 'SELECTED' to the listbox and lets say name of the field is SDYN_CONN-CARRID. So in the PAI module,
MODULE user_command_0100 INPUT.
CASE ok_code.
 WHEN 'SELECTED'.
 MESSAGE i888(sabapdocu) WITH sdyn_conn-carrid.
ENDCASE.
ENDMODULE.
sdyb_conn-carrid will contain your selected field

List box values in module pool

Hi All,
Plz help me out in this regard..
I have designed a screen with 20 list boxes around and i am getting values for list boxes also.the main problem is coming when after selecting values....
that is after selecting values if i press enter on the screen the values are over written by space..
The default value for list boxes are space.
how to over come this problem...Plz help me out
Regards,
Sudha

PAI
MODULE user_command_1000 INPUT.
CASE sy-ucomm.
WHEN 'SAVER'.
 IF zrule_date_from > zrule_date_to.
 MESSAGE e000 WITH : 'RUN_VALIDITY_TO_DATE can not be Less'(001)
 'Than RUN_VALIDITY_FROM_DATE'(002).
 EXIT.
 ENDIF.
 IF zrule_date_to < sy-datum.
 MESSAGE e000 WITH : 'RUN_VALIDITY_TO_DATE can not be Less'(003)
 'Than System Date.'(004).
 EXIT.
 ENDIF.
 wa_rule-zrule_date_from = zrule_date_from.
 wa_rule-zrule_date_to = zrule_date_to.
 wa_rule-zrule_name = zrule_name.
 wa_rule-zrule_id = zrule_id.
 wa_rule-zrule_pref = zrule_pref.
ONCATENATE 'Where' rule_for1a operator1a values1a
 andor1 rule_for2a operator2a values2a
 andor2 rule_for3a operator3a values3a
 andor3 rule_for4a operator4a values4a
 andor4 rule_for5a operator5a values5a
 andor5 rule_for6a operator6a values6a
 andor6 rule_for7a operator7a values7a
 andor7 rule_for8a operator8a values8a
 INTO wa_rule-zrule_clause SEPARATED BY space.
In this code andor6(7,8,etc) has (and or)
and operator8a(7a,6a etc) has (+,- <,>) and when i do enter these two get cleared. why does this happen?
MY PBO code is
MODULE status_1000 OUTPUT.
SET PF-STATUS 'RULE'.
SET TITLEBAR '1000'.
ENDMODULE. " STATUS_1000 OUTPUT
*& Module fill_lists OUTPUT
For Filling List Boxes
MODULE fill_lists OUTPUT.
**********1
 name = 'ANDOR1'.
 value-key = 1.
 value-text = 'AND'.
 MOVE value-text TO value-text.
 APPEND value TO list.
 value-key = 2.
 value-text = 'OR'.
 MOVE value-text TO value-text.
 APPEND value TO list.
 PERFORM LIST_BOX.
 CLEAR LIST.
**************2
 name = 'ANDOR2'.
 value-key = 1.
 value-text = 'AND'.
 MOVE value-text TO value-text.
 APPEND value TO list.
 value-key = 2.
 value-text = 'OR'.
 MOVE value-text TO value-text.
 APPEND value TO list.
 PERFORM LIST_BOX.
 CLEAR LIST.
************3
 name = 'ANDOR3'.
 value-key = 1.
 value-text = 'AND'.
 MOVE value-text TO value-text.
 APPEND value TO list.
 value-key = 2.
 value-text = 'OR'.
 MOVE value-text TO value-text.
 APPEND value TO list.
 PERFORM LIST_BOX.
 CLEAR LIST.
etc.

Displaying list box field in PDF

I have exported to an interactive PDF which contains radio buttons, text fields, combo boxes and list boxes. This form is to be viewed on an iPhone 5 in Adobe Reader. All the form objects work except for the combo/list boxes. They appear and a selection can be made but the selection is not displayed in the box. I have tried to enlarge the box, thinking it was too small to display the text.
I have tested it on an Ipad 3 and an android phone and it doesnt work but it does work on a desktop. The reader app is up-to-date on all devices. This is how it displays (sorry about the quality). The option within the list box are "nothing" ie space, Y and N. Before a selection is made the arrow is displayed but after a selection is made the box is blank.
Can someone please tell me if there is a compatibility issue or a work around for this problem.
Thanks!
Gemma

One more thing: There is a workaround for those who own Acrobat for Windows or Mac. You should be able to open forms with this problem in Acrobat, modify the default values in these fields, return the default values in those fields to their desired state and then resave the document from Acrobat (windows or mac). This forces Acrobat to save the fields in a way that the mobile Readers can properly display and edit. While we absolutely should fix the bug to properly display fields created by InDesign, this workaround may be useful for others so I am posting it here.

Blank line in DropDown List box

I have a case where I want to add a blank entry in a drop down list box that is bound to a database table. I want the blank to be the default, then the user can select the bound values if desired. How do I do this without binding the drop down box to a prepopulated array?

Hi
Go to the JSP source of that page and add
<f:selectItem itemLabel="None" itemValue="0"/> before
the line <f:selectItems binding="#{Page1.dropdown1SelectItems}" ....
With this you can deselect the previous selection by selecting None from the dropdown list. You can also use blank spaces instead of None.
Thanks
Srinivas

Problem in picking up the value from list box

Hi,
I have created a parameter list box on the selection screen using VRM_SET_VALUES fn module and populating the list box. Now my problem is when i select one value from the list box and executing, it shows null value.
AT SELECTION-SCREEN OUTPUT.
PERFORM f_f4help.
FORM f_f4help .
REFRESH: gt_tvaut,
 gs_list.
CLEAR: gs_tvau,
 gs_value.
SELECT spras
 augru
 bezei
 FROM tvaut
 INTO TABLE gt_tvaut
 WHERE spras EQ sy-langu.
IF NOT gt_tvaut[] IS INITIAL.
 LOOP AT gt_tvaut INTO gs_tvau.
 gs_value-key = sy-tabix.
 CONCATENATE gs_tvau-augru
 gs_tvau-bezei
 INTO gs_value-text
 SEPARATED BY space.
 APPEND gs_value TO gs_list.
 ENDLOOP.
ENDIF.
param = 'P_AUGRU'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = param
 values = gs_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.
How to get the value which is selected in the selection screen becoz i'm using p_augru in further selection queries..
i have tried reading gs_list table but its not working.

Move the portion of function call 'VRM_SET_VALUES' to event at selection-screen on value-request for P_AUGRU. Rest is OK...
I mean, Your code should be like this.
AT SELECTION-SCREEN OUTPUT.
PERFORM f_f4help_values.
FORM f_f4help_values.
REFRESH: gt_tvaut,
 gs_list.
CLEAR: gs_tvau,
 gs_value.
SELECT spras
 augru
 bezei
 FROM tvaut
 INTO TABLE gt_tvaut
 WHERE spras EQ sy-langu.
IF NOT gt_tvaut[] IS INITIAL.
LOOP AT gt_tvaut INTO gs_tvau.
 gs_value-key = sy-tabix.
 CONCATENATE gs_tvau-augru
 gs_tvau-bezei
 INTO gs_value-text
 SEPARATED BY space.
 APPEND gs_value TO gs_list.
ENDLOOP.
ENDIF.
ENDFORM.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_AUGRU.
PERFORM f_f4help.
FORM f_f4help
param = 'P_AUGRU'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
 id = param
 values = gs_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.
Rgds,
Birendra

List Box Problem

Hello Sir,
The Problem that I am facing is not difficult but Confusing.
In my First Jsp Page I have 2 Select boxes(Combo Boxes or U may Call List Box).
I have Allowed Multiselect.
the Second List Box is Empty.The person is allowed to Select what ever he wishes from the First Select Box to the Second List Box.
Now after Selecting all his Options when he Submits his form the request is Delegated to another JSP.
The Problem that I am facing is that I want all the item's that
Are Present in the Second Lsit Box.
How do I get all the (Items)values that are present in that List Box.
With Request.getParameterValues()
I can only get what all items are Selected in the Second List box but I need all the (Items)values that present in the List Box.
Please Could Some One help me out.
very Urgent
With Regards
Eklavya

Hello Sir,
The Problem that I am facing is not difficult but
Confusing.
In my First Jsp Page I have 2 Select boxes(Combo Boxes
or U may Call List Box).
I have Allowed Multiselect.
the Second List Box is Empty.The person is allowed to
Select what ever he wishes from the First Select Box
to the Second List Box.
Now after Selecting all his Options when he Submits
his form the request is Delegated to another JSP.
The Problem that I am facing is that I want all the
item's that
Are Present in the Second Lsit Box.
How do I get all the (Items)values that are present in
that List Box.
With Request.getParameterValues()
I can only get what all items are Selected in the
Second List box but I need all the (Items)values that
present in the List Box.
Please Could Some One help me out.
very Urgent
With Regards
EklavyaThere are 2 ways you could do this, I can think of. First, instead of using a select box for the second select box, you could use a textarea where the options from the first select box is transferred to. You would then access the values with request.getParameter("textareaName");.
Or, you could have javascript code to loop through all of the options in the second select box, and create a string (possibly delimited by a space) upon submitting the form. Before you submit the form with Javascript, you would set a hidden field in the form to the string that was created with Javascript, and access the string with request.getParameter("hiddenfieldName"); Hope this helps.

Item renderes in list Box plz help me out!!!!!

HI all,
 i have a problem with rendering images with data in list control plese help me.problem in detail....
1)i have a data externally and i have to call it by using web service example data is in xml?
2)after calling the xml i have to bind it to list box control in flex , the data will be images and text in side of xml file?
3)now i have to use item renderers to disply data in list box control , in 3coloumns
first coloumn will be image <space>data and second column also image <space>data , third column also image<space> data
i am showing below
listBox
 < image> name id,city < image >name,id(any data) < image> name,id(any data)
 (000)-000-0000 < image> name,id(any data) < image >name,id(any data)
 the above is just example , in list i mage and data need to be displyed .
thanks
balu

Peter Ent has a nice intro/tutorial on Itemrenderers starting at http://www.adobe.com/devnet/flex/articles/itemrenderers_pt1.html

How to add Tabs and List Boxes in Webi Report in Reporting Area(Not Report Filters & Input Controls)

Hi All,
I have a requirement to use some components called List Box and Tabs in my WebI report for presenting the information by dynamic dimension and measure selection using list box and segregate information by using Tabs as in below image.
Image was prepared in MSPaint not executable webi report.
Is it possible to integrate the list box and tabs into Report Zone in BO Webi? as show in below image?
Thanks in Advance
Muralidhar Reddy N

Hello Muralidhar Reddy,
The exact tool for your requirement is SAP BO Dashboard or SAP BO Design studio. WebI is a tool for ad-hoc reporting tool and we have limited functionalities to make dashboards using webI. You can have all those chart options in WebI and you can use Input controls or drill filters for restricting data. But you cannot have these selection components in reporting area. Tabs as shown in above post, you can have in bottom of the report.
find below a good example of dashboard using WebI
http://blog.davidg.com.au/2011/04/webi-as-dashboard.html
hope it helps
Regards,
Nikhil Joy

How to put add formated data in multicolumn list box

hello
i am beginer of labview .
my front panel is communicating with my hardware via serial port
i am also getting a data also.
i have fromated the answer also
now i have to put in the multicolumn list box.
e.g.
my serial port string is :001 01 20 23 45 45 00 05 06 00 00
Formated string 01 20:23:45/45:00:05 06 00 00
now above formated string i have to add in the multicolum listbox
1st column 01
2nd column 20:23:45/45:00:05
3rd column 06
4th column 00
5th column 00
i hope you people help me
thanks
Lokesh

A couple of mistakes.
You initialize an array of 5 records with 10 elements instead of vice versa.
Dennis is right, use "spreadsheet string to array" instead. Here's a quick draft (note that the delimiter is set to \'codes, it's a space constant)
Is this loop interactive, i.e. does it need to update the records as the arrive with each iteration? If this is not the case, you should update the ItemNames only once after the loop has finished. For example as follows.
LabVIEW Champion . Do more with less code and in less time .
Attachments:
AddRecords.png ‏8 KB
addrecords2.png ‏7 KB

List box in dialog programming

Hi Frnds,
              i am working on a complex scenario,
i want to print 3 list box.
first one i can show but the problem is with second one and third one.
first list box have three fields suppose
program
events
movies
when user will select either one , suppose he will select program
then in second listbox program releted entries should be displayed like fiction , non fiction.
and when he will select any entry then in third list box corresponding sub entries should be come.
all data i have in ztables.
i can make search help also.
any suggestion should be appreciated.
Thanks and Regards
vijay

Use this program!
TYPE-POOLS: vrm.
DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list.
TABLES: sscrfields.
Selection screen
List box
PARAMETERS: ps_parm AS LISTBOX VISIBLE LENGTH 10
                          USER-COMMAND abc.
Radio buttons
PARAMETERS: rb1 RADIOBUTTON GROUP ab MODIF ID bl2,
            rb2 RADIOBUTTON GROUP ab MODIF ID bl2,
            rb3 RADIOBUTTON GROUP ab MODIF ID bl3.
INITIALIZATION.
Populate list box values
name = 'PS_PARM'.
value-key = '1'. value-text = 'Line 1'. APPEND value TO list.
value-key = '2'. value-text = 'Line 2'. APPEND value TO list.
AT SELECTION-SCREEN OUTPUT.
Set list box with value
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.
Control the display of screen components
LOOP AT SCREEN.
    IF ps_parm = 1.
      IF screen-name = 'RB1' OR screen-name = 'RB2' .
        screen-invisible = 0.
      ELSEIF screen-name = 'RB3'.
        screen-invisible = 1.
      ENDIF.
      MODIFY SCREEN.
    ELSEIF ps_parm = 2.
      IF screen-name = 'RB1' OR screen-name = 'RB2' .
        screen-invisible = 1.
      ELSEIF screen-name = 'RB3'.
        screen-invisible = 0.
      ENDIF.
      MODIFY SCREEN.
    ELSEIF ps_parm = space.
      rb1 = 'X'.
      clear: rb2,rb3.
      IF screen-name = 'RB1' OR screen-name = 'RB2' OR
         screen-name = 'RB3'.
        screen-invisible = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
ENDLOOP.
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'ABC'.
ENDIF.
START-OF-SELECTION.
WRITE: / 'Parameter:', ps_parm.
And use:
AT-SELECTION-SCREEN on value request for p_yyyy.
if p_xxxx-key is not initial..
get the values required for second parameter...or listbox..
endif..
similarily for 3rd listbox also!

Restriction of space in a List box

Similar Messages

Maybe you are looking for