At-selection screen output and radio button together

Hi all,
I want to make  a screen with radio buttons and a drop down menu on selection screen as soon as I check any button and click on Open from drop down menu the output should come according to the button cheked but the problem is that desired output is not coming.
Please see if something could be done.
Thanks,
Shweta

Hi,
Here is the code see y it didnt responds,
I made ZMENU2 in SE41 with Menu bar as OPEN , also activated buttons BACK and EXIT.
tables : sscrfields.
CONSTANTS : buttonselected TYPE c LENGTH 1 VALUE 'X'.
DATA: ok_code LIKE sy-ucomm.
SELECTION-SCREEN BEGIN OF BLOCK frame1 WITH FRAME TITLE text-001.
SELECTION-SCREEN ULINE /1(60).
PARAMETERS: first RADIOBUTTON GROUP rad DEFAULT 'X',
second RADIOBUTTON GROUP rad,
third RADIOBUTTON GROUP rad,
fourth RADIOBUTTON GROUP rad,
fifth RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK frame1.
AT SELECTION-SCREEN OUTPUT.
  SET PF-STATUS 'ZMENU2'.
  If first = buttonselected and ok_code = 'OPEN'..
         WRITE 'You selected first button'.
    ELSEIF second = buttonselected and ok_code = 'OPEN'..
        WRITE 'You selected second button'.
    ELSEIF third = buttonselected and ok_code = 'OPEN'.
        WRITE 'You selected third button'.
    ELSEIF fourth = buttonselected and ok_code = 'OPEN'.
        WRITE 'You selected fourth button'.
    ELSEIF fifth = buttonselected and ok_code = 'OPEN'.
        WRITE 'You selected fifth button'.
    ELSEIF ok_code ='BACK'.
       LEAVE PROGRAM.
    ELSEIF ok_code ='EXIT'.
      LEAVE PROGRAM.
  ENDIF.

Similar Messages

  • Mandatory fields in the Selection screen if a Radio button in on

    Hi all,
      In my selection screen I have got 2 radio buttons and few select-options and parameters.
    I need to make (date) one select-option as mandatory when the second radio button is checked.
    can you please help me to make this.
    Please send me code if possible.
    Regards,
    Shalem

    Hi
    It's Simple.
    AT SELECTION-SCREEN OUTPUT.
    IF RADIO2 = 'X'.
        IF S_DATE IS INITIAL.
            error message.
        ENDIF.
    ENDIF.
    The above code behave same as the MANDATORY option.
    Regards
    Surya.

  • At selection-screen output and  at selection-screen on

    Hi Experts,
    I had coded in both at selection-screen output for disabling input of certain fields and at selection-screen for validation like this:
    AT SELECTION-SCREEN output.
      IF p_amt = 'X'.
        LOOP AT SCREEN.
          CASE screen-name.
            WHEN 'P_AMT'.
              screen-input = '1'.
            WHEN 'P_TST'.
              screen-input = '1'.
            WHEN 'P_B4C'.
              screen-input = '1'.
            WHEN 'P_AFC'.
              screen-input = '1'.
            WHEN 'P_COM'.
              screen-input = '1'.
            WHEN 'P_COM1'.
              screen-input = '1'.
            WHEN 'P_COM2'.
              screen-input = '1'.
            WHEN OTHERS.
              screen-input = '0'.
          ENDCASE.
          MODIFY SCREEN.
        ENDLOOP.
      ENDIF.
      IF p_amt = 'X'.
        LOOP AT SCREEN.
          CASE screen-name.
            WHEN 'P_AMT'.
              screen-input = '1'.
            WHEN 'P_TST'.
              screen-input = '1'.
            WHEN 'P_B4C'.
              screen-input = '1'.
            WHEN 'P_AFC'.
              screen-input = '1'.
            WHEN 'P_COM'.
              screen-input = '1'.
            WHEN 'P_COM1'.
              screen-input = '1'.
            WHEN 'P_COM2'.
              screen-input = '1'.
            WHEN OTHERS.
              screen-input = '0'.
          ENDCASE.
          MODIFY SCREEN.
        ENDLOOP.
      ENDIF.
      IF p_pdf = 'X'.
        LOOP AT SCREEN.
          CASE screen-name.
            WHEN 'P_PDF'.
              screen-input = '1'.
            WHEN 'P_TST'.
              screen-input = '1'.
            WHEN 'P_PATH'.
              screen-input = '1'.
            WHEN OTHERS.
              screen-input = '0'.
          ENDCASE.
          MODIFY SCREEN.
        ENDLOOP.
      ENDIF.
      IF p_afc = 'X'.
        LOOP AT SCREEN.
          CASE screen-name.
            WHEN 'P_TST'.
              screen-input = '1'.
            WHEN 'S_FID-LOW' OR 'S_FID-HIGH'.
              screen-input = '0'.
            WHEN 'S_ORG-LOW' OR 'S_ORG-HIGH'.
              screen-input = '0'.
            WHEN 'S_OFF-LOW' OR 'S_OFF-HIGH'.
              screen-input = '0'.
            WHEN 'S_DAT-LOW' OR 'S_DAT-HIGH'.
              screen-input = '0'.
          ENDCASE.
          MODIFY SCREEN.
        ENDLOOP.
      ENDIF.
    AT selection-screen on block b5.
    if p_tst is initial.
      message text-016 type 'E'.
    endif.
    AT selection-screen on block b2.
    if p_amt ne 'X' and p_pdf ne 'X'.
    if s_fid is initial and s_org is initial.
    message text-000 type 'E'.
    endif.
    if s_dat is initial.
    message text-000 type 'E'.
    endif.
    endif.
    when i comment out at selection-screen validations the input is disabled for the screen fields as set, else the validations are executed first.
    Any solution for this???
    Thanks in advance.

    AT SELECTION-SCREEN
    Syntax
    AT SELECTION-SCREEN selscreen_event.
    Effect
    This statement defines event blocks for different events selscreen_event that are triggered by the ABAP runtime environment during selection screen processing.
    Selection screen events occur immediately before sending a selection screen and after certain user actions on a displayed selection screen. They assist in selection screen processing in the ABAP program.
    AT SELECTION-SCREEN is triggered at least twice during actions on selection screens that are linked into another selection screen as a subscreen - first for the linked selection screen itself, and then for the linking selection screens.
    Note
    The event blocks after AT SELECTION-SCREEN are implemented internally as procedures. Declarative statments in these event blocks create local data.

  • Selection Screen Depeon Upon Radio Button

    How to display Selection Screen depend upon the Radiobutton Flag.
    SELECTION-SCREEN BEGIN OF BLOCK OPTION WITH FRAME TITLE TEXT-T01.
    PARAMETERS: <b>CUSTOMER</b> LIKE KNA1-LOEVM DEFAULT 'X'
                                     RADIOBUTTON GROUP HIT.
    PARAMETERS: <b>VENDOR</b>   LIKE LFA1-LOEVM  RADIOBUTTON GROUP HIT.
    SELECTION-SCREEN END OF BLOCK OPTION.
    SELECTION-SCREEN SKIP 0.
    SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-T02 .
    PARAMETERS    : P_BUKRS TYPE T001-BUKRS DEFAULT 'EIS' OBLIGATORY.
                                          "Company Code
    SELECT-OPTIONS:
                    S_LAND1 FOR T005-LAND1 DEFAULT 'IT' OBLIGATORY,
                                          "Country
                    S_SPMON FOR S031-SPMON,         "Period
              <b>      S_KUNNR FOR KNA1-KUNNR,         "Customer
                    S_LIFNR FOR LFA1-LIFNR,         "Vendor</b>                S_STCEG FOR KNA1-STCEG,         "VAT Registration Number
                    S_STCD1 FOR KNA1-STCD1,                     "TAX Code1
                    S_STCD2 FOR KNA1-STCD2.                     "TAX Code2
    SELECTION-SCREEN END OF BLOCK 1.
    I want to diaplay <b>S_KUNNR</b> or <b>S_LIFNR</b> depend upon Radiobutton Flag.
    Could any body help me.
    Thanx in Advance.<b></b><b></b>

    You can try this.
    report zrich_0001.
    tables: t005, s031, kna1, lfa1.
    selection-screen begin of block option with frame title text-t01.
    parameters: customer like kna1-loevm default 'X'
                     radiobutton group hit  user-command chk.   "<- ADD THIS
    parameters: vendor like lfa1-loevm radiobutton group hit.
    selection-screen end of block option.
    selection-screen skip 0.
    selection-screen begin of block 1 with frame title text-t02 .
    parameters : p_bukrs type t001-bukrs default 'EIS' obligatory.
    * "Company Code
    select-options:
    s_land1 for t005-land1 default 'IT' obligatory,
    * "Country
    s_spmon for s031-spmon,
    s_kunnr for kna1-kunnr modif id kun, "<- ADD THIS
    s_lifnr for lfa1-lifnr modif id lif, "<- ADD THIS
    s_stcd1 for kna1-stcd1,                                     "TAX Code1
    s_stcd2 for kna1-stcd2.                                     "TAX Code2
    selection-screen end of block 1.
    *  ADD ALL THIS
    at selection-screen output.
      loop at screen.
        if customer = 'X'
            and screen-group1 = 'LIF'.
          screen-active = '0'.
          modify screen.
        endif.
        if vendor = 'X'
            and screen-group1 = 'KUN'.
          screen-active = '0'.
          modify screen.
        endif.
      endloop.
    REgards,
    Rich Heilman

  • 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

  • Using Selection screen and selection screen output

    Hi All,
    I am trying to execute AT SELECTION-SCREEN and AT SELECTION-SCREEN output. Both the para's working fine seperately. But when I execute them together AT SELECTION-SCREEN output is not working. Please let me know how to solve this problem. Please see below for the code.
    PARAMETERS:  p_werks LIKE marc-werks OBLIGATORY MEMORY ID WRK,
                 p_lgort LIKE mard-lgort OBLIGATORY,
                 p_rlgort LIKE mard-lgort OBLIGATORY.
        PARAMETERS: p_boml TYPE c RADIOBUTTON GROUP mode user-command flag.
            SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
                PARAMETERS: p_aufnr LIKE aufk-aufnr MODIF ID cp2.
            SELECTION-SCREEN: END OF BLOCK b1.
    *SELECTION-SCREEN COMMENT 1(44) text-004 FOR FIELD p_cmpl.
        PARAMETERS: p_cmpl TYPE c RADIOBUTTON GROUP mode.
           SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
                PARAMETERS: p_matnr type marc-matnr MODIF ID cp1,
                            p_verid type afpo-verid MODIF ID cp1,
                            p_labst type mard-labst MODIF ID cp1.
           SELECTION-SCREEN: END OF BLOCK b2.
       PARAMETERS: p_mstr TYPE c RADIOBUTTON GROUP mode.
    AT SELECTION-SCREEN output.
      LOOP AT SCREEN.
        IF p_boml <> 'X' AND
           screen-group1 = 'CP1'.
           screen-active = '1'.
           MODIFY SCREEN.
        ENDIF.
        IF p_cmpl <> 'X' AND
           screen-group1 = 'CP2'.
           screen-active = '1'.
           MODIFY SCREEN.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    AT SELECTION-SCREEN.
      IF p_boml EQ 'X'.
        IF p_AUFNR EQ space.
            MESSAGE e000(z1) WITH 'Please fill Production Order.'.
        ENDIF.
      endif.
      IF p_cmpl EQ 'X'.
        IF p_MATNR EQ space  OR p_verid EQ space OR p_labst EQ space.
            MESSAGE e000(z1) WITH text-003 'Production Version & Quantity. '.
        ENDIF.
      endif.
    Thanks,
    Senthil

    Hi Senthil,
    As far as my knowledge is concerned AT Selection-Screen output and AT Selection-Screen wont work together.In this code you are trying to do the validation in AT Selection-Screen. Instead of that try doin your validations in Start-of-selection Event.
    i,e., modify your code as follows:
    PARAMETERS: p_werks LIKE marc-werks OBLIGATORY MEMORY ID WRK,
    p_lgort LIKE mard-lgort OBLIGATORY,
    p_rlgort LIKE mard-lgort OBLIGATORY.
    PARAMETERS: p_boml TYPE c RADIOBUTTON GROUP mode user-command flag.
    SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    PARAMETERS: p_aufnr LIKE aufk-aufnr MODIF ID cp2.
    SELECTION-SCREEN: END OF BLOCK b1.
    *SELECTION-SCREEN COMMENT 1(44) text-004 FOR FIELD p_cmpl.
    PARAMETERS: p_cmpl TYPE c RADIOBUTTON GROUP mode.
    SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
    PARAMETERS: p_matnr type marc-matnr MODIF ID cp1,
    p_verid type afpo-verid MODIF ID cp1,
    p_labst type mard-labst MODIF ID cp1.
    SELECTION-SCREEN: END OF BLOCK b2.
    PARAMETERS: p_mstr TYPE c RADIOBUTTON GROUP mode.
    AT SELECTION-SCREEN output.
    LOOP AT SCREEN.
    IF p_boml <> 'X' AND
    screen-group1 = 'CP1'.
    screen-active = '1'.
    MODIFY SCREEN.
    ENDIF.
    IF p_cmpl <> 'X' AND
    screen-group1 = 'CP2'.
    screen-active = '1'.
    MODIFY SCREEN.
    ENDIF.
    MODIFY SCREEN.
    ENDLOOP.
    START-OF-Selection.
    Perform validation.
    form validation.
    IF p_boml EQ 'X'.
    IF p_AUFNR EQ space.
    MESSAGE e000(z1) WITH 'Please fill Production Order.'.
    ENDIF.
    endif.
    IF p_cmpl EQ 'X'.
    IF p_MATNR EQ space OR p_verid EQ space OR p_labst EQ space.
    MESSAGE e000(z1) WITH text-003 'Production Version & Quantity. '.
    ENDIF.
    endif.
    endform.
    Kindly reward if useful.
    Thanks,
    pavithra

  • Selection screen output obligatory field

    Hi all,
    I have two radio buttons, if i selected one radio button one selection screen will come for entries another will be invisible.
    in that selection screen i have all are mandatory fields. so it is not allowing to another radio button with out entering the values
    Chek my code.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text001.
    PARAMETERS     : p_aut RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND ac.
    PARAMETERS     : p_man RADIOBUTTON GROUP g1.
    SELECTION-SCREEN END OF BLOCK b1.
    SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text002.
    PARAMETERS     : p_zbukr   TYPE reguh-zbukr  MODIF ID aut.
    SELECT-OPTIONS : s_laufi   FOR  reguh-laufi  MODIF ID aut OBLIGATORY,              
                     s_laufd   FOR  reguh-laufd  MODIF ID aut OBLIGATORY,               
                     s_hbkid   FOR  reguh-hbkid  MODIF ID aut OBLIGATORY,          
                     s_hktid   FOR  reguh-hktid  MODIF ID aut OBLIGATORY.              
    SELECTION-SCREEN END OF BLOCK b2.
    SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text003.
    PARAMETERS     : p_bukrs   TYPE bsak-bukrs   MODIF ID man DEFAULT 'LTGI'.
    SELECT-OPTIONS : s_augbl   FOR  bsak-augbl   MODIF ID man OBLIGATORY, 
                                 s_augdt   FOR  bsak-augdt   MODIF ID man OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK b3.
    Will it move from one radion button to another even those are obligatory.
    Regards,
    Sri
    Edited by: Thomas Zloch on Sep 14, 2010 2:34 PM - please use code tags!

    Hi,
    True. There are some variables to keep track of.
    So, I have two radio buttons. P_UPL and P_DNL. If P_DNL is selected and gv_mode has already been set to "download status", then I do the check. AT SELECTION-SCREEN OUTPUT happens after AT SELECTION-SCREEN so my gv_mode variable won't be set on the first AT SELECTION-SCREEN when the radio button is selected.
    * SELECTION SCREEN EVENTS
    AT SELECTION-SCREEN OUTPUT.
      DATA: lv_type(3).
      IF p_upl = 'X'.
        gv_mode = c_screen_upload.
      ELSE.
        gv_mode = c_screen_download.
      ENDIF.
      LOOP AT SCREEN.
        IF NOT screen-group1 IS INITIAL.
          IF screen-group1 = gv_mode.
            screen-active = 1.
          ELSE.
            screen-active = 0.
          ENDIF.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    AT SELECTION-SCREEN.
      IF p_dnl = 'X' and gv_mode = c_screen_download.
        IF p_aland is INITIAL.
          MESSAGE text-m03 type 'E'.
        ENDIF.
        IF so_azone[] is INITIAL.
          MESSAGE text-m04 TYPE 'E'.
        ENDIF.
      endif.

  • Issue with At selection-screen output

    Hi,
      I tried in SDn to find suitable thread atlast i am creating query here.
    My requirement is: i have two radiobuttons.
    when i click first radiobutton it hasto show one selection screen it contains pernr and bukrs
    when i click second radiobutton it has to show second selection screen . This screen includes personnel area and Wage type
    Thanks,
    Maheedhar

    Use "AT SELECTION-SCREEN OUTPUT" and distinguish them with "MODIF ID"
    Code flows like this:
    PARAMETERS r_online RADIOBUTTON GROUP g1
                         USER-COMMAND ex DEFAULT 'X'.
    PARAMETERS r_batch RADIOBUTTON GROUP g1.
    PARAMETERS r_down RADIOBUTTON GROUP g1.
    PARAMETER: p_bukrs LIKE t024e-bukrs OBLIGATORY
                       DEFAULT 'US60'.
    SELECT-OPTIONS: s_werks FOR marc-werks.
    PARAMETER: p_vari TYPE slis_vari MODIF ID md5.
    PARAMETERS: p_a_file LIKE rlgrap-filename
                         DEFAULT '/transfer/us6/ZUS6MM04_MatPlt'
                         MODIF ID md2.
    PARAMETERS: p_h_file LIKE rlgrap-filename
                         DEFAULT '/transfer/us6/ZUS6MM04_MatPlt_HDR'
                         MODIF ID md2.
    PARAMETERS: p_hfile1 LIKE rlgrap-filename
                         DEFAULT '/transfer/us6/ZUS6MM04_MatPlt_HDR'
                         MODIF ID md3.
    PARAMETERS: p_hfile2 LIKE rlgrap-filename
                         default 'C:\Transfer\US6\ZUS6MM04_MatPlt_HDR.txt'
                         MODIF ID md4.
    * AT SELECTION-SCREEN EVENTS
    AT SELECTION-SCREEN OUTPUT.
      PERFORM modify_screen.
    *&      Form  MODIFY_SCREEN
    FORM modify_screen .
      LOOP AT SCREEN.
        IF r_online  = 'X'.
          IF screen-group1 = 'MD3' OR
             screen-group1 = 'MD4' OR
             screen-group1 = 'MD2'.
            screen-active = '0'.
          ENDIF.
        ELSEIF r_batch = 'X'.
          IF screen-group1 = 'MD3' OR
             screen-group1 = 'MD4' OR
            screen-group1 = 'MD5'.
            screen-active = '0'.
          ENDIF.
        ELSEIF r_down = 'X'.
          IF screen-group1 = 'MD2' OR
            screen-group1 = 'MD5'.
            screen-active = '0'.
          ENDIF.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ENDFORM.                    " MODIFY_SCREEN

  • Selection screen change with check box and radio buttons

    hi frieds
    i have an requirement that
    there is a check box in the selection screen and bydefault it has been check if it check the selection box shuld be disable
    if it uncheck the check box then selection block should enabled and in that againg two radion buttons are there. Bydefualt one radio button is enabled so that correspondng parameter is allow to enter input data. if i select the othere radio button the immeditely it allow the correpnding field entry and other radio button should be disabled with that field.
    please send the piece of code...
    regards
    vijay

    Hi,
    Use the event AT SELECTION-SCREEN OUTPUT.
    Here is an example:
    at selection-screen output.
      if gv_ucomm = 'RG1'.
        loop at screen.
          if pa_rgor = 'X'.
            if screen-name+7(1) = '2' or
               screen-name+7(1) = '1'.
              screen-input = 0.
            endif.
          endif.
          if pa_rgof = 'X'.
            if screen-name+7(1) = '1' or
               screen-name+7(1) = '3'.
              screen-input = 0.
            endif.
          endif.
          if pa_rgaa = 'X'.
            if screen-name+7(1) = '2' or
               screen-name+7(1) = '3'.
              screen-input = 0.
            endif.
          endif.
          modify screen.
        endloop.
      endif.

  • Invisible Selection Screen(Low and High) accordingly through radio-button

    Dear Experts,
                         Currently I've faced some problem regarding selection-screen.Our user want that when he click P1(say) radio-button, then selection-screen "s1-high " is invisible and when he click P2(say) radio-button that time "s1-low" is invisible.
                         So can anybody tell me the how can i do it?
    warm regards,
    sameek mazumder.

    Hi Sameek,
    If user clicks radio button P2 then how can s1-low become invisible? Do you mean when radio button P2 is clicked program will not display the select option at all?Since If s1-low becomes invisible there is no point of s1-high in the display. Please clarify your requirement.
    However, I think that if it can be something like if radio button 1 is pressed s1-low is visible. If radio button 2 is pressed normal select option is displayed. Please check the following code to achieve this:
    DATA: gv_matnr TYPE matnr.
    PARAMETERS : p_rb1 RADIOBUTTON GROUP g1 USER-COMMAND radio,
                 p_rb2 RADIOBUTTON GROUP g1.
    SELECT-OPTIONS s_matnr FOR gv_matnr.
    AT SELECTION-SCREEN OUTPUT.
      LOOP AT SCREEN.
        IF screen-name CS 'S_MATNR-HIGH'.
          CASE 'X'.
            WHEN p_rb1.
              screen-active = 0.
            WHEN p_rb2.
    *Do nothing
          ENDCASE.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    INITIALIZATION.
      LOOP AT SCREEN.
        IF screen-name CS 'S_MATNR-HIGH'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    Hope this would help.
    BR,
    Atanu

  • Select options and radio button problem

    Hi All,
    In selection screen I have a select option and two radio button default is disable when I input value on select option, it will enable radio button. How can I do this?
    Thanks.
    mlai

    Please go through the below code and reward points if u find it useful:
    tables : pa0000.
    selection-screen begin of block b1 with frame title text-001.
    select-options : s_pernr for pa0000-pernr.
    parameters : r1 radiobutton group g1 modif id abc.
    parameters : r2 radiobutton group g1 modif id abc.
    selection-screen end of block b1.
    at selection-screen output.
    if s_pernr[] is initial.
    loop at screen.
    if screen-group1 = 'ABC'.
    screen-invisible = 1.
    modify screen.
    endif.
    endloop.
    else.
    loop at screen.
    if screen-group1 = 'ABC'.
    screen-invisible = 0.
    modify screen.
    endif.
    endloop.
    endif.
    Thanks
    Vasu

  • Display Hide screen elements on radio button select

    Hi all,
    We have requirement to display some elements if radio button 1 is selected and display others elements if radio button 2 is selected .
    All elements should display/hide on radio button click not on any other button .
    <REMOVED BY MODERATOR>
    Regards,
    Edited by: Alvaro Tejada Galindo on Jun 12, 2008 5:34 PM

    Hi,
    Refer the code below:
    *Radiobuttons for selecting single material or range of BOM components
    SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
    *Radiobutton for selecting material
    PARAMETERS:rb_mat RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND com1.
    *Radiobutton for selecting BOM components
    PARAMETERS:rb_comp RADIOBUTTON GROUP g1.
    SELECTION-SCREEN END OF BLOCK b1.
    *Enter BOM header and details
    SELECTION-SCREEN BEGIN OF BLOCK sub1 WITH FRAME TITLE text-002.
    PARAMETERS:p_matnr TYPE mara-matnr MODIF ID id1.                 "Material Number
    PARAMETERS:p_werks TYPE marc-werks MODIF ID id1.                 "Plant
    PARAMETERS:p_stlan TYPE mast-stlan MODIF ID id1.                 "BOM usage
    PARAMETERS:p_stlal TYPE mast-stlal MODIF ID id1.                 "Alternative BOM
    PARAMETERS:p_capid TYPE rc29l-capid MODIF ID id1.                "BOM Application
    SELECTION-SCREEN END OF BLOCK sub1.
    *Enter BOM components
    SELECTION-SCREEN BEGIN OF BLOCK sub2 WITH FRAME TITLE text-003.
    SELECT-OPTIONS:s_matnr FOR marc-matnr MODIF ID id2.              "Material Number(BOM component)
    SELECTION-SCREEN END OF BLOCK sub2.
    *Enter document details
    SELECTION-SCREEN BEGIN OF BLOCK sub3 WITH FRAME TITLE text-004.
    *Document number
    PARAMETERS:p_doknr TYPE draw-doknr.
    *Document Type
    PARAMETERS:p_dokar TYPE draw-dokar.
    *Document Part
    PARAMETERS:p_doktl TYPE draw-doktl DEFAULT '000'.
    *Document Version
    PARAMETERS:p_dokvr TYPE draw-dokvr DEFAULT '00'.
    SELECTION-SCREEN END OF BLOCK sub3.
    *Display screen based on selection of radio button
    AT SELECTION-SCREEN OUTPUT.
      LOOP AT SCREEN.
        IF rb_mat = 'X'.
          IF screen-group1 = 'ID2'.
            screen-active = 0.
          ENDIF.
        ELSEIF rb_comp = 'X'.
          IF screen-group1 = 'ID1'.
            screen-active = 0.
          ENDIF.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.

  • My iphone6 screen is off since last few days i have tried all the options like pressing the home and sleep button together but still its not switching it on before it was getting hanged quite often it had full battery charged but still it is off

    my iphone6 screen is off since last few days i have tried all the options like pressing the home and sleep button together but still its not switching it on before it was getting hanged quite often it had full battery charged but still it is off can anyone please help ......

    hi i m currently in pakistan and there is no apple store here . i will b back to australia after 2 weeks i was wondering if thei can b any fix as i have all my contacts and everything else in my mobile

  • My ipod screen has a white screen i have tried plugging it in to itunes and pressing the home button and top button together but it wont turn on! this has happened before, i should have never bought one what should i do?

    my ipod screen has went white i have tried plugging it into itunes and pressing the home button and top button together for 10 seconds but it wont work!! this has happened twice before already and i havent even had it a year yet, i should have listened to my sister and never have bought one!!! someone help please ?

    - Connect to computer and it it shows in iTune restore via iTunes
    - Then try letting the battery fully drain. After charging for an hour try the reset (both buttons) and connecting to computer and restore.

  • Ipad 2 screen is black . when i press the power button it takes a screen shot but i have no functionality . tried holding the home and power button together but the screen just flicker and stay black . no apple icon shows up. help please

    ipad 2 screen is black . when i press the power button it takes a screen shot but i have no functionality . tried holding the home and power button together but the screen just flicker and stay black . no apple icon shows up. help please

    Make sure it is charged for about 10min using the adapter, then connect in recovery mode, explained in this article:
    If you can't update or restore your iOS device

Maybe you are looking for