Abap/4控制ALV表格（4）

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

*& Report Z_CPT9_4 *

*& *

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

*& ALV控件对数据库进行CRUD *

*& *

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

REPORT Z_CPT9_4 .

DATA: OK_CODE TYPE SY-UCOMM,

S***E_OK TYPE SY-UCOMM.

DATA: WA_SPFLI TYPE TABLE OF SPFLI,

A_SPFLI TYPE TABLE OF SPFLI WITH HEADER LINE.

TABLES SPFLI.

DATA LS_SPFLI TYPE SPFLI.

DATA WADEL_SPFLI TYPE TABLE OF SPFLI.

*定义ALV控件类型

DATA:WA_CONTAINER TYPE SCRFNAME VALUE 'CONTAINER1',

ALV_GRID TYPE REF TO CL_GUI_ALV_GRID,

WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA WA_LAYOUT TYPE LVC_S_LAYO.

WA_LAYOUT-EDIT ='X'.

"预先声明

CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.

DATA EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.





CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.

TYPES:DEL_ROWS TYPE STANDARD TABLE OF SPFLI.

DATA:DDEL_ROWS TYPE STANDARD TABLE OF SPFLI.

METHODS:

HANDLE_DATA_CHANGED

FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID

IMPORTING ER_DATA_CHANGED,

UPDATE_DELTA_TABLES

IMPORTING

PR_DATA_CHANGED TYPE

REF TO CL_ALV_CHANGED_DATA_PROTOCOL,

GET_DELETED_ROWS

EXPORTING

DELETED_ROWS TYPE DEL_ROWS.

ENDCLASS.

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

METHOD HANDLE_DATA_CHANGED.

CALL METHOD UPDATE_DELTA_TABLES( ER_DATA_CHANGED ).

ENDMETHOD.

* 有数据更改时，就把更改的数据统一放入到内表中。

METHOD UPDATE_DELTA_TABLES.

DATA:L_DEL_ROW TYPE LVC_S_MOCE.

LOOP AT PR_DATA_CHANGED->MT_DELETED_ROWS INTO L_DEL_ROW.

READ TABLE WA_SPFLI INTO LS_SPFLI INDEX L_DEL_ROW-ROW_ID.

IF SY-SUBRC NE 0.

MESSAGE E208(00) WITH '处理错误'.

ELSE.

APPEND LS_SPFLI TO DDEL_ROWS.

ENDIF.

ENDLOOP.

ENDMETHOD.

METHOD GET_DELETED_ROWS.

DELETED_ROWS = ME->DDEL_ROWS.

ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.

"执行代码

SELECT * FROM SPFLI INTO TABLE WA_SPFLI.

CALL SCREEN 100.

WRITE / '删除内表的记录'.

ULINE.

CALL METHOD EVENT_RECEIVER->GET_DELETED_ROWS

IMPORTING

DELETED_ROWS = WADEL_SPFLI.

LOOP AT WADEL_SPFLI INTO SPFLI.

WRITE: / SPFLI-CARRID,SPFLI-CONNID,SPFLI-CITYFROM.

ENDLOOP.

WRITE / '更新后的内表记录'.

ULINE.

LOOP AT WA_SPFLI INTO SPFLI.

WRITE: / SPFLI-CARRID,SPFLI-CONNID,SPFLI-CITYFROM.

ENDLOOP.

*用内表更新数据库

MODIFY SPFLI FROM TABLE WA_SPFLI.



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

*& Module STATUS_0100 OUTPUT

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

* text

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

MODULE STATUS_0100 OUTPUT.

* SET PF-STATUS 'xxxxxxxx'.

* SET TITLEBAR 'xxx'.

IF WA_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT WA_CUSTOM_CONTAINER

EXPORTING

CONTAINER_NAME = WA_CONTAINER.

CREATE OBJECT ALV_GRID

EXPORTING

I_PARENT = WA_CUSTOM_CONTAINER.

CREATE OBJECT EVENT_RECEIVER.

SET HANDLER EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR ALV_GRID.

CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

I_STRUCTURE_NAME = 'SPFLI'

IS_LAYOUT = WA_LAYOUT

CHANGING

IT_OUTTAB = WA_SPFLI.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

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

*& Module USER_COMMAND_0100 INPUT

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

* text

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

MODULE USER_COMMAND_0100 INPUT.

S***E_OK = OK_CODE.

CLEAR OK_CODE.

CASE S***E_OK.

WHEN 'EXIT'.

DATA L_RET VALUE 'X'.

CALL METHOD ALV_GRID->CHECK_CHANGED_DATA

IMPORTING

E_VALID = L_RET.

LE***E TO SCREEN 0.

WHEN 'S***E'.

MODIFY SPFLI FROM TABLE WA_SPFLI.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

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

*& Module CANCEL INPUT

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

* text

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

MODULE CANCEL INPUT.

LE***E PROGRAM.

ENDMODULE. " CANCEL INPUT