About Checkbox

[Former Member]

Hi all,

in my classical report i have used checkbox with the use of REUSE_ALV_HIERSEQ_LIST_DISPLAY function.

now i want to get the event when check box is checked.

thanx in advance

shardul shah

[Former Member]

Hi all,

in my classical report i have used checkbox with the use of REUSE_ALV_HIERSEQ_LIST_DISPLAY function.

now i want to get the event when check box is checked.

thanx in advance

shardul shah

[Former Member]

Use IT_EVENT_EXIT of the import parameters of the funtion module...

data:

w_exit type SLIS_EVENT_EXIT,

t_event_exit type SLIS_T_EVENT_EXIT.

• Populating the Event-exit table...

w_exit-ucomm = <Function code of the checkbox>.

w_exit-after = 'X'.

append w_exit to t_event_exit.

call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

.......................................

......................................

.......................................

IT_EVENT_EXIT = t_event_exit

tables

t_outtab = t_flight

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

if sy-subrc <> 0.

endif.

i hope this helps u....

reward helpful answers,

sai ramesh

[Former Member]

ya its ok but on which event i get that value.

i had used following function for output. when i m checking check box, then which event get fired. how can i know that check box is checked.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

• I_CALLBACK_PF_STATUS_SET = 'YBNK_LCAPPROVE_MENU'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IS_LAYOUT = H_LAYOUT

IT_FIELDCAT = XFIELDCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = GT_EVENTS

• IT_EVENT_EXIT =

I_TABNAME_HEADER = 'I_YLCIAPMST'

I_TABNAME_ITEM = 'I_YLCIITEM'

• I_STRUCTURE_NAME_HEADER =

• I_STRUCTURE_NAME_ITEM =

IS_KEYINFO = GS_KEYINFO

• IS_PRINT =

• IS_REPREP_ID =

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

• IR_SALV_HIERSEQ_ADAPTER =

• IT_EXCEPT_QINFO =

• I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB_HEADER = I_YLCIAPMST

T_OUTTAB_ITEM = I_YLCIITEM

• 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.

thanx

[Former Member]

At first u need to give a usercommand for the checkbox..

and then in the function module u need the form name for the option .

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

• I_CALLBACK_PF_STATUS_SET = 'YBNK_LCAPPROVE_MENU'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IS_LAYOUT = H_LAYOUT

IT_FIELDCAT = XFIELDCAT

Here u have given the USER_COMMAND as the form name right..

when u click on the checkbox the function code will be placed in the sy-ucomm field..

FORM user_command using lw_ucomm type sy-ucomm fs_selfield type slis_selfield.

case lw_ucomm.

when <function code of check box>.

....................................

endcase.

endform.

[p291102]

Hi,

Herewith i am sending the sample report for checkbox in alv.

Kindly go through it.

REPORT YMS_CHECKBOXALV.

TYPE-POOLS: slis.

DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

DATA: s_layout TYPE slis_layout_alv.

DATA: BEGIN OF itab OCCURS 0,

icon TYPE icon-id,

vbeln TYPE vbeln,

kunnr TYPE kunnr,

erdat TYPE erdat,

box TYPE c,

END OF itab.

DATA: v_repid TYPE syrepid.

START-OF-SELECTION.

• Get the data.

SELECT vbeln kunnr erdat UP TO 100 ROWS

FROM vbak

INTO CORRESPONDING FIELDS OF TABLE itab.

IF sy-subrc <> 0.

MESSAGE s208(00) WITH 'No data found'.

LEAVE LIST-PROCESSING.

ENDIF.

• Modify the record with red light.

itab-icon = '@0A@'.

MODIFY itab TRANSPORTING icon WHERE NOT vbeln IS initial.

v_repid = sy-repid.

• Get the field catalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '1'.

s_fieldcatalog-fieldname = 'ICON'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-seltext_l = 'Status'.

s_fieldcatalog-icon = 'X'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '2'.

s_fieldcatalog-fieldname = 'VBELN'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'VBELN'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '3'.

s_fieldcatalog-fieldname = 'KUNNR'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'KUNNR'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '4'.

s_fieldcatalog-fieldname = 'ERDAT'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'ERDAT'.

APPEND s_fieldcatalog TO t_fieldcatalog.

• Set the layout.

s_layout-box_fieldname = 'BOX'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = v_repid

is_layout = s_layout

i_callback_pf_status_set = 'SET_PF_STATUS'

i_callback_user_command = 'USER_COMMAND'

it_fieldcat = t_fieldcatalog[]

TABLES

t_outtab = itab.

----

---

• FORM SET_PF_STATUS *

----

---

• ........ *

----

---

• --> EXTAB *

----

---

FORM set_pf_status USING extab TYPE slis_t_extab.

SET PF-STATUS 'TEST2'.

ENDFORM.

----

---

• FORM user_command *

----

---

• ........ *

----

---

• --> UCOMM *

• --> SELFIELD *

----

---

FORM user_command USING ucomm LIKE sy-ucomm

selfield TYPE slis_selfield.

• Check the ucomm.

IF ucomm = 'DETAIL'.

LOOP AT itab WHERE box = 'X'.

itab-icon = '@08@'.

MODIFY itab TRANSPORTING icon.

ENDLOOP.

ENDIF.

selfield-refresh = 'X'.

ENDFORM.

Thanks,

Shankar

[Former Member]

hi, good

i want to save that data when i checked in that check box.

can i enable SAVE button??

plz send me code or information about it. its really an urgent.

thanx

[Former Member]

ya its worked out... thanx u

regards,

shardul shah