problem in Editable ALV grid

[Former Member]

Hi,

I want to create an editable ALV grid using Function modules where users have option to edit the displayed values. I am not using class for creating ALV and I am using 4.6c version.

Later on how to read these changed values back to internal table. Does any one know how to do this, then plz reply.

Regards,

Sanjeev

[Former Member]

Hi Sanjeev,

Execute the transaction DWDM and check the examples.

Regs,

Venkat Ramanan

[ashok_kumar24]

Hi Sanjeev Kumar,

Check out this program ..This should solve your problem

----

---

REPORT zk_ex008.

*

type-pools: slis.

TABLES : ZAK_EMPLIST.

• Data to be displayed

data: itab_show type table of zak_emplist.

data: gs_layout type slis_layout_alv.

----

---

• Selection

select * from zak_emplist into corresponding fields of table itab_show.

• Eingabebereit

gs_layout-edit = 'X'.

• Call ABAP List Viewer (ALV)

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = 'ZK_EX008'

i_callback_user_command = 'USER_COMMAND'

i_structure_name = 'ZAK_EMPLIST'

is_layout = gs_layout

tables

t_outtab = ITAB_SHOW.

form user_command using r_ucomm type sy-ucomm

rs_selfield type slis_selfield.

if r_ucomm = '&DATA_SAVE'.

message i000(0k) with text-001.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

i_structure_name = 'ZAK_EMPLIST'

tables

t_outtab = ITAB_SHOW.

endif.

endform.

----

---

Good Luck ...Reward me for the same

Thanks

Ashok.N

[Former Member]

Hi,

In ur coding

DATA : ALV_FLDCAT_T TYPE SLIS_T_FIELDCAT_ALV,

ALV_FLDCAT_S TYPE SLIS_FIELDCAT_ALV.

Int he Field Catlog..use the coding...

alv_fldcat_s-fieldname ='W_SRNO'.

alv_fldcat_s-ref_tabname ='ITAB-DET'.

ALV_FLDCAT_S-seltext_l ='Sr No'.

ALV_SLIS_s-subtot = 'X'.

ALV_slis_t-refresh = 'X'.

ALV_slis_t-edit = 'X'.

ALV_FLDCAT_S-checkbox = 'X'.

ALV_FLDCAT_S-INPUT = 'X'.

append alv_fldcat_s to alv_fldcat_t.

clear : alv_fldcat_s.

Kindly Rewards the points...

append alv_fldcat_s to alv_fldcat_t.

[Former Member]

check out these demo editable alv grids. they all have single row select.

BCALV_GRID_EDIT

BCALV_TEST_GRID_EDITABLE

[Former Member]

Hi Sanjeev,

Look at the following programs. It would help u.

BCALV_EDIT_01

BCALV_EDIT_02

BCALV_EDIT_03

BCALV_EDIT_04

BCALV_FULLSCREEN_GRID_EDIT

BCALV_GRID_EDIT

BCALV_TEST_GRID_EDIT_01

BCALV_TEST_GRID_EDITABLE

Also see this

http://www.sapdevelopment.co.uk/reporting/alv/alvscr.htm

Reward points if helpful,

Thanks & Regards,

Sumana

[Former Member]

Hi Sanjeev,

Did you look at the transaction DWDM as i told or else gimme me your email ID I will forward my sample program to you.

Regs,

Venkat Ramanan

[Former Member]

Hi Venkat,

Thanks for your reply..

I am lookin into this DWDM right now, but my aim is to do this by FM and collect the changes back to internal table.

Regards,

Sanjeev

[Former Member]

HI Venkat,

My Mail id is sanjeev2111@hotmail.com

regards,

Sanjeev

[venkat_o]

Hi Sanjeev Kumar,

<b>1</b>.

For Editable ALV ,U have to set EDIT = 'X' while fieldcatalog table building.

Ex.

w_field1-row_pos = 1.

w_field1-fieldname = 'WERKS' .

w_field1-tabname = 'I_MARD'.

w_field1-edit = 'X'.

w_field1-seltext_m = 'Plant'.

APPEND w_field1 TO i_field1.

CLEAR w_field1.

<b>2</b>.

Change the the value and SAve.

<b>3</b>.

For Testing After Calling FM REUSE_ALV_GRID_DISPLAY

Loop ur internal table and check chabges are reflected or not .

ex.

Loop at i_mard.

write 😕 i_mard-WERKS,i_mard-matnr.

endloop.

<b>4</b>.

U can see the result once u press bacl button.

I hope that i am clear.

<b>Thanks,

Venkat.O</b>

[Former Member]

Hi Ventataiah,

I done as per this method

edit = 'X'.

and enabled the save button, but I am not able to collect the changes into internal table. Please guid me me more...

[venkat_o]

Hi Sanjeev,

Can you give ur piece of code.

I will check it out.

<b>Thanks,

Venkat.O</b>

[Former Member]

Hi

U may Use this Code

REPORT ZTUFI091 .

&----

---

*& Report ZDEMO_ALVGRID *

*& *

&----

---

*& *

*& Example of a simple ALV Grid Report *

*& ................................... *

*& *

*& The basic requirement for this demo is to display a number of *

*& fields from the EKKO table. *

&----

---

*REPORT zdemo_alvgrid .

TABLES: ekko.

type-pools: slis. "ALV Declarations

*Data Declaration

*----

---

TYPES: BEGIN OF t_ekko,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

statu TYPE ekpo-statu,

aedat TYPE ekpo-aedat,

matnr TYPE ekpo-matnr,

menge TYPE ekpo-menge,

meins TYPE ekpo-meins,

netpr TYPE ekpo-netpr,

peinh TYPE ekpo-peinh,

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko.

*ALV data declarations

data: fieldcatalog type slis_t_fieldcat_alv with header line,

gd_tab_group type slis_t_sp_group_alv,

gd_layout type slis_layout_alv,

gd_repid like sy-repid,

gt_events type slis_t_event,

gd_prntparams type slis_print_alv.

************************************************************************

*Start-of-selection.

START-OF-SELECTION.

perform data_retrieval.

perform build_fieldcatalog.

perform build_layout.

perform build_events.

perform build_print_params.

perform display_alv_report.

&----

---

*& Form BUILD_FIELDCATALOG

&----

---

• Build Fieldcatalog for ALV Report

----

---

form build_fieldcatalog.

• There are a number of ways to create a fieldcat.

• For the purpose of this example i will build the fieldcatalog manualy

• by populating the internal table fields individually and then

• appending the rows. This method can be the most time consuming but can

• also allow you more control of the final product.

• Beware though, you need to ensure that all fields required are

• populated. When using some of functionality available via ALV, such as

• total. You may need to provide more information than if you were

• simply displaying the result

• I.e. Field type may be required in-order for

• the 'TOTAL' function to work.

fieldcatalog-fieldname = 'EBELN'.

fieldcatalog-seltext_m = 'Purchase Order'.

fieldcatalog-col_pos = 0.

fieldcatalog-outputlen = 10.

fieldcatalog-emphasize = 'X'.

fieldcatalog-key = 'X'.

fieldcatalog-edit = 'X'.

• fieldcatalog-do_sum = 'X'.

• fieldcatalog-no_zero = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'EBELP'.

fieldcatalog-seltext_m = 'PO Item'.

fieldcatalog-col_pos = 1.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'STATU'.

fieldcatalog-seltext_m = 'Status'.

fieldcatalog-col_pos = 2.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'AEDAT'.

fieldcatalog-seltext_m = 'Item change date'.

fieldcatalog-col_pos = 3.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-seltext_m = 'Material Number'.

fieldcatalog-col_pos = 4.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MENGE'.

fieldcatalog-seltext_m = 'PO quantity'.

fieldcatalog-col_pos = 5.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-seltext_m = 'Order Unit'.

fieldcatalog-col_pos = 6.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'NETPR'.

fieldcatalog-seltext_m = 'Net Price'.

fieldcatalog-col_pos = 7.

fieldcatalog-outputlen = 15.

fieldcatalog-datatype = 'CURR'.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'PEINH'.

fieldcatalog-seltext_m = 'Price Unit'.

fieldcatalog-col_pos = 8.

fieldcatalog-edit = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

endform. " BUILD_FIELDCATALOG

&----

---

*& Form BUILD_LAYOUT

&----

---

• Build layout for ALV grid report

----

---

form build_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-totals_text = 'Totals'(201).

• gd_layout-totals_only = 'X'.

• gd_layout-f2code = 'DISP'. "Sets fcode for when double

• "click(press f2)

• gd_layout-zebra = 'X'.

• gd_layout-group_change_edit = 'X'.

• gd_layout-header_text = 'helllllo'.

endform. " BUILD_LAYOUT

&----

---

*& Form DISPLAY_ALV_REPORT

&----

---

• Display report using ALV grid

----

---

form display_alv_report.

gd_repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = gd_repid

i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM

i_callback_user_command = 'USER_COMMAND'

• i_grid_title = outtext

is_layout = gd_layout

it_fieldcat = fieldcatalog[]

• it_special_groups = gd_tabgroup

it_events = gt_events

is_print = gd_prntparams

i_save = 'X'

• is_variant = z_template

tables

t_outtab = it_ekko

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. " DISPLAY_ALV_REPORT

&----

---

*& Form DATA_RETRIEVAL

&----

---

• Retrieve data form EKPO table and populate itab it_ekko

----

---

form data_retrieval.

select ebeln ebelp statu aedat matnr menge meins netpr peinh

up to 10 rows

from ekpo

into table it_ekko.

endform. " DATA_RETRIEVAL

----

---

• Form TOP-OF-PAGE *

----

---

• ALV Report Header *

----

---

Form top-of-page.

*ALV Header declarations

data: t_header type slis_t_listheader,

wa_header type slis_listheader,

t_line like wa_header-info,

ld_lines type i,

ld_linesc(10) type c.

• Title

wa_header-typ = 'H'.

wa_header-info = 'EKKO Table Report'.

append wa_header to t_header.

clear wa_header.

• Date

wa_header-typ = 'S'.

wa_header-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_header-info. "todays date

append wa_header to t_header.

clear: wa_header.

• Total No. of Records Selected

describe table it_ekko lines ld_lines.

ld_linesc = ld_lines.

concatenate 'Total No. of Records Selected: ' ld_linesc

into t_line separated by space.

wa_header-typ = 'A'.

wa_header-info = t_line.

append wa_header to t_header.

clear: wa_header, t_line.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = t_header.

• i_logo = 'Z_LOGO'.

endform.

----

---

• FORM USER_COMMAND *

----

---

• --> R_UCOMM *

• --> RS_SELFIELD *

----

---

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

• Check function code

CASE r_ucomm.

WHEN '&IC1'.

• Check field clicked on within ALVgrid report

IF rs_selfield-fieldname = 'EBELN'.

• Read data table, using index of row user clicked on

READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.

• Set parameter ID for transaction screen field

SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.

• Sxecute transaction ME23N, and skip initial data entry screen

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM.

&----

---

*& Form BUILD_EVENTS

&----

---

• Build events table

----

---

form build_events.

data: ls_event type slis_alv_event.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = gt_events[].

read table gt_events with key name = slis_ev_end_of_page

into ls_event.

if sy-subrc = 0.

move 'END_OF_PAGE' to ls_event-form.

append ls_event to gt_events.

endif.

read table gt_events with key name = slis_ev_end_of_list

into ls_event.

if sy-subrc = 0.

move 'END_OF_LIST' to ls_event-form.

append ls_event to gt_events.

endif.

endform. " BUILD_EVENTS

&----

---

*& Form BUILD_PRINT_PARAMS

&----

---

• Setup print parameters

----

---

form build_print_params.

gd_prntparams-reserve_lines = '3'. "Lines reserved for footer

gd_prntparams-no_coverpage = 'X'.

endform. " BUILD_PRINT_PARAMS

&----

---

*& Form END_OF_PAGE

&----

---

form END_OF_PAGE.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

write: sy-uline(50).

skip.

write:/40 'Page:', sy-pagno .

endform.

&----

---

*& Form END_OF_LIST

&----

---

form END_OF_LIST.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

skip.

write:/40 'Page:', sy-pagno .

endform.