cancel
Showing results for 
Search instead for 
Did you mean: 

how to handle checkbox in alv reports

Former Member
0 Kudos

hi gurus

please tell me how to handle checkbox in alv reports.

regards

subhasis.

Accepted Solutions (0)

Answers (4)

Answers (4)

Former Member
0 Kudos

chk this for GRID DISPLAY

/people/community.user/blog/2007/01/10/displaychange-mode-of-editable-fields-in-alv-using-function-modules-but-not-custom-containers

Former Member
0 Kudos
Hi Subhasis,

 Chk this for LIST DISPLAY

REPORT ABC.
TYPE-POOLS : SLIS.


*-------------- Data

DATA : BEGIN OF ITAB OCCURS 0.
        INCLUDE STRUCTURE T001.
DATA : FLAG TYPE C,
END OF ITAB.
DATA : ALVFC TYPE SLIS_T_FIELDCAT_ALV.
DATA : ALVLY TYPE SLIS_LAYOUT_ALV.

*--------- Select Data

SELECT * FROM T001 INTO TABLE ITAB.

LOOP AT ITAB.
  IF SY-TABIX = 1.
    ITAB-FLAG = '1'.
    MODIFY ITAB.
  ENDIF.
  IF SY-TABIX = 2.
    ITAB-FLAG = 'X'.
    MODIFY ITAB.
  ENDIF.

  IF SY-TABIX = 3.
    ITAB-FLAG = '0'.
    MODIFY ITAB.

  ENDIF.


ENDLOOP.

*------- Field Catalogue
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          I_PROGRAM_NAME         = SY-CPROG
          I_INTERNAL_TABNAME     = 'ITAB'
          I_INCLNAME             = SY-CPROG
     CHANGING
          CT_FIELDCAT            = ALVFC
     EXCEPTIONS
          INCONSISTENT_INTERFACE = 1
          PROGRAM_ERROR          = 2
          OTHERS                 = 3.


*---------------Display
ALVLY-BOX_FIELDNAME = 'FLAG'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          IT_FIELDCAT             = ALVFC
          I_CALLBACK_PROGRAM      = SY-CPROG  "<-------Important
          I_CALLBACK_USER_COMMAND =
             'ITAB_USER_COMMAND'       "<------ Important
          IS_LAYOUT               = ALVLY
     TABLES
          T_OUTTAB                = ITAB
     EXCEPTIONS
          PROGRAM_ERROR           = 1
          OTHERS                  = 2.



*-------------------------------------------------
* CALL BACK FORM
*-------------------------------------------------

FORM ITAB_USER_COMMAND USING WHATCOMM TYPE SY-UCOMM WHATROW TYPE
SLIS_SELFIELD.

  DATA : MSG(100) TYPE C.

  LOOP AT ITAB.
    IF ITAB-FLAG = 'X'.
      MSG = SY-TABIX.
      CONDENSE MSG.
      CONCATENATE 'Row Number ' MSG ' ' INTO MSG
      SEPARATED BY SPACE.
*message msg type 'I'.
    ENDIF.

  ENDLOOP.



ENDFORM.                               "ITAB_user_command
Former Member
0 Kudos

Hi suhbasis,

check the below code there i have used checkbox fucntionalty in FM called 'REUSE_ALV_POPUP_TO_SELECT'

&----


*& Report ZS_CTM_TEST

*&

&----


*&

*&

&----


report zs_ctm_test.

*Define tables....

tables: mara,

makt,

marc.

*Define types....

types: begin of t_tab_globe,

check type c,

matnr type matnr,

maktx type maktx,

werks type werks_d,

sernp type serail.

types: end of t_tab_globe.

*Define data....

data: g_tab_globe type standard table of t_tab_globe,

g_wa_globe like line of g_tab_globe,

g_tab_globe_x type standard table of t_tab_globe,

g_wa_globe_x like line of g_tab_globe_x,

g_tab_globe_y type standard table of t_tab_globe,

g_wa_globe_y like line of g_tab_globe_y,

g_tab_globe_z type standard table of zbdc_mat_str_t,

g_wa_globe_z like line of g_tab_globe_z.

*DATA: BEGIN OF log_tab OCCURS 0.

  • INCLUDE STRUCTURE bdcmsgcoll.

*DATA: END OF log_tab.

*DATA: log_wa TYPE LINE OF bdcmsgcoll.

data: begin of map_tab occurs 0.

include structure bdcdata.

data: end of map_tab.

data: log_tab type standard table of bdcmsgcoll,

log_wa like line of log_tab.

data: l_session type apq_grpn.

type-pools: slis.

data: repid like sy-repid,

l_tab_fieldcat type slis_t_fieldcat_alv,

l_tab_fieldcat1 type slis_t_fieldcat_alv,

l_tab_fieldcat2 type slis_t_fieldcat_alv,

l_pos type i,

wa_selfield type slis_selfield,

gs_private type slis_data_caller_exit,

gs_selfield type slis_selfield,

g_exit(1) type c,

checkbox type c,

events type slis_t_event,

events1 type slis_t_event,

wa_events like line of events,

layout type slis_layout_alv,

fieldcat type slis_t_fieldcat_alv,

print type slis_print_alv.

data: bdcdata like bdcdata occurs 0 with header line.

*Define selection screen.....

selection-screen begin of block b1 with frame title text-001.

select-options: s_mater for mara-matnr.

parameters: p_plant like marc-werks,

p_sino like marc-sernp value check obligatory.

selection-screen end of block b1.

selection-screen begin of block b2 with frame title text-002.

parameters ctumode like ctu_params-dismode default 'N'.

"A: show all dynpros

"E: show dynpro on error only

"N: do not display dynpro

selection-screen end of block b2.

*get the data

select mara~matnr

makt~maktx

marc~werks

marc~sernp

from

mara inner join makt

on maramatnr = maktmatnr

inner join marc

on maramatnr = marcmatnr

into corresponding fields of table g_tab_globe

where

mara~matnr in s_mater

and

werks = p_plant

and

spras = 'EN'

and

marc~sernp ne ''.

perform get_popup.

if not g_exit eq 'X'.

perform display_data.

perform bdc_data.

endif.

&----


*& Form get_popup

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form get_popup .

perform fill_fieldcat.

perform fill_popup.

endform. " get_popup

&----


*& Form fill_fieldcat

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form fill_fieldcat .

perform field_catalog using l_pos 'CHECK' 'G_TAB_GLOBE' '01' text-010.

perform field_catalog using l_pos 'MATNR' 'G_TAB_GLOBE' '18' text-011.

perform field_catalog using l_pos 'MAKTX' 'G_TAB_GLOBE' '40' text-012.

perform field_catalog using l_pos 'WERKS' 'G_TAB_GLOBE' '04' text-013.

perform field_catalog using l_pos 'SERNP' 'G_TAB_GLOBE' '04' text-014.

endform. " fill_fieldcat

&----


*& Form field_catalog

&----


  • text

----


  • -->P_L_POS text

  • -->P_0224 text

  • -->P_0225 text

  • -->P_0226 text

  • -->P_TEXT_010 text

----


form field_catalog using u_pos type any

value(u_0212) type any

value(u_0213) type any

value(u_0214) type any

u_text type any.

data: l_wa_fieldcat type slis_fieldcat_alv.

add 1 to u_pos.

l_wa_fieldcat-col_pos = u_pos.

l_wa_fieldcat-fieldname = u_0212.

l_wa_fieldcat-tabname = u_0213.

l_wa_fieldcat-outputlen = u_0214.

l_wa_fieldcat-reptext_ddic = u_text.

append l_wa_fieldcat to l_tab_fieldcat.

endform. " field_catalog

&----


*& Form fill_popup

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form fill_popup .

call function 'REUSE_ALV_POPUP_TO_SELECT'

exporting

i_title = 'SELECT THE AMONG'

i_zebra = 'X'

i_checkbox_fieldname = 'CHECK'

i_tabname = 'G_TAB_GLOBE'

it_fieldcat = l_tab_fieldcat

is_private = gs_private

importing

es_selfield = gs_selfield

e_exit = g_exit

tables

t_outtab = g_tab_globe.

  • EXCEPTIONS

  • PROGRAM_ERROR = 1

  • OTHERS = 2

if sy-subrc <> 0.

exit.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

endform. " fill_popup

&----


*& Form display_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form display_data .

loop at g_tab_globe into g_wa_globe where check = 'X'.

clear g_wa_globe_x.

move g_wa_globe to g_wa_globe_x.

move p_sino to g_wa_globe_x-sernp.

append g_wa_globe_x to g_tab_globe_x.

endloop.

endform. " display_data

&----


*& Form bdc_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form bdc_data .

  • IF NOT g_tab_globe_z[] IS INITIAL.

  • CONCATENATE sy-uname sy-datum+4(4) INTO l_session SEPARATED BY '_'.

l_session = sy-repid.

call function 'BDC_OPEN_GROUP'

exporting

  • CLIENT = SY-MANDT

  • DEST = FILLER8

group = l_session

  • HOLDDATE = FILLER8

keep = 'X'

user = sy-uname

  • RECORD = FILLER1

  • PROG = SY-CPROG

  • IMPORTING

  • QID =

  • EXCEPTIONS

  • CLIENT_INVALID = 1

  • DESTINATION_INVALID = 2

  • GROUP_INVALID = 3

  • GROUP_IS_LOCKED = 4

  • HOLDDATE_INVALID = 5

  • INTERNAL_ERROR = 6

  • QUEUE_ERROR = 7

  • RUNNING = 8

  • SYSTEM_LOCK_ERROR = 9

  • USER_INVALID = 10

  • OTHERS = 11

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

  • ENDIF.

loop at g_tab_globe_x into g_wa_globe_x.

refresh map_tab.

perform sub using 'SAPLMGMM' '0060'.

perform sub1 using 'BDC_CURSOR'

'RMMG1-MATNR'.

perform sub1 using 'BDC_OKCODE'

'/00'.

perform sub1 using 'RMMG1-MATNR'

g_wa_globe_x-matnr.

perform sub using 'SAPLMGMM' '0070'.

perform sub1 using 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(06)'.

perform sub1 using 'BDC_OKCODE'

'=ENTR'.

perform sub1 using 'MSICHTAUSW-KZSEL(06)'

'X'.

perform sub using 'SAPLMGMM' '0080'.

perform sub1 using 'BDC_CURSOR'

'RMMG1-WERKS'.

perform sub1 using 'BDC_OKCODE'

'=ENTR'.

perform sub1 using 'RMMG1-WERKS'

g_wa_globe_x-werks.

perform sub using 'SAPLMGMM' '4000'.

perform sub1 using 'BDC_OKCODE'

'/00'.

perform sub1 using 'MAKT-MAKTX'

g_wa_globe_x-maktx..

perform sub1 using 'MARA-MEINS'

'PC'.

perform sub1 using 'MARA-BRGEW'

'3'.

perform sub1 using 'MARA-GEWEI'

'KG'.

perform sub1 using 'MARA-NTGEW'

'2'.

perform sub1 using 'MARC-MTVFP'

'02'.

perform sub1 using 'MARA-TRAGR'

'0001'.

perform sub1 using 'MARC-LADGR'

'0001'.

perform sub1 using 'MARC-VRVEZ'

'1.00'.

perform sub1 using 'MARC-VBEAZ'

'1.00'.

perform sub1 using 'MARC-VBAMG'

'1'.

perform sub1 using 'BDC_CURSOR'

'MARC-SERNP'.

perform sub1 using 'MARC-PRCTR'

'1010'.

perform sub1 using 'MARC-SERNP'

g_wa_globe_x-sernp.

perform sub using 'SAPLSPO1' '0300'.

perform sub1 using 'BDC_OKCODE'

'=YES'.

call transaction 'MM02' using map_tab mode ctumode

messages into log_tab.

if sy-subrc eq 0.

move-corresponding g_wa_globe_x to g_wa_globe_y.

append g_wa_globe_y to g_tab_globe_y.

else.

data: l_tabis type c.

l_tabis = sy-tabix.

clear l_tabis.

add 1 to l_tabis.

read table log_tab into log_wa index l_tabis.

if sy-subrc eq 0.

data: text(70) type c.

call function 'FORMAT_MESSAGE'

exporting

id = log_wa-msgid

lang = sy-langu

no = log_wa-msgnr

v1 = log_wa-msgv1

v2 = log_wa-msgv1

v3 = log_wa-msgv1

v4 = log_wa-msgv1

importing

msg = text.

  • EXCEPTIONS

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

endif.

move text to g_wa_globe_z-text.

move-corresponding g_wa_globe_x to g_wa_globe_z.

append g_wa_globe_z to g_tab_globe_z.

call function 'BDC_INSERT'

exporting

tcode = 'MM02'

  • POST_LOCAL = NOVBLOCAL

  • PRINTING = NOPRINT

  • SIMUBATCH = ' '

  • CTUPARAMS = ' '

tables

dynprotab = map_tab

exceptions

internal_error = 1

not_open = 2

queue_error = 3

tcode_invalid = 4

printing_invalid = 5

posting_invalid = 6

others = 7

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

endif.

  • LOOP AT log_tab.

  • IF log_tab-msgtyp = 'I' OR

  • log_tab-msgnr = 000.

  • WRITE:/ g_wa_globe_x-matnr,

  • g_wa_globe_x-maktx,

  • g_wa_globe_x-werks,

  • g_wa_globe_x-sernp.

*

  • ELSEIF log_tab-msgtyp = 'E' OR

  • log_tab-msgnr = 001.

  • WRITE:/ g_wa_globe_x-matnr,

  • g_wa_globe_x-maktx,

  • g_wa_globe_x-werks,

  • g_wa_globe_x-sernp.

*

  • ENDIF.

    • REFRESH log_tab.

  • ENDLOOP.

  • REFRESH log_tab.

endloop.

call function 'BDC_CLOSE_GROUP'

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

  • IF NOT g_tab_globe_z[] IS INITIAL AND g_tab_globe_y[] IS INITIAL.

  • MESSAGE i111(zinv_form1).

  • ENDIF.

*endif.

perform grid_display.

endform. " bdc_data

&----


*& Form sub

&----


  • text

----


  • -->P_0391 text

  • -->P_0392 text

----


form sub using a b.

clear map_tab.

map_tab-program = a.

map_tab-dynpro = b.

map_tab-dynbegin = 'X'.

append map_tab.

endform. " sub

&----


*& Form sub1

&----


  • text

----


  • -->P_0396 text

  • -->P_G_WA_GLOBE_X_MATNR text

----


form sub1 using c d.

clear map_tab.

map_tab-fnam = c.

map_tab-fval = d.

append map_tab.

endform. " sub1

&----


*& Form grid_display

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form grid_display .

perform fill_fieldcatlog.

perform fill_fieldcatlog1.

perform call_grid.

endform. " grid_display

&----


*& Form fill_fieldcatlog

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form fill_fieldcatlog .

perform field_catlog using l_pos 'MATNR' 'G_TAB_GLOBE_Y' '18' text-222.

perform field_catlog using l_pos 'MAKTX' 'G_TAB_GLOBE_Y' '40' text-223.

perform field_catlog using l_pos 'WERKS' 'G_TAB_GLOBE_Y' '04' text-224.

perform field_catlog using l_pos 'SERNP' 'G_TAB_GLOBE_Y' '04' text-225.

endform. " fill_fieldcatlog

&----


*& Form field_catlog

&----


  • text

----


  • -->P_L_POS text

  • -->P_0538 text

  • -->P_0539 text

  • -->P_0540 text

----


form field_catlog using u_pos type any

value(u_0538) type any

value(u_0539) type any

value(u_0540) type any

u_text type any.

data: l_wa_fieldcat1 type slis_fieldcat_alv.

add 1 to u_pos.

l_wa_fieldcat1-col_pos = u_pos.

l_wa_fieldcat1-fieldname = u_0538.

l_wa_fieldcat1-tabname = u_0539.

l_wa_fieldcat1-outputlen = u_0540.

l_wa_fieldcat1-reptext_ddic = u_text.

append l_wa_fieldcat1 to l_tab_fieldcat1.

endform. " field_catlog

&----


*& Form call_grid

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form call_grid.

clear events.

wa_events-name = slis_ev_top_of_page.

wa_events-form = 'TOP_OF_PAGE'.

append wa_events to events.

clear wa_events.

wa_events-name = slis_ev_top_of_page.

wa_events-form = 'ETOP_OF_PAGE'.

append wa_events to events1.

  • CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

  • EXPORTING

    • I_INTERFACE_CHECK = ' '

    • I_BYPASSING_BUFFER = ' '

    • I_BUFFER_ACTIVE = ' '

    • I_CALLBACK_PROGRAM = ' '

    • I_CALLBACK_PF_STATUS_SET = ' '

    • I_CALLBACK_USER_COMMAND = ' '

    • i_callback_top_of_page = 'top_of_page'

    • i_callback_html_top_of_page = ' '

    • I_CALLBACK_HTML_END_OF_LIST = ' '

  • i_structure_name = 'ZBDC_MAT_STR'

    • I_BACKGROUND_ID = ' '

  • i_grid_title = text-111

    • I_GRID_SETTINGS =

    • IS_LAYOUT =

  • it_fieldcat = l_tab_fieldcat1

    • IT_EXCLUDING =

    • IT_SPECIAL_GROUPS =

    • IT_SORT =

    • IT_FILTER =

    • IS_SEL_HIDE =

    • I_DEFAULT = 'X'

    • I_SAVE = ' '

    • IS_VARIANT =

    • IT_EVENTS =

    • IT_EVENT_EXIT =

    • IS_PRINT =

    • IS_REPREP_ID =

    • I_SCREEN_START_COLUMN = 0

    • I_SCREEN_START_LINE = 0

    • I_SCREEN_END_COLUMN = 0

    • I_SCREEN_END_LINE = 0

    • I_HTML_HEIGHT_TOP = 0

    • I_HTML_HEIGHT_END = 0

    • IT_ALV_GRAPHICS =

    • IT_HYPERLINK =

    • IT_ADD_FIELDCAT =

    • IT_EXCEPT_QINFO =

    • IR_SALV_FULLSCREEN_ADAPTER =

    • IMPORTING

    • E_EXIT_CAUSED_BY_CALLER =

    • ES_EXIT_CAUSED_BY_USER =

  • TABLES

  • t_outtab = g_tab_globe_y

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

call function 'REUSE_ALV_BLOCK_LIST_INIT'

exporting

i_callback_program = sy-repid

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • IT_EXCLUDING =

.

call function 'REUSE_ALV_BLOCK_LIST_APPEND'

exporting

is_layout = layout

it_fieldcat = l_tab_fieldcat1

i_tabname = 'G_TAB_GLOBE_Y'

it_events = events

  • IT_SORT =

i_text = 'UPDATED RECORDS'

tables

t_outtab = g_tab_globe_y.

  • EXCEPTIONS

  • PROGRAM_ERROR = 1

  • MAXIMUM_OF_APPENDS_REACHED = 2

  • OTHERS = 3

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

call function 'REUSE_ALV_BLOCK_LIST_APPEND'

exporting

is_layout = layout

it_fieldcat = l_tab_fieldcat2

i_tabname = 'G_TAB_GLOBE_Z'

it_events = events1

  • IT_SORT =

i_text = 'ERROR RECORS'

tables

t_outtab = g_tab_globe_z

  • EXCEPTIONS

  • PROGRAM_ERROR = 1

  • MAXIMUM_OF_APPENDS_REACHED = 2

  • OTHERS = 3

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

call function 'REUSE_ALV_BLOCK_LIST_DISPLAY'

  • EXPORTING

    • I_INTERFACE_CHECK = ' '

  • IS_PRINT = print

    • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

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

endform. "call_grid

&----


*& Form top_of_page

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form top_of_page .

write: 'Updated Records'.

endform. " top_of_page

&----


*& Form ETOP_OF_PAGE

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form etop_of_page .

write: 'Error Records'.

endform. " ETOP_OF_PAGE

&----


*& Form FILL_FIELDCATLOG1

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form fill_fieldcatlog1 .

perform field_catlog1 using l_pos 'MATNR' 'G_TAB_GLOBE_Z' '18' text-333.

perform field_catlog1 using l_pos 'MAKTX' 'G_TAB_GLOBE_Z' '40' text-334.

perform field_catlog1 using l_pos 'WERKS' 'G_TAB_GLOBE_Z' '04' text-335.

perform field_catlog1 using l_pos 'SERNP' 'G_TAB_GLOBE_Z' '04' text-336.

perform field_catlog1 using l_pos 'TEXT' 'G_TAB_GLOBE_Z' '70' text-337.

endform. " FILL_FIELDCATLOG1

&----


*& Form field_catlog1

&----


  • text

----


  • -->P_L_POS text

  • -->P_1022 text

  • -->P_1023 text

  • -->P_1024 text

  • -->P_TEXT_333 text

----


form field_catlog1 using u_pos type any

value(u_1022) type any

value(u_1023) type any

value(u_1024) type any

u_text type any.

data: l_wa_fieldcat2 type slis_fieldcat_alv.

add 1 to u_pos.

l_wa_fieldcat2-col_pos = u_pos.

l_wa_fieldcat2-fieldname = u_1022.

l_wa_fieldcat2-tabname = u_1023.

l_wa_fieldcat2-outputlen = u_1024.

l_wa_fieldcat2-reptext_ddic = u_text.

append l_wa_fieldcat2 to l_tab_fieldcat2.

endform. " field_catlog1

regards,

seshu.

Former Member
0 Kudos

Hi Subhasis,

When building field catalog for ALV, set for the needed field

ls_fieldcat-icon = true.

ls_fieldcat-outputlen = 2.

Then, before calling 'REUSE_ALV...' stuff, modify your data: instead of 'X' put the relevant icon (for instance icon_okay - be sure to include type pools icon statement).

Regards,

Younus

<b>Reward Helpful Answers:-)</b>

Former Member
0 Kudos

hi

i am not getting. where we exactly maintain checkbox in alv reports.

subhasis.

Former Member
0 Kudos

hi subhasis,

see code once, in that there is FM called 'REUSE_ALV_POPUP_TO_SELECT' where i passed parameter called 'i_checkbox_fieldname = 'CHECK' , this one works for checkbox functionality,

try to copy this report to your se38 and debugg, then you'll come to know abt checkbox functionality.

regards,

seshu.