Report of radiobutton

dear friends i have created two radio buttons
1- material
2- sales document
and below that ther is a list box..when i click on radio buton one itshould show sattement regarding material and when i click on sales document it should show statement regarding sales document in the list box
but where ever i click its showing statement of sales only not material....following is my coding
please go through it and please suggest me mmodification in my coding.
TYPE-POOLS: VRM.
DATA: param TYPE vrm_id,
      values TYPE vrm_values,
      value LIKE LINE OF values.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME.
PARAMETERS :R RADIOBUTTON GROUP RAD,
            R1 RADIOBUTTON GROUP RAD.
PARAMETERS : P1 AS LISTBOX VISIBLE LENGTH 20 MODIF ID ONE.
             SELECTION-SCREEN END OF BLOCK BLK1.
AT SELECTION-SCREEN OUTPUT.
START-OF-SELECTION.
IF
R = 'RAD'.
PARAM = 'P1'.
VALUE-KEY = '1'.
VALUE-TEXT = 'GENERAL MATERIAL DATA'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'MATERIAL TYPES'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'UNITS OF MEASUREMENT'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'INDUSTRY FOR MATERIAL'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'MATERIAL GROUPS'.
APPEND VALUE TO VALUES.
ELSE.
    R1 = 'RAD'.
    PARAM = 'P1'.
VALUE-KEY = '1'.
VALUE-TEXT = 'SALES DOCUMENT HEADER DATA'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'SALES DOCUMENT TYPE'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'SALES DOCUMENT ORDER REASON'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'DELIVERIES BLOCKING REASON'.
APPEND VALUE TO VALUES.
PARAM = 'P1'.
VALUE-KEY = '2'.
VALUE-TEXT = 'BILLING REASON FOR BLOCKING'.
APPEND VALUE TO VALUES.
ENDIF.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = param
      values = values
      EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.

Hi use this code..
tables:sscrfields.
TYPE-POOLS: VRM.
DATA: param TYPE vrm_id,
values TYPE vrm_values,
value LIKE LINE OF values.
data:flag(2) type c.
PARAMETERS :R RADIOBUTTON GROUP RAD user-command UCC,
R1 RADIOBUTTON GROUP RAD .
PARAMETERS : P1 like value AS LISTBOX VISIBLE LENGTH 20 .
at SELECTION-SCREEN output.
PARAM = 'P1'.
VALUE-KEY = '1'.
VALUE-TEXT = 'GENERAL MATERIAL DATA'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'MATERIAL TYPES'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'UNITS OF MEASUREMENT'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'INDUSTRY FOR MATERIAL'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'MATERIAL GROUPS'.
APPEND VALUE TO VALUES.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = param
values = values
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
AT SELECTION-SCREEN.
case sscrfields-ucomm.
when 'UCC'.
if R = 'X'.
flag = '1'.
endif.
if R1 = 'X'.
flag = '2'.
endif.
endcase.
START-OF-SELECTION.
case flag.
when '1'.
PARAM = 'P1'.
VALUE-KEY = '1'.
VALUE-TEXT = 'GENERAL MATERIAL DATA'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'MATERIAL TYPES'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'UNITS OF MEASUREMENT'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'INDUSTRY FOR MATERIAL'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'MATERIAL GROUPS'.
APPEND VALUE TO VALUES.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = param
values = values
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
when '2'.
PARAM = 'P1'.
VALUE-KEY = '1'.
VALUE-TEXT = 'SALES DOCUMENT HEADER DATA'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'SALES DOCUMENT TYPE'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'SALES DOCUMENT ORDER REASON'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'DELIVERIES BLOCKING REASON'.
APPEND VALUE TO VALUES.
VALUE-KEY = '2'.
VALUE-TEXT = 'BILLING REASON FOR BLOCKING'.
APPEND VALUE TO VALUES.
               CALL FUNCTION 'VRM_SET_VALUES'
                 EXPORTING
                   id                    = PARAM
                   values                = VALUES.
               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.
endcase.
Edited by: swati gupta on Sep 25, 2008 10:08 AM

Similar Messages

Submit report with radiobutton

Hi experts,
I have a req. in which I need to call a report in my method, with a particular radiobutton selected as default.
How can I achieve the same?
For ex: if the report name is zrep, what addition should I give with:
SUBMIT zrep USING SELECTION-SCREEN '1000'
Thanks,
Ajay.

Try something like this
SUBMIT zrep USING SELECTION-SCREEN '1000' with p_radio = 'X'.
Vikranth

Help me to download my report in excel format.

Here is my code below. On selection screen I am giving three inputs.
And There are two radio buttons present on my selection screen.
first one is for display the report.
second button name is generate(to export the report).
Clicking on the generate radio button will show the report.
There should be a standard button on the toolbar called GENERATE.
Clicking on that button will show a popup window asking to download the report either in .xls format or in .csv format.
==========================================================
My report is being displayed perfectly.But not getting how to downlaod the report in excel and csv format. Would u plz guide me what should I write within the export_report function of my program so that I can download the report. Kindly guide.
REPORT ZMYREPORT.
TYPE-POOLS: SLIS.
TYPES: BEGIN OF t_afko,
       aufnr type aufnr,
       gamng type gamng,
       plnbez type matnr,
       END OF t_afko.
TYPES: BEGIN OF t_mara,
       matnr TYPE matnr,
       mtart type mtart,
       pstat type pstat_d,
       END OF t_mara.
TYPES: BEGIN OF t_output,
       aufnr type aufnr,              "Production order
       gamng type gamng,         "move number
       mtart type mtart,              "size/fit
       pstat type pstat_d,           "Variant
       quantity type meng8,        "Quantity
       barcode(35) type c,          "barcode
       END OF t_output.
             INTERNAL TABLES, WORK AREAS AND VARIABLES
*For work area.
DATA:
      gwa_afko type t_afko,                          "work area for t_afko table
      gwa_mara type t_mara,                          "work area for t_mara table
      gwa_output type t_output,                      "work area for t_output table
      gwa_output1 type t_output,                     "second work area for t_output table
      gwa_fieldcat type slis_fieldcat_alv,           "work area for slis_fieldcat_alv
      gwa_top type slis_listheader,                  "work area for slis_listheader
      wa_variant type disvariant,                    "work area for variant
      wa_Variant1 type disvariant,                   "work area for variant
*For internal tables.
gi_afko TYPE STANDARD TABLE OF t_afko,
gi_mara TYPE STANDARD TABLE OF t_mara,
gi_output TYPE STANDARD TABLE OF t_output,
gi_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv,
gi_top TYPE slis_t_listheader,
gi_download TYPE TABLE OF t_download,
*Variables for screen-input.
      v_aufnr like caufvd-aufnr, "for production order
      v_txt04 like tj02t-txt04,   "for production order status
      v_plnbez like afko-plnbez. "for article
*For constants.
CONSTANTS: quantity(1) type c value '1',
           lv_save(01) TYPE c VALUE 'A',
           c_csv TYPE char1 VALUE   '|'.
                       S E L E C TI O N     S C R E E N      *
SELECTION-SCREEN:
BEGIN OF block inputpath1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_aufnr for v_aufnr,
s_txt04 for v_txt04,
s_plnbez for v_plnbez.
SELECTION-SCREEN: END OF block inputpath1.
SELECTION-SCREEN:
BEGIN OF block inputpath2 WITH FRAME TITLE TEXT-002.
PARAMETERS:
p_disp RADIOBUTTON GROUP rb DEFAULT'X',   "Button to display report
p_gen RADIOBUTTON GROUP rb.         "button for generate option
SELECTION-SCREEN: END OF block inputpath2.
SELECTION-SCREEN:
BEGIN OF block inputpath3 WITH FRAME TITLE TEXT-003.
PARAMETERS:layout TYPE disvariant.
SELECTION-SCREEN: END OF block inputpath3.
                I-N-I-T-I-A-L-I-Z-A-T-I-O-N                                   *
INITIALIZATION.
DATA: g_repid LIKE sy-repid,
        g_uname LIKE sy-uname.
g_repid = sy-repid.
           AT SELECTION SCREEN                     *
*Function module for variant.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR layout.
wa_variant-username = g_uname.
wa_variant-report = g_repid.
*Display all existing variants
DATA: lv_exit(1) TYPE c.
*Code for variant part.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = wa_variant
      i_save        = lv_save
    IMPORTING
      e_exit        = lv_exit
      es_variant    = wa_variant1
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
IF sy-subrc <> 0.
    layout = wa_variant-variant.
ELSE.
    IF lv_exit = space.
      layout = wa_variant1-variant.
    ENDIF.
ENDIF.
                       MAIN PROGRAM                              *
AT SELECTION-SCREEN .
*For validating the user inputs on selection screen.
PERFORM validate_input.
                  START-OF-SELECTION                         *
START-OF-SELECTION .
SET PF-STATUS 'ZGUI1'.
IF p_disp = 'X'.                         "If the display radio button is checked.
   perform zselection.                  "Data is fetched from tables.
ENDIF.
                 END-OF-SELECTION                              *
END-OF-SELECTION.
IF p_disp = 'X'.
   PERFORM buildcat.
   PERFORM display_report.
ELSEIF p_gen = 'X'.
    PERFORM display_report.
    PERFORM export_report.
ENDIF.
*&      Form validate_input
Checking input data validation on the display screen.           *
form validate_input.
*Local variables for input validation.
DATA: lv_aufnr type aufnr,
      lv_txt04 type J_TXT04,
      lv_plnbez type matnr.
IF s_aufnr[] is not initial.
SELECT aufnr up to 1 rows
FROM aufk
INTO lv_aufnr
WHERE aufnr IN s_aufnr.
ENDSELECT.
IF lv_aufnr IS INITIAL.
MESSAGE e001(zmssg).
ENDIF.
ENDIF.
IF s_txt04[] is not initial.
SELECT txt04 up to 1 rows
FROM TJ02T
INTO lv_txt04
WHERE txt04 IN s_txt04.
ENDSELECT.
IF lv_txt04 IS INITIAL.   "this depicts that if s_txt04 is initial.
Message e002(zmssg).
ENDIF.
ENDIF.
IF s_plnbez[] is not initial.
SELECT plnbez up to 1 rows
FROM afko
INTO lv_plnbez
WHERE plnbez IN s_plnbez.
ENDSELECT.
IF lv_plnbez IS INITIAL.   "this depicts that if s_plnbez is initial.
Message e003(zmssg).
ENDIF.
ENDIF.
endform.                    " validate_input
*&      Form zselection
      Fetches data                                           *
form zselection .
SELECT aufnr "production order
       gamng "move number
       plnbez
       FROM afko
       INTO TABLE gi_afko
       WHERE aufnr IN s_aufnr
       AND plnbez IN s_plnbez.
SELECT matnr
       mtart        "size/fit
       pstat        "variant
       FROM mara
       INTO TABLE gi_mara
       WHERE matnr IN s_plnbez.
          Populating final data                                         *
LOOP AT gi_afko INTO gwa_afko.
READ TABLE gi_mara INTO gwa_mara with key matnr = gwa_afko-plnbez.
IF sy-subrc IS INITIAL.
*Moving t_mara and t_afko data from their work area to work area of t_output.
    MOVE   gwa_mara-mtart TO gwa_output-mtart.
    MOVE   gwa_mara-pstat TO gwa_output-pstat.
    MOVE gwa_afko-aufnr TO gwa_output-aufnr.
    MOVE gwa_afko-gamng TO gwa_output-gamng.
    APPEND gwa_output TO gi_output.
    ENDIF.
ENDLOOP.
*Populating the quantity field
LOOP AT gi_output INTO gwa_output.
    gwa_output-quantity = '1'.
    MODIFY gi_output FROM gwa_output INDEX sy-tabix TRANSPORTING quantity.
*Concategnating aufnr, pstat into barcode
    CONCATENATE gwa_output-aufnr gwa_output-pstat INTO gwa_output-barcode .
    MODIFY gi_output FROM gwa_output INDEX sy-tabix TRANSPORTING barcode.
ENDLOOP.
endform.                    " zselection
*&      Form buildcat
      text
form buildcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'AUFNR'.
gwa_fieldcat-seltext_l = 'PRODUCTION ORDER'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 1.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'GAMNR'.
gwa_fieldcat-seltext_l = 'MOVE NUMBER'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 2.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'MTART'.
gwa_fieldcat-seltext_l = 'SIZE/FIT'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 3.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'PSTAT'.
gwa_fieldcat-seltext_l = 'VARIANT'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 4.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'QUANTITY'.
gwa_fieldcat-seltext_l = 'QUANTITY'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 5.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'BARCODE'.
gwa_fieldcat-seltext_l = 'BARCODE'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 6.
APPEND gwa_fieldcat TO gi_fieldcat.
endform.                    " buildcat
*&      Form top
      text
FORM top .
REFRESH gi_top.
gwa_top-typ = 'H'.
gwa_top-info = My alv report'.
APPEND gwa_top TO gi_top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    it_list_commentary       = gi_top
I_LOGO                   =
I_END_OF_LIST_GRID       =
I_ALV_FORM               =
ENDFORM.                "top
*&      Form display_report
form display_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_INTERFACE_CHECK                 = ' '
   I_BYPASSING_BUFFER                = ' '
   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = g_repid
   I_CALLBACK_PF_STATUS_SET          = 'PF-STATUS'
   I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = 'TOP'
   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
   I_CALLBACK_HTML_END_OF_LIST       = ' '
   I_STRUCTURE_NAME                  =
   I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      =
   I_GRID_SETTINGS                   =
   IS_LAYOUT                         =
    IT_FIELDCAT                       = gi_fieldcat
   IT_EXCLUDING                      =
   IT_SPECIAL_GROUPS                 =
   IT_SORT                           =
   IT_FILTER                         =
   IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
    I_SAVE                            = 'A'
    IS_VARIANT                        = wa_variant1
   IT_EVENTS                         =
   IT_EVENT_EXIT                     =
   IS_PRINT                          =
   IS_REPREP_ID                      =
   I_SCREEN_START_COLUMN             = 0
   I_SCREEN_START_LINE               = 0
   I_SCREEN_END_COLUMN               = 0
   I_SCREEN_END_LINE                 = 0
   I_HTML_HEIGHT_TOP                 = 0
   I_HTML_HEIGHT_END                 = 0
   IT_ALV_GRAPHICS                   =
   IT_HYPERLINK                      =
   IT_ADD_FIELDCAT                   =
   IT_EXCEPT_QINFO                   =
   IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
   E_EXIT_CAUSED_BY_CALLER           =
   ES_EXIT_CAUSED_BY_USER            =
   TABLES
     t_outtab                          = gi_output
EXCEPTIONS
    PROGRAM_ERROR                     = 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.                    " display_report
*&      Form export_report
      text
form export_report.
endform.

Hi Cinthia,
Check this Link.
How Can we genarate Excel file without GUI_DOWNLOAD
Reward points if useful.
Regards,
Abhishek

How to print a smart form in two diff languages runtime

Hi friends,
we have a requirement to print a smart form in two langauges one in english
and other in Spanish those selection has to given by check box condition.
pls send some stuff .
Thanks & Regards
Jagadeeshwar.B

hi! Jagadesh
1. Create two different Smartforms
2. In Form Atributes Option -->General Attributes -->Language Tab -- there is a Optiona to select a Particular Language.( To select Language) there <b>select the EN</b> for 1st optin and <b>ES for Spanish</b>, Normally it will be in To all Language.
3. Create a report with Radiobutton (bz Check Box have an attributes to check both the Options)
   when option1 = 'EN'.
        call form1 with EN language
when option2 = 'ES'.
       call forms 2 with ES Language.
Reward me if its useful.
Regards,
Nagulan

Getting error while displaying a cell as a button in ALV

Hello All,
I am trying to display a cell in ALV output as pushbutton. The following is the code I am using.
DATA BEGIN OF gt_list OCCURS 0.
        INCLUDE STRUCTURE sflight.
DATA rowcolor(4) TYPE c.
DATA cellcolors TYPE lvc_t_scol.
DATA carrid_handle TYPE int4.
DATA connid_handle TYPE int4.
DATA cellstyles TYPE lvc_t_styl.
DATA END OF gt_list.
LOOP AT gt_list.
      gs_style-fieldname = 'Details'.
      gs_style-style     = cl_gui_alv_grid=>mc_style_button.
      APPEND gs_style TO gt_list-cellstyles.
      MODIFY gt_list.
ENDLOOP.
CALL METHOD gr_alvgrid->set_table_for_first_display
      EXPORTING
        is_layout                     = gs_layout
      CHANGING
        it_outtab                     = gt_list
        it_fieldcatalog               = gt_fieldcat.
But this is giving mr an error message that in call to method set_table_for_first_display type of it_outtab & gt_list do not match.
Could anyone please suggest how to circumvent this error.
Regards
Indrajit.

Hello Indrajit
The following sample report is a variation of a previously published report () showing radiobuttons and pushbuttons (at cell level) within a single ALV list.
*& Report ZUS_SDN_ALV_WITH_RADIOBUTTONS1
*& This program shows how to realize radiobuttons in ALV grid lists
*& using event HOTSPOT_CLICK.
*& In addition it shows how to realize pushbuttons at CELL level.
*& Screen 100:
*& - Flow logic
*&      PROCESS BEFORE OUTPUT.
*&        MODULE PBO.
*&      PROCESS AFTER INPUT.
*&        MODULE PAI.
*& - Screen elements: none
*& - ok-code field -> gd_okcode
*& GUI Status MAIN100:
*& - F3 = 'BACK', Shift+F3 = 'EXIT', F12 = 'CANC'
PROGRAM zus_sdn_alv_with_radiobuttons.
TYPE-POOLS: abap, icon. " INCLUDE <icon>. for releases < 6.20
TYPES: BEGIN OF ty_s_sflight.
INCLUDE TYPE sflight.
TYPES: button1     TYPE iconname.
TYPES: button2     TYPE iconname.
TYPES: button3     TYPE iconname.
TYPES: button4     TYPE iconname.
TYPES: pushbutton TYPE iconname.
TYPES: cellstyles TYPE lvc_t_styl.
TYPES: END OF ty_s_sflight.
DATA:
gt_sflight    TYPE STANDARD TABLE OF ty_s_sflight,
gs_layout     TYPE lvc_s_layo,
gt_fcat       TYPE lvc_t_fcat.
DATA:
gd_okcode    TYPE ui_func,
go_docking   TYPE REF TO cl_gui_docking_container,
go_grid      TYPE REF TO cl_gui_alv_grid.
*       CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
    CLASS-METHODS:
      handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid
        IMPORTING
          e_row_id
          e_column_id
          es_row_no
          sender,
      handle_button_click FOR EVENT button_click OF cl_gui_alv_grid
        IMPORTING
          es_col_id
          es_row_no
          sender.
ENDCLASS.                    "lcl_eventhandler DEFINITION
*       CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_hotspot_click.
* define local data
    FIELD-SYMBOLS:
      <ls_entry>    TYPE ty_s_sflight,
      <ld_fld>      TYPE ANY.
    READ TABLE gt_sflight ASSIGNING <ls_entry> INDEX es_row_no-row_id.
    CHECK ( <ls_entry> IS ASSIGNED ).
*   Set all radio buttons "unselected"
    <ls_entry>-button1 = icon_wd_radio_button_empty.
    <ls_entry>-button2 = icon_wd_radio_button_empty.
    <ls_entry>-button3 = icon_wd_radio_button_empty.
    <ls_entry>-button4 = icon_wd_radio_button_empty.
    ASSIGN COMPONENT e_column_id-fieldname OF STRUCTURE <ls_entry>
                                              TO <ld_fld>.
    IF ( <ld_fld> IS ASSIGNED ).
*     Set selected radio button "selected".
      <ld_fld> = icon_wd_radio_button.
    ENDIF.
*   Force PAI followed by refresh of table display in PBO
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'REFRESH'
*      IMPORTING
*        RC       =
ENDMETHOD.                    "handle_hotspot_click
METHOD handle_button_click.
    MESSAGE 'Pushbutton selected' TYPE 'I'.
ENDMETHOD.                    "handle_button_click
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
*       MAIN                                                          *
START-OF-SELECTION.
PERFORM select_data.
PERFORM init_controls.
PERFORM build_fieldcatalog.
PERFORM set_layout.
CALL METHOD go_grid->set_table_for_first_display
   EXPORTING
*     i_structure_name = 'SFLIGHT'
      is_layout        = gs_layout
    CHANGING
      it_fieldcatalog = gt_fcat
      it_outtab        = gt_sflight.
* Link docking container to dynpro
CALL METHOD go_docking->link
    EXPORTING
      repid                       = syst-repid
      dynnr                       = '0100'
*      CONTAINER                   =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      lifetime_dynpro_dynpro_link = 3
      OTHERS                      = 4.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL SCREEN 100.
END-OF-SELECTION.
*       MODULE PBO OUTPUT                                             *
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
ENDMODULE.                    "PBO OUTPUT
*       MODULE PAI INPUT                                              *
MODULE pai INPUT.
* Leave report
CASE gd_okcode.
    WHEN 'BACK' OR
         'EXIT' OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
*   Refresh table display
    WHEN 'REFRESH'.
      PERFORM refresh_display.
    WHEN OTHERS.
*     do nothing
ENDCASE.
CLEAR gd_okcode.
ENDMODULE.                    "PAI INPUT
*&      Form BUILD_FIELDCATALOG
*       text
* --> p1        text
* <-- p2        text
FORM build_fieldcatalog .
* define local data
DATA:
    ls_fcat        TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = 'ICON'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DELETE gt_fcat WHERE ( fieldname <> 'NAME' ).
* NOTE: field ICON-NAME has data element ICONNAME.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = 'SFLIGHT'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'NAME'.
IF ( syst-subrc = 0 ).
    DELETE gt_fcat INDEX syst-tabix.
ENDIF.
ls_fcat-fieldname = 'PUSHBUTTON'.
ls_fcat-coltext   = ls_fcat-fieldname.
** ls_fcat-icon    = 'X'.
ls_fcat-hotspot = 'X'.
INSERT ls_fcat INTO gt_fcat INDEX 5.
ls_fcat-fieldname = 'BUTTON4'.
ls_fcat-coltext   = ls_fcat-fieldname.
ls_fcat-icon    = 'X'.
ls_fcat-hotspot = 'X'.
INSERT ls_fcat INTO gt_fcat INDEX 5.
ls_fcat-fieldname = 'BUTTON3'.
ls_fcat-coltext   = ls_fcat-fieldname.
INSERT ls_fcat INTO gt_fcat INDEX 5.
ls_fcat-fieldname = 'BUTTON2'.
ls_fcat-coltext   = ls_fcat-fieldname.
INSERT ls_fcat INTO gt_fcat INDEX 5.
ls_fcat-fieldname = 'BUTTON1'.
ls_fcat-coltext   = ls_fcat-fieldname.
INSERT ls_fcat INTO gt_fcat INDEX 5.
* Renumbering of the columns
LOOP AT gt_fcat INTO ls_fcat.
    ls_fcat-col_pos = syst-tabix.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDLOOP.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form SELECT_DATA
*       text
* --> p1        text
* <-- p2        text
FORM select_data .
* define local data
DATA:
    ls_sflight         TYPE ty_s_sflight,
    ld_style           TYPE raw4,
    ls_cellstyle       TYPE lvc_s_styl,
    lt_cellstyles      TYPE lvc_t_styl.
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE gt_sflight.
ls_sflight-button1 = icon_wd_radio_button. " selected radiobutton
ls_sflight-button2 = icon_wd_radio_button_empty.
ls_sflight-button3 = icon_wd_radio_button_empty.
ls_sflight-button4 = icon_wd_radio_button_empty.
* Alternatively: create icons using function module 'ICON_CREATE'
MODIFY gt_sflight FROM ls_sflight
      TRANSPORTING button1 button2 button3 button4
    WHERE ( carrid IS NOT INITIAL ).
ls_cellstyle-style2 = cl_gui_alv_grid=>mc_style_hotspot.
APPEND ls_cellstyle TO lt_cellstyles.
LOOP AT gt_sflight INTO ls_sflight.
    REFRESH: ls_sflight-cellstyles.
    CLEAR: ls_cellstyle.
    ls_cellstyle-fieldname = 'PUSHBUTTON'.
    IF ( syst-tabix < 6 ).
      ls_sflight-pushbutton = icon_detail.
      ls_cellstyle-style = cl_gui_alv_grid=>mc_style_button.
      APPEND ls_cellstyle TO ls_sflight-cellstyles.
    ELSE.
      ls_sflight-pushbutton = space.
      ls_cellstyle-style = cl_gui_alv_grid=>mc_style_hotspot_no.
      APPEND ls_cellstyle TO ls_sflight-cellstyles.
    ENDIF.
    MODIFY gt_sflight FROM ls_sflight.
ENDLOOP.
ENDFORM.                    " SELECT_DATA
*&      Form INIT_CONTROLS
*       text
* --> p1        text
* <-- p2        text
FORM init_controls .
CHECK ( go_docking IS NOT BOUND ).
* Create docking container
CREATE OBJECT go_docking
    EXPORTING
      parent                      = cl_gui_container=>screen0
*      REPID                       =
*      DYNNR                       =
*      SIDE                        = DOCK_AT_LEFT
*      EXTENSION                   = 50
*      STYLE                       =
*      LIFETIME                    = lifetime_default
*      CAPTION                     =
*      METRIC                      = 0
      ratio                       = 90
*      NO_AUTODEF_PROGID_DYNNR     =
*      NAME                        =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Size of container = full screen size
CALL METHOD go_docking->set_extension
    EXPORTING
      extension = 99999
    EXCEPTIONS
      cntl_error = 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.
* Create ALV grid instance
CREATE OBJECT go_grid
    EXPORTING
*      I_SHELLSTYLE      = 0
*      I_LIFETIME        =
      i_parent          = go_docking
*      I_APPL_EVENTS     = space
*      I_PARENTDBG       =
*      I_APPLOGPARENT    =
*      I_GRAPHICSPARENT =
*      I_NAME            =
*      I_FCAT_COMPLETE   = SPACE
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*   Set event handler for events
SET HANDLER:
    lcl_eventhandler=>handle_hotspot_click FOR go_grid,
    lcl_eventhandler=>handle_button_click FOR go_grid.
ENDFORM.                    " INIT_CONTROLS
*&      Form REFRESH_DISPLAY
*       Refresh table display after switching the radiobuttons
* --> p1        text
* <-- p2        text
FORM refresh_display .
* define local data
DATA:
    ls_stable    TYPE lvc_s_stbl.
ls_stable-row = abap_true.
ls_stable-col = abap_true.
CALL METHOD go_grid->refresh_table_display
    EXPORTING
      is_stable      = ls_stable
*        I_SOFT_REFRESH =
    EXCEPTIONS
      finished       = 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.                    " REFRESH_DISPLAY
*&      Form SET_LAYOUT
*       Set layout for ALV list
* --> p1        text
* <-- p2        text
FORM set_layout .
CLEAR: gs_layout.
gs_layout-cwidth_opt = abap_true. " optimize column width
gs_layout-zebra      = abap_true.
gs_layout-stylefname = 'CELLSTYLES' .
ENDFORM.                    " SET_LAYOUT

ALV-multiple language output

Hi All,
I have created a ALV report, in the sel.screen I have 2 radiobuttons with text English and Arabic.
Now if I excecute the report with radiobutton - English, the O/P should be in English and
if I excute the report with radiobutton - Arabic, I want the O/p to be displayed in ARABIC..
note : User's Logon lang wil be always "English"
plz let me know how to do it.
With Regards,
S.Bharani

ARS,
      Everything remains same . I have not used any text-elements, just I am fetching data and displaying in ALV . .
code given below..
REPORT ZSBN_ALV_LANG.
TYPE-POOLS : SLIS.
*                  FOR ALV                      *
DATA:IS_LAYOUT    TYPE SLIS_LAYOUT_ALV,
     IT_EVENTS    TYPE SLIS_T_EVENT,
     WA_EVENTS    TYPE SLIS_ALV_EVENT,
     W_FCAT       TYPE SLIS_FIELDCAT_ALV,
     T_FCAT       TYPE SLIS_T_FIELDCAT_ALV.
DATA : I(4).
DATA : BEGIN OF ITAB OCCURS 0.
INCLUDE TYPE PA0001.
DATA : END OF ITAB.
DATA : BEGIN OF ITAB1 OCCURS 0.
INCLUDE TYPE PA0002.
DATA : END OF ITAB1.
DATA: lang TYPE tcp0c-langu,
      cntry TYPE tcp0c-country,
      mod   TYPE tcp0c-modifier.
*GET LOCALE LANGUAGE lang COUNTRY cntry MODIFIER mod.
LANG = 'A'.
cntry = 'SA'.
SET LOCALE LANGUAGE lang COUNTRY cntry.
*&*& DATA FROM PA0001
SELECT DISTINCT * FROM PA0001
       INTO TABLE ITAB.
SORT ITAB.
DELETE ADJACENT DUPLICATES FROM ITAB COMPARING PERNR.
*&*& FCAT
W_FCAT-FIELDNAME = 'PERNR'.
W_FCAT-SELTEXT_M = 'Emp No'.
W_FCAT-HOTSPOT = 'X'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-FIELDNAME = 'ENAME'.
W_FCAT-SELTEXT_M = 'Emp NAme'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
*&*& layout
IS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM      = SY-CPROG
    I_CALLBACK_USER_COMMAND = 'F_USERCOMMAND_ALV'
    IS_LAYOUT               = IS_LAYOUT
    IT_FIELDCAT             = T_FCAT
TABLES
    T_OUTTAB                = ITAB.
*&*& FOR DRILL DOWN WHEN CLICK ON PERNR
FORM F_USERCOMMAND_ALV USING R_UCOMM     LIKE SY-UCOMM
                             RS_SELFIELD TYPE SLIS_SELFIELD.
*&*& TAKING ALL RECORDS IN PA0002 FOR THAT EMP
CLEAR :ITAB1[].
SELECT *
         FROM PA0002
         INTO TABLE ITAB1
         WHERE
               PERNR EQ RS_SELFIELD-VALUE.
CLEAR :   T_FCAT[].
*&*& FCAT
W_FCAT-FIELDNAME = 'PERNR'.
W_FCAT-SELTEXT_M = 'Emp No'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-FIELDNAME = 'GBDAT'.
W_FCAT-SELTEXT_M = 'DATE'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-FIELDNAME = 'GESCH'.
W_FCAT-SELTEXT_M = '***'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      IS_LAYOUT          = IS_LAYOUT
      IT_FIELDCAT        = T_FCAT
    TABLES
      T_OUTTAB           = ITAB1.
ENDFORM.                    "F_USERCOMMAND_ALV
With Rgds,
S.Bharani

Creating a transaction Code

hey Guys,
How am I going to create a transaction code without a screen?
Is it possible?
Thanks !
Mark

Hi,
If there is no Selection Screen then ur report will run automatically.
When you are creating the Tcode in SE93, select the Transaction type as REPORT TRANSACTION Radiobutton. (the default will be DIALOG Transaction).
Regards,
Priyanka.

Radiobutton in report painter

hi experts,
i would like to ask on how to create a radio button in report painter selection screen.
thanks.

Hi,
Try with following piece of code.
SELECTION CRITERIA *
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME .
SELECT-OPTIONS: s_date FOR /obiz/zxp_shphd-bol_date. "OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS : prm_rec RADIOBUTTON GROUP radi,
prm_nre RADIOBUTTON GROUP radi.
SELECTION-SCREEN: END OF BLOCK b2.
Regards,
Aravind J M

Placing radiobuttons side by side in report

Hi,
How to place two radio buttons side by side in a report program. Can anyone help me on this.
Thanks,
Rose.

HI
To position a set of parameters or comments in a single line on the selection screen, you must declare the elements in a block enclosed by the following two statements:
SELECTION-SCREEN BEGIN OF LINE.
define radio buttons
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS :
r1 RADIOBUTTON GROUP rad1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(10) text-001.
PARAMETERS :
r2 RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF LINE.
Regards
Pavan

Show normal report or alv report for the radiobutton that was selected

Hello... i'm a begginer on Abap, so I hope to writly espose my question...
I'm trying to modifie an report i have to, when the user choose the values for selection, he also can choose if the output is shown as a normal view or as an alv. I want to do it by using radiobuttons, but I don´t no how to organise my code for the selected radiobutton...
Thanks

Hi,
Copy and paste this code. undestand the logic.
TABLES: vbrp.
TYPE-POOLS: slis.
TYPES: BEGIN OF gs_vbrp,
       vbeln TYPE vbrp-vbeln, "sales order
       matnr TYPE vbrp-matnr, "material no
       arktx TYPE vbrp-arktx, "material description
       ntgew TYPE vbrp-ntgew, "quantity
       gewei TYPE vbrp-gewei, "quantity unit
       netwr TYPE vbrp-netwr, "currency
       werks TYPE vbrp-werks, "plant
       END OF gs_vbrp.
DATA: it_vbrp TYPE STANDARD TABLE OF gs_vbrp,
      wa_vbrp TYPE gs_vbrp.
DATA: fcat TYPE slis_t_fieldcat_alv,
      wa_fcat TYPE slis_fieldcat_alv.
DATA: lyout TYPE slis_layout_alv,
      event TYPE slis_t_event,
      wa_event TYPE slis_alv_event.
select-options: s_vbeln for vbrp-vbeln.
parameters: p_alv type c radiobutton group AA,
            P_NORMAL TYPE C RADIOBUTTON GROUP AA.
SELECT vbeln
         matnr
         arktx
         ntgew
         gewei
         netwr
         werks
         FROM vbrp
         INTO TABLE it_vbrp
         FOR ALL ENTRIES IN IT_VBRP
         WHERE vbeln EQ IT_VBRP-VBELN.
IF P_ALV = 'X'.
define imacro.
wa_fcat-fieldname   = &1.
wa_fcat-tabname     = &2.
wa_fcat-reptext_ddic = &3.
wa_fcat-col_pos     = &4.
append wa_fcat to fcat.
clear wa_fcat.
end-of-definition.
imacro 'VBELN'   'it_vbrk' 'PO Document'   '1'.
imacro 'MATNR'   'it_vbrk' 'material no.'       '2'.
imacro 'ARKTX'   'it_vbrk' 'Mat. description'   '3'.
imacro 'NTGEW'   'it_vbrk' 'quantity'        '4'.
imacro 'GEWEI'   'it_vbrk' 'quantity unit'     '5'.
imacro 'NETWR'   'it_vbrk' 'net price'   '6'.
imacro 'WERKS'   'it_vbrk' 'plant'     '7'.
****************DEFINE LAYOUT
lyout-zebra             = 'X'.
lyout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = sy-cprog
I_CALLBACK_PF_STATUS_SET          = ' '
   I_CALLBACK_USER_COMMAND           = 'USER'
I_CALLBACK_TOP_OF_PAGE            = 'MY NAME'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = 'I M THAT'
I_GRID_SETTINGS                   =
   IS_LAYOUT                         = lyout
   IT_FIELDCAT                       = fcat
TABLES
    T_OUTTAB                          = IT_VBRP
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
ELSE.
LOOP AT IT_VBRP INTO WA_VBRP.
WRITE: /5 WA_VBRP-VBELN, WA_VBRP-MATNR.
ENDLOOP.
ENDIF.
Cheers,
Rudhir

How to add F1 help for a Radiobutton in a report

Hi Experts,
I have created a report in which I defined 4 radiobuttons.
Now I want that whenever user selects any of the radiobutton and press F1, a documentation corresponding to that radiobutton should come be displayed.
Please give me the ideas on how to implement this.
Useful answers will be suitably rewarded.
Thanks in advance.
Regards,
Himanshu

Dear Himangshu,
go through the following...
CALL FUNCTION 'DSYS_SHOW_FOR_F1HELP'
EXPORTING
APPLICATION              = 'SO70'
    dokclass                 = 'TX'
    DOKLANGU                 = SY-LANGU
    dokname                  = 'Z_RAHUL_DEMO'
DOKTITLE                 = 'This appears as bold title'
HOMETEXT                 = ' '
OUTLINE                  = ' '
VIEWNAME                 = 'STANDARD'
Z_ORIGINAL_OUTLINE       = ' '
CALLED_FROM_SO70         = ' '
SHORT_TEXT               = ' '
APPENDIX                 = ' '
IMPORTING
APPL                     =
PF03                     =
PF15                     =
PF12                     =
EXCEPTIONS
   CLASS_UNKNOWN            = 1
   OBJECT_NOT_FOUND         = 2
   OTHERS                   = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Apart from the FM DSYS_SHOW_FOR_F1HELP,following FMs can also be used:
HELP_OBJECT_SHOW_FOR_FIELD
HELP_OBJECT_SHOW

Multiple Radiobuttons per row in Interactive Report

I added some code per Vincent Deelen's "Using radio buttons in an APEX report"
Vincent Deelen: Using radio buttons in an APEX report
This works just like his blog says it will with one problem.
My interactive report has more than one page of data. Whenever I click to go to the
second page of data, the click event on the radiobuttons in the dynamic action no longer works.
I leave the page items that stores my key values unhidden and they do not change once I change pages in my interactive report.
Any ideas as to what to do or something I am missing.
Apex 4.2.1
Oracle 11g database
blue responsive theme 25
Here is my query
select q_cev,
       apex_item.radiogroup(p_idx            => rownum,
                            p_value                    => 'Y',
                            p_selected_value      => gmpick_flag01,
                            p_display                 => 'Yes',
                            p_attributes              => 'class="gmpickflag01 flagY"')
                            as RBYES,
       apex_item.radiogroup(p_idx            => rownum,
                            p_value                    => 'N',
                            p_selected_value      => gmpick_flag01,
                            p_display                 => 'No',
                            p_attributes              => 'class="gmpickflag01 flagN"')
                            as RBNO,
       apex_item.radiogroup(p_idx            => rownum,
                            p_value                    => 'U',
                            p_selected_value      => decode(gmpick_flag01,null,'U',
                                                                'U','U',gmpick_flag01),
                            p_display                => 'Undecided',
                            p_attributes             => 'class="gmpickflag01 flagU"')
                            as RBUND,
       sort_qkey1,sort_qkey2,sort_qkey3,
       q_key1_trans, q_key2_trans, q_key3_trans
from cts_ajha_q_ref LEFT OUTER join cts_gen_multipick
   on (cts_ajha_q_ref.q_cev = cts_gen_multipick.gps_cev
        and cts_gen_multipick.gmpickcode= 'CTS551HZGRCKLIST01'
        and cts_gen_multipick.op_cev = :P155102_OP_CEV)
where cts_ajha_q_ref.cts_no_show is null
    and cts_ajha_q_ref.cts_showflag01 is not null
I created a dynamic Action
Event:
Click
Selection Type:
jQuery Selector
jQuery Selector: .gmpickflag01
Execute Javascript Code
var rbyes = $('#radioReport .apexir_WORKSHEET_DATA tbody tr td[headers="RBYES"] input:checked').map(function() {
   return $(this).parent().parent().find('td[headers="Q_CEV"]').html()}).get().join(':')
var rbno = $('#radioReport .apexir_WORKSHEET_DATA tbody tr td[headers="RBNO"] input:checked').map(function() {
   return $(this).parent().parent().find('td[headers="Q_CEV"]').html()}).get().join(':')
var rbund = $('#radioReport .apexir_WORKSHEET_DATA tbody tr td[headers="RBUND"] input:checked').map(function() {
   return $(this).parent().parent().find('td[headers="Q_CEV"]').html()}).get().join(':')
//Send the delimited Q_CEV's to hidden page items to submit.
$s('P155102_RBYES',rbyes)
$s('P155102_RBNO',rbno)
$s('P155102_RBUND',rbund)
Also have code to step thru the page items to insert into database.

Hi,
With the code as it is, you'll have to submit your change before you jump to your next paginated set of rows. You'd either have to create a submit function on paginate, or rewrite the map function in the dynamic action to save the result set of your the results on the pagiation set that you are leaving.
Javascript only works on the data that is actually on the page, ie can be found with html. When you paginate to the next set of rows, the data on the previous set can no longer be manipulated or consulted.
Regards
Vincent
http://vincentdeelen.blogspot.com

Submit a PNP Report with A Radiobutton Parameter

Hi,
i have a fm to submit a PNP report, i sent selection options parameters but radiobutton parameter wasn't sent.
FUNCTION ZHR_SUBMIT_TO_ZHRSABORDROWDA.
     submit ZHRSABORDROWDA
            WITH wdaflag = 1
            WITH pnppernr in personel
            WITH PNPBUKRS in SIRKET_K
            WITH PNPWERKS in PERALAN
            WITH PNPBTRTL in PERALTA
            WITH PNPPERSG in CALIALG
            WITH PNPPERSK in CALIALT
            WITH PNPABKRS in BORDROA
            WITH PNPKOSTL in MASRAFY
            WITH PNPTIMR4 = 'X'                         " pnp radiobutton
            WITH P_FPPER = period
      AND RETURN
ENDFUNCTION.
How can i send parameter to pnp radiobutton with submit?
Can somebody help me pls?
Thanks

Yes i solved my problem with that method;
DATA : SEL_TAB TYPE RSPARAMS OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
    EXPORTING
      CURR_REPORT           = 'ZHRSABORDROWDA'
* IMPORTING
*   SP                    =
    TABLES
      SELECTION_TABLE       = SEL_TAB
EXCEPTIONS
   NOT_FOUND             = 1
   NO_REPORT             = 2
   OTHERS                = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT SEL_TAB.
    CASE SEL_TAB-SELNAME.
      WHEN 'PNPPERNR'.
        READ TABLE personel INDEX 1.
          MOVE-CORRESPONDING personel to SEL_TAB.
          MODIFY SEL_TAB.
ENDLOOP.
SUBMIT ZHRSABORDROWDA WITH SELECTION-TABLE SEL_TAB AND RETURN.
i hope it will help you.
Thanks.

RadioButtons in WAD to open different reports

Hi
I have a R/3-report . My Client wants same report in the BI-Environment.
It contains Three Radio Buttons and when the user open first radibutton then he/she needs to get the one type of report .
And when the user open another radiobutton then he/she needs to get one type of report.
So how can we generate like this report in the WEB APPLICATION DESIGNER.
Regards
kumar

Hi,
Here is an example of how to use a button to execute a web template:
Hyperlink behind pushbutton
<table><tr><td class="SAPBEXBtnStdBorder" cellspacing="0" cellpadding="0" border="0"><tr><td>
<table><tr><td class="sapbexbtnstd" ><a href="<SAP_BW_URL cmd='LDOC' TEMPLATE_ID='EXAMPLE_TEMPLATE'>" target="_Blank">Call Example Template in Separate Window</a></td></tr></table>
</td></tr></table>
You can also look for more examples at the reference link below:
http://help.sap.com/saphelp_nw04/helpdata/EN/b4/0fa239cec06b40e10000000a11402f/content.htm

How to make a radiobutton submit the page in a report

Hi All,
I have report in which i generated a radio button using HTMLDB_ITEM.RadioGroup.
now when the user selects a radio i want to submit the page.
Any suggestions are welcomed.
Thanks in advance.
Message was edited by:
user517233

HTMLDB_ITEM.RADIOGROUP(
    p_idx              IN    NUMBER,
    p_value            IN    VARCHAR2 DEFAULT,
    p_selected_value   IN    VARCHAR2 DEFAULT,
    p_display          IN    VARCHAR2 DEFAULT,
    p_attributes       IN    VARCHAR2 DEFAULT,
    p_onblur           IN    VARCHAR2 DEFAULT,
    p_onchange         IN    VARCHAR2 DEFAULT,
    p_onfocus          IN    VARCHAR2 DEFAULT,)
    RETURN VARCHAR2;Use the p_onchange parameter to do doSubmit('SOMETHING')

Report of radiobutton

Similar Messages

Maybe you are looking for