Selection screen with Muliple tabs

Morning All
I have a selection screen with 3 tabs depicting 3 separate selection screens in effect. There are certain fields (parameters and select options) that I would like to keep synchronized between the 3 screens. Is there a neat way of doing this?
Cheers
Ian

Hi Ian,
I don't quite understand as to what "synchronisation" means here.
Though anything you would want to do on a Selection Screen, can be handled in the event
<b>AT SELECTION-SCREEN OUTPUT.</b>
This event acts like PBO for the selection screen.
For example, if you have parameter, P1 on Tab 1 and parameter P2 on Tab2, then to equate (assuming that it is "synchronisation"), you could code.
AT SELECTION-SCREEN OUTPUT.
P2 = P1.
Enter the value "10" in P1 on Tab1, click Tab2, P2 will display "10".
You could control this using conditions on flag variables.
Hope this helps.
Best Regards,
Sanyam
Message was edited by: Sanyam Kapur (correction to code)

Similar Messages

How to create a selection screen with two tab strips

Hi Experts,
I need to craete a selection screen '100' with two tab strips, in the 1st tab strip i need create some select options as subscreen and in other tabstrip i need to call the subscren '4000' of the program 'SAPLCTMS' . i need to call this screen as selection screen from the zprogram. please help me out.
Thanks in advance...
Sarath...J

Hi,
I have developed some code.
It just displays a table control and after entering the values init, upon hitting the return button, the values will be put into table itab. Have a look and make necessary changes as you see fit.
*& Report ZMADHU_TBCNTL
REPORT zmadhu_tbcntl.
DATA: BEGIN OF itab OCCURS 0,
     sel TYPE s_flag,
     matnr TYPE matnr,
     ersda TYPE ersda,
     ernam TYPE ernam,
END OF itab.
CONTROLS: tab_cntl TYPE TABLEVIEW USING SCREEN 100.
*START-OF-SELECTION.
CALL SCREEN 100.
*END-OF-SELECTION.
*&      Module STATUS_0100 OUTPUT
      text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'TABCNTL'.   "pf status
SET TITLEBAR 'xxx'.
CASE sy-ucomm.
    WHEN 'BACK' OR
         'CANCEL' OR
         'EXIT'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module ITAB_MODIFY INPUT
      text
MODULE itab_modify INPUT.
CASE sy-ucomm .
    WHEN ' '.        " When pressed enter
if itab-sel = 'X'.
      MODIFY itab INDEX tab_cntl-current_line.
      APPEND itab.    " append lines to internal table
      CLEAR itab.
*endif.
ENDCASE.
ENDMODULE.                 " ITAB_MODIFY INPUT
*Screen 100 flow logic.
PROCESS BEFORE OUTPUT.
MODULE status_0100.
LOOP AT itab WITH CONTROL tab_cntl CURSOR
tab_cntl-current_line..
ENDLOOP.
PROCESS AFTER INPUT.
MODULE select_data.
LOOP .
    CHAIN.
      FIELD itab-matnr.
      FIELD itab-ersda.
      FIELD itab-ernam.
      MODULE itab_modify ON CHAIN-REQUEST.
    ENDCHAIN.
ENDLOOP.
MODULE USER_COMMAND_0100.
Hope it will helps to u.
Thanks,
Shankar

Tabbed selection screen with AT SELECTION-SCREEN ON events does not work

I have a selection screen with 3 tabs fields on each tab have AT SELECTION-SCREEN ON field events.
If you are on tab 1 and select a variant that populates fields on all tabs and then click the execute button ABAP does not seem to recognize that the field has changed when it executes AT SELECTION-SCREEN ON field event unless you physically go to each tab.
I can work around this by:
1) moving all of the AT SELECTION-SCREEN ON field events in a AT SELECTION-SCREEN OUTPUT event. This is not efficient and it potentially opens me up to other problems.
2) changing the selection screen to remove the tabs and have all of the fields on 1 screen. This makes for a very long screen.
Is there any way to have ABAP check all tabs?
Thanks,
Jerry

I finally got it to start. Let it sit and tried and it wouldn't but then I tried again and it did. How do I blow the dust out? I think it must be something with the heat since that comes up alot.
I will do it, I love my Mac.

Variant for selection screen with the Table control entries in another Tab

Hi Guys,
The requirement is to create a variant for the two tabs on a selection screen.
First tab contains the select options and the second contains table control for making entries.
So will it be possible to create a variant when the user makes entries in the fields in one tab and the table on other tab?

You wrote
Utilizing the "Save as variant" option from the selection screen itself works out perfectly, but this variant cannot be transported.
But, give the variant a name beginning with "CUS&" and this variant will be transported. Variant beginning with "CUS&" or "SAP&" are so-called "system variant" and are transported automatically. You can then copy the transaction code and use this new variant in the new transaction.
Regards,
Raymond

SUbmit program where the selection screen called has tab screens

Hello folks,
Anyone ever used the submit command where the program called has tab screens on its intial screen? I would like to do this and do not want to have the selection screen display, so I am hoping there is some way to inform the submit command that I have multiple tabs to fill selection criteia on.
Cheers,
Ross Goodman

Hi,
Try using
Submit prog_name USING SELECTION-SCREEN dynnr
or
SUBMIT prog_name USING SELECTION-SET 'Variant'
I guess this should meet your requirement.
however I have not tried it for Selection screen with tabs.
Let me know how it goes...!!1
Regards,
Nikhil

How to replace the existing selection screen with new selection screen

Hi,
I have first selection screen with parametre as a table name, then I have created dynamic selection screen as 2nd selection screen with different fields of that table as select options. This is done using genaration of dynamic report. Now If I click on button on this 2nd selction screen , then I want to replace this 2nd dynamic selection screen , with the other selection screen fields.
Can anybody guide me, How to do replace one slection screen with different selection screen.
and one imp thing is this selction screen is populating with dynamic fields on it.
Regards,
Mrunal

As I can understand you want to make some of the screen field to disable or visible on screen depending upon the interaction of user with screen 1.
You may use this example code in PBO of screen 2.
LOOP AT SCREEN.
    " action has been taken to modify the area office screen as per the option chosen at screen 99.
    CASE ACTION.
        " if the user has taken up the option of UPLOAD
      WHEN 'UP'.     " screen processing while we upload the plan
        " during upload we will make dates as output fields only
        IF SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_TO' OR SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_FRM'.
          SCREEN-INPUT = 0.
          MODIFY SCREEN.
        ENDIF.
        " also make 2 buttons disabled
        IF SCREEN-NAME = 'AO_DO' OR SCREEN-NAME = 'AO_VE'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
      WHEN 'DN'.      " screen processing while we upload the approved plan
        " during upload we will make dates as output fields only
        IF SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_TO' OR SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_FRM'.
          SCREEN-INPUT = 0.
          MODIFY SCREEN.
        ENDIF.
        " also make 2 buttons disabled
        IF SCREEN-NAME = 'AO_UP' OR SCREEN-NAME = 'AO_VE'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
      WHEN 'VW'.      " screen processing while we view the plan
        " during upload we will make dates as output fields only
        IF SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_TO' OR SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_FRM'.
          SCREEN-INPUT = 0.
          MODIFY SCREEN.
        ENDIF.
        " also make 2 buttons disabled
        IF SCREEN-NAME = 'RLGRAP-FILENAME' OR SCREEN-NAME = 'FNAME'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
        " and hide the file input field
        IF SCREEN-NAME = 'AO_DO' OR SCREEN-NAME = 'AO_UP'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
    ENDCASE.
ENDLOOP.

How to design selection screen with WAD 3.x Web Items

Hi Guruu2019s,
I have a requirement where I need to design a selection screen by using WAD 3.x web items. In the selection screen we have to include the Query Description - in the left corner of the selection screen, Name of Sales Person u2013 left side of the screen, Date from and Date to u2013 right side of the selection screen, User ID and User Name u2013 on the top right of the selection screen etc., after this on the bottom of the selection screen I have to include the pushbutton RUN REPORT.
After filling all the above parameters and click on Run Report it has to trigger another URL link which contains consolidated Sales CRM Report.
Could any one suggest me and provide me the idea on developing the selection screen with WAD 3.x Web items and is there any other interface to trigger the other URL link when I click on Run Report.
Regards
Venkat

no replies. Closing the incident

Want to use ldb selection screen with select queries

I want to use ldb selection screen with select queries since ldb having performance issue .How can I use the fields of the dynamic selection of LDB in the select queries

Hi,
Check the code snippet below: Here 'XXXX' is the table for your select query.
DATA L_DS_CLAUSES TYPE RSDS_WHERE.
MOVE 'XXXX' TO L_DS_CLAUSES-TABLENAME.
READ TABLE DYN_SEL-CLAUSES WITH KEY L_DS_CLAUSES-TABLENAME
                             INTO L_DS_CLAUSES.
SELECT * FROM XXXX
          WHERE field1 IN ...
           AND   field2 ....
           AND (L_DS_CLAUSES-WHERE_TAB).
      PUT XXXX.
ENDSELECT.
You can also try using the FM 'RS_REFRESH_FROM_DYNAMICAL_SEL' passing SY-CPROG in curr_report and 'M' for mode to get the dynamic selection screen values.
Regards,
Munesh.

Dynamic selection screen with ABAP web dynpro

Hi all.
    How can I create dynamic selection screen with ABAP web dynpro? Thank you in advance.

hi yinglak.....
         this is possible........ all the ui elelments has the property called visible and enabled.... just assign an attribute of type wdui_visibility to the visible property....
in the wddomodify method..... check for the radio button value and pass the value true or false to this attribute and it gets changed automatically.
---regards,
   alex b justin

How to display the selection screen with icons as well as with text element

How to display the selection screen with icons as well as with texts (written in text elements) for PlantDate, OrderType,WareHouse..

Report zex33.
type-pools: icon.
selection-screen begin of line.
selection-screen comment 1(20) text_001.
parameters: p_werks type marc-werks.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(20) text_002.
parameters: p_whouse(10).
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(20) text_003.
parameters: p_auart like vbak-auart.
selection-screen end of line.
initialization.
write ICON_PLANT as icon to text_001.
concatenate text_001 text-001 into text_001 separated by space.
write ICON_WAREHOUSE as icon to text_002.
concatenate text_002 text-002 into text_002 separated by space.
write ICON_ORDER as icon to text_003.
concatenate text_003 text-003 into text_003 separated by space.

Selection screen with radio button groups

hi experts,
i have 3 frames in selection screen. in first frame i have two radio buttons. if i select 1st radio button 2nd frame should be in active and 3rd frame should be disable mode. if i select 2nd radio button then 3rd frame should be in active and other 2nd frame should be disable mode. in which event i need to write the code.
can any one help me regarding this and give some sample code.
rgds,
nag.

Here is the example which will explain it completely :
*& Report Z_sscr                                                 *
* Published at ****************
*&DYNAMIC Selection screen based on user clicks on the radiobutton*
REPORT zsscr.
*TYPE POOLS DECLARATIONS FOR VALUE REQUEST MANAGER AND ICONS
TYPE-POOLS : vrm,
             icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.
*GLOBAL DECLARATIONS
DATA : flag TYPE c,
      tablename(10),
      mmtable LIKE dd02l-tabname,
      sdtable LIKE dd02l-tabname,
      hrtable LIKE dd02l-tabname.
*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.
***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS : pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
              pb RADIOBUTTON GROUP rad MODIF ID rad,
              pc RADIOBUTTON GROUP rad MODIF ID cad.
SELECTION-SCREEN SKIP.
**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.
*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20 MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20   MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.
SELECTION-SCREEN END OF BLOCK blk1.
*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2,
                  FUNCTION KEY 3.
**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.
*CLICK OF FIRST RADIO BUTTON
IF pa = 'X'.
    sscrfields-functxt_01 = 'Materials Management'.
    WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*CLICK OF SECOND RADIO
IF pb = 'X'.
    sscrfields-functxt_02 = 'Sales And Distribution'.
    WRITE icon_ws_ship AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*CLICK OF THIRD RADIO
IF pc = 'X'.
    sscrfields-functxt_03 = 'Human Resources'.
    WRITE icon_new_employee AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*CUSTOMISING THE TOOLBARS OF THE SELECTION SCREEN
*WITH F8 BUTTON DISABLED
APPEND : 'PRIN' TO it_ucomm,
            'SPOS' TO it_ucomm,
            'ONLI' TO it_ucomm.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status = sy-pfkey
    TABLES
      p_exclude = it_ucomm.
**EVENT ON THE SELECTION
AT SELECTION-SCREEN.
* LIST BOX ONE VALUES
CASE one.
    WHEN '1'.
      mmtable = 'MARC'.
    WHEN '2'.
      mmtable = 'MARA'.
    WHEN '3'.
      mmtable = 'MARD'.
    WHEN '4'.
      mmtable = 'MARM'.
ENDCASE.
* LIST BOX TWO VALUES
CASE two.
    WHEN '1'.
      sdtable = 'VBAK'.
    WHEN '2'.
      sdtable = 'VBAP'.
    WHEN '3'.
      sdtable = 'VBUK'.
    WHEN '4'.
      sdtable = 'VBUP'.
ENDCASE.
* LIST BOX THREE VALUES
CASE three.
    WHEN '1'.
      hrtable = 'PA0001'.
    WHEN '2'.
      hrtable = 'PA0006'.
    WHEN '3'.
      hrtable = 'PA0022'.
    WHEN '4'.
      hrtable = 'PA0008'.
ENDCASE.
*VALUES FOR CLICK OF THE PUSHBUTTON ON APP TOOLBAR
*AND ENABLING THE BUTTONS TO PERFORM F8
CASE sscrfields-ucomm.
    WHEN 'FC01'.
      tablename = mmtable.
      sscrfields-ucomm = 'ONLI'.
    WHEN 'FC02'.
      tablename = sdtable.
      sscrfields-ucomm = 'ONLI'.
    WHEN 'FC03'.
      tablename = hrtable.
      sscrfields-ucomm = 'ONLI'.
ENDCASE.
*INITIALIZATION EVENT
INITIALIZATION.
*VALUES ASSIGNED TO DROPDOWNLISTS IN THE SUBROUTINES
PERFORM f4_value_request_pa.
PERFORM f4_value_request_pb.
PERFORM f4_value_request_pc.
*START OF SELECTION EVENT
START-OF-SELECTION.
*SUBROUTINE FOR OUTPUT
PERFORM output.
*&      Form f4_value_request_PA
*       text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST1
FORM f4_value_request_pa.
DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'Plant Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '2'.
l_value-text = 'General Material Data'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '3'.
l_value-text = 'Storage Location Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '4'.
l_value-text = 'Units of Measure for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'ONE'.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_tabname
*&      Form f4_value_request_PB
*       text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST2
FORM f4_value_request_pb.
DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'Sales Document: Header Data'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '2'.
l_value-text = 'Sales Document: Item Data'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '3'.
l_value-text = 'Sales Document:Header Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '4'.
l_value-text = 'Sales Document: Item Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'TWO'.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_PB
*&      Form f4_value_request_PC
*       text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST3
FORM f4_value_request_pc.
DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'HR Master :Infotype 0001 (Org. Assignment)'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '2'.
l_value-text = 'Address Infotype 0006'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '3'.
l_value-text = 'Education Infotype 0022'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '4'.
l_value-text = 'Basic Pay Infotype 0008'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'THREE'.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_PC
*&      Form OUTPUT
*       text
*      -->P_TABLENAME text
*fINAL OUTPUT
FORM output.
DATA p_table(10).
p_table = tablename.
*popup to display teh selected table and
*Continue button is clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
    EXPORTING
      titel        = 'User Selections '
      textline1    = p_table
      textline2    = 'is the Selected table'
      start_column = 25
      start_row    = 6.
*assigning the table value in p_table to the
* Table in SE16 transaction by explicitly calling
SET PARAMETER ID 'DTB' FIELD p_table.
CALL TRANSACTION 'SE16'.
ENDFORM.                    "OUTPUT
Reward If found Helpful.

Dynamically calling selection screens with obligatory

TABLES :
******selection-screen: begin of block bal with frame title txt3.
******parameters: RB1 radiobutton group rd1 user-command abc default 'X'.
******parameters: RB2 radiobutton group rd1.
******selection-screen: end of block bal.
******selection-screen: begin of block B1 with frame title txt1.
******SELECT-OPTIONS : s_cust FOR KNA1-kunnr OBLIGATORY MODIF ID r1.
******SELECT-OPTIONS : s_plant FOR plko-werks OBLIGATORY MODIF ID r1 .
******selection-screen: end of block val.
******selection-screen: begin of block upd with frame title txt2.
******SELECT-OPTIONS: s_vend FOR lfa1-lifnr OBLIGATORY modif id r2.
******SELECT-OPTIONS: s_plan FOR plko-werks OBLIGATORY modif id r2.
******selection-screen: end of block upd.
Here i need to call these two selection screens dynamically depends on radio buttion selection.
But
Problem is a arising when when both are obligatory in selection screen ( with out obligatory , it is working fine)
I need to call screens dynamically, ecen though we have obligatory
Let me know procedure , the possibility of same funcationality in tabstips & selection screen.
Madhu

Hi Madhu,
You have to write code in AT SELECTION-SCREEN OUTPUT event.
First of all remove obligatory from select-options declaration. Do it dynamically in AT SELECTION-SCREEN OUTPUT event.
You enable or disable the block depending upon the rediobutton selected. Then in the venet AT SELECTION-SCREEN ON field, you can check whethere user has entered data into that field or not depending upon the radiobutton selected.
TABLES : kna1,
         plko,
         lfa1.
SELECTION-SCREEN: BEGIN OF BLOCK bal WITH FRAME TITLE txt3.
PARAMETERS: rb1 RADIOBUTTON GROUP rd1 USER-COMMAND abc DEFAULT 'X'.
PARAMETERS: rb2 RADIOBUTTON GROUP rd1.
SELECTION-SCREEN: END OF BLOCK bal.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE txt1.
SELECT-OPTIONS : s_cust FOR kna1-kunnr MODIF ID r1.
SELECT-OPTIONS : s_plant FOR plko-werks MODIF ID r1 .
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK upd WITH FRAME TITLE txt2.
SELECT-OPTIONS: s_vend FOR lfa1-lifnr MODIF ID r2.
SELECT-OPTIONS: s_plan FOR plko-werks MODIF ID r2.
SELECTION-SCREEN: END OF BLOCK upd.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF rb1 EQ 'X'.
      IF ( screen-name EQ 'S_CUST-LOW'
        OR screen-name EQ 'S_CUST-HIGH'
        OR screen-name EQ 'S_PLANT-LOW'
        OR screen-name EQ 'S_PLANT-HIGH') .
        screen-active = '1' .
      ENDIF.
      IF ( screen-name EQ 'S_VEND-LOW'
        OR screen-name EQ 'S_VEND-HIGH'
        OR screen-name EQ 'S_PLAN-LOW'
        OR screen-name EQ 'S_PLAN-HIGH') .
        screen-active = '0' .
      ENDIF.
    ELSEIF rb2 EQ 'X'.
      IF ( screen-name EQ 'S_VEND-LOW'
        OR screen-name EQ 'S_VEND-HIGH'
        OR screen-name EQ 'S_PLAN-LOW'
        OR screen-name EQ 'S_PLAN-HIGH') .
        screen-active = '1' .
      ENDIF.
      IF ( screen-name EQ 'S_CUST-LOW'
        OR screen-name EQ 'S_CUST-HIGH'
        OR screen-name EQ 'S_PLANT-LOW'
        OR screen-name EQ 'S_PLANT-HIGH') .
        screen-active = '0' .
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
Regards,
Anil Salekar

Can you giv me a brief introduction regarding selection screen with one eg:

Hello
can you giv me a brief introduction regarding selection screen with one eg:

Hi Ranjith,
Selection Screens
Selection screens are one of the three types of screen in the R/3 System, along with dialog screens and lists. You use them whenever you want the user to enter either a single value for a field or fields, or to enter selection criteria.
Function
ABAP programs use screens to obtain input from users. The most general type of screen is a dialog screen, which you create using the ABAP Workbench tools Screen Painter and Menu Painter These tools allow you to create screens for data input and output. However, each of these screens requires its own flow logic.
Defining and Calling Selection Screens
You often use screens purely for data input . In these cases, you can use a selection screen. Selection screens provide a standardized user interface in the R/3 System. Users can enter both single values and complex selections. Input parameters are primarily used to control the program flow, while users can enter selection criteria to restrict the amount of data read from the database. You can create and save predefined sets of input values in the ABAP Editor for any selection screen. These are called variants. Texts on the selection screen are stored as language-specific selection texts in the program text elements. If you start an executable report using the SUBMIT statement, the input fields of the selection screen also serve as a data interface.
Defining and Calling Selection Screens
You define selection screens using ABAP statements in a program. Simple statements allow you to create input fields, checkboxes, and radio buttons, and design the screen layout. If you want to create a screen exclusively for data input, you do not need to create it using the normal dialog programming tools. When you create a selection screen, the system automatically assumes the tasks of the Screen Painter and Menu Painter.
The rules for calling and defining selection screens in ABAP programs depend on the program type:
·         Executable program (type 1) without logical database
You can use a single standard selection screen and as many user-defined selection screens as you wish. The standard selection screen is called automatically when you start the program. User-defined selection screens, on the other hand, are called using the CALL SELECTION-SCREEN statement in a program. The standard selection screen always has the screen number 1000. User-defined selection screens can have any screen number except 1000.
·         Executable program (type 1) with logical database
The standard selection screen for an executable program linked to a logical database is made up of the logical database selections and the program selections.
·         Module pools (type M) and function modules (type F)
You can only use user-defined selection screens in module pools and function modules. These can have any number apart from 1000. You can only call a selection screen from a function module using the CALL SELECTION-SCREEN statement. You can also define selection screens as Subscreens and incorporate them in screens or tabstrip controls.
Hope this is useful.
regards
Ram
Message was edited by:
        Ramanujan Chitrakootam

Creation of selection screen with 2 radio button groups

Hi All,
I have following selecton screen to be created:
1. Radio Button for File
   A. Radio Button for PC File
       - Parameter for PC File Input
   B. Radio Button for UNIX File
       - Parameter for Unix File Input
2. Radio Button for Material
    - Material Select-Option
As per above Either of Radio Buttons 1/2 File/Material will be selected.
If 1(File) Selected Radio Button for PC File/Unix File will be selected, No other radio buttons will be active.
If 2(Material) Selected Material Select-option input will be given, No other radio buttons will be active.
How can we write the selection screen code for above design.
Thanks in advance.
Thanks,
Deep.

Hi,
go through the following example-----
**************************************INTERNAL TABLE DECLERATION**************************************
DATA: BEGIN OF ITAB2 OCCURS 0,
         VALUE(250) TYPE C,
         END   OF ITAB2.
**************************************DATA DECLERATION************************************************
DATA: PATH LIKE DYNPREAD-FIELDNAME.
DATA : P TYPE STRING,
       D TYPE STRING.
DATA : V_DATASET    LIKE FILENAMECI-FILEEXTERN.
**************************************SELECTION SCREEN***********************************************
PARAMETERS: V_PATH TYPE RLGRAP-FILENAME DEFAULT 'C:\Documents and Settings\vchaturvedi\Desktop\vijay.txt'.
PARAMETERS: D_PATH TYPE RLGRAP-FILENAME.
SKIP 5.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
PARAMETERS: PC_ONE    RADIOBUTTON GROUP RAD1 DEFAULT 'X',
            PC_OTHER    RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR V_PATH.
HELP FOR SEARCHING FILES PATH************************************************
IF PC_ONE = 'X'.
    CALL FUNCTION 'F4_FILENAME'
     EXPORTING
PROGRAM_NAME        = 'Z8VIJAY_SHADOWER_COVERSIONDATA'
DYNPRO_NUMBER       = SYST-DYNNR
       FIELD_NAME          = PATH
     IMPORTING
       FILE_NAME           = V_PATH.
*******CONVERT IN TO STRING************
    P = V_PATH.
ENDIF.
**************************************SELECTION SCREEN VALIDATION***********************************
AT SELECTION-SCREEN.
IF V_PATH = ''.
    MESSAGE E014.                    "FILE PATH NOT FOUND!!!!!!!
ENDIF.
IF D_PATH = ''.
    MESSAGE E016.                "TARGET FILE NOT FOUND!!!!!!!
ENDIF.
*******************FOR DOWNLOAD**********
AT SELECTION-SCREEN ON VALUE-REQUEST FOR D_PATH.
CALL FUNCTION 'F4_FILENAME'
   EXPORTING
PROGRAM_NAME        = 'Z8VIJAY_SHADOWER_COVERSIONDATA'
DYNPRO_NUMBER       = SYST-DYNNR
     FIELD_NAME           = PATH
   IMPORTING
     FILE_NAME           = D_PATH.
***************CONVERT INTO STRING***********
D = D_PATH.
*******************************************MAIN LOGIC************************************************
START-OF-SELECTION.
IF P = ''.
    P = 'C:\Documents and Settings\vchaturvedi\Desktop\vijay.txt'.
ENDIF.
******************UPLOAD DATA FROM OTHERS TO INTERNAL TABLE****************
CALL FUNCTION 'GUI_UPLOAD'
          EXPORTING
            FILENAME                      = P
         FILETYPE                      = 'ASC'
         HAS_FIELD_SEPARATOR           = ' '
         HEADER_LENGTH                 = 0
         READ_BY_LINE                  = 'X'
         DAT_MODE                      = ' '
         CODEPAGE                      = ' '
         IGNORE_CERR                   = ABAP_TRUE
         REPLACEMENT                   = '#'
         CHECK_BOM                     = ' '
       IMPORTING
         FILELENGTH                    =
         HEADER                        =
          TABLES
            DATA_TAB                      = ITAB2
         EXCEPTIONS
           FILE_OPEN_ERROR               = 1
           FILE_READ_ERROR               = 2
           NO_BATCH                      = 3
           GUI_REFUSE_FILETRANSFER       = 4
           INVALID_TYPE                  = 5
           NO_AUTHORITY                  = 6
           UNKNOWN_ERROR                 = 7
           BAD_DATA_FORMAT               = 8
           HEADER_NOT_ALLOWED            = 9
           SEPARATOR_NOT_ALLOWED         = 10
           HEADER_TOO_LONG               = 11
           UNKNOWN_DP_ERROR              = 12
           ACCESS_DENIED                 = 13
           DP_OUT_OF_MEMORY              = 14
           DISK_FULL                     = 15
           DP_TIMEOUT                    = 16
           OTHERS                        = 17
      IF sy-subrc = 1.
       MESSAGE E014.                    "FILE PATH NOT FOUND!!!!!!!
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
******************************DOWNLOAD DATA FROM INTERNAL TABLE TO OTHERS******************************
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
BIN_FILESIZE                    =
      FILENAME                        = D
FILETYPE                        = 'ASC'
APPEND                          = ' '
WRITE_FIELD_SEPARATOR           = ' '
HEADER                          = '00'
TRUNC_TRAILING_BLANKS           = ' '
WRITE_LF                        = 'X'
COL_SELECT                      = ' '
COL_SELECT_MASK                 = ' '
DAT_MODE                        = ' '
CONFIRM_OVERWRITE               = ' '
NO_AUTH_CHECK                   = ' '
CODEPAGE                        = ' '
IGNORE_CERR                     = ABAP_TRUE
REPLACEMENT                     = '#'
WRITE_BOM                       = ' '
TRUNC_TRAILING_BLANKS_EOL       = 'X'
WK1_N_FORMAT                    = ' '
WK1_N_SIZE                      = ' '
WK1_T_FORMAT                    = ' '
WK1_T_SIZE                      = ' '
IMPORTING
FILELENGTH                      =
    TABLES
      DATA_TAB                        = ITAB2
FIELDNAMES                      =
EXCEPTIONS
   FILE_WRITE_ERROR                = 1
   NO_BATCH                        = 2
   GUI_REFUSE_FILETRANSFER         = 3
   INVALID_TYPE                    = 4
   NO_AUTHORITY                    = 5
   UNKNOWN_ERROR                   = 6
   HEADER_NOT_ALLOWED              = 7
   SEPARATOR_NOT_ALLOWED           = 8
   FILESIZE_NOT_ALLOWED            = 9
   HEADER_TOO_LONG                 = 10
   DP_ERROR_CREATE                 = 11
   DP_ERROR_SEND                   = 12
   DP_ERROR_WRITE                  = 13
   UNKNOWN_DP_ERROR                = 14
   ACCESS_DENIED                   = 15
   DP_OUT_OF_MEMORY                = 16
   DISK_FULL                       = 17
   DP_TIMEOUT                      = 18
   FILE_NOT_FOUND                  = 19
   DATAPROVIDER_EXCEPTION          = 20
   CONTROL_FLUSH_ERROR             = 21
   OTHERS                          = 22
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF PC_OTHER = 'X'.
****************************8FOR ONE SERVER TO ANOTHER************************************************
OPEN DATASET V_DATASET FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF SY-SUBRC = 0.
      DO.
        READ DATASET V_DATASET INTO ITAB2.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
        APPEND ITAB2.
      ENDDO.
    ENDIF.
ENDIF.
*********************************PRINTING DATA *********************************************************
LOOP AT ITAB2.
    WRITE :/5 ITAB2-VALUE.
ENDLOOP.
****do reward if usefull
Regards,
vijay

Selection screen with Parameter - field name not coming when made mandatory

Hi Experts,
I have added a parameter in my selection screen which has other select options as well.
I used below code in wd_initi to add parameter
    create data LR_LIFNR type LIFNR.
    WD_THIS->M_HANDLER->ADD_PARAMETER_FIELD(
    I_ID         = 'LIFNR'
    I_VALUE      = LR_LIFNR
    I_OBLIGATORY = ABAP_TRUE
    I_READ_ONLY = L_READ_ONLY ).
I have a submit button in the selection screen, so when ever the value is empty in parameter for LIFNR, system throws an error *Enter selection in Field "" * but error message is unable to take the name of the parameter?
It is expected to give as Enter selection in Field "Vendor"
This throwing of error message is working fine for another select-options for PO which is also mandatory.
What could be the error?
Any clue is highly appreciated.
Regards,
Ajay

Hi,
WDDOINIT the code is:
lt_range_table = wd_this->m_handle->create_range_table(
                                                i_typename = 'ZRM_T_CV_END_DATE1' ).
wd_this->m_handle->add_selection_field(
                      i_id = 'ZRM_T_CV_END_DATE1'
                      i_description = 'Project End Date (MM.YYYY)'
                      it_result = lt_range_table
                      i_read_only = read_only ).
on submit the code is :
rt_prj_end = wd_this->m_handle->get_range_table_of_sel_field(
                                    i_id = 'ZRM_T_CV_END_DATE1' ).
ASSIGN rt_prj_end->* TO <fs_prj_end>.
1.is the data element the same in both the methods u mentioned.i,e on WDDOINIT AND ON ACTION OF SUBMIT.
please check it once.
2.2does the data element LIFNR has field label assosciated with it.(check in domain).
3.check adding description to the field shown as below.
wd_this->m_handle->add_selection_field(
                      i_id = 'ZRM_T_CV_END_DATE1'
                      i_description = 'Project End Date (MM.YYYY)'
                    it_result = lt_range_table
                      i_read_only = read_only )
Try checking these 3 cases.
Priya

Selection screen with Muliple tabs

Similar Messages

Maybe you are looking for