REPORT z_demo_alv_refresh_button.
**********************************************************************
* REPORT Z_DEMO_ALV_REFRESH_BUTTON - ALV Grid with refresh button *
*--------------------------------------------------------------------*
* Author : Michel PIOUD *
* Email : mpioud@yahoo.fr HomePage : http://www.geocities.com/mpioud *
**********************************************************************
TYPE-POOLS: slis. " ALV Global Types
CONSTANTS :
gc_refresh TYPE syucomm VALUE '&REFRESH'.
DATA:
BEGIN OF gt_mara OCCURS 0,
ernam LIKE mara-ernam,
matnr LIKE mara-matnr,
ersda LIKE mara-ersda,
brgew LIKE mara-brgew,
END OF gt_mara.
*---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM f_read_data.
PERFORM f_display_data.
*---------------------------------------------------------------------*
* Form f_read_data
*---------------------------------------------------------------------*
FORM f_read_data.
STATICS :
l_rows TYPE i.
ADD 1 TO l_rows.
SELECT ernam matnr ersda brgew INTO TABLE gt_mara FROM mara
UP TO l_rows ROWS.
MESSAGE s208(00) WITH 'Reading data ...'.
ENDFORM. " F_READ_DATA
*---------------------------------------------------------------------*
* Form f_display_data
*---------------------------------------------------------------------*
FORM f_display_data.
DEFINE m_fieldcat.
add 1 to ls_fieldcat-col_pos.
ls_fieldcat-fieldname = &1.
ls_fieldcat-ref_tabname = 'MARA'.
append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DATA :
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv,
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.
m_fieldcat 'ERNAM'.
m_fieldcat 'MATNR'.
m_fieldcat 'ERSDA'.
m_fieldcat 'BRGEW'.
CLEAR ls_event_exit.
ls_event_exit-ucomm = gc_refresh. " Refresh
ls_event_exit-after = 'X'.
APPEND ls_event_exit TO lt_event_exit.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_pf_status_set = 'PF_STATUS_SET'
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = lt_fieldcat
it_event_exit = lt_event_exit
TABLES
t_outtab = gt_mara.
ENDFORM. " F_DISPLAY_DATA
*---------------------------------------------------------------------*
* FORM USER_COMMAND *
*---------------------------------------------------------------------*
FORM user_command USING u_ucomm LIKE sy-ucomm
us_selfield TYPE slis_selfield. "#EC CALLED
CASE u_ucomm.
WHEN gc_refresh.
PERFORM f_read_data. " Refresh data
us_selfield-refresh = 'X'.
us_selfield-col_stable = 'X' .
us_selfield-row_stable = 'X' .
ENDCASE.
ENDFORM.
*---------------------------------------------------------------------*
* FORM PF_STATUS_SET *
*---------------------------------------------------------------------*
FORM pf_status_set USING ut_extab TYPE slis_t_extab. "#EC CALLED
DELETE ut_extab WHERE fcode = gc_refresh.
SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
EXCLUDING ut_extab.
ENDFORM.
********* END OF PROGRAM Z_DEMO_ALV_REFRESH_BUTTON ********************
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
7 | 4.6c 에서 Xml 파일을 읽어오는 로직 예제 입니다. [2] | woong | 2009.05.11 | 14814 |
6 | REPORT z_alv_list_block_2 [1] | 노름마치 | 2007.11.05 | 15184 |
5 | 통화단위, krw, usd 일반 필드에 변환시 로직(소수점, 자리수) [4] | sapjoy | 2011.07.19 | 15575 |
4 | 셀(cell) 레벨의 ALV EDIT(편집) 가능 소스 [5] | sapjoy | 2008.09.25 | 17280 |
3 | Mass Download [5] | 소주와 막걸리 | 2009.11.13 | 17369 |
2 | 스크린에서 버튼을 tree 처럼 만들기. [32] | Jenny | 2011.08.11 | 17663 |
1 | Dynamic Select 소스 [5] | 떡밥 | 2011.06.03 | 17777 |
유용하게 사용하겠습니다. 감사합니다^^