Calling radio button group by group name in SAP Appbuilder

Hi, I'm new to SAP Appbuilder but I do have some really beginner Javascript knowledge.
I'm trying to create a survey mobile app but I don't seem to be able to get the ID of a radio button based on the radio button group.
This is my logic to try to change the text of a label with the ID of the selected radio button.
This function has been set to the event of all 4 radio buttons that have the same radio button group name, "choices".
Help needed.
Regards RotiJohn

First, why do you set the value in wdDoModifyView() and not in a non-static method of the controller?
In your code example you read the value from a node named "AddEmployeeTime" but you set the value on a node named "EmployeeTime". Is that correct?
Armin

Similar Messages

Dynamic creation of Radio Button Group

Hi,
I need to create a Radio Button Group dynamically and add Radio buttons to it.
I am able to create the Radio buttons dynamically. Could someone help me how to create Radio Button Groups.
I tried creating the Radio Button Group using the following code
              DATA : lr_radiobuttongrp type REF TO CL_WD_RADIOBUTTON_GROUP_BY_IDX.
              call method CL_WD_RADIOBUTTON_GROUP_BY_IDX=>NEW_RADIOBUTTON_GROUP_BY_IDX
              EXPORTING
                bind_texts = 'test'
              RECEIVING
                control = lr_radiobuttongrp.
              cl_wd_matrix_head_data=>new_matrix_head_data( element = lr_radiobuttongrp ).
              lr_container->add_child( lr_radiobuttongrp ).
But when I run it I am geting a dump "subnode viewname.ME does not exist".
Thanks,
Suvarna.
Edited by: Suvarna Chittor on Aug 12, 2008 12:10 PM

what is 'test' in bind text parameter
you should provide the name in Capitals along with the node name,
if the node name is TEXTS and the context attribute under this node is TEXT then you have to pass
TEXTS.TEXT
also provide the VIEW parameter to the call
Abhi
Edited by: Abhimanyu Lagishetti on Aug 12, 2008 12:26 PM

Radio Button Groups

Hi I am trying to create two radio button groups, one which contains other text buttons and names buttons, in this group only other text button or names can be chosen. But then within the other group I have all the names buttons, but i only want one of these to be chosen at a time. Heres my code
[AS]
import fl.controls.RadioButtonGroup;
//===========================All Name Buttons============================
var NameTxtRadio:RadioButtonGroup=new RadioButtonGroup("NameTxtRadio");
LBtextMenu.LBnames.group=NameTxtRadio;
RBtextMenu.RBnames.group=NameTxtRadio;
LStextMenu.LSnames.group=NameTxtRadio;
RStextMenu.RSnames.group=NameTxtRadio;
LBtextMenu.LBnames.addEventListener(MouseEvent.CLICK, NamesshowResult);
RBtextMenu.RBnames.addEventListener(MouseEvent.CLICK, NamesshowResult);
LStextMenu.LSnames.addEventListener(MouseEvent.CLICK, NamesshowResult);
RStextMenu.RSnames.addEventListener(MouseEvent.CLICK, NamesshowResult);
function NamesshowResult(event:MouseEvent):void {
   switch (NameTxtRadio.selection) {
          case RBtextMenu.RBnames :
           trace ("RB names chosen");
                         RStextMenu.RSnames.selected = false;
                       RBtextMenu.RBnames.selected = true;
                       LBtextMenu.LBnames.selected = false;
                       LStextMenu.LSnames.selected = false;
                        break;
                       case LBtextMenu.LBnames :
           trace ("LB names chosen");
                        RStextMenu.RSnames.selected = false;
                       RBtextMenu.RBnames.selected = false;
                       LBtextMenu.LBnames.selected = true;
                       LStextMenu.LSnames.selected = false;
                        break;
                       case LStextMenu.LSnames :
           trace ("LS names chosen");
                         RStextMenu.RSnames.selected = false;
                       RBtextMenu.RBnames.selected = false;
                       LBtextMenu.LBnames.selected = false;
                       LStextMenu.LSnames.selected = true;
                        break;
                       case RStextMenu.RSnames :
           trace ("RS names chosen");
                       RStextMenu.RSnames.selected = true;
                       RBtextMenu.RBnames.selected = false;
                       LBtextMenu.LBnames.selected = false;
                       LStextMenu.LSnames.selected = false;
                        break;
//==========================Right Breast text menu==========================
var RBTxtRadio:RadioButtonGroup=new RadioButtonGroup("RBTxtRadio");
RBtextMenu.RBotherTxt.group=RBTxtRadio;
RBtextMenu.RBnames.group=RBTxtRadio;
RBtextMenu.RBotherTxt.addEventListener(MouseEvent.CLICK, RBshowResult);
RBtextMenu.RBnames.addEventListener(MouseEvent.CLICK, RBshowResult);
function RBshowResult(event:MouseEvent):void {
   switch (RBTxtRadio.selection) {
          case RBtextMenu.RBotherTxt :
           trace ("RB other chosen");
                        break;
                       case RBtextMenu.RBnames :
           trace ("RB names chosen");
                        break;
//==============================================================================
//==========================Left Breast text menu==========================
var LBTxtRadio:RadioButtonGroup=new RadioButtonGroup("LBTxtRadio");
LBtextMenu.LBotherTxt.group=LBTxtRadio;
LBtextMenu.LBnames.group=LBTxtRadio;
LBtextMenu.LBotherTxt.addEventListener(MouseEvent.CLICK, LBshowResult);
LBtextMenu.LBnames.addEventListener(MouseEvent.CLICK,LBshowResult);
function LBshowResult(event:MouseEvent):void {
   switch (LBTxtRadio.selection) {
          case LBtextMenu.LBotherTxt :
           trace ("LB other chosen");
                        break;
                       case LBtextMenu.LBnames :
           trace ("LB names chosen");
                        break;
//==============================================================================
//==========================Left Shoulder text menu==========================
var LSTxtRadio:RadioButtonGroup=new RadioButtonGroup("LSTxtRadio");
LStextMenu.LSotherTxt.group=LSTxtRadio;
LStextMenu.LSnames.group=LSTxtRadio;
LStextMenu.LSotherTxt.addEventListener(MouseEvent.CLICK, LSshowResult);
LStextMenu.LSnames.addEventListener(MouseEvent.CLICK,LSshowResult);
function LSshowResult(event:MouseEvent):void {
   switch (LSTxtRadio.selection) {
          case LStextMenu.LSotherTxt :
           trace ("LS other chosen");
                        break;
                       case LStextMenu.LSnames :
           trace ("LS names chosen");
                        break;
//==============================================================================
//==========================Right Shoulder text menu==========================
var RSTxtRadio:RadioButtonGroup=new RadioButtonGroup("RSTxtRadio");
RStextMenu.RSotherTxt.group=RSTxtRadio;
RStextMenu.RSnames.group=RSTxtRadio;
RStextMenu.RSotherTxt.addEventListener(MouseEvent.CLICK, RSshowResult);
RStextMenu.RSnames.addEventListener(MouseEvent.CLICK,RSshowResult);
function RSshowResult(event:MouseEvent):void {
   switch (RSTxtRadio.selection) {
          case RStextMenu.RSotherTxt :
           trace ("RS other chosen");
                        break;
                       case RStextMenu.RSnames :
           trace ("RS names chosen");
                        break;
//==============================================================================
[/AS]
I have no problem choosing between either, other text button or names, only one is selected at a time, but this isnt the case for the other group im able to select multiple name buttons without the other one becoming deselected.
Thanks in advance for any help.

Hi just if anyone else wants to do something like i have, I had to ditch the radio button component and make my own.
Heres the code.
[AS]
RBnamesTextButton.CustomRadioButton.stop();
LBnamesTextButton.CustomRadioButton.stop();
RSnamesTextButton.CustomRadioButton.stop();
LSnamesTextButton.CustomRadioButton.stop();
RBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState01);
LBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState01);
RSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState01);
LSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState01);
function rollOverState01(event:MouseEvent):void
          if (event.target.currentFrame !== 3)
                    event.target.gotoAndStop("over");
RBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState01);
LBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState01);
RSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState01);
LSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState01);
function rollOffState01(event:MouseEvent):void
          if (event.target.currentFrame !== 3)
                    event.target.gotoAndStop("off");
RBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState01);
LBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState01);
RSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState01);
LSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState01);
function rollupState01(event:MouseEvent):void
          RBnamesTextButton.CustomRadioButton.gotoAndStop(1);
          LBnamesTextButton.CustomRadioButton.gotoAndStop(1);
          RSnamesTextButton.CustomRadioButton.gotoAndStop(1);
          LSnamesTextButton.CustomRadioButton.gotoAndStop(1);
          event.target.gotoAndStop(3);
//======================================OTHER TEXT========================================================
RBotherTextButton.CustomRadioButton.stop();
LBotherTextButton.CustomRadioButton.stop();
LSotherTextButton.CustomRadioButton.stop();
RSotherTextButton.CustomRadioButton.stop();
RBotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState02);
RSotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState02);
LBotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState02);
LSotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OVER, rollOverState02);
function rollOverState02(event:MouseEvent):void
          if (event.target.currentFrame !== 3)
                    event.target.gotoAndStop("over");
RBotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState02);
RSotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState02);
LBotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState02);
LSotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_OUT, rollOffState02);
function rollOffState02(event:MouseEvent):void
          if (event.target.currentFrame !== 3)
                    event.target.gotoAndStop("off");
//===============================RB BUTTONS================================================
RBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState03);
RBotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState04);
function rollupState03(event:MouseEvent):void
          RBnamesTextButton.CustomRadioButton.gotoAndStop(3);
          RBotherTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Right Breast names clicked")
function rollupState04(event:MouseEvent):void
          RBotherTextButton.CustomRadioButton.gotoAndStop(3);
          RBnamesTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Right Breast text clicked")
//======================================================================================== =======
//===============================LB BUTTONS================================================
LBnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState05);
LBotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState06);
function rollupState05(event:MouseEvent):void
          LBnamesTextButton.CustomRadioButton.gotoAndStop(3);
          LBotherTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Left Breast names clicked")
function rollupState06(event:MouseEvent):void
          LBotherTextButton.CustomRadioButton.gotoAndStop(3);
          LBnamesTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Left Breast text clicked")
//======================================================================================== =======
//===============================RS BUTTONS================================================
RSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState07);
RSotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState08);
function rollupState07(event:MouseEvent):void
          RSnamesTextButton.CustomRadioButton.gotoAndStop(3);
          RSotherTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Right Shoulder names clicked")
function rollupState08(event:MouseEvent):void
          RSotherTextButton.CustomRadioButton.gotoAndStop(3);
          RSnamesTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Right Shoulder text clicked")
//======================================================================================== =======
//===============================LS BUTTONS================================================
LSnamesTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState09);
LSotherTextButton.CustomRadioButton.addEventListener(MouseEvent.MOUSE_UP, rollupState10);
function rollupState09(event:MouseEvent):void
          LSnamesTextButton.CustomRadioButton.gotoAndStop(3);
          LSotherTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Left Shoulder names clicked")
function rollupState10(event:MouseEvent):void
          LSotherTextButton.CustomRadioButton.gotoAndStop(3);
          LSnamesTextButton.CustomRadioButton.gotoAndStop(1);
          trace("Left Shoulder text clicked")
//======================================================================================== =======
[/AS]
There is probably a more efficent way to code this but im an AS noob :]

Dynamic radio button group

Hi ,
Is there any way we can create 'Text' along with radio button groups beside the text 'YES' and 'NO' dynamically in a VIEW through 'ABAP WEBDYNPRO'. Can we create a context node with 'TEXT' attribute.
Eg : TEXT RADIOBUTTON1 'yes' RADIOBUTTON2 'no'.
Thanks,
kumar

hi,
check this out.
method wddomodifyview .
data : LR_RADIOBUTTON1            type ref to CL_WD_RADIOBUTTON,
CALL METHOD cl_wd_radiobutton=>new_radiobutton
EXPORTING
   bind_selected_key   = '01'
   BIND_TEXT           = 'One'
receiving
    control             = LR_RADIOBUTTON1.
I think with the above code you will be able to create text along with Radio button.
Thanx.

Creating a radio button group in a column of a table in Web Dynpro

Hi,
I want to put a radio button group in a column of a table in Webdynpro. I added a column to a web dynpro view and then inserted a tableCellEditor for that column.. But I cannot define it as Radio Button group. I want the user to be able to select 3 statuses using this group.
Does anyone have a solution for this??
Thanks in advance...
Nakul

Hi,
You wont be able create three RB in one cell.
Create as many column as the no of options is.Here it is 3.
Create 4 attributes inside the node , option 1,option 2,option 3 and selectedoption.
Map each RB s keytoSelect to option 1,2,3. Map all the RBs selectedKey atribute to selectedoption.
Now selection for each row will be stored in the selected option.
Regards
Bharathwaj

How to disable a lead selected item in a radio button group ?

Hi,
I have a radio button group and there are entries to create radio buttons dynamically. means there is only one radio button group in the UI design and in runtime I will be having two radio buttons (For ex: Yes and No ) . Now If I want to disable either Yes or No radio button, I am unable to do so. because If I disable the radio button group it disables both. So, I can have lead selected item for ex: Yes which I want to disable. I want to know specifically how this Yes button to be disabled by taking lead selected index item.
Please help.
Thanks
Praveen

Try setting the radio button value of the lead selected button to abap_false/space.

Radio Button group with images stored as BLOB files in database

Hey all!
I have radio button group, my idea is that radio button's LOV must display images, I mean BLOB files stored in a table.
How can I do this?

Hello Ken,
I asked similar question in the past, and I believe the answer is still the same.
Select List as an option of a Radio Group
In your case, I think you can use a select list with added functionality, like "Select List with Branch to Page" or "Select list with Submit", or you can just attach an onChange event (JavaScript) to each select list. The effect should be similar to a radio group as soon as the user select one item from any of the select lists, you can fire some action, based on the select list value.
Hope this can help,
Arie.

Form UIBB: Radio Button Group: How to set default value?

Hello,
i've added a Radio Button Group in Forum UIBB (FPM_FORM_UIBB) with 3 possible values. How can I set the default value for this group? When starting the application, no radio button is selected..
Thanks & Regards
Christopher

Hi Christopher,
i've the same requiremnt for adding a Radio Button Group and 3 Radio buttons under it in Forum UIBB (FPM_FORM_UIBB) with 4 possible values..
I have added 3 custom fields for 3 Radio buttons in the structure. In the desin time, I have added these 3 fields and taken as Radion button Group. But, Only label is coming on the output...
I totally stuck here. Can you please guide me on this in details as to how to add the Radio buttons and how its action can be handled?
It's bit urgent for me.
Thanks in advance,
Sumesh

Radio button grouping across boxes

I have 10 or so radio buttons on a shortcut screen that I need to put together in logical groupings. I've grouped them in boxes; however, I need them to group as a single radio button grouping. Is this possible? When I try to put them in a grouping, I can only group those items within a given box...not all items in all boxes.
Thanks in advance for your help.

I dont think its possible to have in all diff box R-buttons in one group.

Two radio button groups merging into one, and I don't want that. How do I fix it?

I have two sets of radio buttons that I want to be independent of each other. How do I do that? Just to be clear... I have one set with two buttons. The second set has six buttons. They are independent of each other - they just happen to fall in line one right after the other. LiveCycle keeps putting them together.
I have very limited knowledge and am learning as I go. Thanks for any help that you can give me.

Select the Radio button that you want to be independent of the other radio buttons, RIGHT click and choose Wrap in New Radio Button Group.
This way it can be selected along with other radio buttons..
One question here. If you want each radio button to be independent of each other, why not change them to Check Boxes instead of Radio Buttons.
Thanks
Srini

Radio Button Groups - always below each other?

Hello,
When you create a RadioButtonGroup either ByKey or ByIndex it always puts each element under the next one. I was wondering if there was a way to put each element NEXT to each other, so I read each option from left to right instead of from top to bottom.
Thanks in advance,
Jennifer

Hi Jacobs,
Assign the 'colCount' property of RadioGroupByXX object to the number of radio buttons you want to have. Then you would get all ur radio buttons side-by-side instead of below to each other.
for example, if u have 2 radio buttongs in the radio button group then assign colCount=2.
Thanks,
Raags
PS: If useful assign points

How to differentiate between Radio Buttons with the same name?

My form has two fields, to which I gave the same name ("Radio Button 1.0") in order to achieve mutual exclusivity.
Now, I would like to use JavaScript to retrieve the value of one the two fields:
var checkMark = this.getField("Radio Button1.0");
if (checkMark.value == "Yes") {
Questions:
What is the proper way to inspect the value of a Radio Button? I have tried this:
if (checkMark.value == "No") [...]
but it doesn't seem to work.
How can I tell apart 2 radio buttons with the same name?
TIA,
-RFH

When Radio Buttons and Check Boxes are unchecked their value is "Off", so if you have "Yes", "No" buttons you will also encounter an 'Off" value. Now if you want to look at a given button, you will have to use the "isBoxChecked(nWidget)" method.
nWidget:
The 0-based index of an individual radiobutton or checkbox widget for this field. The index is determined by the order in which the individual widgets of this field were created (and is unaffected by tab-order).
Every entry in the Fields panel has a suffix giving this index, for example MyField #0.
Returns
true if the specified widget is currently checked, false otherwise.
Example
var f = this.getField("ChkBox");
if(f.isBoxChecked(0))
app.alert("The Box is Checked");
else
app.alert("The Box is not Checked");

Issue in radio button group in module pool in infotype creation

Hi,
I have a custom infotype,where there are six radio buttons belonging to same group for different mode of payment.Issue is when user clicks a radiobutton,a subscreen opens .there are six different subscreens when user clicks on each of the six radio buttons.
Requirement is when user clicks one button ,one subscreen opens but the other radio buttons(whcih are eligible to be open) gets disabled .I have tried to handle the issue manually through coding ,but i think the issue is with the radiobutton grouping.
How to make the other radio buttons open for input even when the user has clicked on one button and the subscreen opens corresponding to the screen so that the imemediately ther user clicks on another radio button and get the corresponding subscreen opened for him.Pls advise.

I have written a custom module in PBO section of my custom infotype.There i have written this code:-
LOOP AT SCREEN.
    READ TABLE fp_it_payment_opt_open INTO wa_payment_opt_open WITH KEY scrname = screen-name.
    IF sy-subrc = 0.
      screen-input = c_input_on.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
The internal table it_payment_opt contains all the radio buttons and checkboxes and is populated when the radio buttons and checkboxes are turned input on while modifying the screen depending upon course of my price and personnel subarea.
While calling subscreen area in PBO,the radiobuttons get into a state of input-off automatically.so i have written a z-module after
the module hidden_data .
PROCESS BEFORE OUTPUT.
        general infotype-independent operations
MODULE before_output.
CALL SUBSCREEN subscreen_empl   INCLUDING empl_prog empl_dynnr.
CALL SUBSCREEN subscreen_header INCLUDING header_prog header_dynnr.
        infotype specific operations
MODULE p9300.
CALL SUBSCREEN subscreen_area INCLUDING subscr_prog subscr_dynnr.
MODULE hidden_data.
module z_open_paymnt_optns.
My problem has been solved ,hence am closing the thread.Thanks to all of you.

Creation of selection screen with 2 radio button groups

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

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

Selection screen with radio button groups

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

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

Calling radio button group by group name in SAP Appbuilder

Similar Messages

Maybe you are looking for