Adding Refresh button in ALV GRID
hi all,
i have added a refresh button in ALV GRID.
i want to refresh the data from ALV..
w_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = w_repid
i_callback_pf_status_set = 'PF_STATUS_SET'
*begin of addition by SND on 15072008
i_callback_pf_status_set = 'REFRESH'
*end of addition by SND on 15072008
i_callback_user_command = '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 = gs_layout
it_fieldcat = wa_fldcat1
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
i_save = 'X'
IS_VARIANT =
IT_EVENTS =
it_event_exit = lt_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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_ticket
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.
ENDIF.
----
FORM USER_COMMAND *
----
--> R_UCOMM *
--> RS_SELFIELD *
----
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
BREAK-POINT.
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-fieldname = 'TICKETNO'.
REFRESH bdcdata.
READ TABLE it_ticket INDEX rs_selfield-tabindex.
PERFORM bdc_dynpro USING 'ZTMT_UPDATION_PRGM' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'ZTMT_TICKET-ZSYSTEM'.
PERFORM bdc_field USING 'ZTMT_TICKET-TICKETNO'
it_ticket-ticketno.
PERFORM bdc_field USING 'ZTMT_TICKET-ZSYSTEM'
it_ticket-zsystem.
PERFORM bdc_transaction USING 'ZTMT'.
ENDIF.
ENDCASE.
ENDFORM. "user_command
this is my code.