ALV grid

[Former Member]

Hi,

I have displayed grid with the first column as check box column .Now in user command when I check the check box, the output internal table used to display grid, which is having check box as frist column , should be modified. I.e., corresponding check box field should be marked 'X'.

for example

1. tab1 has fields as below.

checkbox, field2, field3.

2. Now tab1 is used in grid display.

3. Now at user command, I am selecting one check box, here my tab1 should be modified with mark 'X'.

4. Please mind that check box is being marked at grid display.So table used for grid display though having the check box column is not populated with mark 'X'.Thats what we have to do.

How can I do. Please suggest. very, very urgent.

rgds,

khadeer.

[Former Member]

Hi,

I have displayed grid with the first column as check box column .Now in user command when I check the check box, the output internal table used to display grid, which is having check box as frist column , should be modified. I.e., corresponding check box field should be marked 'X'.

for example

1. tab1 has fields as below.

checkbox, field2, field3.

2. Now tab1 is used in grid display.

3. Now at user command, I am selecting one check box, here my tab1 should be modified with mark 'X'.

4. Please mind that check box is being marked at grid display.So table used for grid display though having the check box column is not populated with mark 'X'.Thats what we have to do.

How can I do. Please suggest. very, very urgent.

rgds,

khadeer.

[Former Member]

The same case i did simple program..

You need use the Function moduel in the user command.

GET_GLOBALS_FROM_SLVC_FULLSCR

follow the sample code.

REPORT ZTEST_ALV_CHECK MESSAGE-ID ZZ .
 
TYPE-POOLS: SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
L_LAYOUT TYPE SLIS_LAYOUT_ALV,
X_EVENTS TYPE SLIS_ALV_EVENT,
IT_EVENTS TYPE SLIS_T_EVENT.
 
DATA: BEGIN OF ITAB OCCURS 0,
VBELN LIKE VBAK-VBELN,
POSNR LIKE VBAP-POSNR,
CHK(1),
color(4),
END OF ITAB.
 
SELECT VBELN
POSNR
FROM VBAP
UP TO 20 ROWS
INTO TABLE ITAB.
 
X_FIELDCAT-FIELDNAME = 'CHK'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
X_FIELDCAT-INPUT = 'X'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-CHECKBOX = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
 
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-SELTEXT_L = 'VBELN'.
X_FIELDCAT-HOTSPOT = 'X'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
 
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-SELTEXT_L = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
 
L_LAYOUT-info_fieldname = 'COLOR'.
*L_LAYOUT-ZEBRA = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = L_LAYOUT
I_CALLBACK_PF_STATUS_SET = 'STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
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 STATUS
&---------------------------------------------------------------------
 
 
text 
----------------------------------------------------------------------
 
-->P_EXTAB text 
----------------------------------------------------------------------
FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
 
 
Pf status 
SET PF-STATUS 'STATUS'.
ENDFORM. " STATUS
 
&---------------------------------------------------------------------
*& Form USER_COMMAND
&---------------------------------------------------------------------
 
text 
----------------------------------------------------------------------
 
-->R_UCOMM text 
-->RS_SELFIELD text 
----------------------------------------------------------------------
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
 
DATA: GD_REPID LIKE SY-REPID, "Exists
REF_GRID TYPE REF TO CL_GUI_ALV_GRID.
IF REF_GRID IS INITIAL.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
E_GRID = REF_GRID.
ENDIF.
IF NOT REF_GRID IS INITIAL.
CALL METHOD REF_GRID->CHECK_CHANGED_DATA .
ENDIF.
 
loop at itab where chk = 'X'.
itab-color = 'C300'.
modify itab index sy-tabix transporting color.
endloop.
RS_SELFIELD-refresh = 'X'.
break-point.
 
ENDFORM. "USER_COMMAND

[Former Member]

CALL METHOD t_grid->check_changed_data

IMPORTING

e_valid = v_valid.

IF v_valid EQ ' '.

THEN U CAN DO THE PROCESS

ENDIF.

in fieldcatelog u have to assign the field as

wa_fieldcat-col_pos = '1'.

wa_fieldcat-fieldname = 'FLAG'.

wa_fieldcat-tabname = 'T_OUTPUT'.

wa_fieldcat-coltext = text-011.

wa_fieldcat-checkbox = c_x.

wa_fieldcat-edit = c_x.

• wa_fieldcat-no_out = 'X'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO t_fieldcat.

CLEAR wa_fieldcat.