ALV DataChange EVENT

在CX项目中，根据需求，自定义一个表，维护供应商的银行账号信息，当输入供应商编号时，自动在供应商名称列里自动填写供应商名称，用到了ALV DataChange 事件 ,下面是源代码：

*&---------------------------------------------------------------------*

*& REPORT ZMM_LIFNR_BANK

*&

*&---------------------------------------------------------------------*

*& PROGRAM NAME : ZMM_LIFNR_BANK

*& DESCRIPTION :

*& AUTHOR :

*& DATE WRITTEN :

*& TCODE :

*& NOTE :

*&---------------------------------------------------------------------*

REPORT ZMM_LIFNR_BANK.

*INCLUDE ZMMLIFNRBANKTOP.

TABLES:ZXK001.

TYPE-POOLS:SLIS.

TYPES BEGIN OF TY_ITAB.

TYPES CHK.

INCLUDE TYPE ZXK001.

TYPES END OF TY_ITAB.

DATA: IT_ZXK001 TYPE TABLE OF TY_ITAB WITH HEADER LINE.

DATA: WA_IT_ZXK001 TYPE TY_ITAB.

DATA: ITZXK001 LIKE TABLE OF ZXK001 WITH HEADER LINE.

DATA: GT_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE.

DATA: GC_GLAY TYPE LVC_S_GLAY.

DATA: GS_LAYOUT TYPE LVC_S_LAYO, "SLIS_LAYOUT_ALV,

WK_REPID LIKE SY-REPID.

DATA GS_GRID TYPE LVC_S_GLAY.

DATA TEM_GRID TYPE REF TO CL_GUI_ALV_GRID.

DATA GT_EVENTS TYPE SLIS_T_EVENT.

DATA GS_EVENTS LIKE LINE OF GT_EVENTS.

*----------------------------------------------------------------------*

* CLASS LCL_EVENT_RECEIVER DEFINITION

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

CLASS LCL_EVENT_RECEIVER DEFINITION. "定义类 捕捉各种事件

PUBLIC SECTION.

METHODS HANDLE_MODIFY "回车

FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID

IMPORTING E_MODIFIED ET_GOOD_CELLS.

METHODS HANDLE_ONF4 "F4

FOR EVENT ONF4 OF CL_GUI_ALV_GRID

IMPORTING E_FIELDNAME ES_ROW_NO ER_EVENT_DATA.

ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION

DATA GT_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER .

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.

SELECT-OPTIONS:

S_LIFNR FOR ZXK001-LIFNR.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM DISPLAY_DATA.

*&---------------------------------------------------------------------*

*& FORM GET_DATA

*&---------------------------------------------------------------------*

* TEXT

*----------------------------------------------------------------------*

FORM GET_DATA.

SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_ZXK001 FROM ZXK001 WHERE LIFNR IN S_LIFNR.

ENDFORM. "GET_DATA

*&---------------------------------------------------------------------*

*& FORM DISPLAY_DATA

*&---------------------------------------------------------------------*

* TEXT

*----------------------------------------------------------------------*

* --> P1 TEXT

* <-- P2 TEXT

*----------------------------------------------------------------------*

FORM DISPLAY_DATA .

DEFINE FILL_ALV.

CLEAR GT_FIELDCAT.

GT_FIELDCAT-FIELDNAME = &1.

GT_FIELDCAT-SCRTEXT_M = &2 .

* GT_FIELDCAT-OUTPUTLEN = &3.

GT_FIELDCAT-NO_ZERO = &3.

GT_FIELDCAT-DECIMALS_O = &4.

APPEND GT_FIELDCAT.

END-OF-DEFINITION.

FILL_ALV 'LIFNR' '供应商编号 ' '' ''.

FILL_ALV 'NAME1' '供应商名称 ' '' ''.

FILL_ALV 'BANKN' '开户银行 ' ' ' ''.

FILL_ALV 'IBAN' '银行账号 ' '' ''.

LOOP AT GT_FIELDCAT WHERE FIELDNAME = 'LIFNR'

OR FIELDNAME = 'BANKN'

OR FIELDNAME = 'NAME1'

OR FIELDNAME = 'IBAN'.

IF GT_FIELDCAT-FIELDNAME <> 'NAME1'.

GT_FIELDCAT-EDIT = 'X'.

ENDIF.

IF GT_FIELDCAT-FIELDNAME = 'NAME1'.

GT_FIELDCAT-OUTPUTLEN = '30'.

ENDIF.

IF GT_FIELDCAT-FIELDNAME = 'LIFNR'.

* GT_FIELDCAT-REF_FIELD = 'LIFNR'.

* GT_FIELDCAT-REF_TABLE = 'LFA1'.

GT_FIELDCAT-OUTPUTLEN = '20'.

ENDIF.

IF GT_FIELDCAT-FIELDNAME = 'BANKN'.

GT_FIELDCAT-REF_FIELD = 'BANKN'.

GT_FIELDCAT-REF_TABLE = 'TIBAN'.

GT_FIELDCAT-OUTPUTLEN = '35'.

ENDIF.

IF GT_FIELDCAT-FIELDNAME = 'IBAN'.

GT_FIELDCAT-REF_FIELD = 'IBAN'.

GT_FIELDCAT-REF_TABLE = 'TIBAN'.

GT_FIELDCAT-OUTPUTLEN = '34'.

ENDIF.

MODIFY GT_FIELDCAT.

ENDLOOP.

GS_LAYOUT-STYLEFNAME = 'FSTYLE'.

GS_LAYOUT-ZEBRA = 'X'.

* GS_LAYOUT-CWIDTH_OPT = 'X'.

GS_LAYOUT-BOX_FNAME = 'CHK'.

GS_GRID-EDT_CLL_CB = 'X'.

* **************定义事件FORM名称*********************

GS_EVENTS-NAME = 'CALLER_EXIT'.

GS_EVENTS-FORM = 'CALLER_EXIT'.

APPEND GS_EVENTS TO GT_EVENTS.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

* I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

IT_FIELDCAT_LVC = GT_FIELDCAT[]

I_GRID_SETTINGS = GS_GRID

IS_LAYOUT_LVC = GS_LAYOUT

I_SAVE = 'X'

IT_EVENTS = GT_EVENTS

TABLES

T_OUTTAB = IT_ZXK001.

ENDFORM. " DISPLAY_DATA

*&---------------------------------------------------------------------*

*& FORM SET_PF_STATUS

*&---------------------------------------------------------------------*

* TEXT

*----------------------------------------------------------------------*

* -->EXTAB TEXT

*----------------------------------------------------------------------*

FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB. "#EC CALLED

SET PF-STATUS '1000' .

ENDFORM. "WHOLE_TOOLBAR

*&---------------------------------------------------------------------*

*& FORM USER_COMMAND

*&---------------------------------------------------------------------*

* TEXT

*----------------------------------------------------------------------*

* -->RF_UCOMM TEXT

* -->RS TEXT

*----------------------------------------------------------------------*

FORM USER_COMMAND USING RF_UCOMM LIKE SY-UCOMM

RS TYPE SLIS_SELFIELD.

DATA:P_COUNT TYPE I.

DATA: P_ANSWER(1).

DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID.

DATA LV_ANSWER.

DATA LS_STYLEROW TYPE LVC_S_STYL .

DATA LT_STYLETAB TYPE LVC_T_STYL .

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = LR_GRID.

CALL METHOD LR_GRID->CHECK_CHANGED_DATA.

RS-REFRESH = 'X'. "自动刷新

CASE RF_UCOMM.

WHEN '&NEW'.

IT_ZXK001-LIFNR = ''.

IT_ZXK001-NAME1 = ''.

IT_ZXK001-BANKN = ''.

IT_ZXK001-IBAN = ''.

APPEND IT_ZXK001.

CLEAR IT_ZXK001.

WHEN '&DEL'.

CLEAR P_COUNT.

LOOP AT IT_ZXK001 WHERE CHK = 'X'.

P_COUNT = 1.

EXIT.

ENDLOOP.

IF P_COUNT <= 0.

MESSAGE '请选择要删除的数据!' TYPE 'I'.

RETURN.

ELSE.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

TEXTLINE1 = '确认要删除所选记录吗?'

TITEL = '确认提示'

CANCEL_DISPLAY = ''

IMPORTING

ANSWER = P_ANSWER.

CHECK P_ANSWER = 'J'.

IF P_ANSWER = 'J'.

LOOP AT IT_ZXK001 WHERE CHK = 'X'.

DELETE FROM ZXK001 WHERE LIFNR = IT_ZXK001-LIFNR.

DELETE IT_ZXK001.

ENDLOOP.

ENDIF.

ENDIF.

WHEN '&SAVE'.

CLEAR P_COUNT.

LOOP AT IT_ZXK001 WHERE LIFNR = ''.

P_COUNT = 1.

EXIT.

ENDLOOP.

IF P_COUNT > 0.

MESSAGE '供应商字段不能为空!' TYPE 'I'.

RETURN.

ELSE.

REFRESH ITZXK001.

CLEAR ITZXK001.

LOOP AT IT_ZXK001.

MOVE-CORRESPONDING IT_ZXK001 TO ITZXK001.

APPEND ITZXK001.

CLEAR ITZXK001.

ENDLOOP.

MODIFY ZXK001 FROM TABLE ITZXK001.

IF SY-SUBRC EQ 0.

COMMIT WORK.

MESSAGE S000(ZMM001).

ELSE.

ROLLBACK WORK.

MESSAGE S001(ZMM001).

ENDIF.

ENDIF.

WHEN OTHERS.

ENDCASE.

ENDFORM. "USER_COMMAND

*&---------------------------------------------------------------------*

*& FORM CALLER_EXIT

*&---------------------------------------------------------------------*

* TEXT

*----------------------------------------------------------------------*

* -->E_GRID TEXT

*----------------------------------------------------------------------*

FORM CALLER_EXIT USING E_GRID TYPE SLIS_DATA_CALLER_EXIT.

DATA: L_FIELD TYPE LVC_FNAME,

LT_F4 TYPE LVC_T_F4,

LS_F4 TYPE LVC_S_F4.

* LS_F4-FIELDNAME = 'UMSKZ'.

* LS_F4-REGISTER = 'X'.

"LS_F4-GETBEFORE = 'X'. "打'X'会在弹出窗体之前先刷新ALV数据

"LS_F4-CHNGEAFTER = 'X'. "打'X'会在关闭窗体之后刷新ALV数据

"LS_F4-INTERNAL = ''.

INSERT LS_F4 INTO TABLE LT_F4.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = TEM_GRID.

CALL METHOD TEM_GRID->REGISTER_EDIT_EVENT "注册GRID事件

EXPORTING

I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER"事件：回车

EXCEPTIONS

ERROR = 1

OTHERS = 2.

* CALL METHOD TEM_GRID->REGISTER_F4_FOR_FIELDS

* EXPORTING

* IT_F4 = LT_F4.

CREATE OBJECT GT_EVENT_RECEIVER.

SET HANDLER GT_EVENT_RECEIVER->HANDLE_MODIFY FOR TEM_GRID.

SET HANDLER GT_EVENT_RECEIVER->HANDLE_ONF4 FOR TEM_GRID.

ENDFORM. "CALLER_EXIT

*----------------------------------------------------------------------*

* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION. "实现类 处理回车事件

METHOD HANDLE_MODIFY.

DATA LS_STYLEROW TYPE LVC_S_STYL .

DATA LT_STYLETAB TYPE LVC_T_STYL .

DATA STBL TYPE LVC_S_STBL.

LOOP AT IT_ZXK001 INTO WA_IT_ZXK001.

SELECT SINGLE

NAME1

INTO WA_IT_ZXK001-NAME1

FROM LFA1

WHERE LIFNR = WA_IT_ZXK001-LIFNR.

MODIFY IT_ZXK001 FROM WA_IT_ZXK001.

ENDLOOP.

STBL-ROW = 'X'." 基于行的稳定刷新

STBL-COL = 'X'." 基于列稳定刷新

CALL METHOD TEM_GRID->REFRESH_TABLE_DISPLAY

EXPORTING

IS_STABLE = STBL.

ENDMETHOD. "HANDLE_MODIFY

METHOD HANDLE_ONF4.

DATA :PT_RET TYPE TABLE OF DDSHRETVAL ,

PS_RET TYPE DDSHRETVAL ,

LS_MODI TYPE LVC_S_MODI.

FIELD-SYMBOLS <MODTAB> TYPE LVC_T_MODI.

* SELECT SHBKZ AS UMSKZ

* LTEXT

* INTO TABLE ITHELP

* FROM T074T

* WHERE KOART = 'D'

* AND SPRAS = '1'.

*

* CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

* EXPORTING

* RETFIELD = 'UMSKZ' "内表的关键字段名

* VALUE_ORG = 'S' "'S'

* DYNPPROG = SY-REPID "文本框PROGRAM

* DYNPNR = SY-DYNNR "文本框所在屏幕

* DYNPROFIELD = '特殊总账标识' "文本框名

* WINDOW_TITLE = '标题' "窗体标题

* TABLES

* VALUE_TAB = ITHELP "内表

* "FIELD_TAB = T_FIELD

* RETURN_TAB = PT_RET "返回选择的数据

* EXCEPTIONS

* PARAMETER_ERROR = 1

* NO_VALUES_FOUND = 2

* OTHERS = 3.

** 处理 PT_RET 返回的数据，更新ALV CELL即可

READ TABLE PT_RET INTO PS_RET INDEX 1 .

IF SY-SUBRC = 0.

LS_MODI-ROW_ID = ES_ROW_NO-ROW_ID.

LS_MODI-FIELDNAME = E_FIELDNAME.

LS_MODI-VALUE = PS_RET-FIELDVAL.

ASSIGN ER_EVENT_DATA->M_DATA->* TO <MODTAB>.

APPEND LS_MODI TO <MODTAB>.

ENDIF.

ER_EVENT_DATA->M_EVENT_HANDLED = 'X'. "通知系统搜索事件处理完毕，停止调用系统标准的SEARCH HELP。

ENDMETHOD. "HANDLE_ONF4

ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION