Problem in enabling the selection screen

Hi ,
I have problem in enabling the selection screen.
i have radio button and based on the radio button i need to make the date field as mandatory.
When i tried this with at selection screen on radio button group XXX, itu2019s not triggering.
Could you please help me by resolving the above problem?
Vijay

Hi,
see the sap documentation
... RADIOBUTTON GROUP group [USER-COMMAND fcode]
Effect:
This addition specifies that the input field is displayed as a radio button in the first position on the selection screen, and the output field is displayed next to it on the right. The radio button is selected if the value of para is "X" or "x". Otherwise, it is not selected.
group is used to define the radio button group for the parameter. The name group is entered directly as a character string with a maximum of 4 characters. Within a selection screen, there must be a minimum of two parameters in the same radio button group. There cannot be more than one radio button group with the same name in one program, even if they are defined in different selection screens.
The parameter must be specified with the type c and length 1. Explicit length specification using len is not permitted. If the addition TYPE is used, it can only be followed by the generic type c or a non-generic data type of type
In a radio button group, only one parameter can be defined with the addition DEFAULT, and the specified value must be "X". By default, the first parameter in a radio button group is set to the value "X", and the rest are set to " ".
The addition USER-COMMAND can be used to assign a function code fcode to the first parameter in a radio button group. The function code fcode must be specified directly, and have a maximum length of 20 characters. To evaluate the function code, an interface work area of the structure SSCRFIELDS from the ABAP Dictionary must be declared using the statement TABLES. When the user selects any radio button of the radio button group on the selection screen, the runtime environment triggers the event AT SELECTION-SCREEN and transfers the function code fcode to the component ucomm of the interface work area sscrfields. If a function code used in the GUI status of the selection screen is specified for fcode, the selection screen processing is affected accordingly.
Note:
It is recommended to define the radio buttons of a radio button group directly underneath each other. If the selection screen also contains other elements, it is recommended to define each radio button group within a block surrounded by a frame.
Regards,
Venkatesh

Similar Messages

Want to see the previous file name in the selection screen field

Hi,
I am working with flat file upload. Now my problem is in the selection screen field when i press space bar or backspace i want to see the previous file path which i have taken before. How to do this functionality.
Thanks in advance,
Vijay.

Hi,
Hope the following code will help u.
PARAMETER: in_file type ibipparms-path MEMORY ID FID.
at selection-screen on value-request for in_file.
call function 'KD_GET_FILENAME_ON_F4'
    exporting
      mask      = ',CSV,*.csv,'
    changing
      file_name = in_file.
But here when u give a path and execute and come back or executing it again the previous path will automatically come to the in_file field.
Just check this code.
Thanks.

Problem with checkbox in the selection screen

Hi guys,
I have a problem with the check box in the selection screen.When i select a check box then a field in the selection screen should be enabled for entering a value.Again if i unselect the checkbox then the field should be disabled for entering a value.I have written the code in at selection-screen output.
The problem is when i select the check box ,the field is not enabled.But when i press enter after selecting the checkbox then the field is enabled for input.It is the same when i unselect the checkbox,after i press enter only the field is getting disabled.What could be the problem.Any suggestions please?
Thanks.

Hi d p
             Please try this code . I think this code have some way that you would like.
REPORT zdownload_to_application_server.
TABLES : caufvd, jest.
I N C L U D E P R O G R A M                                        *
*INCLUDE znrpstnd.
Selection Screen                                                    *
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.
PARAMETERS: p_outb RADIOBUTTON GROUP g1 USER-COMMAND outb DEFAULT 'X' ,
            p_inb RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETERS : p_werks LIKE caufvd-werks MODIF ID a.        " Plant   "OBLIGATORY
SELECT-OPTIONS : s_auart FOR caufvd-auart MODIF ID a,       " Order Type
                   s_aufnr FOR caufvd-aufnr MODIF ID a.       " Order number
PARAMETERS: p_path TYPE string DEFAULT 'C:\SchedulerInterface-OutboundTextFile\' MODIF ID a,
            p_actual AS CHECKBOX MODIF ID a.                  " Transfer Actual
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETERS : p_werks2 LIKE caufvd-werks MODIF ID b,   " Plant   "OBLIGATORY
             p_path2 TYPE string DEFAULT 'C:\SchedulerInterface-InboundTextFile\' MODIF ID b,
             p_path3 TYPE string DEFAULT 'C:\SchedulerInterface-InboundTextFile\' MODIF ID b,
             p_sessio TYPE apqi-groupid MODIF ID b.   " BDC Session
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
IF p_outb EQ 'X'.   " Outbound --> Hide inbound
    LOOP AT SCREEN.
      "IF screen-name = '%BT02011_BLOCK_1000'.
      IF screen-group2 = 'BLK'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'A'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'B'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      "IF screen-name = '%BT01004_BLOCK_1000'.
      IF screen-group3 = 'BLK'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'A'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'B'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path2.
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\SchedulerInterface-InboundTextFile\'
      mask             = ',Text Files,.txt,All files,.*.'
    IMPORTING
      filename         = p_path2
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error = 4
      OTHERS           = 5.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path3.
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\SchedulerInterface-InboundTextFile\'
      mask             = ',Text Files,.txt,All files,.*.'
    IMPORTING
      filename         = p_path3
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error = 4
      OTHERS           = 5.
TOP-OF-PAGE.
START-OF-SELECTION.
Regards
Wiboon

Problem With Push buttons on the selection screen

Hi All,
I've taken 3 push buttons on the selection-screen with the following syntax
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2,
                  FUNCTION KEY 3.
and have removed the F8 execute button using FM RS_SET_SELSCREEN_STATUS
Now, the problem is i'm able to perform validations using At selection screen but the code after the Start-of-selection is not being triggered.
I mean the processing is being terminated after the at selection-screen.could anyone please tell me how do i trigger some code after the event start-of-selection when a user presses a push button with sy-ucomm = FC01.

Check the below sample program :
REPORT ZLPRWINSPC_TMP .
tables : mara,
         sscrfields.
select-options s_matnr for mara-matnr.
initialization.
sscrfields-functxt_01 = 'Clear Selection'.
selection-screen function key 1.
AT SELECTION-SCREEN.
case sscrfields-ucomm.
when 'Clear Selection' or 'FC01'.
clear s_matnr.
refresh s_matnr.
endcase.
Thanks
Seshu

Problem with the selection screen in submit program

Hi Friends,
i am facing the problem wih the selection screen in submit program. in my Module pool program i am using the submit program statement, When i execute the program , The module program display the submit program selections creen.
I have implemented the code same as below.
submit ztest with tknum =p_tknum and return.
Can you pleaes help me how to avoid the submit program selection screen.
Thanks,
Charan

Hi Charan,
You have to give the selection screen values when you submit a job.
Press F1 on submit and you will see more details.
Here is an example from ABAP Documentation.
Program accessed
REPORT report1.
DATA text(10) TYPE c.
SELECTION-SCREEN BEGIN OF SCREEN 1100.
SELECT-OPTIONS: selcrit1 FOR text,
                  selcrit2 FOR text.
SELECTION-SCREEN END OF SCREEN 1100.
Calling program
REPORT report2.
     DATA: text(10)   TYPE c,
      rspar_tab TYPE TABLE OF rsparams,
      rspar_line LIKE LINE OF rspar_tab,
      range_tab LIKE RANGE OF text,
      range_line LIKE LINE OF range_tab.
rspar_line-selname = 'SELCRIT1'.
rspar_line-kind    = 'S'.
rspar_line-sign    = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low     = 'ABAP'.
APPEND rspar_line TO rspar_tab.
range_line-sign   = 'E'.
range_line-option = 'EQ'.
range_line-low    = 'H'.
APPEND range_line TO range_tab.
range_line-sign   = 'E'.
range_line-option = 'EQ'.
range_line-low    = 'K'.
APPEND range_line TO range_tab.
SUBMIT report1 USING SELECTION-SCREEN '1100'
               WITH SELECTION-TABLE rspar_tab
               WITH selcrit2 BETWEEN 'H' AND 'K'
               WITH selcrit2 IN range_tab
               AND RETURN.
Regards,
Jovito.

Problem with the selection screen

Hi All,
       In my program i have given the input in selection screen , Its process something and a msg was displayed , and user confirm it to continue , the program take us back to the selection screen - in this case i have to clear all the values from the selection parameters.
I tried lot , but i didn't get this result.
I know this is the standard functionality , But anything is there to clear the selection parameters.
Regards,
S.C.K

Hi All,
In my program i have given the input in selection screen , Its process something and a msg was displayed , and user confirm it to continue , the program take us back to the selection screen - in this case i have to clear all the values from the selection parameters.
I tried lot , but i didn't get this result.
I know this is the standard functionality , But anything is there to clear the selection parameters.
Regards,
S.C.K
I didn't go through the long list of replies nor I don't know if you gave it a thought, but you can try this,
create a [system variant|http://help.sap.com/saphelp_nw04/helpdata/en/c0/980389e58611d194cc00a0c94260a5/content.htm] (variant name starts with CUS& eg: CUS&BLANK) with the entire selection screen fields blanks and use the following function module to call that variant after msg is displayed.
CALL FUNCTION 'RS_SUPPORT_SELECTIONS'
       EXPORTING
            report               = sy-repid
            variant              = 'CUS&BLANK'
       EXCEPTIONS
            variant_not_existent = 01
            variant_obsolete     = 02.
You can hide the variant by checking the box "Only display in catalog".

Modifying the selection screen dynamically

Hey folks,
I have posted this question previously but no one understood the real problem.
I have 4 fields
Company Code
material Number
plant
storage Location
Unit
when I select the company code AA01 from the F4 help I want to disable material number and Plant ..Like this i have 4 scenarios where based upon the input given in the selection screen other fields have to be enabled or disabled.
I have already used at selection screen on output but that doesn't help me as its a PBO event I tried to search for a proper event but cudn't find it. Is there any way i can achieve this. A sample code wud be easy for me to understand .
Thanks in advance
Rock

Set different groups in your fieds on the screen.
Set the screen group for the Material and Plant as the GR1
Set the screen gorup for the Storage location as the GR2.
You need to modify your screen fields on the PBO event.
Like:
IF P_BUKRS = 'AA01'.
loop at screen.
   if screen-group1 = 'GP1'.
     screen-input = 0.
     modify screen.
   elseif screen-group2 = 'GP2'.
     screen-input = 1.
     modify screen.
   endif.
endloop.
else.
loop at screen.
   if screen-group1 = 'GP2'.
     screen-active = 0.
     modify screen.
   elseif screen-group2 = 'GP1'.
     screen-input = 1.
     modify screen.
   endif.
endloop.
endif.
Regards,
Naimesh Patel

How to disable the selection screen element?

Hello Colleague,
I have a report which has a checkbox in the selection screen. Currently I need to create two transaction codes for the report. When Tcode1 is executed, the program will execute in normal way. When Tcode2 is executed, the checkbox should be selected and greyed (not ready to input).
To implement the requirement, I think I should control the screen in the INITIALIZATION event according to the SY-TCODE. But when I tried to use LOOP AT SCREEN, I find SCREEN is empty.
I search a lot of threads. They all introduce the selection control after screen is displayed.
Can any expert help me on the problem?
Thansk & Regards, Yongbo.

I think you can use Screen Variants T.Code SHD0.

Problem in printing the selected labels value in smartform-SD_PACKING.....

Dear all,
Iam trying to print the packing list using smarforms,
T.Code - VL74 - After providing the input for the selection screen,
eg. output_type - 0001.
 outbound.deliv - 80000834.
In the "OUTPUT FROM HANDLING UNITS" screen, im getting the list of labels available for that selection.
say for eg.
HU Ob Object key Out. Med Role Name 1 City PkMtT PackMatls
1000004002 01 0080000834 0001 1 WE CALCADOS LTDA BENTO GONCALVES Z001 300026
1000004003 01 0080000834 0001 1 WE CALCADOS LTDA BENTO GONCALVES Z001 300026
1000004005 01 0080000834 0001 1 WE CALCADOS LTDA BENTO GONCALVES Z001 300026
1000004006 01 0080000834 0001 1 WE CALCADOS LTDA BENTO GONCALVES Z001 300026
with the Selection check box attached to the first field, when i
select the first and second HUs, it should be passed to the
driver program, but im getting only one HU value passed into the driver program.
In the driver program my code goes like below,
REPORT ZSDPACKDR LINE-COUNT 100 MESSAGE-ID VV.
TABLES: VBCO3, TVST.
INCLUDE ZPALIDATA_PL.
INCLUDE RVADTABL.
DATA: RETCODE LIKE SY-SUBRC, "Returncode
 XSCREEN(1) TYPE C. "Ausgabe Printer/Screen
Internal table for lips
DATA: lips_wa TYPE lips.
DATA: int_lips LIKE lips_wa OCCURS 0 WITH HEADER LINE.
*& Form ENTRY
 text
 -->RETURN_CODE text
 -->US_SCREEN text
FORM ENTRY USING RETURN_CODE US_SCREEN.
 CLEAR RETCODE.
 XSCREEN = US_SCREEN.
 PERFORM PROCESSING USING XSCREEN.
 IF RETCODE NE 0.
 RETURN_CODE = 1.
 ELSE.
 RETURN_CODE = 0.
 ENDIF.
ENDFORM. "ENTRY
FORM PROCESSING USING PROC_SCREEN.
 PERFORM GET_DATA.
 CHECK RETCODE = 0.
ENDFORM. "PROCESSING
FORM GET_DATA.
REFRESH: LVBPLK, LVBPLA, int_lips.
CLEAR: LVBPLK, LVBPLA, int_lips.
 DATA: FM_NAME TYPE RS38L_FNAM.
 VBCO3-VENUM = NAST-OBJKY. "00000.....
 VBCO3-SPRAS = NAST-SPRAS. "D
 VBCO3-KUNDE = NAST-PARNR. "KUNDE
 VBCO3-PARVW = NAST-PARVW. "WE
 VBCO3-PACKD = 'X'.
 CALL FUNCTION 'SD_PACKING_PRINT_VIEW_SINGLE'
 EXPORTING
 COMWA = VBCO3
 IMPORTING
 VBPLK_WA = LVBPLK
 VBPLA_WA = LVBPLA
 VBADR_TVST = LVBADR "n_916660
 TABLES
 VBPLP_TAB = LVBPLP
 EXCEPTIONS
 SHIPPING_UNIT_NOT_UNIQUE = 1
 SHIPPING_UNIT_NOT_FOUND = 2
 OTHERS = 3.
 IF SY-SUBRC NE 0.
 RETCODE = 1.
 PERFORM PROTOCOL_UPDATE.
 ENDIF.
in the above coding, i used SD_PACKING_PRINT_VIEW_SINGLE', but i tried with SD_PACKING_PRINT_VIEW also, but no values getting loaded in the importing structures. if im doing anything wrong, pls correct me.
*CALL FUNCTION 'SD_PACKING_PRINT_VIEW'
EXPORTING
 COMWA = VBCO3
AUFTRAG_NICHT_LESEN = ' '
EXPORTDATEN_NICHT_LESEN = ' '
IMPORTING
VBPLA_WA =
TABLES
 VBPLK_TAB = LVBPLK
 VBPLP_TAB = LVBPLP
 VBPLS_TAB = LVBPLS
EXCEPTIONS
OBJECT_NOT_FOUND = 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.
The problem is:
For any of the above function call,
The VBCO3 itself im getting only one label number, hence it is processing for only one, i want to know how to pass on the multiple
label number to this function call ie, in VBC03.
meaning i would like to know, in which internal table , i can get the list of all the selected HUs, so that i shall loop this function call inorder get the appropriate output.
kindly help me to sort this issues.
Points assured.
regs,
Raja

Dear Srihari,
I wrote above code in first label(now i deleted do-enddo) only.
first i am moving seven lebels data into seven wa's.
after that reading the first record and moving another itab(for printing at main window i.e. 8 label).
clearly, there is no space problem..because instead puttting all the required field i put only customer name.
Now it is printing well in first page with 8 labels(main window) also.
But in the second Page it displays only 7 labels and not printing rest of the labels.
for example my itab has 20 records it displays 8 labels in first page &
next 7 labels in second page and not print the rest of the 5 labels i.e. it is not calling third page(?).
code..
CLEAR : WA1, WA2, WA3, WA4, WA5, WA6, WA7.
loop at it_final into wa_final FROM 1 TO 7.
if sy-tabix = '1'.
 wa1 = wa_final.
elseif sy-tabix = '2'.
 wa2 = wa_final.
elseif sy-tabix = '3'.
 wa3 = wa_final.
elseif sy-tabix = '4'.
 wa4 = wa_final.
elseif sy-tabix = '5'.
 wa5 = wa_final.
elseif sy-tabix = '6'.
 wa6 = wa_final.
elseif sy-tabix = '7'.
 wa7 = wa_final.
endif.
endloop.
 delete it_final from 1 to 7.
**Push every 8th row if it_final in it_main
 read table it_final into wa_final index 1. "deleting 8th, 16th,... records
 if sy-subrc = 0.
 append wa_final to it_main.
 else.
 exit.
 endif.
*Delete the rows from it_main which are present in it_final
loop at it_main into wa_final.
 delete table it_final from wa_final. "deleting 8 th row from it_final.
endloop.
Edited by: anurag.radha on Jan 6, 2012 1:09 PM

To display the selection screen variant name in WAD report output.

Hello experts,
I have a requirement which is to display the selection screen variant description in the output of the WAD report.
I managed halfway, by using the object "Information field", which displays all the values which are selected by the variant.
Example:I have created a cost center report created using WAD, since I need some graphical displays..
In the selection screen, I have the characteristic "cost center" as input field. I have created a variant " GM - IT" which will include few cost centers managed by GM. In the output, I want the dispaly to be "Cost center - GM IT". Currently it displays "Cost Center - a,b,c,d" as the values a,b,c,d are the values from the variant name "GM-IT"
Please let me know if this required any java script. I am not familiar with java / html codes and any help would be much appreciated (and rewarded)
Thanks in advance
KS

Hi,
Try this.
If you want to include your variables in your WAD means you have to choose "Force Variable Screen" option to be in enabled condition.
TO enable this,in WAD select your Template(New Template1) click the WEBITEM , it'll shows all generic properties , here you can enable this "Force variable screen"
Save and execute your WAD now you can get your variable screen.
Thanks,
JituK

Creating a transaction variant doesn't catch the selection screen

Hi,
I am trying to create a transaction variant for RERAPP transaction, which calls the report RFRERAPP on selection screen 1000.
I have used SHD0, specifying the t. code and a name for a transaction variant, then pressed the "Create" button. the selection screen is displayed, I enter the relevant values for the transaction, and press enter. the system prompts me to create some screen variants, but none of them have fields listed, and none of them is for the screen 1000.
SAP Release 600.
Any hint on the reason behind this behavior?
I found another related, unanswered [topic|Transaction Variant for a standard report without transaction code;

Hi,
I have faced similar problem..
Here is the work around.. Might be useful for you..
1. Create Selection screen variant for report (Modify selection screen 1000 for display/hide in variant maintaince)
2. Then create "parameter Transaction" with report on Transaction START_REPORT
D_SREPOVARI-REPORT = <Your Report Name>
D_SREPOVARI-VARIANT = <Newly created variant>
Nag
Edited by: Naga Mohan Kummara on Dec 31, 2009 10:46 AM
Edited by: Naga Mohan Kummara on Dec 31, 2009 10:49 AM

Dynamic Selection option in the selection screen

Hi ,
I have a requirement like this ....
The user wants some fields to be default available in the selection screen. But they also want to be able to select the data based on additional fields (all the remaining fields ) which they want to see in the dynamic selection .
The basic list for selections should be limited to the fields listed in the specifications provided to me and the remaining fields should be made available through the dynamic selection option.
In the transaction FBL3N , this facility is provided.
Kindly help me with this..
thanks,
Sumit .

Hi Sumit,
To include dynamic selection check this sample code.
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 LIST2FORM 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 LIST3FORM 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
Regards,
Manoj Kumar P

Clear download path in the selection screen

Hi All,
Im facing the problem in the selection screen.
User wants to clear the selection screen download path when they are changing the radio button one to another another radio button. this is as below
PARAMETERS::pa_werks like ekpo-wekrs,
                         pa_path like string.
PARAMETERS:rb1 RADIOBUTTON GROUP g01 USER-COMMAND radio,
              rb2 RADIOBUTTON GROUP g01,
              rb3 RADIOBUTTON GROUP g01.
ex:first default is rb1 radio button,so they will select the download path based on F4 help. then they will choose rb2,now the download path has to clear. cause they want choose F4 according to second radio button RB2.
Thank you very much.
Anu.

Hi Anitha,
Please try this code.
PARAMETERS: P_FNAME LIKE RLGRAP-FILENAME.
PARAMETERS:RB1 RADIOBUTTON GROUP G01 USER-COMMAND RADIO,
RB2 RADIOBUTTON GROUP G01,
RB3 RADIOBUTTON GROUP G01.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF RB1 = 'X'.
      CLEAR P_FNAME.
    ELSEIF RB2 = 'X'.
      CLEAR P_FNAME.
    ELSEIF RB3 = 'X'.
      CLEAR P_FNAME.
    ENDIF.
ENDLOOP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      PROGRAM_NAME = SY-REPID
      DYNPRO_NUMBER = SY-DYNNR
      FIELD_NAME    = 'PATH'
    IMPORTING
      FILE_NAME     = P_FNAME.

How to limit the search help in the selection screen?

Hi All,
I got a selection option in a selection screen,
say SELECT-OPTIONS KSCHL FOR VAKE-KSCHL.
I want to limit the output list of the search help of this field, e.g. 33 entries for a specific application and usage.
What should I do ?
Thz.

Hi,
U can check with these two
... NO-EXTENSION
Effect
The user can only make an entry on one line. Calling the additional "Multiple Selection" screen is not supported and no pushbutton for this appears on the selection screen.
Addition 12
... NO INTERVALS
Effect
The selection option is displayed on the selection screen without a 'to' field. The pushbutton for calling the "Multiple Selection" screen appears immediately after the 'from' field.
This addition thus allows you to generate a simplified display on the selection screen. This is particularly useful if you are not making any range selections for this selection option.
Notes
On the "Multiple Selection" screen, you can also enter ranges for selection options with "NO INTERVALS".
By combining this addition with "NO-EXTENSION", you can restrict the user to entry of a single value for the selection option, but with the possibility of also choosing single value options like 'Greater than' or 'Less than or equal'.
By using the addition " NO INTERVALS" with SELECTION-SCREEN BEGIN OF BLOCK, you can activate the simplified display for all selection options in a block.
The function module SELECT_OPTIONS_RESTRICT allows you to restrict the set of selection options available for a SELECT-OPTION (for example, only single values and patterns, i.e. 'EQ' and 'CP' are allowed). You can also forbid the leading sign 'E' (= 'Exclude from selection'). This means that you can considerably restrict the selections which can be entered on the selection screen.
Just now tried it out to limit the search help u have to use NO-EXTENSION.
Try this simple code.
Tables: mara.
SELECT-OPTIONS: s_matnr FOR MARA-matnr NO-EXTENSION.
Hope this helps.
Kindly reward points and close the thraed if ur problem got solved.
U havent rewarded any points?
Message was edited by: Judith Jessie Selvi

INVISBLE TEXT IN THE SELECTION SCREEN

HI ALL,
I HAVE LOOP ON SCREEN AT THE SELECTION SCREEN,
AND IT SUPPOSE TO INVISIBLE SOME FIELDS.
THE PROBLEM IS THAT IT IS NOT INVISIBLE THE TEXT.
THE CODE IS ABOVE:
      case screen-name.
        when 'SO_SAKNR-LOW' OR 'SO_SAKNR-HIGH'.
          screen-invisible = 0.
          screen-active    = 1.
        when 'SO_KUNNR-LOW' or 'SO_KUNNR-HIGH'.
          screen-invisible = 1.
          screen-active    = 0.
       when 'SO_LIFNR-LOW' or 'SO_LIFNR-HIGH'.
          screen-invisible = 1.
          screen-active    = 0.
      endcase.
HOW AM I SUPPOSE TO INVISIBLE THE TEXT TOO?
THANKS,
DANA.

Dana,
try following code
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(30) text-003 FOR FIELD p_monat MODIF ID fi.
SELECTION-SCREEN POSITION 33.
PARAMETERS p_gjahr LIKE bkpf-gjahr MODIF ID fi.
PARAMETERS p_monat LIKE bkpf-monat MODIF ID fi.
SELECTION-SCREEN COMMENT 52(04) text-005 FOR FIELD p_monat MODIF ID fi.
SELECTION-SCREEN POSITION 58.
PARAMETERS p_bgjahr LIKE bkpf-gjahr MODIF ID fi.
PARAMETERS p_bmonat LIKE bkpf-monat MODIF ID fi.
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
      IF screen-group1 = 'FI'.
        screen-input = '0'.
        screen-invisible = '1'.
        MODIFY SCREEN.
      ENDIF.
ENDLOOP.
-Anu.
Message was edited by: Anupama Reddy

Problem in enabling the selection screen

Similar Messages

Maybe you are looking for