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.

Similar Messages

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

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

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

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.

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

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

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.

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'.

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 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

Problem with Hiding fields of selection screen which is called as subscreen

Hello All,
I have problem while hiding the selection screen which is called as subscreen.
Flow of my logic:
Selection-screen with one field and three buttons CREATE,DISPLAY and CHANGE in application toolbar.
user enter some value in field and either he press change or dispaly
When change i need to call selection screen when it is in dispaly i need to stop calling this selection screen.
Upto my knowledge we can't stop calling selection screen in display mode so there is only one possibility is hiding the fields when it is in display mode.
How can i hide the fields and where i need to hide fields?
Please post some codes.
Regards,
Lisa

you can refer the sample code which i mentioned in your previous post. that will solve the problem.

Sub-Blocks in Selection Screen

Hi All,
Inside a selection screen block at most six sub-blocks can be defined.Is there any way to define more than six sub-blocks inside a main block?
Thx in Advance.
Atrai.

Hi Atrai,
As such there is no limit for defining sub blocks in a selection-scree. U can define as many as u want. Please check this...
<b>SELECTION-SCREEN BEGIN OF BLOCK sel1 WITH FRAME TITLE tit1.</b>
PARAMETERS: R1 RADIOBUTTON GROUP RAD1,
            R2 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN BEGIN OF BLOCK sel4 .
PARAMETERS: panid1 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel4.
SELECTION-SCREEN BEGIN OF BLOCK sel5 .
PARAMETERS: panid2 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel5.
SELECTION-SCREEN BEGIN OF BLOCK sel6 .
PARAMETERS: panid3 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel6.
SELECTION-SCREEN BEGIN OF BLOCK sel7 .
PARAMETERS: panid4 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel7.
SELECTION-SCREEN BEGIN OF BLOCK sel8.
PARAMETERS: panid5 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel8.
SELECTION-SCREEN BEGIN OF BLOCK sel9 .
PARAMETERS: panid6 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel9.
SELECTION-SCREEN BEGIN OF BLOCK sel10 .
PARAMETERS: panid7 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel10.
SELECTION-SCREEN BEGIN OF BLOCK sel11 .
PARAMETERS: panid8 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel11.
SELECTION-SCREEN BEGIN OF BLOCK sel12 .
PARAMETERS: panid9 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel12.
SELECTION-SCREEN BEGIN OF BLOCK sel13 .
PARAMETERS: panid10 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel13.
SELECTION-SCREEN BEGIN OF BLOCK sel14 .
PARAMETERS: panid11 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel14.
SELECTION-SCREEN BEGIN OF BLOCK sel15 .
PARAMETERS: panid12 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel15.
SELECTION-SCREEN BEGIN OF BLOCK sel16 .
PARAMETERS: panid13 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel16.
SELECTION-SCREEN BEGIN OF BLOCK sel17 .
PARAMETERS: panid14 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel17.
SELECTION-SCREEN BEGIN OF BLOCK sel18 .
PARAMETERS: panid15 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel18.
SELECTION-SCREEN BEGIN OF BLOCK sel19 .
PARAMETERS: panid16 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel19.
SELECTION-SCREEN BEGIN OF BLOCK sel20 .
PARAMETERS: panid17 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel20.
SELECTION-SCREEN BEGIN OF BLOCK sel21 .
PARAMETERS: panid18 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel21.
SELECTION-SCREEN BEGIN OF BLOCK sel22.
PARAMETERS: panid19 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel22.
SELECTION-SCREEN BEGIN OF BLOCK sel23.
PARAMETERS: panid20 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel23.
SELECTION-SCREEN BEGIN OF BLOCK sel24.
PARAMETERS: panid21 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel24.
SELECTION-SCREEN BEGIN OF BLOCK sel25.
PARAMETERS: panid22 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel25.
SELECTION-SCREEN BEGIN OF BLOCK sel26.
PARAMETERS: panid23 like zobrent-zopanid.
SELECTION-SCREEN END OF BLOCK sel26.
SELECTION-SCREEN BEGIN OF BLOCK sel27 WITH FRAME TITLE tit3.
PARAMETERS: brent1 LIKE zobrent-zo_brent,
            effdat1 LIKE zobrent-zo_effdat.
SELECTION-SCREEN END OF BLOCK sel27.
SELECTION-SCREEN BEGIN OF BLOCK sel28 WITH FRAME TITLE tit5.
PARAMETERS: brent2 LIKE zobrent-zo_brent,
            effdat2 LIKE zobrent-zo_effdat.
SELECTION-SCREEN END OF BLOCK sel28.
<b>SELECTION-SCREEN END OF BLOCK sel1.</b>
Here i defined nearly 25 sub-blocks inside a main block.
If found helpful, please do reward.

How to disapper/apper BLOCK in selection screen

could anyone advice,
I have two RBs and one Block with some parametes in SS,
If I click on one,entire block has to apper.
IF I click on second one,entire block has to disappear.
Thanks in advance...

Hi Reddy,
Try following code.
PARAMETERS: p_fidoc RADIOBUTTON GROUP obj USER-COMMAND u1 DEFAULT 'X'.
PARAMETERS p_gjahr LIKE bkpf-gjahr MODIF ID fi.
PARAMETERS p_monat LIKE bkpf-monat MODIF ID fi.
Company
PARAMETERS: p_rcomp LIKE t882c-rcomp MODIF ID fsl.
General Ledger
PARAMETERS: p_rldnr LIKE t881-rldnr MODIF ID fsl.
IF p_fidoc = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'FI'.
        screen-input = '1'.
        screen-invisible = '0'.
        MODIFY SCREEN.
      ELSEIF screen-group1 = 'FSL' .
        screen-input = '0'.
        screen-invisible = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
endif.
-Anu
Message was edited by: Anupama Reddy

Hiding the selection screen blocks

Hello SDNers,
This is my scenario.
I need to have 2 selection screens ie b1 and b2.
initially b2 should be hidden and when i make a selection on b1 the block b2 should be displayed.
Eg :
selection-screen begin of block B1.
parmeter : r_cust radiobutton group grp1,
               r_ven t radiobutton group grp1.
selection-screen end of block B1.
selection-screen begin of block B2.
parmeter : r_cret radiobutton group grp2,
               r_chg radiobutton group grp2,
               r_disp radiobutton group grp2,
selection-screen end of block B2.
Is this possible if yes please paste a sample snippet for understanding.
Help would be highly appreciated and rewarded.
Thanks in advance
Regards,
Ranjith N

Hi...
Please check the code...
It will solve your problem
selection-screen: begin of block c1 with frame title text-001.
selection-screen skip.
parameter: p_singl type char01 radiobutton group rsel
                   default 'X' user-command s_per,    " Single record
           p_mult type char01 radiobutton group rsel." Multiple recrd
selection-screen: end of block c1.
selection-screen: begin of block c2 with frame title text-001.
selection-screen skip.
parameter: p_matnr type matnr       modif id m1, " KMAT
           p_atwrt type zcatnum     modif id m1, " Catalog string
           p_sr_des type atwrt       modif id m1. " Series Designator
selection-screen: end of block c2.
selection-screen: begin of block c3 with frame title text-001.
selection-screen skip.
PARAMETER: p_pc     radiobutton group err user-command ucomm
                                     modif id m4, " Presentation server
           p_server radiobutton group err default 'X'
                                     modif id m4, " Application server
           p_f_pc   type localfile   modif id m3, " PC file name
           p_fname type localfile   modif id m2. " Apltn srvr file path
selection-screen: end of block c3.
at selection-screen output.
Design selection parameters dynamically
perform sub_set_file_param.
form sub_set_file_param .
loop at screen.
If single record is checked
    if p_singl is not initial.
      if screen-group1 = 'M2' or
         screen-group1 = 'M3' or
         screen-group1 = 'M4'.
        screen-active = 0.
      endif.
If multiple record and application server is checked
    elseif p_mult is not initial and
           p_server is not initial.
      if screen-group1 = 'M1' or
        screen-group1 = 'M3' .
        screen-active = 0.
      endif.
If multiple record and presentation server is checked
    elseif p_mult is not initial and
           p_pc   is not initial.
      if screen-group1 = 'M1' or
        screen-group1 = 'M2' .
        screen-active = 0.
      endif.
    endif.
Modify the screen
    modify screen.
endloop.
endform.                    " sub_set_file_param
Thanks
Subhankar

Hiding block of selection screen

Similar Messages

Maybe you are looking for