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

Question

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

Answer 1

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