checkbox

[Former Member]

hi,

pls tell me that in my basic list i have number of checkbox.

when user click on any of the fields and selecting 2 checkboxs and the secondary list corresponding field information as well as it should it has selected 2 check boxes .

how to do that.

pls reply

[Former Member]

HI,

I have modified the code..

Cut and paste in your se38 and run..It will work for sure

report zcheck.

TYPE-POOLS: slis, icon.

TYPES : BEGIN OF ty_mard,

stat(4) TYPE c,

check,

matnr TYPE matnr,

werks TYPE werks_d,

lgort TYPE lgort_d,

END OF ty_mard.

TYPES: BEGIN OF ty_it_1,

matnr TYPE matnr,

END OF ty_it_1.

DATA: wa TYPE ty_it_1.

DATA : it_mard TYPE STANDARD TABLE OF ty_mard,

wa_mard TYPE ty_mard.

DATA: it_1 TYPE STANDARD TABLE OF ty_it_1.

DATA: st_layout TYPE slis_layout_alv.

DATA: l_wa_fieldcat TYPE slis_fieldcat_alv.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv.

AT SELECTION-SCREEN OUTPUT.

CONCATENATE icon_green_light 'Click This!'

INTO but1 SEPARATED BY space.

START-OF-SELECTION.

SELECT matnr werks lgort FROM mard INTO CORRESPONDING FIELDS OF TABLE it_mard

WHERE werks = 'CH01'. "p_werks.

IF sy-subrc = 0.

ENDIF.

*LAYOUT

st_layout-zebra = 'X'.

*field cat

l_wa_fieldcat-col_pos = '1'.

l_wa_fieldcat-fieldname = 'CHECK'.

l_wa_fieldcat-tabname = 'IT_MARD'.

l_wa_fieldcat-reptext_ddic = 'SELECT'.

l_wa_fieldcat-checkbox = 'X'.

l_wa_fieldcat-edit = 'X'.

APPEND l_wa_fieldcat TO it_fieldcat.

CLEAR l_wa_fieldcat.

l_wa_fieldcat-col_pos = '2'.

l_wa_fieldcat-fieldname = 'MATNR'.

l_wa_fieldcat-tabname = 'IT_MARD'.

l_wa_fieldcat-reptext_ddic = 'MATERIAL no'.

l_wa_fieldcat-outputlen = '20'.

l_wa_fieldcat-no_zero = 'X'.

• l_wa_fieldcat-edit = 'X'.

APPEND l_wa_fieldcat TO it_fieldcat.

CLEAR l_wa_fieldcat.

l_wa_fieldcat-col_pos = '3'.

l_wa_fieldcat-fieldname = 'WERKS'.

l_wa_fieldcat-tabname = 'IT_MARD'.

l_wa_fieldcat-reptext_ddic = 'PLANT'.

l_wa_fieldcat-outputlen = '20'.

l_wa_fieldcat-no_zero = 'X'.

APPEND l_wa_fieldcat TO it_fieldcat.

CLEAR l_wa_fieldcat.

l_wa_fieldcat-col_pos = '4'.

l_wa_fieldcat-fieldname = 'LGORT'.

l_wa_fieldcat-tabname = 'IT_MARD'.

l_wa_fieldcat-reptext_ddic = 'STORAGE'.

l_wa_fieldcat-outputlen = '20'.

l_wa_fieldcat-no_zero = 'X'.

APPEND l_wa_fieldcat TO it_fieldcat.

CLEAR l_wa_fieldcat.

l_wa_fieldcat-col_pos = '5'.

l_wa_fieldcat-fieldname = 'STAT'.

l_wa_fieldcat-tabname = 'IT_MARD'.

l_wa_fieldcat-reptext_ddic = 'STATUS'.

l_wa_fieldcat-icon = 'X'.

APPEND l_wa_fieldcat TO it_fieldcat.

CLEAR l_wa_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_callback_user_command = 'F_USER'

is_layout = st_layout

it_fieldcat = it_fieldcat

TABLES

t_outtab = it_mard

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

WRITE 'EEROR'.

ENDIF.

*ENDCASE.

&----

---

*& Form f_user

&----

---

• text

----

---

• -->RF_UCOMM text

• -->RS_SELFIELD text

----

---

FORM f_user USING rf_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

DATA: l_wa_fieldcat1 TYPE slis_fieldcat_alv.

DATA: it_fieldcat1 TYPE slis_t_fieldcat_alv.

CASE rf_ucomm.

WHEN '&IC1'.

IF rs_selfield-fieldname = 'MATNR'.

LOOP AT it_mard INTO wa_mard WHERE check = 'X'.

wa-matnr = wa_mard-matnr.

APPEND wa TO it_1.

ENDLOOP.

l_wa_fieldcat1-col_pos = '1'.

l_wa_fieldcat1-fieldname = 'MATNR'.

l_wa_fieldcat1-tabname = 'IT_1'.

l_wa_fieldcat1-reptext_ddic = 'Material'.

l_wa_fieldcat1-outputlen = '20'.

l_wa_fieldcat1-no_zero = 'X'.

APPEND l_wa_fieldcat1 TO it_fieldcat1.

CLEAR l_wa_fieldcat1.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_callback_top_of_page = 'F_TOP'

it_fieldcat = it_fieldcat1

TABLES

t_outtab = it_1

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

WRITE 'EEROR'.

ENDIF.

ENDIF.

ENDCASE.

ENDFORM. "f_user

&----

---

*& Form f_top

&----

---

• text

----

---

FORM f_top.

DATA v_lines TYPE char5.

DATA v_text TYPE char50.

DESCRIBE TABLE it_1 LINES v_lines.

DATA it_slis TYPE slis_t_listheader.

DATA wa_slis TYPE slis_listheader.

CONCATENATE 'Number of check boxes selected are/is' v_lines INTO v_text SEPARATED BY space.

wa_slis-typ = 'H'.

wa_slis-info = v_text.

append wa_slis to it_slis.

call FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_slis

• I_LOGO =

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

ENDFORM. "f_top

Cut and paste in se38..

rewards if useful and understood..

regards n

nazeer

Message was edited by:

nazeer shaik

[amit_khare]

Refer the link -

Regards,

Amit

reward all helpful replies.

[Former Member]

Hi

In the output in the DO loop read each line where check = x into SY-LISEL and capture the Key field in it by offsetting the sy-lisel and append that key into an internal table.

and with this data fetch the interactive data and display

Reward points for useful Answers

Regards

Anji