alv 刷新_ALV Function 自动刷新

#6

使用道具

发表于

2008-10-6 16:38

FORM F_ALV_USER_COMMAND USING R_UCOMM

LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

DATA S_TEMP(100) TYPE C.

DATA L_TEMP LIKE LINE OF IT_PRINT_001.

DATA L_FID(30).

DATA L_LINE TYPE I.

G_SELECTED_FIELD_VALUE =  RS_SELFIELD-VALUE.

G_TABINDEX = RS_SELFIELD-TABINDEX.

READ TABLE IT_PRINT_001 INTO L_TEMP INDEX G_TABINDEX.

CASE R_UCOMM.

WHEN '&IC1'.  "NEED MODIFY

G_SELECTED_FIELD_VALUE =  RS_SELFIELD-VALUE.

G_TABINDEX = RS_SELFIELD-TABINDEX.

IF RS_SELFIELD-FIELDNAME = 'MATNR'.

PERFORM F_BDC_EXECUTE_001.

**

自动刷新添加的代码段

IT_PRINT_001-VIEWED = 'X'.

MODIFY IT_PRINT_001 TRANSPORTING VIEWED WHERE PLNUM = L_TEMP-PLNUM.

RS_SELFIELD-COL_STABLE = 'X'.