topic Re: About Checkbox in Application Development and Automation Discussions

About Checkbox

Former Member — Thu, 08 Mar 2007 07:27:39 GMT

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

Re: About Checkbox

Former Member — Thu, 08 Mar 2007 07:30:35 GMT

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

Re: About Checkbox

Former Member — Thu, 08 Mar 2007 07:46:49 GMT

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

Re: About Checkbox

p291102 — Thu, 08 Mar 2007 07:47:37 GMT

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

Re: About Checkbox

Former Member — Thu, 08 Mar 2007 07:51:25 GMT

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

Re: About Checkbox

Former Member — Thu, 08 Mar 2007 07:55:36 GMT

ya its worked out... thanx u

regards,

shardul shah

Re: About Checkbox

Former Member — Thu, 08 Mar 2007 07:58:48 GMT

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.