Dynamic selection screen change in Selection Screen.

Hi Experts,
I am not getting dynamic screen change on selection screen. can you give solution for the following scenario.
I have 3 radio buttons on selection screen. Example: R1, R2, R3.
I have 5 fields on selection screen. Example : F1, F2, F3, F4, F5.
When i select radio button 1 i will get F1 field screen only.
When i select radio button 2 or 3 i will get F2 and F3 fields screen only.
When i select radio button 3 i will get F4 and F5 fields screen only.
Any one give me solution for the above scenario very much thankful.
Thanks in advance,
Sai

Hi
try this code,
REPORT ZTEST_3RB.
TABLES : KNA1,EKKO,VBRK.
PARAMETERS : SALES RADIOBUTTON GROUP VIJJ USER-COMMAND VJY ,
PUR RADIOBUTTON GROUP VIJJ ,
BILL RADIOBUTTON GROUP VIJJ ,
TOTAL AS CHECKBOX.
SELECT-OPTIONS : S_CUSTNO FOR KNA1-KUNNR MODIF ID AKP DEFAULT 1000 TO 1033,
S_PONO FOR EKKO-EBELN MODIF ID VKP,
S_BNO FOR VBRK-VBELN MODIF ID PKP.
INITIALIZATION.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SALES = 'X'.
IF SCREEN-GROUP1 = 'VKP'.
SCREEN-INPUT = 0.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'PKP'.
SCREEN-INPUT = 0.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ELSEIF PUR = 'X'.
IF SCREEN-GROUP1 = 'PKP'.
SCREEN-INPUT = 0.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'AKP'.
SCREEN-INPUT = 0.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ELSEIF BILL = 'X'.
IF SCREEN-GROUP1 = 'AKP'.
SCREEN-INPUT = 0.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'VKP'.
SCREEN-INPUT = 0.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
i think this will help your problem,
Regards,
Vijay

Similar Messages

3g screen changed from normal screen to large screen...cannot change it back

3g screen changed to larger screen..will not change to normal screen.

You have enabled zoom. Settings>General>Accessibikity>Zoom>OFF. Double tap with three fingers will reduce the zoom or drag three fingers whilst zoomed to enable you scroll around the screen to get to settings.

Screen changes for Document screens

Dear All:
In the documents change screens I want to 'display only'some fields based on values in certain other fields. Would you please suggest some ideas?
I posted this in the Financials Forum, but havent got any suggestions.
[Posting in ERP Financials|Re: Document Line Items fields]

Hi,
go for the event at selection-screen output and modify your screen, like
PARAMETERS: TEST1(10) MODIF ID SC1,
            TEST2(10) MODIF ID SC2,
            TEST3(10) MODIF ID SC1,
            TEST4(10) MODIF ID SC2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'SC1'.
    SCREEN-INTENSIFIED = '1'.
    MODIFY SCREEN.
    CONTINUE.
ENDIF.
IF SCREEN-GROUP1 = 'SC2'.
    SCREEN-INTENSIFIED = '0'.
    MODIFY SCREEN.
ENDIF.
ENDLOOP.
with luck,
pritam.

Selection screen changes at selection screen output

Hi all,
I have to make my one block in selection scren invisible based on a particular condition.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_status FOR g_status NO INTERVALS.
PARAMETERS    : p_trans(3) TYPE c,
                 p_hub(3) TYPE c.
SELECT-OPTIONS: s_auart FOR g_auart.
PARAMETERS:      p_buyt(1) TYPE c.
SELECT-OPTIONS:
                 s_order FOR g_vbeln,
                 s_zzhrt FOR g_zzhrtosec,
                 s_vbeln1 FOR g_vbeln1,
                 s_dccode FOR g_dccode NO INTERVALS,
                 s_pgi   FOR g_pgi.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETERS    : p_c1 AS CHECKBOX USER-COMMAND cmd.
SELECT-OPTIONS: s_list FOR g_list NO INTERVALS MODIF ID sc1.
SELECTION-SCREEN END OF BLOCK blk2 .
SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003.
PARAMETERS    : p_c2 AS CHECKBOX USER-COMMAND cmd2.
SELECT-OPTIONS: s_mail FOR g_mail NO INTERVALS MODIF ID sc2.
PARAMETERS:   p_accld LIKE g_saknr DEFAULT '1342009999' MODIF ID sc2
                                                      OBLIGATORY,
              p_accit LIKE g_saknr DEFAULT '1365009999' MODIF ID sc2
                                                      OBLIGATORY,
              p_opacc LIKE g_saknr DEFAULT '346100XX99' MODIF ID sc2
                                                      OBLIGATORY,
              p_lmacc LIKE g_saknr DEFAULT '1393009999' MODIF ID sc2
                                                      OBLIGATORY,
              p_lmopa LIKE g_saknr DEFAULT '3471009999' MODIF ID sc2
                                                      OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk3.
The block 3 'blk3' should be made invisible based on a condition.
I have tried loop at screen-name but its not working.
Kindly advice.
Thanks and Regards,
Divya

Hi Divya,
Check the below code.
tables: pa0000, pa0001.
parameters: p_chk1 as checkbox user-command rusr,
p_chk2 as checkbox user-command rusr,
p_chk3 as checkbox user-command rusr,
p_chk4 as checkbox user-command rusr,
p_chk5 as checkbox user-command rusr.
selection-screen: begin of block blk1 with frame.
select-options: s_pernr for pa0000-pernr modif id ABC,
s_stat2 for pa0000-stat2 modif id DEF,
s_werks for pa0001-werks modif id GHI,
s_persg for pa0001-persg modif id JKL,
s_persk for pa0001-persk modif id MNO.
selection-screen: end of block blk1.
AT SELECTION-SCREEN output.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'ABC'.
IF p_chk1 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'DEF'.
IF p_chk2 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'GHI'.
IF p_chk3 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'JKL'.
IF p_chk4 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'MNO'.
IF p_chk5 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
*Note
*Titles for check boxes and select options
*P_CHK1 Personal Number
*P_CHK2 Employment Status
*P_CHK3 Personnel Area
*P_CHK4 Employee Group
*P_CHK5 Employee Sub group
*S_PERNR Personal Number
*S_PERSG Employee Group
*S_PERSK Employee Sub group
*S_STAT2 Employment Status
*S_WERKS Personnel Area

After Getting Error on Screen Changing the same screen data

Hi,
I am populating error message in module pool program . I want to edit the fields in the same screen currently it is nor allowing .
I use the CHAIN and ENDCHAIN also .
In my module pool screen i selecting some records if records contains different data the it is populating the error after that in the same screen i want to change the data .
Regrads
Nandan.N

Hi Srihari,
In this case follow the following code,
PROCESS AFTER INPUT.
CHAIN.
FIELD: FIELD_01 MODULE CHECK_FIELD_01,
             FIELD_02 MODULE CHECK_FIELD_02,
             FIELD_03 MODULE CHECK_FIELD_03,
             FIELD_04 MODULE CHECK_FIELD_04.
ENDCHAIN.
Write your validations for the screen FIELD_01 in the MODULE CHECK_FIELD_01
so when you enter data in this field it enters this Module and checks the validations, if value passes the validation then the cursor moves to the next field (i.e. Field_02) otherwise if it fails the validation & you have specified the message type as 'E' then it waits on the same field of the screen till a correct value is entered.
Hope it helps you,
Regards,
Abhijit G. Borkar

Screen Changes With Full Screen Playback Over HDMI

Any one know if this is the best way to report a flash issue to the development team?
Home Theater PC connected to a Sony Bravia Television via HDMI
Issue is that when the Flash content is played back on full screen, the Television flickers and displays a 'scene changed' anytime the mouse cursor appears or disappears. Happens in IE, Firefox, and Chrome. This problem began with the latest version of Flash player.

I have been trying to get this to work too.
Seems an obvious void with many of us trying to have both audio and video in a playlist!
Apple, please make it so visualizer plays while a song is playing but a video will play full screen if it's a music video! Please?

CheckBox in DataGrid - how to check without changing row selection?

Hi Everyone
I have a CheckBox set as the renderer/editor for a column in
my DataGrid
and I would like users to be able to check and uncheck the
boxes on
different rows without selecting or changing the selection of
the
current grid row.
Is this possible? Any help would be very much appreciated.
Thanks
Gary Q

Hey Gary,
When you are defing the checkbox as itemrenderer then create
a new class for that and make one checkbox component in that.
then in the dataprovider of your datagrid append one
<selected>false</selected> tag. Then in your renderer
class check for the selected tag like
override public function set data( value:Object ):void
super.data = value;
if(value == null)
return;
var xml:XML = XML( data );
if(xml.selected == "false")
cbx.selected = false;
else
cbx.selected = true;
private function updateSelected():void
super.data.selected = cbx.selected;
[Bindable] public var selected:Boolean;
<mx:CheckBox id="cbx" width="14"
click="updateSelected()"/>
</mx:HBox>

Dynamically Selection Screen Change

Hi Experts,
I have 5 buttons on the application toolbar and on click of each button, i need to populate difference selection parameters.
I have tried modifying the SCREEN table dynamically but maintaining SCREEN table for 5 different action seems very difficult.
Can you provide any alternate to address this scenario?
Thanks
Ankur

hi ,
try this..
in this text boxes are displays and disapper on the selection of radio button.....
*& Report Z_TG_LOOP
REPORT z_tg_loop.
DATA : rb1(1) VALUE 'X',
       rb2(1).
CALL SCREEN 8000.
*&      Module STATUS_8000 OUTPUT
*       text
MODULE status_8000 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
IF rb1 EQ 'X'.
    LOOP AT SCREEN.
      IF ( screen-group1 EQ 'ABC' ).
        screen-invisible = 0.
        screen-active = 1.
      ELSEIF ( screen-group1 EQ 'DEF' ).
        screen-invisible = 1.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      IF ( screen-group1 EQ 'DEF' ).
        screen-invisible = 0.
        screen-active = 1.
      ELSEIF ( screen-group1 EQ 'ABC' ).
        screen-invisible = 1.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDMODULE.                 " STATUS_8000 OUTPUT
*&      Module MODIFY INPUT
*       text
MODULE modify INPUT.
IF rb1 EQ 'X'.
    LOOP AT SCREEN.
      IF ( screen-group1 EQ 'ABC' ).
        screen-invisible = 0.
        screen-active = 1.
      ELSEIF ( screen-group1 EQ 'DEF' ).
        screen-invisible = 1.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      IF ( screen-group1 EQ 'DEF' ).
        screen-invisible = 0.
        screen-active = 1.
      ELSEIF ( screen-group1 EQ 'ABC' ).
        screen-invisible = 1.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDMODULE.                 " MODIFY INPUT

Changing the selection screen based on the option in list box option

Hi Experts,
I have a list box parameter in my selection screen,
i have four options and i am changing my selection screen based the option selected.
see my code below,
at selection-screen output.
GS_VRM_VALUES-KEY = '1'.
GS_VRM_VALUES-TEXT = TEXT-S02.
APPEND GS_VRM_VALUES TO GT_VRM_VALUES.
GS_VRM_VALUES-KEY = '2'.
GS_VRM_VALUES-TEXT = TEXT-S03.
APPEND GS_VRM_VALUES TO GT_VRM_VALUES.
GS_VRM_VALUES-KEY = '3'.
GS_VRM_VALUES-TEXT = TEXT-S04.
APPEND GS_VRM_VALUES TO GT_VRM_VALUES.
GS_VRM_VALUES-KEY = '4'.
GS_VRM_VALUES-TEXT = TEXT-S05.
APPEND GS_VRM_VALUES TO GT_VRM_VALUES.
CLEAR: GS_VRM_VALUES.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID                    = 'P_DROP'
      VALUES                = GT_VRM_VALUES
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.
LOOP AT SCREEN .
    CASE P_DROP .
      WHEN '1'.
        IF SCREEN-GROUP1 = 'M2' OR
          SCREEN-GROUP1 = 'M3' OR SCREEN-GROUP1 = 'M4'.
          SCREEN-INPUT = 0.
         SCREEN-ACTIVE = 0.
          screen-invisible = 1.
          MODIFY SCREEN.
        ENDIF.
      WHEN '2'.
        IF SCREEN-GROUP1 = 'M3' OR SCREEN-GROUP1 = 'M4'.
          SCREEN-INPUT = 0.
         SCREEN-ACTIVE = 0.
          screen-invisible = 1.
          MODIFY SCREEN.
        ENDIF.
      WHEN '3'.
        IF SCREEN-GROUP1 = 'M2' OR
            SCREEN-GROUP1 = 'M4' .
          SCREEN-INPUT = 0.
         SCREEN-ACTIVE = 0.
          screen-invisible = 1.
          MODIFY SCREEN.
        ENDIF.
      WHEN '4'.
        IF SCREEN-GROUP1 = 'M2' OR
        SCREEN-GROUP1 = 'M3'.
          SCREEN-INPUT = 0.
         SCREEN-ACTIVE = 0.
          screen-invisible = 1.
          MODIFY SCREEN.
        ENDIF.
      WHEN OTHERS.
        IF SCREEN-GROUP1 = 'M2' OR
           SCREEN-GROUP1 = 'M3' OR SCREEN-GROUP1 = 'M4'.
          SCREEN-INPUT = 0.
         SCREEN-ACTIVE = 0.
      screen-invisible = 1.
          MODIFY SCREEN.
        ENDIF.
    ENDCASE.
ENDLOOP.
my problem is when i change the option in the list box, the particular modify group ie, the screen is getting changed only after i press enter, So please suggest me how i can change the screen without pressing enter.

Hi,
without using VRM_SET_VALUES...you just create one data element by going se11....create one domain for it...now give the values in the "value range" tab....and at the time of declaration just write ..
PARAMETERS var1 TYPE <your created data element>
                    AS LISTBOX VISIBLE LENGTH 20
                    USER-COMMAND onli
                    DEFAULT <one value>.
You will get the same effect as list box....and make it mandatory..
Arunima

How to change the selections in selection screen

Hello all,
while executing web report we are getting a selection screen initially.
1.problem is when we want to change the selections how to procedure after .
when i went to variable screen it is filtering the exciting report. but i want to change the selection.
2.when i run the query in Excel i can see the report as below
                        Cust1      Mat1      100
                        Cust1      mat2       20
but when i run in web it is showing as below
                     Cust1     Mat1   100
                                  Mat2     20
how can i get Cust1 for both Mat1&Mat2 in Web
Thanks in Advance
Sandy

Hi Sharan,
This is Ram, i have been watching this Thread, and tried to solve this problem in the Web to one of my query which i have created for testing purpose.
See dont have much knowledge on WAD, but as the main owner was doing in his case , i am also doint the same way :
Ex: i created the query in the query designer and there i know each and very property how to supress the repeated key etc etc, and i know it even in the Web browzer.
However what i do is i open the query and click on change query and my query is displayed in the query designer and from there you click on the check mark in the top left for executing the query, but insteard of that click on the icon which takes you to the BROWZER.
I usually do like that, but what you told in WAD i did not understand it at all, so can you give me more steps on how to open that in WAD and make the settings please...
Regards,
Ram Pawan

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

Dynamically hide a block in selection screen

Hi All,
Can we hide a whole block in a selection screen dynamically.
If so, then how?
Regards,
Bhaskar Tripathi

Hi,
Refer this code
*&      Form sub_select_report
      text
FORM sub_select_report .
IF ( p_post EQ c_chk ).
    LOOP AT SCREEN.
      IF ( screen-group1 EQ 'MD1' ) OR
         ( screen-group1 EQ 'MD2' ) OR
         ( screen-group1 EQ 'MD3' ) OR
         ( screen-group1 EQ 'MD4' ).
        screen-input   = c_ok.
        screen-active = c_ok.
      ENDIF.
      IF ( screen-group1 EQ 'MD5' ) OR
         ( screen-group1 EQ 'MD6' ).
        screen-input   = c_1.
        screen-active = c_1.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSEIF p_rpt EQ c_chk.
    LOOP AT SCREEN.
      IF ( screen-group1 EQ 'MD5' ) OR
         ( screen-group1 EQ 'MD6' ).
        screen-input   = c_ok.
        screen-active = c_ok.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDFORM.                    " sub_select_report
Regards,
Prashant

How can i used pai in screen 1000 to change the select-options field?

hi,all.
I want used pai to change the select-options field,but it can't works.
the mainly code is:
REPORT ZTEST99.
TABLES :MARA,MAKT,MARC.
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE TITLE0 .
select-options:s_matnr for mara-matnr,
               s_werks for marc-werks MODIF ID ID1.
SELECTION-SCREEN END OF BLOCK B0.
parameters:p_flag as checkbox.
at selection-screen OUTPUT.
   LOOP AT SCREEN.
   IF P_FLAG = 'X' .
   IF screen-group1 = 'ID1'.
         screen-input = '0'.
    ELSE.
      screen-input = '1'.
    ENDIF.
    MODIFY SCREEN.
ENDIF.
    ENDLOOP.
START-OF-SELECTION.
CALL SCREEN 1000.
when i click p_flag,then i want to change s_werks from OBLIGATORY to no OBLIGATORY.
how can i realized?
Thanks for all.
Sun

Hi ,
change your code like this.
Change in your code:
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECT-OPTIONS : s_matnr for mara-matnr,
s_werks for marc-werks MODIF ID ID1.
SELECTION-SCREEN END OF SCREEN 100 .
At selection-screen.
if sy-dynnr = '100'.
IF P_FLAG = 'X' .
LOOP AT SCREEN.
IF screen-group1 = 'ID1'.
screen-required = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
else.
LOOP AT SCREEN.
IF screen-group1 = 'ID1'.
screen-required = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
my code :
REPORT Z50871_SELECTOPS_DYNAMIC.
PARAMETERS : CH_EBELN AS CHECKBOX,
             CH_VBELN AS CHECKBOX.
DATA: V_EBELN TYPE EKKO-EBELN,
      V_VBELN TYPE VBAK-VBELN.
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECT-OPTIONS : EBELN FOR V_EBELN MODIF ID G1,
                 VBELN FOR V_VBELN MODIF ID G2.
SELECTION-SCREEN END OF SCREEN 100 .
AT SELECTION-SCREEN OUTPUT.
IF SY-DYNNR = 100.
    IF CH_EBELN = 'X' AND
       CH_VBELN = ''.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'G1'.
          SCREEN-ACTIVE = '1'.
        ELSE.
          SCREEN-ACTIVE = '0'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ELSEIF CH_VBELN = 'X' AND
       CH_EBELN = '' .
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'G2'.
          SCREEN-ACTIVE = '1'.
        ELSE.
          SCREEN-ACTIVE = '0'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ELSEIF CH_EBELN = 'X' AND CH_VBELN = 'X'.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'G1'
           OR SCREEN-GROUP1 EQ 'G2' .
          SCREEN-ACTIVE = '1'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ENDIF.
ENDIF.
AT SELECTION-SCREEN.
IF SY-DYNNR = 1000.
IF CH_EBELN = 'X' OR CH_VBELN = 'X'.
    CALL SELECTION-SCREEN 100.
ELSE.
    MESSAGE I000(Z50871MSG) WITH 'Please select atleast one checkbox'.
ENDIF.
ENDIF.
regards
Sandeep Reddy

Selection Screen Change & Impact on background scheduled reports

Hi,
I have modified the selection screen of a report program by adding additional selection criteria. This report is background scheduled and runs several times with different variants in a day. I am worried that the background jobs may fail in Production if the latest changes are moved. But I think, background jobs will not fails unless the selection criteria that are part of variants that used in the background jobs not modified. But not sure. I just want to make sure, I am doing correct thing.
Please let me know your thoughts. Appreciate your help!
Thanks,
Kannan.

>
Advait Gode wrote:
> When you transport the program to production after changing the selection screen, you will have to re-create all the variants once again. Otherwise the scheduled jobs will fail.
>
> regards,
> Advait
I don't think so.
But of course you will have to update the variants to reflect the new selections.
Rob
Edited by: Rob Burbank on Jan 14, 2009 10:56 AM

Project Systems Selection Field change in Screen of S_ALR_87013557

Hi ABAP'ers
I need to add a new field namely 'PLFAZ' of table 'PROJ' to my dynamic selection screen, hence i tried to achieve it through selection field modification of the logical database PSJ in SE36, but my problem is ,the field is not displayed in the dynamic selection screen even after assigning function group and checking the preselect option against the field, plz suggest what is to be done to display the field in the dynamic selection screen.

Hi
Please check the Corresponding Screen Number of The Screen which you want to Enhance.
After the Getting Screen number Check the Enhancement Possibilities.

Dynamic selection screen change in Selection Screen.

Similar Messages

Maybe you are looking for