Also ALV

Former Member — Fri, 09 Mar 2007 05:33:31 GMT

Hi guys:

My situation is like this:

In my ALV, user can choose several lines, when the user press for example: 'Process' button, the lines selected will be processed one by one. How to implement that?

Because I am new to ALV, pls be more detail.

Thx in advance.

Vincent

Re: Also ALV

Former Member — Fri, 09 Mar 2007 05:37:11 GMT

check this

Regards

Prabhu

Re: Also ALV

Former Member — Fri, 09 Mar 2007 05:39:07 GMT

chk program <b>BCALV_EDIT_05</b> if u r using ALV OO

Re: Also ALV

p291102 — Fri, 09 Mar 2007 05:39:39 GMT

Hi,

Kindly go through it this sample coding.

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: Also ALV

Former Member — Fri, 09 Mar 2007 05:41:35 GMT

Vincent,

For all output records add check boxes.select the records which you want by selecting the relavent check box and do what ever you want in the user action event.But if you don't like check box then No other way to avoid CTRL and select the rows.

Pls. reward if useful

topic Also ALV in Application Development and Automation Discussions

Also ALV

Re: Also ALV

Re: Also ALV

Re: Also ALV

Re: Also ALV