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

Similar Messages

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

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

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

Hide Tab in Selection Screen After Pressing Button

Hiii All..
My requirement is I have to disable the tab in the selection screen when the user presses the button 'Disable Tabstrip' which is present in Application toolbar..
And it should come back if the user presses another button 'Enable Tabstrip' and that time the above screen should hide.
I am showing u the screen..
Link : [https://www.filesanywhere.com/FS/M.aspx?v=8972698c58616eb771af]
If anyone knows then please help.
Regards,
Jhings.

Thanks For the reply Anju...
But the problem is.. this selection screen is not the default screen.. this is user defined screen.. and SY-UCOMM is not giving any value on the "AT SELECTION SCREEN OUTPUT" Event..
I am giving u the code.. How I defined this..
* This is screen where we are inclucing tab screen
SELECTION-SCREEN : BEGIN OF SCREEN 100.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-005.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : COMMENT 1(15) CUS_TXT.
SELECT-OPTIONS : CUST_ID FOR VBAK-KUNNR.
SELECTION-SCREEN : PUSHBUTTON 79(20) BUT1 USER-COMMAND CLICK1 VISIBLE LENGTH 20.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : COMMENT 1(15) MAT_TXT.
SELECT-OPTIONS : MATNR FOR VBAP-MATNR.
SELECTION-SCREEN : PUSHBUTTON 79(20) BUT2 USER-COMMAND CLICK2 VISIBLE LENGTH 20.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : COMMENT 1(15) CRE_TXT.
SELECT-OPTIONS : CRE_BY FOR VBAK-ERNAM.
SELECTION-SCREEN : PUSHBUTTON 79(20) BUT3 USER-COMMAND CLICK3 VISIBLE LENGTH 20.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
PARAMETERS : A AS CHECKBOX USER-COMMAND UC.
SELECTION-SCREEN : COMMENT 5(33) CHK_TXT.
PARAMETERS:        NUM TYPE I MODIF ID M1.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN: END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF TABBED BLOCK T1 FOR 20 LINES.
SELECTION-SCREEN TAB (10) NAME1 USER-COMMAND UCOMM1 DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (20) NAME2 USER-COMMAND UCOMM2 DEFAULT SCREEN 102.
SELECTION-SCREEN TAB (30) NAME3 USER-COMMAND UCOMM3 DEFAULT SCREEN 103.
SELECTION-SCREEN END OF BLOCK T1.
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2.
SELECTION-SCREEN : END OF SCREEN 100.
* These are subscreens
SELECTION-SCREEN : BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECTION-SCREEN : BEGIN OF BLOCK B6 WITH FRAME TITLE TEXT-006.
PARAMETERS : CUS_NAM1(30) TYPE C,
             CONTACT1(12) TYPE C,
             CITY1(30) TYPE C.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : PUSHBUTTON 1(20) BUT11 USER-COMMAND CLICK11 VISIBLE LENGTH 10.
SELECTION-SCREEN : PUSHBUTTON 25(20) BUT12 USER-COMMAND CLICK12 VISIBLE LENGTH 10.
SELECTION-SCREEN: END OF BLOCK B6.
SELECTION-SCREEN : END OF SCREEN 101.
SELECTION-SCREEN : BEGIN OF SCREEN 102 AS SUBSCREEN.
SELECTION-SCREEN : BEGIN OF BLOCK B7 WITH FRAME TITLE TEXT-007.
PARAMETERS : MAT_DES1(30) TYPE C MODIF ID M1,
             UNT1(12) TYPE C MODIF ID M1,
             MAT_TYP1(30) TYPE C MODIF ID M1.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : PUSHBUTTON 1(20) BUT13 USER-COMMAND CLICK13 VISIBLE LENGTH 10.
SELECTION-SCREEN : PUSHBUTTON 25(20) BUT14 USER-COMMAND CLICK14 VISIBLE LENGTH 10.
SELECTION-SCREEN: END OF BLOCK B7.
SELECTION-SCREEN : END OF SCREEN 102.
SELECTION-SCREEN : BEGIN OF SCREEN 103 AS SUBSCREEN.
SELECTION-SCREEN : BEGIN OF BLOCK B8 WITH FRAME TITLE TEXT-008.
PARAMETERS : F_NAM1(30) TYPE C MODIF ID M1,
             L_NAM1(12) TYPE C MODIF ID M1,
             C_NO1(30) TYPE C MODIF ID M1.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : PUSHBUTTON 1(20) BUT15 USER-COMMAND CLICK15 VISIBLE LENGTH 10.
SELECTION-SCREEN : PUSHBUTTON 25(20) BUT16 USER-COMMAND CLICK16 VISIBLE LENGTH 10.
SELECTION-SCREEN: END OF BLOCK B8.
SELECTION-SCREEN : END OF SCREEN 103.
Hope This could help u..
Regards,
Jhings

How to Disable field in Selection-screen

Hi All,
I want to disable Screen field in my seelction screen. Below is my Code, but it is not working.
I want to perform.
If RB1 = X
Then Parameter P_VBELN should get disabled. Please suggest, find below my code.
*....Selection Screen
selection-screen begin of block b1 with frame title text-001.
parameters: p_vbeln like vbak-vbeln.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameter: rb1 radiobutton group radi default 'X',
           rb2 radiobutton group radi.
selection-screen end of block b2.
*....At Selection Screen
AT Selection-screen.
if p_vbeln = ''.
    MESSAGE ID 'ZID' TYPE 'E' NUMBER '000'.
endif.
*....At selection screen output
AT Selection-screen output.
if rb1 = 'X'.
    Loop at screen.
      if screen = 'P_VBELN'.
        screen-input = '0'.
      endif.
      modify screen.
    endloop.
endif.
*....Start of selection
Start-of-Selection.
select *
from vbak into table itab1
   where vbeln = p_vbeln.
if itab1 is initial.
    select *
    from vbap into table itab2
    for all entries in itab1
    where vbeln = itab1-vbeln.
endif.

Hi Kamaljeet ,
In the code below..see the lines in BOLD..explanation is given as to why they are required
Code----
selection-screen begin of block b1 with frame title text-001.
parameters: p_vbeln like vbak-vbeln.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameter: rb1 radiobutton group radi default 'X' user-command ucomm,
rb2 radiobutton group radi.
selection-screen end of block b2.
AT Selection-screen output.
if rb1 = 'X'.
Loop at screen.
if screen-name = 'P_VBELN'.
screen-input = '0'.
endif.
modify screen.
endloop.
else.
Loop at screen.
if screen-name = 'P_VBELN'.
screen-input = '1'.
endif.
modify screen.
endloop.
endif.
Explanation----
If the user command is not given,the system will not trigger on the click of radio button..
Once triggered it comes to "At selection screen output"..where we must also mention the case when
radio button 2 is selected RB2 ..the p_vbeln must be input and when RB1 is selected the field
p_vbeln must be display only..Paste the code and see how it works
Then use the logic as desired...
Hope it helps
Regards
Byju

How to make Label in selection screen?

Hi friends.. can anybody explain how to make labels in selection screens and how to split the selection screen vertically? plz.. Thanks in advance

Arun kumar,
Check this program. you can put labels like this.
REPORT ZVENKAT_TEST1.
SELECTION-SCREEN BEGIN OF BLOCK block.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text1.
SELECTION-SCREEN POSITION 17.
PARAMETERS :p_pernr type pa0001-pernr.
SELECTION-SCREEN POSITION 26.
SELECTION-SCREEN COMMENT 27(30) text2.
SELECTION-SCREEN end OF LINE.
SELECTION-SCREEN end OF BLOCK block .
at SELECTION-SCREEN OUTPUT.
text1 = 'Personal number'.
SELECT SINGLE ename FROM pa0001 INTO text2 WHERE pernr = p_pernr.
Regards,
Venkat.O

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.

How to define our own selection screen for logical database in abap-hr?

Hi Friends,
Can u please help me
How to define your own selection screens for logical database.
we use to do like(goto->attributes-HRReportcatagerious ).but How to desin using customer table like t599c, t599f and how to add to my logical database?
Thanks in advance
charan

check out this online help
http://help.sap.com/saphelp_erp2004/helpdata/en/9f/dba65c35c111d1829f0000e829fbfe/frameset.htm
Regards
Raja

How i can show the selection screen input field in the top of page in alv

hi ,
          how i can show the selection screen input field in the top of page in alv grid output.
tell me the process

Hi,
excample from my program:
FORM topof_page.
DATA: l_it_header   TYPE TABLE OF slis_listheader WITH HEADER LINE,
        l_info        LIKE l_it_header-info.
DATA: l_it_textpool TYPE TABLE OF textpool WITH HEADER LINE.
DATA: l_key LIKE l_it_textpool-key.
READ TEXTPOOL c_repid INTO l_it_textpool LANGUAGE sy-langu.
DEFINE m_selinfo.
    if not &1 is initial.
      clear l_it_header.
      l_it_header-typ   = 'S'.
      l_key = '&1'.
      translate l_key to upper case.
      read table l_it_textpool with key key = l_key.
      if sy-subrc = 0.
        shift l_it_textpool-entry left deleting leading space.
        l_it_header-key = l_it_textpool-entry .
      endif.
      loop at &1.
        case &1-option.
          when 'EQ'
            or 'BT'
            or 'CP'.
            write &1-low to l_it_header-info.
          when others.
            write &1-low to l_it_header-info.
            concatenate &1-option
                        l_it_header-info
                   into l_it_header-info
                   separated by space.
        endcase.
        if not &1-high is initial.
          write &1-high to l_info left-justified.
          concatenate l_it_header-info
                      l_info
                 into l_it_header-info
                 separated by space.
        endif.
        if &1-sign = 'E'.
          concatenate ']'
                      l_it_header-info
                 into l_it_header-info.
        endif.
        append l_it_header.
        clear: l_it_header-key,
               l_it_header-info.
      endloop.
    endif.
END-OF-DEFINITION.
m_selinfo: s_trmdat,
             s_trmext,
             s_trmint,
             s_fkdat,
             s_delno,
             s_vbeln,
             s_deact,
             s_kdmat.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary = l_it_header[].
ENDFORM.
I hope, this will help you.
Regards
Nicole

How to create a variant selection screen

Hi experts,
Can you tell me " How to create a variant selection screen ".
Please it's urgent.........
Thanks
Basu

Hi ,
Goto your selection screen
Make entries in the fileds od the selection screen
press save button, it will ask you for the mane of the Variant
Give the name of the Variant and save it
Variant is now created for the selection screen.
Reward if useful.
Regards,
Shilpi

How to create a new selection screen IN LOGICAL DATABASE PNPCE

how to create a new selection screen LDBS PNPCE

Hello Ankit,
Do you want to create a new selection screen in LDB PNPCE, or do you want to create a new selection screen in one of your reports using LDB PNPCE?
For later (which is more common), you can use HR Report Category.
Hope this helps.
Best Regards,
Biraju Rajyaguru

How can i declare a selection screen in a DP program with transaction code.

hi friends,
How can i declare a selection screen in a DP program with transaction code. What are the events and flow logic..

Search in SCN/Google for Module-pool programming basics.

How to can we do selection-screen modification for LDB?

Hi All,
I have custom field in my selection-screen of LDB PNP.
Can you people please let me know how can I put the selection-screen modificaiton For ex:
i have created
parameters a as checbox.
select-options: p_btrtl for p0001-btrtl no-intervals.
now If the check box is selected then p_btrtl we can enter values or esle If check box is not selected then p_btrtl will be grayed out, ( I.e. SCREEN-INPUT = 0)
This is simple from ABAP without LDB. But with LDB can we achieve?????????????
Satish
Edited by: Satish Vasireddy on Jun 23, 2010 4:05 PM

you can use the following logic for the additional selection validation. I have done by using PNP LDB. Ex : I have done for one of the field in IT0377.
SELECT-OPTIONS: s_bplan FOR p0377-bplan.
*&      Form check_selection_0377
This subroutine is used to check the selection screen
FORM check_selection_0377.
LOOP AT p0377 WHERE pltyp IN s_bplan
                 AND levl1 IN s_lti
                 AND   begda LE pn-endda
                 AND   endda GE pn-begda.
    CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY'
      EXPORTING
        tclas            = 'A'
        pernr            = pernr-pernr
        infty            = p0377-infty
        subty            = p0377-subty
        begda            = pn-begda
        endda            = pn-endda
        level            = 'R'
      EXCEPTIONS
        no_authorization = 1
        internal_error   = 2
        OTHERS           = 3.
    IF NOT sy-subrc IS INITIAL.
      DELETE p0377.
    ENDIF.
ENDLOOP.
selection not found and no value selected
IF sy-subrc NE 0.
    READ TABLE s_bplan.
    IF sy-subrc EQ 0.
      REJECT.
    ENDIF.
    READ TABLE s_lti.
    IF sy-subrc EQ 0.
      REJECT.
    ENDIF.
ENDIF.
ENDFORM.                    " check_selection_0377
Regards,
Preetham

How do I add a selection screen parameter to get a application server file

Hi All..
Can you please suggest how can we add a selection screen parameter to get a application server file ?
Thanx in Advance...
Regards,
Deepak

Parameter def :
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 02(30) text-005 FOR FIELD p_xlfil.
PARAMETERS: p_xlfil LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF LINE.
Browse
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_xlfil.
PERFORM ws_get_filename USING p_xlfil.
FORM ws_get_filename USING p_xlfil.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 def_path = 'C:'
 mask = ',Excel,*.xls,All,*.*.'(100)
 mode = 'O'
 title = 'Title'(101)
 IMPORTING
 filename = p_xlfil
 EXCEPTIONS
 inv_winsys = 1
 no_batch = 2
 selection_cancel = 3
 selection_error = 4
 OTHERS = 5.
IF sy-subrc NE 0.
 CLEAR p_xlfil.
ENDIF.
ENDFORM. " WS_GET_FILENAME
Regards
Oops i did not read "application server"
Use FM F4_FILENAME_SERVER and not F4_FILENAME/WS_GET_FILENAME.
Message was edited by:
 Raymond Giuseppi

How to hide block on selection screen?

Similar Messages

Maybe you are looking for