topic Problem ALV in Application Development and Automation Discussions

Problem ALV

Former Member — Thu, 13 Dec 2007 09:31:30 GMT

Hi,

I want to display the material and a checkbox in ALV display.I have an attach button.After pressing select all button,all check boxes should get selected or user should select some materials.After selecting materials and pressing 'ATTACH' button some transaction should get called.My problem is how to read the multiple records at a time.

Re: Problem ALV

Former Member — Thu, 13 Dec 2007 09:41:33 GMT

Its very simple. just add a field called BOX in ur final internal table.

then, if u have used layout , Give the following coding in that,

data: gs_layout type slis_layout_alv.

gs_layout-box_fieldname = 'BOX'.

CLEAR gt_sortinfo.

in the output , you ll get boxes. u can select and do the interactive list.

If u have still doubt, reply me.

thanks and regards

karthik

*****************reward points if useful

Re: Problem ALV

Former Member — Thu, 13 Dec 2007 09:47:22 GMT

pass checkbox and input parameter to fieldcatalog.

pass box parameter to layout.

and write specific code for button and checkbox.

your prob ll get solved.

Re: Problem ALV

Former Member — Thu, 13 Dec 2007 09:55:30 GMT

Hi,

How can i read multiple records?

Re: Problem ALV

asik_shameem — Thu, 13 Dec 2007 09:57:10 GMT

go thru in this pgm.

select the record u want and double click on the screen.

report zreport.

TYPE-POOLS : slis.

DATA : BEGIN OF itab OCCURS 0.

INCLUDE STRUCTURE t001.

END OF itab.

DATA : alvfc TYPE slis_t_fieldcat_alv.

DATA : alvly TYPE slis_layout_alv.

SELECT * FROM t001 INTO TABLE itab.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB'

i_inclname = sy-repid

CHANGING

ct_fieldcat = alvfc

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

<b>alvly-box_fieldname = 'FLAG'.</b>

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

it_fieldcat = alvfc

i_callback_program = sy-repid

i_callback_user_command = 'USER_COMMAND'

is_layout = alvly

TABLES

t_outtab = itab

EXCEPTIONS

program_error = 1

OTHERS = 2.

FORM 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. "user_command

Re: Problem ALV

Former Member — Thu, 13 Dec 2007 10:04:56 GMT

refer to follwoing code.it also works for multiple records.

FORM ucommand USING ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield.

DATA : BEGIN OF it_flag OCCURS 0,

flag(1),

END OF it_flag.

CASE ucomm.

WHEN 'SAVE'.

LOOP AT it_data INTO wa_data WHERE check EQ 'X'.

MOVE wa_data-check TO it_flag-flag.

APPEND it_flag.

ENDLOOP.

IF it_flag[] IS NOT INITIAL.

PERFORM modify_data.

ELSE.

MESSAGE e022.

ENDIF.

WHEN '&ALL'.

LOOP AT it_data INTO wa_data.
wa_data-check = 'X'.
MODIFY it_data from wa_data TRANSPORTING check.
ENDLOOP.

ENDCASE.

ENDFORM. " UCOMMAND