Hide / Show a block in Selection screen

Hi,
How to hide or show a block in selection screen.
Plz help.
Regards,
Sriram

REPORT ZTESTETSET.
02.
03."First we create the selection screen which contains 2 option
04."buttons For show and hide.
05.
06. SELECTION-SCREEN BEGIN of BLOCK screen1 WITH FRAME TITLE title1.
07. PARAMETERS: Show RADIOBUTTON GROUP opt USER-COMMAND aaa DEFAULT 'X',
08.              Hide RADIOBUTTON GROUP opt .
09. SELECTION-SCREEN END OF BLOCK screen1.
10.
11. "This is the selection screen that we will hide and show
12. "based on the selected option button above
13.
14. SELECTION-SCREEN BEGIN of BLOCK screen2 WITH FRAME TITLE title2.
15.      PARAMETER CONNID like spfli-connid.
16. SELECTION-SCREEN END OF BLOCK screen2.
17.
18."We capture the selected option event using
19."AT SELECTION-SCREEN OUTPUT to modify the screen
20.
21.   AT SELECTION-SCREEN OUTPUT.
22. PERFORM modify_screen.
23.
24. START-OF-SELECTION.
25.
26."This is the sub program that will loop all the elements on
27."the selection screen to identify which element we want to
28."hide or show based on screen name.
29.
30. FORM modify_screen .
31. LOOP AT SCREEN.
32.    IF Show NE 'X'.
33.      IF screen-name CS 'CONNID'.
34.        screen-active = 0.
35.        MODIFY SCREEN.
36.      ENDIF.
37.    ENDIF.
38. ENDLOOP.
39.ENDFORM.
40.
41."Give the selection block a title.
42.INITIALIZATION.
43.
44.title1 = 'Show/Hide Option'.
45.title2 = 'Selection Screen'.
Thanks
anurag Srivastava

Similar Messages

How to hide particular block in selection screen

Hi,
I am having different blocks in a selection screen.
How to show the blocks dynamically according to a radio button selection.
means how to Hide/show entire block.
Thanks,
anandan

Hi Anandan,
Try this program.
REPORT zvk_collect.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME NO INTERVALS.
PARAMETER : p_plant RADIOBUTTON GROUP g1 USER-COMMAND radio DEFAULT 'X',
                  p_mrp   RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME NO INTERVALS.
PARAMETER : p_werks TYPE marc-werks MODIF ID sp1.
SELECTION-SCREEN END OF BLOCK b2.
*SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME NO INTERVALS.
*PARAMETER : p_berid TYPE smdma-berid MODIF ID sp2.
*SELECTION-SCREEN END OF BLOCK b3.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    CHECK screen-group1 = 'SP1' OR
          screen-group1 = 'SP2'.
    IF p_plant = 'X'.
      IF screen-group1 = 'SP2'.
        screen-input = 0.
        screen-active = 0.
        screen-required = 1.
        MODIFY SCREEN.
      ENDIF.
    ELSE.
      IF screen-group1 = 'SP1'.
        screen-input = 0.
        screen-active = 0.
        screen-required = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
ENDLOOP.
Execute with Comments ON and Without Comments and See the difference
Reward if found helpful

How to hide a block in Selection screen ?

Hello abap gurus,
I have a requirement where I have to hide a block on Selection screen. Can anyone of u give the command for that or code..
Its urgent !
Om Sai Ram,
aRgD

Hi,
Just paste the following code in abap editor.
*Selectionscreen elements..............................................
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS:
p_uname     LIKE sy-uname
              MODIF ID bl1.            " User name
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS:
p_fname(10) TYPE c MODIF ID bl2
                     OBLIGATORY,       " First name
p_lname(10) TYPE c MODIF ID bl2
                     OBLIGATORY,       " Last name
p_empid(5) TYPE n MODIF ID bl2
                     OBLIGATORY.       " Employee id
SELECTION-SCREEN END OF BLOCK b2.
*" Data declarations...................................................
Work variables                                                      *
DATA:
w_uname     LIKE sy-uname.           " User name
             AT SELECTION-SCREEN OUTPUT EVENT                       *
AT SELECTION-SCREEN OUTPUT.
PERFORM validate.
            AT SELECTION-SCREEN ON FIELD EVENT                      *
AT SELECTION-SCREEN ON p_uname.
PERFORM validate_uname.
                  END OF SELECTION EVENT                            *
END-OF-SELECTION.
PERFORM output.
FORM VALIDATE                                                      *
This subroutine disables all parameters if user name is not        *
initialized or user name is not valid.                             *
There are no interface parameters to be passed to this subroutine. *
FORM validate.
w_uname = sy-uname.
IF p_uname IS INITIAL OR p_uname NE w_uname.
    LOOP AT SCREEN.
      IF screen-group1 EQ 'BL2'.
        screen-active = '0'.
      ELSE.
        screen-active = '1'.
      ENDIF.                           " IF screen-group1 EQ 'BL2'.
      MODIFY SCREEN.
    ENDLOOP.                           " LOOP AT SCREEN.
ELSEIF p_uname EQ sy-uname.
    LOOP AT SCREEN.
      IF screen-group1 = 'BL1'.
        screen-active = 0.
        MODIFY SCREEN.
      ELSEIF screen-group1 = 'BL2'.
        screen-active = 1.
        screen-output = 1.
        screen-input = 1.
        screen-invisible = 0.
      ENDIF.                           " IF screen-group1 = 'BL1'.
      MODIFY SCREEN.
    ENDLOOP.                           " LOOP AT SCREEN.
ENDIF.                               " IF p_uname IS INITIAL...
ENDFORM.                               " VALIDATE
Form VALIDATE_UNAME                                                *
This subroutine gives error message and validates the user name.   *
There are no interface parameters to be passed to this subroutine. *
FORM validate_uname .
IF p_uname IS INITIAL.
    MESSAGE 'Enter the user name'(001) TYPE 'E'.
ELSEIF p_uname NE sy-uname.
    MESSAGE 'Authorization unsuccessful'(002) TYPE 'E'.
ENDIF.                               " IF p_uname IS INITIAL.
ENDFORM.                               " VALIDATE_UNAME
Form OUTPUT                                                       *
This subroutine is used to print the output.                       *
There are no interface parameters to be passed to this subroutine. *
FORM output .
IF p_fname IS NOT INITIAL.
    WRITE: / 'First name:'(003),p_fname.
    WRITE: / 'Last name:'(004),p_lname.
    WRITE: / 'Employee id:'(005),p_empid.
ENDIF.                               " IF p_fname IS NOT INITIAL.
ENDFORM.                               " OUTPUT
I think this solves your problem.
Reward if it helps you.....
Regards,
Sandhya

How to hide the fields in the selection screen

hi please let me know how to keep hide the fileds in the selection screen i.e in display mode, for the condition

Hi Sudhir,
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

Hiding block of selection screen

Hi,
1. Is it possible to Hide complete Block of selection screen (rather than using MODIF ID for each parameter )?
Ex. r1 - radiobutton group g1
       r2- radiobutton group g2
selection-screen begin of block b1 -
selection-screen end of block b1 ---
selection-screen begin of block b2 -
selection-screen end of block b2 ---
if r1
then hide block b2
if r2
then hide block b1
Thanks.
Kevin

Hi,
Just try to solve in the below way.
constants: c_0             TYPE char1       VALUE '0'.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
***Parameters Declaration
PARAMETERS :
   rb_pros RADIOBUTTON GROUP gr1 USER-COMMAND ucomm DEFAULT 'X'.
PARAMETERS :
   rb_reprs RADIOBUTTON GROUP gr1 .
***Local file path
PARAMETERS: p_lofile TYPE localfile MODIF ID bl2.
***Local file path to download data
PARAMETERS: p_dnfile TYPE localfile.
SELECTION-SCREEN : END OF BLOCK b1.
***Selection for check boxes
SELECTION-SCREEN BEGIN OF BLOCK b3.
***Parameters Declaration
PARAMETERS:
***Flag for test run
cb_test AS CHECKBOX DEFAULT c_x.
SELECTION-SCREEN END OF BLOCK b3.
***to modify the screen, if reprocess button is not
***selected then hide the file path option
AT SELECTION-SCREEN OUTPUT.
IF rb_pros EQ c_x.
    LOOP AT SCREEN.
      IF screen-group1 = 'BL2'.
        screen-active = c_0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
    CLEAR rb_reprs.
ENDIF.

FREE_SELECTIONS_INIT defining blocks on selection-screen.

Hi,
is it possible to define blocks on selection-screen if I use the function FREE_SELECTIONS_INIT.
And is it possible to define the select-option obligatory.
Best regards,
Marcus

hi
Yes you can make select-options as obligatory by using
SELECT-OPTIONS:
s_abs for <some thing> OBLIGATORY
and coming to the FM
the function module receives information about
the set of fields for which dynamic selections should be possible, and
returns a selction ID
i Think it is not possible
regards
Pavan

Problem while hide a block on selection screen on button press

Hi,
I have added two buttons on the application toolbar of the selection screen. I have input fields under two blocks on the selection-screen. Initially the second block is hidden. If I press the button 1 the second block should be made visible.
For this to happen, I captured the button 1 click event using the following statement.
IF sscrfields-ucomm = 'FC01'.
Inside the if ... endif, I looped at the screen and made the second block visible. It was working fine.
loop at screen.
if screen-group4 = '013'.
     screen-invisible = 1.
     screen-active    = 0.
endif.
endloop.
Later the second button was added. Now when i run the report for the first time, if button 2 is clicked the hidden block appears on the selection screen even though i have not added any code for it.
Just to check, i commented the logic to display the hidden block on button 1 click event. Even without any code the first time i press any of the two buttons added on the application toolbar the hidden block is displayed.
I saved a variant for the report.
During execution of the report, if i select any variant then the hidden block is displayed.
Can anyone please tell me how to fix this problem.
Regards,
T2.

Hi All,
The problem is solved.
Everyone was confusing between the pushbutton on the selectio-screen and on apllication toolbar
(where you have the execute icon).
Please find the code below. Thanks for you time and help. I appreciate it.
REPORT ztest.
INCLUDE <icon>.
* TABLES                                                              *
TABLES: t001,              " Company Codes
        lfa1,              " Vendor Master (General Section)
        sscrfields.        " Fields on selection screens
* To capture button press event.
DATA: gv_button_press       TYPE c.
* Menu Painter: Program interface for dynamic texts
DATA: gs_dyntxt             TYPE smp_dyntxt.
* SELECTION SCREEN                                                    *
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-s01.
* Company Code.
SELECTION-SCREEN BEGIN OF BLOCK ccode WITH FRAME TITLE text-s02.
SELECT-OPTIONS: s_bukrs FOR t001-bukrs OBLIGATORY MEMORY ID buk.
SELECTION-SCREEN END OF BLOCK ccode.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK dsel WITH FRAME TITLE text-s04.
* Vendor Master.
SELECTION-SCREEN BEGIN OF BLOCK vend WITH FRAME TITLE text-s07.
SELECT-OPTIONS: s_konzs FOR lfa1-konzs MODIF ID aw1.
SELECT-OPTIONS: s_txcd1 FOR lfa1-stcd1 MODIF ID aw1.
SELECT-OPTIONS: s_txcd2 FOR lfa1-stcd2 MODIF ID aw1.
SELECTION-SCREEN END OF BLOCK vend.
SELECTION-SCREEN END OF BLOCK dsel.
* INITIALIZATION                                                       *
INITIALIZATION.
* Populate the Application toolbar button attributes.
PERFORM populate_app_toolbar_buttons.
* Hide the dynamic screen intially.
PERFORM hide_screenfields.
* AT SELECTION SCREEN                                                  *
AT SELECTION-SCREEN.
* Capture the button press event.
PERFORM capture_button_press.
* AT SELECTION-SCREEN OUTPUT.                                          *
AT SELECTION-SCREEN OUTPUT.
* Show/Hide the dynamic selection screen based on button press.
PERFORM adapt_screen.
*& Form populate_app_toolbar_buttons                                 *
*   Display Icon on the application toolbar buttons. Also set the      *
*   function codes for these buttons.                                  *
FORM populate_app_toolbar_buttons.
CLEAR gs_dyntxt.
WRITE icon_fencing     TO gs_dyntxt-icon_id AS ICON.
MOVE text-b01         TO gs_dyntxt-quickinfo.   " Dynamic Selections
MOVE gs_dyntxt         TO sscrfields-functxt_01.
ENDFORM.                    " populate_app_toolbar_buttons
*& Form hide_screenfields                                            *
*   Initially hide the Dynamic selection screen.                       *
FORM hide_screenfields.
LOOP AT SCREEN.
    IF screen-group1 = 'AW1'.
      screen-invisible = '1'.
      screen-active    = '0'.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
ENDFORM.                    " hide_screenfields
*& Form capture_button_press                                         *
*   Set the flag based on button press event. Appication bar button    *
*   tcode is available only at 'At Selection-screen' event.            *
*   Use the captured data at 'At Selection-screen Output' event.       *
*   Screen adjustments is possible only under this event.              *
FORM capture_button_press.
IF sscrfields-ucomm = 'FC01'.
    IF gv_button_press IS INITIAL.
      gv_button_press = 'X'.
    ELSEIF gv_button_press EQ 'X'.
      CLEAR gv_button_press.
    ENDIF.
ENDIF.
ENDFORM.                    " capture_button_press
*& Form adapt_screen                                                 *
*   Show/Hide the dynamic selection screen based on button press       *
*   captured at 'At selection-screen' event.                           *
FORM adapt_screen.
* If button press flag is initial hide the dynamic selection screen.
IF gv_button_press IS INITIAL.
    LOOP AT SCREEN.
      IF screen-group1 = 'AW1'.
        screen-invisible = '1'.
        screen-active    = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
* Elseif button press flag is 'X' show the dynamic selection screen.
ELSEIF gv_button_press EQ 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'AW1'.
        screen-invisible = '0'.
        screen-active    = '1'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDFORM.                    " adapt_screen
Regards,
T2
Message was edited by: Titu Joseph

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 to hide block on selection screen?

Hi All,
I want to hide a block on the selection screen. I implemented the following logic to hide the block the fields are getting hided but the block is displayed. is there any way to hide block also.
SELECTION-SCREEN BEGIN OF BLOCK processing WITH FRAME TITLE text-030.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS pa_xmanu LIKE rm08mrbr-manu DEFAULT 'X'
                   RADIOBUTTON GROUP val MODIF ID ID1.
SELECTION-SCREEN COMMENT 3(30) text-040 FOR FIELD pa_xmanu.
SELECTION-SCREEN POSITION 40.
PARAMETERS pa_xauto LIKE rm08mrbr-auto
                   RADIOBUTTON GROUP val MODIF ID ID1.
SELECTION-SCREEN COMMENT 43(30) text-050 FOR FIELD pa_xauto.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pa_xskto LIKE rm08mrbr-skto AS CHECKBOX MODIF ID ID1.
SELECTION-SCREEN COMMENT 3(30) text-055
                               FOR FIELD pa_xskto.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK processing.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'ID1'.
      SCREEN-ACTIVE = 0.
      modify screen.
    ENDIF.
ENDLOOP.
Thanks,
Anil.

Make sure you hide your comment lines with the MODIF ID as well.
selection-screen begin of block processing with frame title text-030.
selection-screen begin of line.
selection-screen position 1.
parameters pa_xmanu like rm08mrbr-manu default 'X'
radiobutton group val modif id id1.
selection-screen comment 3(30) text-040 for field pa_xmanu modif id id1. "<--- Here
selection-screen position 40.
parameters pa_xauto like rm08mrbr-auto
radiobutton group val modif id id1.
selection-screen comment 43(30) text-050
                               for field pa_xauto modif id id1. "<--- Here
selection-screen end of line.
selection-screen begin of line.
parameters: pa_xskto like rm08mrbr-skto as checkbox modif id id1.
selection-screen comment 3(30) text-055
for field pa_xskto modif id id1.          "<--- Here
selection-screen end of line.
selection-screen end of block processing.
at selection-screen output.
loop at screen.
    if screen-group1 = 'ID1'.
      screen-active = 0.
      modify screen.
    endif.
endloop.
Regards,
Rich Heilman

Issue with tabbed block in selection screen

Hi All,
I have created a report program with the following code.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p1 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: q1 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
                  TAB (20) button1 USER-COMMAND push1,
                  TAB (20) button2 USER-COMMAND push2,
                  END OF BLOCK mytab.
INITIALIZATION.
button1 = 'Selection Screen 1'.
button2 = 'Selection Screen 2'.
mytab-prog = sy-repid.
mytab-dynnr = 0100.
mytab-activetab = 'PUSH1'.
AT SELECTION-SCREEN.
CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'PUSH1'.
          mytab-dynnr = 100.
        WHEN 'PUSH2'.
          mytab-dynnr = 200.
      ENDCASE.
ENDCASE.
Execute the program and click on the second tab-page. Now, click on the 'Execute' button or press F8 (there is no specific functionality coded here).
The issue now is that the first tab-page is displayed, instead of the second tab remaining displayed. I require the navigation to remain within the second tab-page after the EXECUTE button is clicked.
Could someone help me out with this issue?
Regards,
Dinup
Edited by: Dinup Sudhakaran on Feb 18, 2008 1:40 PM

Hi,
Go through below document with example code.
It will help you.
Tabstrip Controls on Selection Screens
As with screens, you can now use tabstrip controls on selection screens. To do this, you must define a tabstrip area and the associated tab pages, and assign a subscreen to the tab pages. You do not have to (indeed, cannot) declare the tabstrip control or program the screen flow logic in your ABAP program, since both are automatically generated.
To define a tabstrip area with tab pages, use the following statements in your selection screen definition:
SELECTION-SCREEN: BEGIN OF TABBED BLOCK <tab_area> FOR <n> LINES,
                  TAB (<len>) <tab1> USER-COMMAND <ucom1>
                              [DEFAULT [PROGRAM <prog>] SCREEN <scrn>],
                  TAB (<len>) <tab2> USER-COMMAND <ucom2>
                              [DEFAULT [PROGRAM <prog>] SCREEN <scrn>],
                  END OF BLOCK <tab_area>.
This defines a tabstrip control <tab_area> with size <n>. The tab pages <tab1>, <tab2> are assigned to the tab area. <len> defines the width of the tab title. You must assign a function code <ucom> area to each tab title. You can find out the function code from the field SY-UCOMM in the AT SELECTION-SCREEN event.
For each tab title, the system automatically creates a character field in the ABAP program with the same name. Before the selection screen is displayed, you can assign a text to the field. This then appears as the title of the corresponding tab page on the selection screen.
You must assign a subscreen to each tab title. This will be displayed in the tab area when the user chooses that title. You can assign one of the following as a subscreen:
A subscreen screen defined using the Screen Painter.
A selection screen subscreen, defined in an ABAP program.
You can make the assignment either statically in the program or dynamically at runtime. If, at runtime, one of the tab titles has no subscreen assigned, a runtime error occurs.
Static assignment
Use the DEFAULT addition when you define the tab title. You can specify an ABAP program and one of its subscreens. If you do not specify a program, the system looks for the subscreen in the current program. When the user chooses the tab title, it is activated, and the subscreen is assigned to the tabstrip area. The static assignment is valid for the entire duration of the program, but can be overwritten dynamically before the selection screen is displayed.
Dynamic assignment
For each tab area, the system automatically creates a structure in the ABAP program with the same name. This structure has three components PROG, DYNNR, and ACTIVETAB. When you assign the subscreens statically, the structure contains the name of the ABAP program containing the subscreen, the number of the subscreen, and the name of the tab title currently active on the selection screen (and to which these values are assigned). The default active tab page is the first page. You can assign values to the fields of the structure before the selection screen is displayed, and so set a subscreen dynamically.
If you assign a normal subscreen screen to a tab title, the dialog modules containing its flow logic must be defined in the current ABAP program. If the subscreen is a selection screen, user actions will trigger the AT SELECTION-SCREEN event and its variants (see Selection Screen Processing). This includes when the user chooses a tab title. If one selection screen is included on another, AT SELECTION-SCREEN will be triggered at least twice firstly for the "included" selection screen, then for the selection screen on which it appears.
REPORT demo_sel_screen_with_tabstrip.
DATA flag(1) TYPE c.
SUBSCREEN 1
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1(10) TYPE c,
            p2(10) TYPE c,
            p3(10) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 100.
SUBSCREEN 2
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: q1(10) TYPE c OBLIGATORY,
            q2(10) TYPE c OBLIGATORY,
            q3(10) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.
STANDARD SELECTION SCREEN
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
                  TAB (20) button1 USER-COMMAND push1,
                  TAB (20) button2 USER-COMMAND push2,
                  TAB (20) button3 USER-COMMAND push3
                                   DEFAULT SCREEN 300,
                  END OF BLOCK mytab.
INITIALIZATION.
button1 = text-010.
button2 = text-020.
button3 = text-030.
mytab-prog = sy-repid.
mytab-dynnr = 100.
mytab-activetab = 'BUTTON1'.
AT SELECTION-SCREEN.
CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'PUSH1'.
          mytab-dynnr = 100.
          mytab-activetab = 'BUTTON1'.
        WHEN 'PUSH2'.
          mytab-dynnr = 200.
          mytab-activetab = 'BUTTON2'.
      ENDCASE.
    WHEN 100.
      MESSAGE s888(sabapdocu) WITH text-040 sy-dynnr.
    WHEN 200.
      MESSAGE s888(sabapdocu) WITH text-040 sy-dynnr.
ENDCASE.
MODULE init_0100 OUTPUT.
LOOP AT SCREEN.
    IF screen-group1 = 'MOD'.
      CASE flag.
        WHEN 'X'.
          screen-input = '1'.
        WHEN ' '.
          screen-input = '0'.
      ENDCASE.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
ENDMODULE.
MODULE user_command_0100 INPUT.
MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr.
CASE sy-ucomm.
    WHEN 'TOGGLE'.
      IF flag = ' '.
        flag = 'X'.
      ELSEIF flag = 'X'.
        flag = ' '.
      ENDIF.
ENDCASE.
ENDMODULE.
START-OF-SELECTION.
WRITE: / 'P1:', p1,'Q1:', q1,
         / 'P2:', p2,'Q2:', q2,
         / 'P3:', p3,'Q3:', q3.
This program defines two selection screens 100 and 200, as subscreens, and places a tabstrip control area with three tab pages on the standard selection screen. A subscreen screen 300 (from the same program) is assigned statically to the third tab page.
The layout of screen 300 is:
The input/output fields P1 to Q3 are defined by using the parameters from the ABAP program The pushbutton has the function code TOGGLE.
The screen flow logic for screen 300 is as follows:
PROCESS BEFORE OUTPUT.
MODULE init_0100.
PROCESS AFTER INPUT.
MODULE user_command_0100.
Both dialog modules are defined in the ABAP program.
When you run the program, the standard selection screen appears. In the INITIALIZATION event, the texts are defined on the tab titles, the subscreen selection screen 100 is assigned to the tab area, and the first tab title is activated.
User actions on the selection screen are processed in the AT SELECTION-SCREEN event block. In particular, it is here that the subscreens are assigned and tab titles activated when the user chooses one of the first two tab titles. This is not necessary for the third tab title, since the dynamic assignment (screen 300) is always placed in the structure MYTAB when the user chooses it.
Before the subscreen screen is displayed, the PBO module INIT_100 is executed. User actions on the subscreen screen trigger the PAI module. This includes when the user chooses a tab title. After that, the AT SELECTION-SCREEN event is triggered.
Messages in the status line show where an action has been processed.

Hiding a block in selection screen

Hi everybody,
         My requirement is to hide the entire block of a particular selection screen, find the below selection screen code. with my piece of code,iindividual fields are getting hidden, please let me know how to hide the entire block.
          If I select rb_det then the block b2 should hide.
Selection screen :
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t02.
PARAMETER: rb_sum RADIOBUTTON GROUP rtyp DEFAULT 'X' USER-COMMAND DISP,
rb_det RADIOBUTTON GROUP rtyp.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t04.
PARAMETER: cb_asco AS CHECKBOX DEFAULT 'X' modif id SEL,
cb_divi AS CHECKBOX modif id SEL,
cb_buen AS CHECKBOX modif id SEL,
cb_prod AS CHECKBOX modif id SEL,
cb_bupa AS CHECKBOX modif id SEL,
cb_inob AS CHECKBOX modif id SEL.
SELECTION-SCREEN END OF BLOCK b2.
Existing code :
A T S E L E C T I O N - S C R E E N *
at selection-screen output.
loop at screen.
if screen-group1 = 'SEL'.
if rb_det = 'X'.
if screen-name = 'CB_ASCO' or
screen-name = 'CB_DIVI' or
screen-name = 'CB_BUEN' or
screen-name = 'CB_PROD' or
screen-name = 'CB_BUPA' or
screen-name = 'CB_INOB' .
screen-active = 0.
modify screen.
endif.
endif.
endif.
endloop.
Thanks in advance...
Regards,
Ravi

Hi,
A block will be made invisible if everything inside it is inactive. If you give all of them a MODIF ID, too, the block will disappear.
SELECTION-SCREEN BEGIN OF BLOCK processing WITH FRAME TITLE text-030.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS pa_xmanu LIKE rm08mrbr-manu DEFAULT 'X'
RADIOBUTTON GROUP val MODIF ID id1.
SELECTION-SCREEN COMMENT 3(30) text-040 FOR FIELD pa_xmanu MODIF ID
id1.
SELECTION-SCREEN POSITION 40.
PARAMETERS pa_xauto LIKE rm08mrbr-auto
RADIOBUTTON GROUP val MODIF ID id1.
SELECTION-SCREEN COMMENT 43(30) text-050 FOR FIELD pa_xauto MODIF ID
id1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pa_xskto LIKE rm08mrbr-skto AS CHECKBOX MODIF ID id1.
SELECTION-SCREEN COMMENT 3(30) text-055
FOR FIELD pa_xskto MODIF ID id1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK processing.
AT SELECTION-SCREEN OUTPUT.
    LOOP AT SCREEN.
      IF screen-group1 = 'ID1'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
Regards,
Priyanka.

Urgent :Show all records till selection screen date

Hi Techis
i want to show all records till selected date , selection screen consist of date also and my select statement is given below so any body pls tell me what changes i hav to make so that all records till particular date should b shwn
Select statement is
SELECT BUKRS KUNNR
BLDAT
GSBER
DMBTR
BUDAT
GJAHR
SGTXT
SAKNR
SHKZG
PRCTR FROM BSID INTO corresponding fields of TABLE IT_FINAL WHERE BUKRS IN S_BUKRS AND
SAKNR IN S_SAKNR AND
GSBER IN S_GSBER AND
PRCTR IN S_PRCTR AND
BUDAT IN S_BUDAT AND
KOSTL IN S_KOSTL.
and selection screen is ...
SELECTION-SCREEN BEGIN OF BLOCK AGE WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_BUKRS FOR BSID-BUKRS," OBLIGATORY DEFAULT 'TCIL'
S_KUNNR FOR KNA1-KUNNR,
S_SORTL FOR KNA1-SORTL,
S_SAKNR FOR BSID-SAKNR DEFAULT '15110013',
S_KTOKD FOR KNA1-KTOKD ,"OBLIGATORY DEFAULT 'LTOB'
S_GSBER FOR BSID-GSBER,
S_PRCTR FOR BSID-PRCTR,
S_KOSTL FOR BSID-KOSTL,
S_GJAHR FOR BKPF-GJAHR," OBLIGATORY.
S_BUDAT FOR BSID-BUDAT DEFAULT SY-DATUM."OPEN ITEM DATE
*PARAMETERS : P_BUDAT LIKE BSID-BUDAT DEFAULT SY-DATUM." OBLIGATORY.
SELECTION-SCREEN END OF BLOCK AGE.
rewars for help ful ans

Hi Santosh,
If your requirement is up to the selection date you'd better use a parameter (which can only hold one value).
Then define a range in your program:
DATA:
zlt_budat_range TYPE RANGE OF budat,
zls_budat_range LIKE LINE OF zlt_budat_range.
zls_budat_range-sign = 'I'.
zls_budat_range-option = 'LE'.
zls_budat_range-low = pa_budat.
APPEND zls_budat_range TO zlt_budat_range.
.....AND budat IN zlt_budat_range.
Regards,
John.

Not able to hide all fields on PNP selection screen.

Dear Freinds,
           i wanted to hide all the field which are given on PNP selection screen, with the help of the
report category i have hided all the field including the Person selection period as i require only the
Data selection period. further through coding as below iam able to remove all the radio buttons
Today, Current month,Current year, from today, upto today,Other Period . But i am getting spaces above period (PNPBEGDA and PNPENDA) . i.e in the frame Period i have spaces being left due to
the radio buttons being Hidden . Could any one let me know how to remove the spaces so that
Period range will set exactly in the frame.
LOOP AT SCREEN.
    IF screen-name = 'PNPTIMR4' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-name = 'PNPTIMR2 .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF
    IF screen-group4 = '090' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-name = 'PNPTIMR1' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-group4 = '092' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-group4 = '094' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-group4 = '100' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP
Please could any one let me know how can i push up the Period date (PNPBEGDA and PNPENDDA)
so that i will not have any blank space left out in the frame(Period) .
Thanks & Regards
Divya.
Edited by: Divya Kumari on Jan 4, 2009 1:53 PM

hi, sorry i think i misunderstand you question,
if i can understand it right now? the following code can help you i am using "PNP" Screen no '900'.
tables:pc207, hrp1000,pernr, pyorgscreen.
infotypes: 0001.          "Organizational Assignments
nodes: payroll type pay99_result.
at selection-screen output.
loop at screen.
    if ( screen-group1 = 'RES' or screen-group1 = 'YB1' or
         screen-group1 = 'YB2' or screen-group1 = 'YB3' ).
      screen-active = '0'.
      screen-invisible = '1'.
      modify screen.
    endif.
endloop.
try the following too,
TABLES:pc207, hrp1000,pernr, pyorgscreen.
INFOTYPES: 0001.          "Organizational Assignments
NODES: payroll TYPE pay99_result.
AT SELECTION-SCREEN OUTPUT.
BREAK-POINT.
LOOP AT SCREEN.
    IF (
*       screen-name = '%BYB1005_BLOCK_1000'
       screen-name = '%FYTI007_1000'
     or screen-name = '%FBIS010_1000'
     or screen-name = 'PYVW0_0'
     or screen-name = '%_PYPERNR_%_APP_%-TEXT'
     or screen-name = 'PYPERNR-LOW'
     or screen-name = '%_PYPERNR_%_APP_%-VALU_PUSH'
      screen-active = '0'.
      screen-invisible = '1'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
Replay if any problem,
Kind Regards,
Faisal
Edited by: Faisal Altaf on Jan 4, 2009 6:55 PM

Retaining the selected tab in a tabbed block of selection screen

Hi,
My report has a selection screen with a tabbed block displaying 3 tabs. I want to retain the tab that was selected before executing the report and display that tab as the activetab when the user back navigates from the output list of the report to the selection screen.
I tried to store the value of 'activetab' component of the tabbed block in a global variable and assigned the global variable to the 'activetab' component. But it is not working.
Is there any other way by which we can do this?
Thanks and Regards,
Tongston

I had a similar problem some time ago. One clarification first, global variables will not work because when you come back from report output, all the global/local variables are initialized that is when you come back to selection screen from report output, it is like a new instance of report.
To resolve this you can use Export to memory ID / Import from memory ID statements, as these will retain the data across report instances.
Now the following code is doing exactly what you wanted. You should copy/ paste it in an abap program and run it to see for yourself how I retained active tab. Hope this will help you.
REPORT yy_test002.
TABLES: bkpf, bseg, glt0, fdes, lfa1.
DATA: g_acttab(132) TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS: p_bukrs LIKE bkpf-bukrs, "obligatory,
            p_upto LIKE bkpf-budat.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECT-OPTIONS: s_hkon1 FOR bseg-hkont NO-EXTENSION,
                s_lifn1 FOR bseg-lifnr.
SELECTION-SCREEN END OF SCREEN 101.
SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.
SELECT-OPTIONS: s_hkon2 FOR bseg-hkont NO-EXTENSION,
                s_lifn2 FOR bseg-lifnr.
SELECTION-SCREEN END OF SCREEN 102.
SELECTION-SCREEN BEGIN OF SCREEN 103 AS SUBSCREEN.
SELECT-OPTIONS: s_hkon3 FOR bseg-hkont NO-EXTENSION,
                s_lifn3 FOR bseg-lifnr.
SELECTION-SCREEN END OF SCREEN 103.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME.
PARAMETERS: p_dued LIKE bseg-fdtag.
SELECTION-SCREEN BEGIN OF TABBED BLOCK tbblk FOR 8 LINES.
SELECTION-SCREEN TAB (18) tabname1
USER-COMMAND 'UTB1' DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (18) tabname2
USER-COMMAND 'UTB2' DEFAULT SCREEN 102.
SELECTION-SCREEN TAB (18) tabname3
USER-COMMAND 'UTB3' DEFAULT SCREEN 103.
SELECTION-SCREEN END OF BLOCK tbblk.
SELECTION-SCREEN END OF BLOCK blk2.
INITIALIZATION.
tabname1 = 'GL Accounts set 1'.
tabname2 = 'GL Accounts set 2'.
tabname3 = 'GL Accounts set 3'.
IMPORT g_acttab FROM MEMORY ID 'zssfsdfr3'.
IF sy-subrc = 0.
    tbblk-prog = sy-repid.
    tbblk-activetab = g_acttab.
    CASE g_acttab.
      WHEN 'UTB1'.
        tbblk-dynnr = 101.
      WHEN 'UTB2'.
        tbblk-dynnr = 102.
      WHEN 'UTB3'.
        tbblk-dynnr = 103.
      WHEN OTHERS.
    ENDCASE.
ENDIF.
START-OF-SELECTION.
g_acttab = tbblk-activetab.
EXPORT g_acttab TO MEMORY ID 'zssfsdfr3'.
WRITE:/ 'current active tab:', g_acttab.
WRITE:/ 'bye'.

Hide a parameter in a select-screen

hi
I have this selection screen
SELECTION-SCREEN BEGIN OF BLOCK tipo WITH FRAME.
PARAMETERS: p_resumo RADIOBUTTON GROUP tipo,
p_farm   RADIOBUTTON GROUP tipo.
*RP(20.02.2009)-Reestruturação do módulo
SELECT-OPTIONS: s_kunnr FOR qmel-kunum.
PARAMETERS: p_sform LIKE tnapr-sform OBLIGATORY
DEFAULT 'ZLYSD_RESUMO_RECLAMACOES'.
SELECTION-SCREEN: END OF BLOCK tipo,
END OF BLOCK inicial.
and i need
if p_resumo is not initial, the select option s_kunnr doesn'appear or isn't a input field.
How can i do this ?
Thanks

Hi,
SELECTION-SCREEN BEGIN OF BLOCK tipo WITH FRAME.
PARAMETERS: p_resumo RADIOBUTTON GROUP tipo,
p_farm RADIOBUTTON GROUP tipo.
*RP(20.02.2009)-Reestruturação do módulo
SELECT-OPTIONS: s_kunnr FOR qmel-kunum.
PARAMETERS: p_sform LIKE tnapr-sform OBLIGATORY
DEFAULT 'ZLYSD_RESUMO_RECLAMACOES'.
SELECTION-SCREEN: END OF BLOCK tipo,
END OF BLOCK inicial.
and i need
if p_resumo is not initial, the select option s_kunnr doesn'appear or isn't a input field.
You have to write the following code in AT SELECTION-SCREEN OUTPUT event.
LOOP AT SCREEN.
    IF NOT p_resumo IS INITIAL.
       IF ( SCREEN-NAME EQ 'S_KUNNR-LOW' or SCREEN-NAME EQ 'S_KUNNR-HIGH' ).
          SCREEN-ACTIVE    = '0'             ---Field will be disabaled...
          SCREEN-INVISIBLE = '1'             ---Field will be invisible...
       ENDIF.
       MODIFY screen .
ENDIF.
ENDLOOP.
Regards,
Anil Salekar

Hide / Show a block in Selection screen

Similar Messages

Maybe you are looking for