checkbox

Former Member — Thu, 05 Jul 2007 12:05:36 GMT

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

Re: checkbox

Former Member — Thu, 05 Jul 2007 12:14:55 GMT

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.

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

Re: checkbox

amit_khare — Thu, 05 Jul 2007 12:15:54 GMT

Refer the link -

Regards,

Amit

reward all helpful replies.

Re: checkbox

Former Member — Thu, 05 Jul 2007 12:16:28 GMT

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

topic checkbox in Application Development and Automation Discussions

checkbox

Re: checkbox

Re: checkbox

Re: checkbox