HR-ABAP: Defaulting Radio Button on Selection Screen of PNP LDB

Hi all,
I am using PNP LDB (Logical Database) for program which is used for Payroll Results.
Now I have a requirement wherein it is necessary to select 'Up to today' as default on the selection screen.
We are having 4.7C version of SAP. I tried following code in INITIALIZATION event:
Initializing Selection Screen Data Selection Option to 'Up To Today'
INITIALIZATION:
MOVE: 'X'    TO    pnptimr4, " This is the option which I want as Default selection.
         space TO    pnptimr1,
         space TO    pnptimr2,
         space TO    pnptimr3,
         space TO    pnptimr5,
         space TO    pnptimr6.
But still I dont see this Radiobutton getting selected as Default selection while running the program.
By Default it selects Option : 'Other Period' (pnptimr6).
Any Idea how to resolve this ??
Regards,
Avinash

hi...
When the INITIALIZATION event occurs, you can set default values for the selection screen.
The fields for the data selection are defined in structure QPPNP.
Possible values for field PNPTIMED are:
D     =      Today (key date)
M     =     Current month
Y     =     Current year
P     =     To current date
F     =     From today (from current date)
The person selection fields are defined in include program DBPNPSEL. They are internal tables that must be filled using APPEND.
so in intialization you have to write code as
PNPTIMED : P.
so up date will be defaulted in selection screen.
award points if helpful.

Similar Messages

Radio Buttons on Selection Screen

Hi,
I have four radio buttons on selection screen in a frame, all belonging to the same group.
When the program is called using transaction 1, first two radio buttons are displayed. When the program is called using transaction 2, bottom two radio must be displayed.
I am doing this using the following code.
The problem is : When last two are displayed, there is empty space left on the top and first two are displayed there is empty space left in the bottom of the frame. How can this be taken care of such there are no empty spaces in the box frame?
Code:
Radio Buttons for Table Name
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-005.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_ot   RADIOBUTTON GROUP grp1 MODIF ID one.
SELECTION-SCREEN COMMENT 5(31) text-001 FOR FIELD p_ot.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_exp   RADIOBUTTON GROUP grp1 MODIF ID one.
SELECTION-SCREEN COMMENT 5(31) text-002 FOR FIELD p_exp.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_cost   RADIOBUTTON GROUP grp1 MODIF ID two.
SELECTION-SCREEN COMMENT 5(31) text-003 FOR FIELD p_cost.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_att   RADIOBUTTON GROUP grp1 MODIF ID two.
SELECTION-SCREEN COMMENT 5(31) text-004 FOR FIELD p_att.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END OF BLOCK bl1.
Initialization
INITIALIZATION.
Display Table Names depending on transaction calling the program
PERFORM display_table_names.
FORM display_table_names.
DATA : l_mod_id(3) TYPE c.
IF sy-tcode EQ 'ZVTEST1'.
    l_mod_id = 'ONE'.
ELSEIF sy-tcode EQ 'ZVTEST2'.
    l_mod_id = 'TWO'.
ENDIF.
LOOP AT SCREEN.
    IF screen-group1 EQ l_mod_id.
      screen-invisible   = '1'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
ENDFORM.                    " display_table_names

Hi,
REPORT Z_SALES MESSAGE-ID ZZ                          .
*                             Variables                                *
DATA: IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
      IT_MSGS LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA: V_FILE TYPE STRING.
*                         Internal Tables                              *
DATA: BEGIN OF IT_SALES OCCURS 0,
        AUART,
        VKORG,
        VTWEG,
        BSTKD,
        KUNNR_KUNAG,
        KUNNR_KUNWE,
        KETDAT,
        KPRGBZ,
        PRSDT,
        BSTKD_1,
        KUNNR_KUNAG1,
        KUNNR_KUNWE1,
        KETDAT_1,
        KPRGBZ_1,
        PRSDT_1,
        ZTERM_1,
        INCO1,
        INCO2,
        MABNR,
        KWMENG,
        BSTKD_2,
        KUNNR_KUNAG2,
        KUNNR_KUNWE2,
        KETDAT_2,
        KPRGBZ_2,
        PRSDT_2,
        ZTERM_2,
        INCO1_1,
        INCO2_2,
        KSCHL,
        KBETR,
      END OF IT_SALES.
*                       Selection-Screen                               *
*Selection Screen 1
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_FILE(25) TYPE C,
             O_FILE(25) TYPE C.
SELECTION-SCREEN END OF BLOCK B1.
*Selection Screen 2
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS: CAL_TRA RADIOBUTTON GROUP G1 USER-COMMAND FLAG,
            SESSION RADIOBUTTON GROUP G1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK B2.
*Selection Screen 3
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS: MODE DEFAULT 'X' MODIF ID BL1,
            UPDATE DEFAULT 'X' MODIF ID BL1.
SELECTION-SCREEN END OF BLOCK B3.
*Selection Screen 4
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-003.
PARAMETERS: SES_NAM(25) MODIF ID BL2,
            KEP_TRAS TYPE C DEFAULT 'X' MODIF ID BL2,
            LOC_DATE TYPE SY-DATUM MODIF ID BL2,
            USER TYPE SY-UNAME DEFAULT SY-UNAME MODIF ID BL2.
SELECTION-SCREEN END OF BLOCK B4.
*                     At Selection-Screen Output                      *
AT SELECTION-SCREEN OUTPUT.
IF CAL_TRA = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'BL1'.
        SCREEN-ACTIVE = '1'.
      ENDIF.
      IF SCREEN-GROUP1 = 'BL2'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
IF SESSION = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'BL1'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      IF SCREEN-GROUP1 = 'BL2'.
        SCREEN-ACTIVE = '1'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
*                     At Selection-Screen                             *
AT SELECTION-SCREEN.
PERFORM VALIDATE_MANDATORY_FIELDS.
*****************            INITIALIZATION         ********************
INITIALIZATION.
LOC_DATE = SY-DATUM - 1.
*                       Start of Selection                             *
START-OF-SELECTION.
V_FILE = P_FILE.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                = V_FILE
      FILETYPE                = 'ASC'
      HAS_FIELD_SEPARATOR     = ' '
    TABLES
      DATA_TAB                = IT_SALES
    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 <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*&      Form VALIDATE_MANDATORY_FIELDS
*       text
FORM VALIDATE_MANDATORY_FIELDS.
IF P_FILE IS INITIAL OR O_FILE IS INITIAL.
    MESSAGE E000 WITH 'ENTER BOTH THE FILE NAMES'.
ENDIF.
IF CAL_TRA = 'X'.
    IF MODE IS INITIAL OR UPDATE IS INITIAL.
      MESSAGE E000 WITH 'ENTER BOTH THE OPTIONS'.
    ENDIF.
    IF SY-SUBRC <> 0.
      IF MODE <> 'A' OR MODE <> 'E' OR MODE <> 'N'
      OR MODE <> 'a' OR MODE <> 'e' OR MODE <> 'n'.
        MESSAGE E000 WITH 'Mode should be either A, E or N'.
      ENDIF.
      IF UPDATE <> 'S' OR UPDATE <> 'A'
      OR UPDATE <> 's' OR UPDATE <> 'a'.
        MESSAGE E000 WITH 'Mode should be either S or A'.
      ENDIF.
    ENDIF.
ENDIF.
IF SESSION = 'x'.
    IF SES_NAM   IS INITIAL
    OR KEP_TRAS IS INITIAL
    OR LOC_DATE IS INITIAL
    OR USER      IS INITIAL.
      MESSAGE E000 WITH 'ENTER ALL THE FIELDS'.
    ENDIF.
ENDIF.
ENDFORM.                    "VALIDATE_MANDATORY_FIELDS
Regards
vijay

Radio button in selection screen and push button

Hi experts,
I want to give radio button in selection screen side by side.
how we can do this on slection screen.
secondly i want to resize push button on selection screen.
please provide me the exact solution.
thanks
babbal

Hi babbal,
For Your Requriment yo can go to tcode se51 & then give ur program name & give screen number as 1000 because 1000 is default screen for all the programs and in se51 Press Layout button & then you can make changes to the Selection screen according to your requriment
Hope it will be Helpfull.......!!
Thanks & Regards,
Bhushan

Radio button on selection screen event issue.

Hi all,
I have two radio buttons and two input mandatory fields on selection screen.
- If first radio button selected then some value 'ABC' should fill in second input field.(because it is a mandatory field)
- If second radio button selected then some value 'XYZ' should fill in first input field..(because it is a mandatory field)
If suppose, user deletes first input value (ABC) and selects second Radio then, ABC to automatically display on first input field as this is mandatory. Same like,If he deletes second input field value and selects first radio, it should display XYZ in second input field. (As these fields are mandatory and requires some value).
I tried with below code, but not working. Appreciate your quick response.
PARAMETER          ppart RADIOBUTTON GROUP src DEFAULT 'X'.
SELECT-OPTIONS p_sndprn FOR edoc_stat-sndprn OBLIGATORY DEFAULT 'ABC'.
PARAMETER         psndr RADIOBUTTON GROUP src.
SELECT-OPTIONS p_sendid FOR zabc-sndlad OBLIGATORY DEFAULT 'XYZ'.
AT SELECTION-SCREEN ON RADIOBUTTON GROUP src.
IF SSCRFIELDS-UCOMM = 'PRGP'.
IF ppart EQ 'X'.
       P_SENDID-LOW = 'XYZ'.
ELSE.
      P_SNDPRN-LOW = 'ABC'.
ENDIF.
ENDIF.
Thanks,
Ranjith.

Search the forum... don't make fields obligatory and use event AT SELECTION-SCREEN OUTPUT.

Regarding radio button and selection screen

hi
i have a requirement to grey out one particular select option , if any one of 4 radio button is selected. (total 5 radio buttons ) .
how do i proceed .
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: p_year for s021-spmon obligatory,
                p_kunag FOR vbrk-kunag ,
                p_matnr FOR vbrp-matnr ,
                p_augru FOR vbrp-augru_auft ,
                p_vbeln FOR vbrk-vbeln .
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETERS: nrw RADIOBUTTON GROUP g1 default 'X'user-command check,
            mwd RADIOBUTTON GROUP g1user-command check,
            rws RADIOBUTTON GROUP g1user-command check,
            edu RADIOBUTTON GROUP g1user command check
            standard RADIOBUTTON GROUP g1 .
SELECTION-SCREEN END OF BLOCK blk2.
SELECTION-SCREEN END OF BLOCK blk.
i know we need to use at-selection screen output.
but how do i set ONLY that particular select option , to no input.

Hi ,
Use like This
User Dynamic Selection
at selection-screen output.
select single * from t000md.
loop at screen.
    case screen-group1.
      when 'REL'.
        if not p_old is initial.
          screen-input = '0'.
          screen-required = '0'.
          screen-invisible = '1'.
        endif.
        modify screen.
      when 'BEL'.
        if not p_new is initial.
          screen-input = '0'.
          screen-required = '0'.
          screen-invisible = '1'.
        endif.
        modify screen.
      when 'ARB'.
        if p_new is initial.
          screen-input = '0'.
          screen-required = '0'.
          screen-invisible = '1'.
        endif.
        modify screen.
      when 'MTA'.
        if p_new is initial.
          screen-input = '0'.
          screen-required = '0'.
          screen-invisible = '1'.
        endif.
        modify screen.
    endcase.
endloop.
Reward Points if it is useful
Thanks
Seshu

Problem with Radio Buttons: At Selection-Screen

Hi,
i have two radio-buttons in my screen with coding
PARAMETERS:
                  ST RADIOBUTTON GROUP rad1 DEFAULT 'X',         "stock transport
                  PR RADIOBUTTON GROUP rad1.                     "purchase return
at selection-screen output.
if PR = 'X'.
perform f_selection_request_po_ret.
endif.
if ST = 'X'.
perform f_selection_request_stck_trans.
endif.
at selection-screen on value-request for s_ebeln-low.
perform f_f4_values.
at selection-screen on value-request for s_ebeln-high.
perform f_f4_values.
I need to provide different values in drop-down of select-options according to the radio-button selected.
Like if PR is selected s_ebeln-low and s_ebeln-high displayed will be different.
and if ST is selected s_ebeln-low and s_ebeln-high displayed will be different.
My problem is that the program is taking the values of that radio button which is set to Default. While running the program, if I click on the other radio-button, it is showing the same values, not different.
Kindly, tell me where I am going wrong in the coding.
Regards,
Priyanka.

Hi,
For this requirement you have to use the following FM's
<b>DYNP_VALUES_READ </b> and DYNP_VALUES_UPDATE
The one highlighted is the one you need to call in the selection screen events to get the values. Do a where used list on this FM and see how its being used.
DATA : W_REPID    LIKE D020S-PROG,
         W_DYNNR    LIKE D020S-DNUM,
         I_DYNPREAD LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.
REFRESH: I_DYNPREAD.
CLEAR : I_DYNPREAD,
           W_FILE    .
I_DYNPREAD-FIELDNAME = C_UXPATH.
APPEND   I_DYNPREAD.
CLEAR : I_DYNPREAD.
W_REPID = SY-REPID.
W_DYNNR = C_1000.
CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            DYNAME               = W_REPID
            DYNUMB               = W_DYNNR
       TABLES
            DYNPFIELDS           = I_DYNPREAD
       EXCEPTIONS
            INVALID_ABAPWORKAREA = 1
            INVALID_DYNPROFIELD = 2
            INVALID_DYNPRONAME   = 3
            INVALID_DYNPRONUMMER = 4
            INVALID_REQUEST      = 5
            NO_FIELDDESCRIPTION = 6
            INVALID_PARAMETER    = 7
            UNDEFIND_ERROR       = 8
            DOUBLE_CONVERSION    = 9
            OTHERS               = 10.
IF SY-SUBRC EQ 0.
Successfully read screen. GET the values
    LOOP AT I_DYNPREAD.
      CASE I_DYNPREAD-FIELDNAME.
        WHEN C_UXPATH .
          W_FILE   = I_DYNPREAD-FIELDVALUE.
      ENDCASE.
    ENDLOOP.                "LOOP AT i_dynpread.
ENDIF.                    "IF sy-subrc EQ 0.
Cheers
VJ
Message was edited by:
        Vijayendra Rao

Reg : Selection Screen For PNP LDB

Hi All,
I am having problem in selection screen of logical database PNP.. I am attaching the screenshot of the screen which I am using.
[https://www.2big2send.com/collect/861452b5d77254eea4fa17cec4842d63]
Actually.. I created 3 radio buttons down in the screen.. i.e. Delta, delta for X date, full file.
If the user click on Delta radio button then he can only select today radio button.. If he select others than.. the error message should come.. Can anyone help me.. coz.. I dont know.. which event is triggering if the user select other than today radio button of the PNP screen.
I put break points on the AT SELECTION SCREEN and AT SELECTION SCREEN OUTPUT.
But, none of the event is triggering.. Can anyone help me regarding this.
Thanks,
Regards,
Jhings.

Hi...
Thanks for the reply.. I did this also..
AT SELECTION-SCREEN ON RADIOBUTTON GROUP $zb2.
BREAK-POINT.
$zb2 is the group name of the radio button which is there in PNP logical database selection screen..
Same problem again.. this event is not triggering also..
Regards,
Jhings

Radio button and selection screen

hi
my requirement is that if the user enters some particular combination of value in the select options and clicks a particular radio button there should be an error message displayed.
1) I am getting the error message in the form a dialog box , but it has only option of exit , and the user is thrown of the screen. my requirement is that after the error message the user must still be at the same screen so that he can enter new values.
2) the code that i have written also has one more anamoly that the displaying of error depends upon the sequence of actions .
if i enter the value in the select option first and then click the radio button then the error message is displayed which is correct.
but it doesnt work i click the radio button first and then enter the value, the program is executed and NO ERROR message is flashed.
here is what i have written
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: p_year for s021-spmon obligatory ,
                p_kunag FOR vbrk-kunag ,
                p_matnr FOR vbrp-matnr ,
                p_augru FOR vbrp-augru_auft modif id a1 ,
                p_vbeln FOR vbrk-vbeln .
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETERS: nrw RADIOBUTTON GROUP g1 user-command check,
             mwd RADIOBUTTON GROUP g1 ,
             rws RADIOBUTTON GROUP g1 ,
          edu RADIOBUTTON GROUP g1 ,
         standard RADIOBUTTON GROUP g1 default 'X' .
SELECTION-SCREEN END OF BLOCK blk2.
SELECTION-SCREEN END OF BLOCK blk.
at selection-screen output.
   loop at screen.
   if nrw = 'X' and p_augru-low EQ 'MWD'.
       MESSAGE e000(oo) WITH '<Please Enter the correct Order Reason>'.
endif.
   endloop.
START-OF-SELECTION.
CASE 'X'.
WHEN nrw.
PERFORM set_dates_nrw.
      PERFORM load_data_nrw.
      PERFORM get_cust_info_nrw.
      PERFORM set_alv_field_cat_nrw.
      PERFORM display_alv_nrw.
endcase.

Hi
Change this piece of code
at selection-screen output.
loop at screen.
if nrw = 'X' and p_augru-low EQ 'MWD'.
MESSAGE e000(oo) WITH '<Please Enter the correct Order Reason>'.
endif.
endloop.
by
<b>at selection-screen.
if nrw = 'X' and p_augru-low EQ 'MWD'.
MESSAGE e000(oo) WITH '<Please Enter the correct Order Reason>'.
endif.</b>
Reward points if useful.
Regards,
Atish

Regarding Radio button in selection screen?

Hi experts,
In my selection screen I am having two radio buttons.
By default I am selecting the first radiobutton and displaying a selection block correspoding to that below.
If I am selecting second radio button I want to display another selection block regarding to that second radio button.
At that time first selection block should be hidden or should be disabled.
Please help me out with sample codings.
Thanks,
Sakthi.

Hi ,
Try like this..
TABLES : mara.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE select.
PARAMETERS : p1 RADIOBUTTON GROUP rado USER-COMMAND hi DEFAULT 'X',
             p2 RADIOBUTTON GROUP rado.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 .
SELECT-OPTIONS : s_hello FOR mara-matnr MODIF ID m1,
                 s_hi FOR mara-mtart NO-EXTENSION NO INTERVALS MODIF ID m2.
SELECTION-SCREEN END OF BLOCK b2 .
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    CASE screen-group1.
      WHEN 'M1'.
        IF p1 = 'X'.
          screen-active = 1.
        ELSE.
          screen-active = 0.
        ENDIF.
      WHEN 'M2'.
        IF p2 = 'X'.
          screen-active = 1.
        ELSE.
          screen-active = 0.
        ENDIF.
    ENDCASE.
    MODIFY SCREEN.
ENDLOOP.
AT SELECTION-SCREEN ON s_hi.
CHECK sy-ucomm NE 'HI'.
START-OF-SELECTION.
IF p1 = 'X'.
    WRITE 'hi'.
ENDIF.
cheers,
Sai

How to handle Event when a radio button in selection screen is clicked

Hi all,
   What is the Event generated when a radio button is clicked in the selection Screen. My requirement is .If one radio button is clicked a field in selection screen should be greyed.
   Here I used AT SELECTION-SCREEN OUTPUT. but this event is generated only if i press 'ENTER' after clicking the radio button in the selection screen.
   Is there any other way to process this radio button event?
Thanks&Best Regards,
Vishnu

hi,
try like this
TABLES : kna1,lfa1.
SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : rad_but1 RADIOBUTTON GROUP one DEFAULT 'X' USER-COMMAND ucom.
SELECTION-SCREEN COMMENT 3(26) text-003.
SELECT-OPTIONS : kunnr FOR kna1-kunnr.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : rad_but2 RADIOBUTTON GROUP one .
SELECTION-SCREEN COMMENT 3(26) text-004.
SELECT-OPTIONS : lifnr FOR lfa1-lifnr.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN:END OF BLOCK blk1.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF rad_but1 = 'X'.
      IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .
        screen-input = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.
        screen-input = '0'.
        REFRESH lifnr.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
    IF rad_but2 = 'X'.
      IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH'.
        REFRESH kunnr.
        screen-input = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.
        screen-input = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
ENDLOOP.
reward if usefull....

Radio button in selection screen

hi,
i have an ALV Report, in the selection screen there are 2 radio buttons.
RB1 default 'X'.
and
RB2
and there are 5 select-options.
the issue is , the radio button RB1 IS default when RB1 is there one of the select option should be disabled.
and when we click on RB2 the select option should be enabled.
the selec option is
select - option : s_bukrs for bseg-bukrs.
please help with the code.
thanks in advance

Hi,
Try this code,
TABLES : KNA1,EKKO.
PARAMETERS : C1     RADIOBUTTON GROUP VIJJ USER-COMMAND VJY ,
             C2       RADIOBUTTON GROUP VIJJ .
SELECT-OPTIONS : S_CUSTNO FOR KNA1-KUNNR MODIF ID AKP DEFAULT 1000 TO 1033.
INITIALIZATION.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF C1 = 'X'.
      IF SCREEN-GROUP1 = 'VKP'.
        SCREEN-INPUT   = 0.
        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
      IF SCREEN-GROUP1 = 'PKP'.
        SCREEN-INPUT   = 0.
        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
    ELSEIF C2 = 'X'.
      IF SCREEN-GROUP1 = 'PKP'.
        SCREEN-INPUT   = 0.
        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
      IF SCREEN-GROUP1 = 'AKP'.
        SCREEN-INPUT   = 0.
        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
ENDIF.
ENDLOOP.
Regards,
Vijay

Restriction on length of the name given to a radio button in selection scr

Hi,
Is there any length restriction for the name given to a radio button in SELECTION SCREEN?
I need to display a 35 char name for a radio button.

It can be upto 8 characters long. But here is a solution to your problem:
selection-screen begin of line.
parameters: rb_opt1 radiobutton group mygrp.
selection-screen comment 5(35) text-s01 for field rb_opt1.
selection-screen end of line.
selection-screen begin of line.
parameters: rb_opt2 radiobutton group mygrp.
selection-screen comment 5(35) text-s02 for field rb_opt2.
selection-screen end of line.
and then just double click on the text objects to write your own texts.
Hope it helps.

Selection screen modification based on various buttons in selection screen

Hi,
I have 1 query related with Selection screen modification.
In my Report Program,I have created GUI Status for my selection screen
Now 2 buttons in application toolbar are coming on selection sceen.
For this i used,'At selection screen output' event.
And there are 2 blocks on selection screen.
If user press button1 then block2 should not display.
and if user press button2 then block1 should not display.
but the problem is i m not getting reqd result and also while doing debugging its not showing me sy-ucomm value.
Any pointers on this.
Thanks,
Mamta

Hi Mamta,
   have it in a group then you can write code accordingly see sample example,
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS       : p_r1 RADIOBUTTON GROUP rad
                        USER-COMMAND clk DEFAULT 'X'.            " upload Radio Button
SELECTION-SCREEN COMMENT 5(35) text-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : BEGIN OF BLOCK 001 WITH FRAME TITLE text-001.
PARAMETERS: p_upl       LIKE rlgrap-filename MODIF ID a           "Upload File
                         DEFAULT 'c:\temp\parbmat.xls',
            p_werks     like t001w-werks MODIF ID a,              "Plant
PARAMETERS: p_rest      LIKE rlgrap-filename MODIF ID a           "Dwonload File Path
                         DEFAULT 'c:\temp\Success.xls'.
SELECTION-SCREEN : END OF BLOCK 001.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_r2 RADIOBUTTON GROUP rad.
SELECTION-SCREEN COMMENT 5(35) text-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : BEGIN OF BLOCK 002 WITH FRAME TITLE text-002.
PARAMETERS     : p_plant LIKE marc-werks MODIF ID b.                "Plant
PARAMETERS     : p_lgort LIKE mard-lgort MODIF ID b.                "Storage Location
PARAMETERS     : p_vkorg LIKE mvke-vkorg MODIF ID b.                "Sales Organization
PARAMETERS     : p_vtweg LIKE mvke-vtweg MODIF ID b.                "Distribution Channel
SELECT-OPTIONS : s_mat FOR mara-matnr MODIF ID b.                  "Material No No
SELECT-OPTIONS : s_dat FOR mara-ersda MODIF ID b.                  "Date on Record Created
PARAMETERS     : p_down LIKE rlgrap-filename MODIF ID b
                  DEFAULT 'c:\temp\Material Master.xls'.           "Download File Path
SELECTION-SCREEN : END OF BLOCK 002.
AT SELECTION-SCREEN OUTPUT.
*Inactive Fields depending on the radio button
LOOP AT SCREEN.
    IF p_r1 = 'X'.
      IF screen-group1 = 'B'.
        screen-active = 0.
      ENDIF.
    ELSEIF p_r2 = 'X'.
      IF screen-group1 = 'A'.
        screen-active = 0.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
Edited by: suresh suresh on Jul 28, 2009 12:42 PM
Edited by: suresh suresh on Jul 28, 2009 12:42 PM

Default Radio button

Hi Guru's
I have a standard selection screen. (PNP logical db)
It has around 6 radio buttons
I need to keep one of them as default.
How can i do this?
Maximum points will be awarded..
Regards

Hi,
SELECT-OPTIONS : s_bukrs FOR ekko-bukrs OBLIGATORY MODIF ID m1.
SELECT-OPTIONS : s_ebeln FOR ekko-ebeln OBLIGATORY MODIF ID m2 .
PARAMETERS : r1 RADIOBUTTON GROUP g1 USER-COMMAND ucom DEFAULT 'X' .
PARAMETERS : r2 RADIOBUTTON GROUP g1.
******If u want to select only the relevent field on clicking the radio button use the following
AT SELECTION-SCREEN output.
LOOP AT SCREEN.
    IF r1 = 'X' AND screen-group1 = 'M2'.
      screen-input = 0.
      MODIFY SCREEN.
      endif.
    IF r2 = 'X' AND screen-group1 = 'M1'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
Reward if Helpful

Creating push button on Selection screen application toolbar

Hi Friends,
this is a HR-ABAP report. I have to create a push button on Selection screen. when user clicks on that push button 'MODAL DIALOG BOX' has to be displayed containing some data.
plz kindly give some sample code to do this.
Regards,
Radhika Dasharatha.

Hi,
1)Use SELECTION-SCREEN PUSHBUTTON /10(20) PUSH USER-
COMMAND 'ABC'. in selection screen.
2) Give the static name to button in INITIALIZATION event like PUSH = 'PRESS'.
3) At selection screen.
if sy-ucomm eq 'ABC'.
call FM HR_BE_GE_MODAL_DIALOG
endif.
Thanks
Sandeep
Reward if useful

HR-ABAP: Defaulting Radio Button on Selection Screen of PNP LDB

Similar Messages

Maybe you are looking for