안녕하세요 초보 ABAP 개발자입니다.
기존에 REUSE_ALV_GRID_DISPLAY' 으로 구현된 ALV 에서 CELL 값 변경시 해당 CELL의 값을 체크해서 색상을 변경 시킬려고 하는데 잘 되지 않아 질문드립니다.
*----- TYPE-POOLS
TYPE-POOLS SLIS.
*----- LIST VIEWER
DATA : EVENTCAT TYPE SLIS_T_EVENT WITH HEADER LINE,
SELFIELD TYPE SLIS_SELFIELD.
DATA : FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_2 TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_IN LIKE LINE OF FIELDCAT,
FIELDCAT_IN2 LIKE LINE OF FIELDCAT.
DATA : SORT TYPE SLIS_T_SORTINFO_ALV,
SORT_IN LIKE LINE OF SORT .
DATA : COL_POS TYPE I,
G_LAYOUT_S TYPE SLIS_LAYOUT_ALV .
**********************************************************************
FORM START_GRID_DISPLAY .
GS_GRIDSET-EDT_CLL_CB = 'X'.
G_LAYOUT_S-COLTAB_FIELDNAME = 'CELLSCOL'.
* CLEAR GV_DCHECK .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_GRID_SETTINGS = GS_GRIDSET
IS_LAYOUT = G_LAYOUT_S
I_DEFAULT = 'X'
I_SAVE = 'A'
IS_VARIANT = ALV_VARIANT
IT_EVENTS = GT_EVENTS[]
IT_FIELDCAT = FIELDCAT
IT_SORT = SORT
TABLES
T_OUTTAB = IT_LT[].
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
******************************************************************************
FORM MARK_CHANGED_A USING
RR_DATA_CHANGED TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL
RS_MOD_CELLS TYPE LVC_S_MODI.
DATA : P_SELFIELD TYPE SLIS_SELFIELD.
READ TABLE IT_LT INDEX RS_MOD_CELLS-ROW_ID.
IF GV_PAN1 NE IT_LT-FOB.
CLEAR GS_SCOL.
GS_SCOL-FNAME = 'PAN'.
GS_SCOL-COLOR-COL = 6.
* GS_SCOL-COLOR-INT = 0.
GS_SCOL-COLOR-INV = 1.
APPEND GS_SCOL TO GT_SCOL.
INSERT LINES OF GT_SCOL INTO TABLE IT_LT-CELLSCOL.
MODIFY IT_LT INDEX RS_MOD_CELLS-ROW_ID.
CALL METHOD RR_DATA_CHANGED->MODIFY_CELL
EXPORTING
I_ROW_ID = RS_MOD_CELLS-ROW_ID
I_FIELDNAME = 'CELLSCOL'
I_VALUE = GT_SCOL..
REFRESH GT_SCOL.
PERFORM USER_COMMAND USING 'RE' P_SELFIELD. -> 강제 REFRESH
ENDIF.
********************************************************************
FORM USER_COMMAND USING R_UCOMM TYPE SY-UCOMM
LS_SELFIELD TYPE SLIS_SELFIELD .
DATA : LS_SELFIELD1 TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&IC1'.
WHEN 'INS' .
CLEAR IT_LT .
IT_LT-ZHOSNM = P_ZHOSNM .
IT_LT-AEDAT = P_AEDAT .
IT_LT-PTEXT = GV_PTEXT .
APPEND IT_LT .
LS_SELFIELD-REFRESH = 'X'.
LS_SELFIELD-COL_STABLE = 'X'.
LS_SELFIELD-ROW_STABLE = 'X'.
WHEN 'DEL'.
DELETE IT_LT WHERE MARK = 'X'.
IF SY-SUBRC <> 0 .
MESSAGE E000 WITH TEXT-013 .
ENDIF .
LS_SELFIELD-REFRESH = 'X'.
LS_SELFIELD-COL_STABLE = 'X'.
LS_SELFIELD-ROW_STABLE = 'X'.
WHEN OTHERS.
LS_SELFIELD-REFRESH = 'X'.
LS_SELFIELD-COL_STABLE = 'X'.
LS_SELFIELD-ROW_STABLE = 'X'.
ENDCASE .
ENDFORM . "USER_COMMAND
이런식으로 구현해봤는데 반영이 되질 않습니다.ㅠㅠ
고수님들 도움 부탁드리겠습니다.
