At user command in alv's

how to handle at user commads in alv's?

Hi Praveen
Interactive Reports
As the name suggests, the user can Interact with the report. We can have a drill down into the report data. For example, Column one of the report displays the material numbers, and the user feels that he needs some more specific data about the vendor for that material, he can HIDE that data under those material numbers.
And when the user clicks the material number, another report (actually sub report/secondary list) which displays the vendor details will be displayed.
We can have a basic list (number starts from 0) and 20 secondary lists (1 to 21).
Events associated with Interactive Reports are:
AT LINE-SELECTION
AT USER-COMMAND
AT PF<key>
TOP-OF-PAGE DURING LINE-SELECTION.
HIDE statement holds the data to be displayed in the secondary list.
sy-lisel : contains data of the selected line.
sy-lsind : contains the level of report (from 0 to 21)
Interactive Report Events:
AT LINE-SELECTION : This Event triggers when we double click a line on the list, when the event is triggered a new sublist is going to be generated. Under this event what ever the statements that are been return will be displayed on newly generated sublist.
AT PFn: For predefined function keys...
AT USER-COMMAND : It provides user functions keys.
TOP-OF-PAGE DURING LINE-SELECTION :top of page event for secondary list.
check this sample code
TYPE-POOLS: slis. " ALV Global Types
DATA :
gt_user LIKE uinfo OCCURS 0 WITH HEADER LINE. " User info in SM04
START-OF-SELECTION.
PERFORM f_read_data.
PERFORM f_display_data.
* Form F_LIRE_DATA
FORM f_read_data.
REFRESH gt_user.
* Get User's info
CALL FUNCTION 'THUSRINFO'
 TABLES
 usr_tabl = gt_user.
* Wait in a task
PERFORM f_call_rfc_wait.
ENDFORM. " F_READ_DATA
* Form F_DISPLAY_DATA
FORM f_display_data.
DEFINE m_sort.
 add 1 to ls_sort-spos.
 ls_sort-fieldname = &1.
 append ls_sort to lt_sort.
END-OF-DEFINITION.
DEFINE m_event_exit.
 clear ls_event_exit.
 ls_event_exit-ucomm = &1.
 ls_event_exit-after = 'X'.
 append ls_event_exit to lt_event_exit.
END-OF-DEFINITION.
DATA :
 ls_layout TYPE slis_layout_alv,
 lt_sort TYPE slis_t_sortinfo_alv,
 ls_sort TYPE slis_sortinfo_alv,
 lt_event_exit TYPE slis_t_event_exit,
 ls_event_exit TYPE slis_event_exit.
* Build Sort Table
m_sort 'ZEIT'.
* Build Event Exit Table
m_event_exit '&NTE'. " Refresh
ls_layout-zebra = 'X'.
ls_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = sy-cprog
 i_callback_user_command = 'USER_COMMAND'
 is_layout = ls_layout
 i_structure_name = 'UINFO'
 it_sort = lt_sort
 it_event_exit = lt_event_exit
 TABLES
 t_outtab = gt_user.
ENDFORM. " F_DISPLAY_DATA
* FORM USER_COMMAND *
FORM user_command USING i_ucomm TYPE syucomm
 is_selfield TYPE slis_selfield. "#EC CALLED
CASE i_ucomm.
 WHEN '&NTE'.
 PERFORM f_read_data.
 is_selfield-refresh = 'X'.
 SET USER-COMMAND '&OPT'. " Optimize columns width
ENDCASE.
ENDFORM. " USER_COMMAND
* Form F_CALL_RFC_WAIT
FORM f_call_rfc_wait.
DATA lv_mssg(80). "#EC NEEDED
* Wait in a task
CALL FUNCTION 'RFC_PING_AND_WAIT' STARTING NEW TASK '001'
 PERFORMING f_task_end ON END OF TASK
 EXPORTING
 seconds = 5 " Refresh time
 busy_waiting = space
 EXCEPTIONS
 RESOURCE_FAILURE = 1
 communication_failure = 2 MESSAGE lv_mssg
 system_failure = 3 MESSAGE lv_mssg
 OTHERS = 4.
ENDFORM. " F_CALL_RFC_WAIT
* Form F_TASK_END
FORM f_task_end USING u_taskname.
DATA lv_mssg(80). "#EC NEEDED
* Receiving task results
RECEIVE RESULTS FROM FUNCTION 'RFC_PING_AND_WAIT'
 EXCEPTIONS
 RESOURCE_FAILURE = 1
 communication_failure = 2 MESSAGE lv_mssg
 system_failure = 3 MESSAGE lv_mssg
 OTHERS = 4.
CHECK sy-subrc EQ 0.
SET USER-COMMAND '&NTE'. " Refresh
ENDFORM. " F_TASK_END
*************** END OF PROGRAM Z_ALV_AUTO_REFRESH *********************
check this link too
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/abap-AddUsercommandfunctionalitytoALVgridreport&
Reward all helpfull answers
Regards
Pavan

Similar Messages

User command in ALv

how to handle user command in alv grid?
if we want to select only one row, but we get a table from calling method
get_selected_rows.
is there any method or way of getting a single row which is selected?

Hi,
This method indeed returns the table but only with the selected rows. Therefore when you select only one row, it will contain only one entry. For this use second parameter of the method ET_ROW_NO as the first one is obsolete. It will contain indexes of the selected rows.
Note!
You must use one of the these selection modes (A, C, D) in this case. The default one is B, so you have to change it in layout structure.
layout_structure-sel_mode = 'A'. "i.e.
See possible selection modes [here|http://help.sap.com/saphelp_erp2004/helpdata/en/ef/a2e9eff88311d2b48d006094192fe3/frameset.htm]
Regards
Marcin

Problem with User Command in alv report

Hi
I have developed a ALV grid report with drill down capability to transaction code for user command. I am having a trouble with this.
CASE ucomm.
    WHEN '&IC1'.
      CLEAR: wa_import.
      IF selfield-fieldname EQ 'ANLN1'.
        READ TABLE t_import INTO wa_import INDEX selfield-tabindex.
        SET PARAMETER ID 'BUK' FIELD wa_import-bukrs.
        SET PARAMETER ID 'ANl' FIELD wa_import-anln1.
        CALL TRANSACTION 'AW01N'.
      ENDIF.
here my parameter ids are showing the values but when i call the transaction i am not getting the actual asset numbers.
Can someone help me out this
Thanks

Hi,
add the AND SKIP FIRST SCREEN...addition..
CALL TRANSACTION 'AW01N' AND SKIP FIRST SCREEN.
Thanks
Naren

User command in ALV grid

Hi
I am displaying the output of a report in the ALV grid.
I have used REUSE_ALV_LIST_DISPLAY in my code as follows.
FORM DISPLAY_ALV_LIST.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SYREPID
IS_LAYOUT = FIELDLAYOUT
I_CALLBACK_USER_COMMAND = 'USER-COMMAND'
IT_FIELDCAT = FIELDCATALOG[]
I_SAVE = 'X'
IT_EVENTS = EVENTSTAB[]
TABLES
T_OUTTAB = ITAB_1
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM. " DISPLAY_ALV_LIST
When I try to call a transaction at the user command with sy-ucomm = &IC1 sys gives a message 'Not valid'.
FORM USER-COMMAND USING UCOMM LIKE SY-UCOMM
                       SELFIELD TYPE SLIS_SELFIELD.
READ TABLE ITAB_1 INDEX SELFIELD-TABINDEX.
CHECK SY-SUBRC = 0.
CASE UCOMM.
    WHEN '&IC1'.
      CASE SELFIELD-SEL_TAB_FIELD.
        WHEN 'ITAB_1-VBELN'.
          SET PARAMETER ID 'VF' FIELD ITAB_1-VBELN.
          CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
        WHEN 'ITAB_1-MATNR'.
          SET PARAMETER ID 'MAT' FIELD ITAB_1-MATNR.
          CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
      ENDCASE.
ENDCASE.
ENDFORM.                    "USER_COMMAND
Kindly let me know what am I missing in the above code. As this FORM USER-COMMAND is at all called during the user-command.
Regds
Priya

the Code what u are given is WRONG , check this one.
put like this , it will solve ur probs.
check r_ucomm = '&IC1'.             "User Double Clicked on Some field
check not rs_selfield-value is initial.
case rs_selfield-fieldname.
    when 'AUFNR'.
      if rad4 ne 'X'.
        read table itab_order index rs_selfield-tabindex.
      else.
        read table itab_order2 index rs_selfield-tabindex.
        itab_order-aufnr = itab_order2-aufnr.
      endif.
      if sy-subrc eq 0.
        set parameter id 'ANR' field itab_order-aufnr.
        set parameter id 'VGN' field '10'.
        call transaction 'CO14' and skip first screen.
      endif.                            " IF SY-SUBRC EQ 0
endcase.
Regards
Prabhu
Message was edited by: Prabhu Peram

Pf status & user-command in alv grid

Hi Friends,
I have one query for ALV grid.
Actually my requirement is like that
Whenever the user double click on grid the control moves to transaction 'VA01' tcode.
I also wanted to set the gui status in ALV grid.
How to do it??
Plz tell me in detail.

Very simple....
copy paste this code.... remember I have created a GUI Status called ZALV_STATUS.
So u will have to create this status to run ur program.
U can come back if u have any doubts...
*& Report Z_ALV_TRAINING_LIST_HOTSPOT
REPORT Z_ALV_TRAINING_LIST_HOTSPOT.
Type Pools Used **********
TYPE-POOLS : SLIS.
Internal Tables Declare ************
DATA : it_document type standard table of bkpf initial size 0 with header line,
 IT_FIELD_CAT TYPE SLIS_T_FIELDCAT_ALV,
 it_alv_event type SLIS_T_EVENT,
 fl_layout type slis_layout_alv.
Select Data ***********
start-of-selection.
select * from bkpf into table it_document.
Make Field Catalog ******
PERFORM MAKE_FIELD_CATALOG.
Make Layout *********
perform sub_fill_layout.
Make Events Table *******
perform sub_Fill_alv_event.
Display ALV *********
PERFORM DISPLAY_ALV_LIST.
*& Form make_field_catalog
 text
--> p1 text
<-- p2 text
FORM MAKE_FIELD_CATALOG .
data : wa type slis_fieldcat_alv.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME =
I_INTERNAL_TABNAME =
 I_STRUCTURE_NAME = 'bkpf'
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
 CT_FIELDCAT = it_field_cat
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 it_field_cat into wa index 3.
wa-hotspot = 'X'.
modify it_field_cat index 3 from wa.
ENDFORM. " make_field_catalog
*& Form display_alv_list
 text
--> p1 text
<-- p2 text
FORM DISPLAY_ALV_LIST .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = sy-repid
 I_CALLBACK_PF_STATUS_SET = 'SET_MY_PF_STATUS'
I_CALLBACK_USER_COMMAND = ' '
 IS_LAYOUT = fl_layout
 IT_FIELDCAT = it_field_cat[]
IT_SORT =
I_DEFAULT = 'X'
 I_SAVE = 'X'
IS_VARIANT = '/TEST_VV'
 IT_EVENTS = it_alv_event
TABLES
 T_OUTTAB = it_document.
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_alv_list
*& Form sub_my_pf_event
 text
--> p1 text
<-- p2 text
FORM sub_my_pf_event using p_comm type sy-ucomm p_sEL_FIELD TYPE SLIS_SELFIELD.
read table it_document index p_sel_field-tabindex.
set parameter id 'BLN' field it_document-belnr.
set parameter id 'BUK' field it_document-bukrs.
set parameter id 'GJR' field it_document-gjahr.
case p_comm.
 when 'PICK'.
 call transaction 'FB03' and skip first screen.
endcase.
ENDFORM. " sub_my_pf_event
*& Form sub_Fill_alv_event
 text
--> p1 text
<-- p2 text
FORM sub_Fill_alv_event .
data : wa type slis_alv_event.
wa-name = 'USER_COMMAND'.
wa-form = 'SUB_MY_PF_EVENT'.
append wa to it_alv_event.
ENDFORM. " sub_Fill_alv_event
*& Form sub_fill_layout
 text
--> p1 text
<-- p2 text
FORM sub_fill_layout .
fl_layout-f2code = 'PICK'.
fl_layout-box_fieldname = 'BELNR'.
ENDFORM. " sub_fill_layout
*& Form SET_MY_PF_STATUS
 text
--> p1 text
<-- p2 text
FORM SET_MY_PF_STATUS USING p_rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZALV_STATUS'.
ENDFORM. " SET_MY_PF_STATUS
Plz award points if it was helpful....
Message was edited by:
 Varun Verma

At line-selection /at user-command in alv

hai ,
 i used layout-listappend to output 3 alv's in one page .but
after using layout-listappend i_usercommand in reuse_alv_.. is not working .so i tried to use at line selection . please guide me to solve this problem how to use at line-selection in this prob or is there any other suitable way.

hi,
try this code it will help you
*& Report ZP_ALV8
REPORT zp_alv8.
TABLES: kna1, mara, vbak, mard.
TYPE-POOLS: slis.
**TYPE DECLERATION
TYPES: BEGIN OF ty_kna1,
 kunnr LIKE kna1-kunnr,
 land1 LIKE kna1-land1,
 name1 LIKE kna1-name1,
 ort01 LIKE kna1-ort01,
 END OF ty_kna1.
TYPES: BEGIN OF ty_mara,
 matnr LIKE mara-matnr,
 ersda LIKE mara-ersda,
 ernam LIKE mara-ernam,
 END OF ty_mara.
TYPES: BEGIN OF ty_vbak,
 vbeln LIKE vbak-vbeln,
 erdat LIKE vbak-erdat,
 ernam LIKE vbak-ernam,
 END OF ty_vbak.
TYPES: BEGIN OF ty_mard,
 matnr LIKE mard-matnr,
 werks LIKE mard-werks,
 lgort LIKE mard-lgort,
 END OF ty_mard.
**DATA DECLERATION
DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,
 wa_kna1 TYPE ty_kna1.
DATA: it_mara TYPE STANDARD TABLE OF ty_mara,
 wa_mara TYPE ty_mara.
DATA: it_vbak TYPE STANDARD TABLE OF ty_vbak,
 wa_vbak TYPE ty_vbak.
DATA: it_mard TYPE STANDARD TABLE OF ty_mard,
 wa_mard TYPE ty_mard.
DATA: it_fieldcat_kna1 TYPE slis_t_fieldcat_alv,
 wa_fieldcat_kna1 TYPE slis_fieldcat_alv,
 it_fieldcat_mara TYPE slis_t_fieldcat_alv,
 wa_fieldcat_mara TYPE slis_fieldcat_alv,
 it_fieldcat_vbak TYPE slis_t_fieldcat_alv,
 wa_fieldcat_vbak TYPE slis_fieldcat_alv,
 it_fieldcat_mard TYPE slis_t_fieldcat_alv,
 wa_fieldcat_mard TYPE slis_fieldcat_alv.
DATA: it_event_kna1 TYPE slis_t_event,
 wa_event_kna1 TYPE slis_alv_event,
 it_event_mara TYPE slis_t_event,
 wa_event_mara TYPE slis_alv_event,
 it_event_vbak TYPE slis_t_event,
 wa_event_vbak TYPE slis_alv_event,
 it_event_mard TYPE slis_t_event,
 wa_event_mard TYPE slis_alv_event.
DATA: wa_layout TYPE slis_layout_alv,
 it_listheader TYPE slis_t_listheader,
 wa_listheader TYPE slis_listheader.
selection-screen begin of block b1 with frame title text-001.
select-options: s_kunnr for kna1-kunnr default '1000' to '1050'.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
select-options: s_matnr for mara-matnr default '1' to '100'.
selection-screen end of block b2.
**INITIALIZATION
INITIALIZATION.
PERFORM layout.
PERFORM fieldcat_kna1.
PERFORM fieldcat_mara.
PERFORM event_kna1.
PERFORM event_mara.
PERFORM eventpopulate_kna1.
PERFORM eventpopulate_mara.
**START OF SELECTION AND FIRST LIST DISPLAY
START-OF-SELECTION.
SELECT kunnr land1 name1 ort01
 FROM kna1
 INTO TABLE it_kna1
 where kunnr in s_kunnr.
 UP TO 10 ROWS.
SELECT matnr ersda ernam
 FROM mara
 INTO TABLE it_mara
 where matnr in s_matnr.
 UP TO 20 ROWS.
PERFORM display.
**FORM LAYOUT
*& Form layout
 text
--> p1 text
<-- p2 text
FORM layout .
wa_layout-zebra ='X'.
wa_layout-get_selinfos = 'X'.
wa_layout-key_hotspot = 'X'.
ENDFORM. " layout
*FIELD CATALOUGE*******************************
*& Form fieldcat_kna1
 text
--> p1 text
<-- p2 text
FORM fieldcat_kna1 .
REFRESH it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'KUNNR'.
wa_fieldcat_kna1-seltext_l = 'CUSTOMER NUMBER'.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-key = 'X'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 1.
wa_fieldcat_kna1-emphasize = 'C21'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'LAND1'.
wa_fieldcat_kna1-seltext_l = 'COUNTRY CODE'.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 2.
wa_fieldcat_kna1-emphasize = 'C31'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'NAME1'.
wa_fieldcat_kna1-seltext_l = 'CUSTOMER NAME'.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 3.
wa_fieldcat_kna1-emphasize = 'C71'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'ORT01'.
wa_fieldcat_kna1-seltext_l = 'COUNTRY '.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 4.
wa_fieldcat_kna1-emphasize = 'C51'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
ENDFORM. " fieldcat_kna1
*& Form fieldcat_kna2
 text
FORM fieldcat_mara .
wa_fieldcat_mara-fieldname = 'MATNR'.
wa_fieldcat_mara-seltext_l = 'MATERIAL NUMBER'.
wa_fieldcat_mara-datatype = 'CHAR'.
wa_fieldcat_mara-outputlen = 30.
wa_fieldcat_mara-tabname = 'IT_MARA'.
wa_fieldcat_mara-key = 'X'.
wa_fieldcat_mara-hotspot = 'X'.
wa_fieldcat_mara-col_pos = 1.
wa_fieldcat_mara-emphasize = 'C21'.
APPEND wa_fieldcat_mara TO it_fieldcat_mara.
CLEAR wa_fieldcat_mara.
wa_fieldcat_mara-fieldname = 'ERSDA'.
wa_fieldcat_mara-seltext_l = 'CREATED ON'.
wa_fieldcat_mara-datatype = 'CHAR'.
wa_fieldcat_mara-outputlen = 30.
wa_fieldcat_mara-tabname = 'IT_MARA'.
wa_fieldcat_mara-hotspot = 'X'.
wa_fieldcat_mara-col_pos = 2.
wa_fieldcat_mara-emphasize = 'C41'.
APPEND wa_fieldcat_mara TO it_fieldcat_mara.
CLEAR wa_fieldcat_mara.
wa_fieldcat_mara-fieldname = 'ERNAM'.
wa_fieldcat_mara-seltext_l = 'CREATED BY'.
wa_fieldcat_mara-datatype = 'CHAR'.
wa_fieldcat_mara-outputlen = 30.
wa_fieldcat_mara-tabname = 'IT_MARA'.
wa_fieldcat_mara-hotspot = 'X'.
wa_fieldcat_mara-col_pos = 3.
wa_fieldcat_mara-emphasize = 'C61'.
APPEND wa_fieldcat_mara TO it_fieldcat_mara.
CLEAR wa_fieldcat_mara.
ENDFORM. "fieldcat_kna2
*& Form FIELDCAT_VBAK
 text
FORM fieldcat_vbak.
wa_fieldcat_vbak-fieldname = 'VBELN'.
wa_fieldcat_vbak-seltext_l = 'SALES ORDER'.
wa_fieldcat_vbak-datatype = 'CHAR'.
wa_fieldcat_vbak-outputlen = 30.
wa_fieldcat_vbak-tabname = 'IT_VBAK'.
wa_fieldcat_vbak-hotspot = 'X'.
wa_fieldcat_vbak-col_pos = 3.
wa_fieldcat_vbak-emphasize = 'C31'.
APPEND wa_fieldcat_vbak TO it_fieldcat_vbak.
CLEAR wa_fieldcat_vbak.
wa_fieldcat_vbak-fieldname = 'ERDAT'.
wa_fieldcat_vbak-seltext_l = 'CREATED ON'.
wa_fieldcat_vbak-datatype = 'DATS'.
wa_fieldcat_vbak-outputlen = 30.
wa_fieldcat_vbak-tabname = 'IT_VBAK'.
wa_fieldcat_vbak-hotspot = 'X'.
wa_fieldcat_vbak-col_pos = 3.
wa_fieldcat_vbak-emphasize = 'C41'.
APPEND wa_fieldcat_vbak TO it_fieldcat_vbak.
CLEAR wa_fieldcat_vbak.
wa_fieldcat_vbak-fieldname = 'ERNAM'.
wa_fieldcat_vbak-seltext_l = 'CREATED BY'.
wa_fieldcat_vbak-datatype = 'CHAR'.
wa_fieldcat_vbak-outputlen = 30.
wa_fieldcat_vbak-tabname = 'IT_VBAK'.
wa_fieldcat_vbak-hotspot = 'X'.
wa_fieldcat_vbak-col_pos = 3.
wa_fieldcat_vbak-emphasize = 'C51'.
APPEND wa_fieldcat_vbak TO it_fieldcat_vbak.
CLEAR wa_fieldcat_vbak.
ENDFORM. "FIELDCAT_VBAK
*& Form fieldcat_mard
 text
FORM fieldcat_mard.
wa_fieldcat_mard-fieldname = 'MATNR'.
wa_fieldcat_mard-seltext_l = 'MATERIAL NUMBER'.
wa_fieldcat_mard-datatype = 'CHAR'.
wa_fieldcat_mard-outputlen = 30.
wa_fieldcat_mard-tabname = 'IT_MARD'.
wa_fieldcat_mard-hotspot = 'X'.
wa_fieldcat_mard-col_pos = 1.
wa_fieldcat_mard-emphasize = 'C31'.
APPEND wa_fieldcat_mard TO it_fieldcat_mard.
CLEAR wa_fieldcat_mard.
wa_fieldcat_mard-fieldname = 'WERKS'.
wa_fieldcat_mard-seltext_l = 'PLANT'.
wa_fieldcat_mard-datatype = 'CHAR'.
wa_fieldcat_mard-outputlen = 30.
wa_fieldcat_mard-tabname = 'IT_MARD'.
wa_fieldcat_mard-hotspot = 'X'.
wa_fieldcat_mard-col_pos = 2.
wa_fieldcat_mard-emphasize = 'C61'.
APPEND wa_fieldcat_mard TO it_fieldcat_mard.
CLEAR wa_fieldcat_mard.
wa_fieldcat_mard-fieldname = 'LGORT'.
wa_fieldcat_mard-seltext_l = 'STORAGE LOCATION'.
wa_fieldcat_mard-datatype = 'CHAR'.
wa_fieldcat_mard-outputlen = 30.
wa_fieldcat_mard-tabname = 'IT_MARD'.
wa_fieldcat_mard-hotspot = 'X'.
wa_fieldcat_mard-col_pos = 3.
wa_fieldcat_mard-emphasize = 'C81'.
APPEND wa_fieldcat_mard TO it_fieldcat_mard.
CLEAR wa_fieldcat_mard.
ENDFORM . "fieldcat_mard
**FORM DISPLAY
*& Form Display
 text
--> p1 text
<-- p2 text
FORM display .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
 EXPORTING
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'.
IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 is_layout = wa_layout
 it_fieldcat = it_fieldcat_kna1
 i_tabname = 'IT_KNA1'
 it_events = it_event_kna1
IT_SORT =
I_TEXT = ' '
 TABLES
 t_outtab = it_kna1
 EXCEPTIONS
 program_error = 1
 maximum_of_appends_reached = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 is_layout = wa_layout
 it_fieldcat = it_fieldcat_mara
 i_tabname = 'IT_MARA'
 it_events = it_event_mara
IT_SORT =
I_TEXT = ' '
 TABLES
 t_outtab = it_mara
 EXCEPTIONS
 program_error = 1
 maximum_of_appends_reached = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
 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
**EVENTS FOR KNA1 AND MARA
*& Form EVENT_KNA1
 text
--> p1 text
<-- p2 text
FORM event_kna1 .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = it_event_kna1
 EXCEPTIONS
 list_type_wrong = 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. " EVENT_KNA1
*& Form EVENT_MARA
 text
--> p1 text
<-- p2 text
FORM event_mara .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = it_event_mara
 EXCEPTIONS
 list_type_wrong = 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. " EVENT_MARA
**POPULATING EVENTS
*& Form eventpopulate_kna1
 text
--> p1 text
<-- p2 text
FORM eventpopulate_kna1 .
READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
 wa_event_kna1-form = 'TOP_OF_PAGE_KNA1'.
 MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.
ENDIF.
READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'USER_COMMAND'.
IF sy-subrc = 0.
 wa_event_kna1-form = 'USER_COMMAND_KNA1'.
 MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.
ENDIF.
ENDFORM. " eventpopulate_kna1
*& Form eventpopulate_mara
 text
--> p1 text
<-- p2 text
FORM eventpopulate_mara .
READ TABLE it_event_mara INTO wa_event_mara WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
 wa_event_mara-form = 'TOP_OF_PAGE_MARA'.
 MODIFY it_event_mara FROM wa_event_mara TRANSPORTING form WHERE name = wa_event_mara-name.
ENDIF.
READ TABLE it_event_mara INTO wa_event_mara WITH KEY name = 'USER_COMMAND'.
IF sy-subrc = 0.
 wa_event_mara-form = 'USER_COMMAND_MARA'.
 MODIFY it_event_mara FROM wa_event_mara TRANSPORTING form WHERE name = wa_event_mara-name.
ENDIF.
ENDFORM. " eventpopulate_mara
**TOP OF PAGE
*& Form TOP_OF_PAGE_KNA1
 text
FORM top_of_page_kna1.
wa_listheader-typ = 'H'.
wa_listheader-info = 'CUSTOMER DETAILS' .
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
WRITE:/ 'CUSTOMER DETAILS'.
ENDFORM. "TOP_OF_PAGE_KNA1
*& Form TOP_OF_PAGE_MARA
 text
FORM top_of_page_mara.
wa_listheader-typ = 'H'.
wa_listheader-info = 'MATERIAL DETAILS' .
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
WRITE:/ 'MATERIAL DETAILS' .
ENDFORM. "TOP_OF_PAGE_KNA1
**CODE FOR SECOND LIST DISPLAY FOR VBAK
*& Form USER_COMMAND
 text
 -->UCOMM text
 -->R_SELFIELD text
FORM user_command
 USING ucomm LIKE sy-ucomm
 r_selfield TYPE slis_selfield.
CASE UCOMM.
when '&IC1'.
 CASE R_SELFIELD-TABNAME.
 WHEN 'IT_KNA1'.
 DATA: CUST(10) TYPE n.
 CUST = r_selfield-value.
 SELECT vbeln erdat ernam
 FROM vbak
 INTO TABLE it_vbak
 WHERE kunnr = cust.
 PERFORM fieldcat_vbak.
 PERFORM display_vbak.
 WHEN 'IT_MARA'.
 DATA: MAT(18) TYPE N.
 MAT = R_selfield-value.
 SELECT matnr werks lgort
 FROM mard
 INTO TABLE it_mard
 WHERE matnr = mat.
 PERFORM fieldcat_mard.
 PERFORM display_mard.
 ENDCASE.
ENDCASE.
ENDFORM. "USER_COMMAND
**& Form USER_COMMAND_MARA
 text
 -->UCOMM text
 -->S_SELFIELD text
*FORM user_command_mara
 USING ucomm LIKE sy-ucomm
 s_selfield TYPE slis_selfield.
SELECT matnr werks lgort
 FROM mard
 INTO TABLE it_mard
 WHERE matnr = s_selfield-value.
PERFORM fieldcat_mard.
PERFORM display_mard.
*ENDFORM. "USER_COMMAND_MARA
*& Form DISPLAY_VBAK
 text
--> p1 text
<-- p2 text
FORM display_vbak .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
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 = wa_layout
 IT_FIELDCAT = it_fieldcat_vbak
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
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 = it_vbak
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_VBAK
*& Form display_mard
 text
FORM display_mard .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USER_COMMAND_MARD'
I_STRUCTURE_NAME =
 is_layout = wa_layout
 it_fieldcat = it_fieldcat_mard
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 it_events = it_event_mard
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
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_mard
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_mard
regards
prasanth

USER-Command at ALV report.

Hi Guys,
I've created one ALV report displaying SALES ORDER created.My requirement is if I click on SALES Document no it should take me into VA03(sales orde display) transaction so that I can see all the data related for that document no. I have used BAPI .

Hi guys,
I have written this code but still it is not taking me into VAO3 Transaction. What else I should write?
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            I_BUFFER_ACTIVE          = 'X'
           I_BACKGROUND_ID          = 'ALV_BACKGROUND'
            I_CALLBACK_PROGRAM       = L_REPID
           I_CALLBACK_PF_STATUS_SET = L_STATUS
            I_CALLBACK_USER_COMMAND = L_USER_COMMAND
          I_STRUCTURE_NAME         = 'VBUK'
           IS_LAYOUT                = LF_LAYOUT
            IT_FIELDCAT              = LF_FIELDCAT[]
          IT_EXCLUDING             =
           IT_SPECIAL_GROUPS        = LF_SP_GROUP
          I_DEFAULT                = 'X'
           I_SAVE                   = L_SAVE
           IS_VARIANT               = L_VARIANT
           IT_EVENTS                = LF_EVENTS[]
          I_SCREEN_START_COLUMN    = 0
          I_SCREEN_START_LINE      = 0
          I_SCREEN_END_COLUMN      = 0
          I_SCREEN_END_LINE        = 0
    IMPORTING
          E_EXIT_CAUSED_BY_CALLER =
          ES_EXIT_CAUSED_BY_USER   =
       TABLES
            T_OUTTAB                 = IT_HEADER .
FORM L_USER_COMMAND USING vl_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
CASE vl_ucomm.
    WHEN '&IC1'.
      IF rs_selfield-fieldname = 'DOC_NO'
      OR rs_selfield-fieldname = 'SO_KUNNR' .
      SET PARAMETER ID 'AUN' FIELD rs_selfield-VALUE.
        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
      ENDIF.
    WHEN OTHERS.
   EXIT.
ENDCASE.
ENDFORM.

Regarding user command

hi,
how to write the user command on alv report and the output should ne upload into va02,
My requirement is i have developed a alv report,in that the requiremnt is one pushbutton they want,when they clicked it the output should be upload into va02 transaction.
Thanks and Regards,

Hi Ali,
For user command in alv,
First set the PF Status of that ALV,
and in the FM Reuse_alv_grid_display pass the subroutine name fr user command,
in its parameter -->      i_callback_user_command           = 'COMM'
Then to catch the function module you have to write like for eg,
FORM comm USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield.
DATA: okcode TYPE sy-ucomm.
okcode = ucomm.
CASE okcode.
    WHEN 'REF'.
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel         = 'MANSI'
        txt1          = 'CREATED BY'
        txt2          = SY-UNAME
      TXT3          = ' '
      TXT4          = ' '
That is on that buttons click you can use set parameter id statement to move your
control from this screen to the required screen.
Hope it helps you
Regrds
Mansi

User command is not getting triggered in interactive ALV with LIST display

Hi experts,
I have developed an interactive ALV report with LIST display. Here, the issue is, when i double click a record in the primary ALV list, the control must go to the USER COMMAND event which i have written in my report. But the user command event is not getting triggered at all when i double click any record.
It gives the following information instead.
"Choose a valid function".
(My user command name and its respective form name are same.)
Here is my code..
START-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 i_structure_name = p_table
 i_callback_user_command = 'TST1'
 i_callback_pf_status_set = 'SET_PF_STATUS'
 TABLES
 t_outtab = <dyn_table>
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
FORM tst1 USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
* Local data declaration
DATA: li_tab TYPE REF TO data,
 l_line TYPE REF TO data.
* Local field-symbols
FIELD-SYMBOLS:<l_tab> TYPE table,
 <l_wa> TYPE ANY.
* Create table
CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN li_tab->* TO <l_tab>.
* Create workarea
CREATE DATA l_line LIKE LINE OF <l_tab>.
ASSIGN l_line->* TO <l_wa>. CASE r_ucomm.
* When a record is selected
 WHEN '&IC1'.
* Read the selected record
 READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX
 rs_selfield-tabindex. IF sy-subrc = 0.
* Store the record in an internal table
 APPEND <dyn_wa> TO <l_tab>.
* Fetch the field catalog info
 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'Z_DEMO_PDF_JG'
 i_structure_name = p_table
 CHANGING
 ct_fieldcat = i_fieldcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
Please advice what is the msitake i have done here..

Read the following code:
pass the i_callback_user_command = g_user_command to the ALV function module and write the FORM user_command USING ucomm LIKE sy-ucomm
 selfield TYPE slis_selfield.
as shown below.
thanx
Data for ALV display
DATA : gt_fieldcat TYPE slis_t_fieldcat_alv,
 gt_events TYPE slis_t_event,
 g_variant LIKE disvariant,
 g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
 g_status TYPE slis_formname VALUE 'SET_PF_STATUS',
 gt_list_top_of_page TYPE slis_t_listheader,
 g_repid LIKE sy-repid,
 gf_pos TYPE i
Data for ALV display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = g_repid
 i_callback_program = sy-repid
 it_fieldcat = gt_fieldcat[]
 it_events = gt_events[]
 i_callback_user_command = g_user_command
 i_save = 'A'
 is_variant = g_variant
 TABLES
 t_outtab = it_print.
FORM user_command USING ucomm LIKE sy-ucomm
 selfield TYPE slis_selfield.
CASE ucomm.
 WHEN '&IC1'.
 CASE selfield-sel_tab_field.
 WHEN '1-KUNNR'.
 READ TABLE it_print INTO wa_print INDEX selfield-tabindex.
 IF sy-subrc = 0.
 SET PARAMETER ID 'BPA' FIELD wa_print-kunnr.
 CALL TRANSACTION 'BP'.
 ENDIF.
 WHEN '1-MATNR'.
 READ TABLE it_print INTO wa_print INDEX selfield-tabindex.
 IF sy-subrc = 0.
 SET PARAMETER ID 'JP_ISS' FIELD wa_print-matnr.
 CALL TRANSACTION 'JP29' AND SKIP FIRST SCREEN..
 GET PARAMETER ID 'WRK' FIELD wa_zprint-werks.
 SET PARAMETER ID 'VKO' FIELD wa_zprint-vkorg.
 SET PARAMETER ID 'VTW' FIELD wa_zprint-vtweg.
 CALL TRANSACTION 'JP29' AND SKIP FIRST SCREEN.
 ENDIF.
Endcase.
Endform.

I have a problem with ALV Grid User Command?

Hi Experts,
I have a problem with ALV GRID User Command.
I am calling TCODE IW33 (Order Display) from the ALV output at first time by selecting an order. But, User command is calling IW33 Initial screen with blank value of order. Even I checked in debugging the value what I selected is passing properly, but once that screen (IW33 Initial) displays, value doesn't appear. Then, Manually, I created another session and gone to TCODE IW33 and displayed an order. After that I came out from that order. Then again run my ALV program and selected another order, now order is displaying, but not what I selected current order instead of displaying previous order what I just displayed manually. If I selected any other order, system will display the same order what I dislayed manually.
Here is my code.
FORM user_command_alv USING u_ucomm TYPE sy-ucomm
                       us_self_field TYPE slis_selfield.
CASE u_ucomm.
WHEN '&IC1'.
READ TABLE it_final INDEX us_self_field-tabindex INTO wa_final.
        WHEN 'ORDER'.
          IF NOT wa_final-order IS INITIAL.
            SET PARAMETER ID 'COK' FIELD wa_final-order.
            CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
          ENDIF.
endform.
PARAMETER ID 'COK' also the standard one.
Could you please help me out, Where I did wrong?
If I select any order, that order only should display.
Thanks in advance.
Regards,
Sarayu.
Code Formatted by: Alvaro Tejada Galindo on Jan 8, 2009 2:33 PM

hi,
Please check it once the Paramater ID is 'ANR' for IW33 order number.
Hope this may help.
Regards,
Sravanthi

User command for checkbox in alv grid output

Hi,
Does anyone knows the user command for checkbox in alv grid display. My requirement is to have a column for checkbox in alv output. When the user checks the checkbox, a pop-up dialog box will appear. This dialog box was created in screen painter. I can't find the user command for this. Please help.
Thanks in advance.

Hi,
there r two ways for creating checkbox col on the ALV grid.
1.) take an extra field in your internal table i.e
data:
checkbox type c.
loop at internal_table into wa.
checkbox.
endloop.
or
the fieldcatalog attribute
2.) wa_fcat-checkbox = 'X'.
append wa_fcat to t_fcat.
clear wa_fcat.
if itab-checkbox = 'X'.
call screen <dialogbox screen number>.
endif.
regards
ravi

How to handle user command method in module ALV Grid

HI Experts,
                 I have 3 containers grid.
                 GR_GRID              TYPE REF TO CL_GUI_ALV_GRID,
                 GR_GRID1              TYPE REF TO CL_GUI_ALV_GRID,
                 GR_GRID2              TYPE REF TO CL_GUI_ALV_GRID.
                 Please advise me how can I insert, save, delete 3 Module ALV Grid in method user command. How can i get which grid button (save, insert, delete) is clicked and how can i control those grid.
                Thks in advance.
CLASS LCL_EVENT_RECEIVER DEFINITION.
PUBLIC SECTION.
    METHODS :
        HANDLE_TOOLBAR
              FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
                            IMPORTING E_OBJECT E_INTERACTIVE SENDER,
        HANDLE_USER_COMMAND
              FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
                            IMPORTING E_UCOMM,
        HANDLE_DATA_CHANGED
                FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
                      IMPORTING ER_DATA_CHANGED
                                E_ONF4
                                E_ONF4_BEFORE
                                E_ONF4_AFTER,
        HANDLE_DOUBLE_CLICK
                 FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
                 IMPORTING E_ROW
                           E_COLUMN,
        HANDLE_HOTSPOT_CLICK
                  FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
                       IMPORTING E_ROW_ID
                                 E_COLUMN_ID
                                 ES_ROW_NO.
ENDCLASS. "(LCL_EVENT_RECEIVER DEFINITION)
METHOD HANDLE_USER_COMMAND.
     CLEAR G_CODE.
    G_CODE = E_UCOMM.
    CASE G_CODE.
      WHEN 'INSERT'.
        MESSAGE 'insert' TYPE 'I'.
       APPEND INITIAL LINE TO GT_MAIN.
      WHEN 'SAVE'.
       MODIFY ZTNBOOK FROM GT_MAIN.
        MESSAGE 'save' TYPE 'I'.
      WHEN 'DELETE'.
       DELETE FROM ZTNBOOK WHERE B_ID EQ GT_ZTBOOK-B_ID.
        MESSAGE 'delete' TYPE 'I'.
    ENDCASE.
    IF NOT G_CODE IS INITIAL.
PBO, PAI
     CALL METHOD CL_GUI_CFW=>SET_NEW_OK_CODE
       EXPORTING
         NEW_CODE = G_CODE.
     CLEAR G_CODE.
    ENDIF.
ENDMETHOD.

Hi,
Before posting, Search in SDN.
See the below tread it will help you.
Re: Get table for cl_gui_alv_grid

ALV Grid user command handling

I am handling user command event of class cl_gui_alv_grid.
In this , on click of a button , a pop up for selection criterion comes after which
I have to append some data on alv.
But I want to append this data only on frontend not on global internal table of alv
as I want data change event to be called after this and doing some validations on this data.
How can I upload data only on frontend and how to trigger data_changed method in user command event.
I tried using check_changed_data of class cl_gui_alv_grid but some dump is coming for an attribute save_allowed of the class.

Hi Suneel,
For you requirement, I dont see why you cant include the functionality for the pop up within the USER_COMMAND event itself.
Algorithm for the USER_COMMAND event:
Step 1: Check E_UCOMM is 'ADD' or 'DELT'.
Step 2: If yes, call FM for POPUP_TO_CONFIRM; else continue to other E_UCOMM
Step 3: If ans is 'No', exit Method - else continue with Add/ Delete as required
Cheers,
Aditya

USER COMMAND FOR INTERACTIVE ALV REPORT

Hi Frens
I am making an interactive alv report showing a cost center hierarchy. I could scuccessfully capture the first click event in the user command using '&IC1'. Now i want to capture the second click event for the third hierarchy.
When i try to do that, the program flow keeps hitting the same user command time n again. I want to put in a different code for the different click events. What is the way to achieve this?
I searched ....there is nothing like '&IC2'. It does not work.

hi,
You can try this for the first click
READ TABLE IST_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
    WA_EVENT-FORM = 'USER_COMMAND'.
    MODIFY IST_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-NAME.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = G_REPID
      I_CALLBACK_PF_STATUS_SET = C_PF         "'SET_PF_STATUS'
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      I_CALLBACK_TOP_OF_PAGE   = 'TOP_OF_PAGE'
      I_GRID_TITLE             = G_TITLE
      IS_LAYOUT                = IST_LAYOUT
      IT_FIELDCAT              = IST_FIELDCAT[]
      IT_SORT                  = IST_SORT
      I_SAVE                   = 'A'
      IT_EVENTS                = IST_EVENTS
      IS_PRINT                 = IST_PRNT
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER = G_EXIT
      ES_EXIT_CAUSED_BY_USER   = IST_EXIT
    TABLES
      T_OUTTAB                 = IST_FINAL "sodtl
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
FORM USER_COMMAND USING R_UCOMM TYPE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
your code....
ENDFORM.
for second click
READ TABLE IST_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND1'.
IF SY-SUBRC EQ 0.
    WA_EVENT-FORM = 'USER_COMMAND1'.
    MODIFY IST_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-NAME.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = G_REPID
      I_CALLBACK_PF_STATUS_SET = C_PF "'SET_PF_STATUS'
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND1'
      I_CALLBACK_TOP_OF_PAGE   = 'TOP_OF_PAGE'
      I_GRID_TITLE             = G_TITLE
      IS_LAYOUT                = IST_LAYOUT
      IT_FIELDCAT              = IST_FIELDCAT[]
      I_SAVE                   = 'A'
    TABLES
      T_OUTTAB                 = IST_FINAL1.
hope this solves.

ALV using LVC....User Commands

Hai All..
Can anyone explain how can we handle the user commands like single click or a double click in an ALV using LVC type-pool.
Thanks in Advance,
rama

Hi,
Check the demo programs BCALV_TEST_GRID_EVENTS and BCALV_TEST_FULLSCREEN_EVENTS.
Regards,
Sesh

At user command in alv's

Similar Messages

Maybe you are looking for