ALV grid -Edit

Former Member — Tue, 02 Jun 2009 07:17:56 GMT

Hi,

I have developed a ALV using gui_download. Now the requirement is that the ALV should be editable . in the sense what ever changes done in ALV should get reflected in database as well. Please tell me how to proceed without disturbing the already existing code

Re: ALV grid -Edit

Former Member — Tue, 02 Jun 2009 08:22:49 GMT

Hello,

Check this example programs

BCALV_EDIT_01

BCALV_EDIT_02

BCALV_EDIT_03

BCALV_EDIT_04

BCALV_EDIT_05

BCALV_EDIT_06

BCALV_EDIT_07

BCALV_EDIT_08

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/aSimpleProgramforEditableALVgrid+control

Re: ALV grid -Edit

Former Member — Tue, 02 Jun 2009 08:25:28 GMT

Hi,

update u r field catalogue

wa_fieldcat-edit = 'X'.

for that particular column.

Re: ALV grid -Edit

Former Member — Tue, 02 Jun 2009 08:58:37 GMT

Hi,

Use fieldcat-edit = 'X'.

use this in the coloum which you wanted to be editable, after that use user-command function of alv grid.

Put a code of modify depend on your condition.

Regards,

Varun Sharma

Re: ALV grid -Edit

Former Member — Tue, 02 Jun 2009 09:07:45 GMT

just add wa_fieldcatalog-edit = 'x'.

for that field you have to edit .

Re: ALV grid -Edit

Former Member — Tue, 02 Jun 2009 09:43:02 GMT

Hi,

check the following program what you have to do is copy the program and paste it in se38 program

TYPE-POOLS: slis.

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

INTERNAL TABLES/WORK AREAS/VARIABLES *

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

DATA: i_fieldcat TYPE slis_t_fieldcat_alv,

i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,

w_field TYPE slis_fieldcat_alv,

p_table LIKE dd02l-tabname,

dy_table TYPE REF TO data,

dy_tab TYPE REF TO data,

dy_line TYPE REF TO data.

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

FIELD-SYMBOLS *

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

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,

<dyn_wa> TYPE ANY,

<dyn_field> TYPE ANY,

<dyn_tab_temp> TYPE STANDARD TABLE.

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

SELECTION SCREEN *

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

PARAMETERS: tabname(30) TYPE c,

lines(5) TYPE n.

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

START-OF-SELECTION *

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

START-OF-SELECTION.

Storing table name

p_table = tabname.

Create internal table dynamically with the stucture of table name
entered in the selection screen

CREATE DATA dy_table TYPE STANDARD TABLE OF (p_table).

ASSIGN dy_table->* TO <dyn_table>.

IF sy-subrc <> 0.

MESSAGE i000(z_zzz_ca_messages) WITH ' No table found'.

LEAVE TO LIST-PROCESSING.

ENDIF.

Create workarea for the table

CREATE DATA dy_line LIKE LINE OF <dyn_table>.

ASSIGN dy_line->* TO <dyn_wa>.

Create another temp. table

CREATE DATA dy_tab TYPE STANDARD TABLE OF (p_table).

ASSIGN dy_tab->* TO <dyn_tab_temp>.

SORT i_fieldcat BY col_pos.

Select data from table

SELECT * FROM (p_table)

INTO TABLE <dyn_table>

UP TO lines ROWS. REFRESH <dyn_tab_temp>.

Display report

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = p_table

i_callback_user_command = 'USER_COMMAND'

i_callback_pf_status_set = 'SET_PF_STATUS'

TABLES

t_outtab = <dyn_table>

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0. ENDIF.

&----

*& Form SET_PF_STATUS

&----

Setting custom PF-Status

----

-->RT_EXTAB Excluding table

----

FORM set_pf_status USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'Z_STANDARD'.ENDFORM.

&----

*& Form user_command

&----

Handling custom function codes

----

-->R_UCOMM Function code value
-->RS_SELFIELD Info. of cursor position in ALV

----

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

Local data declaration

DATA: li_tab TYPE REF TO data,

l_line TYPE REF TO data.

Local field-symbols

FIELD-SYMBOLS:<l_tab> TYPE table,

<l_wa> TYPE ANY.

Create table

CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).

ASSIGN li_tab->* TO <l_tab>.

Create workarea

CREATE DATA l_line LIKE LINE OF <l_tab>.

ASSIGN l_line->* TO <l_wa>.

CASE r_ucomm.

When a record is selected

WHEN '&IC1'.

Read the selected record

READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX

rs_selfield-tabindex.

IF sy-subrc = 0.

Store the record in an internal table

APPEND <dyn_wa> TO <l_tab>.

Fetch the field catalog info

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = 'Z_DEMO_PDF_JG'

i_structure_name = p_table

CHANGING

ct_fieldcat = i_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc = 0.

Make all the fields input enabled except key fields

w_field-input = 'X'.

MODIFY i_fieldcat FROM w_field TRANSPORTING input

WHERE key IS INITIAL. ENDIF.

Display the record for editing purpose

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = p_table

it_fieldcat = i_fieldcat

i_screen_start_column = 10

i_screen_start_line = 15

i_screen_end_column = 200

i_screen_end_line = 20

TABLES

t_outtab = <l_tab>

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc = 0.

Read the modified data

READ TABLE <l_tab> INDEX 1 INTO <l_wa>.

If the record is changed then track its index no.
and populate it in an internal table for future
action

IF sy-subrc = 0 AND <dyn_wa> <> <l_wa>.

<dyn_wa> = <l_wa>.

i_index = rs_selfield-tabindex.

APPEND i_index.

ENDIF.

When save button is pressed

WHEN 'SAVE'.

Sort the index table

SORT i_index.

Delete all duplicate records

DELETE ADJACENT DUPLICATES FROM i_index.

LOOP AT i_index.

Find out the changes in the internal table
and populate these changes in another internal table

READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX i_index.

IF sy-subrc = 0.

APPEND <dyn_wa> TO <dyn_tab_temp>.

ENDIF.

ENDLOOP.

Lock the table

CALL FUNCTION 'ENQUEUE_E_TABLE'

EXPORTING

mode_rstable = 'E'

tabname = p_table

EXCEPTIONS

foreign_lock = 1

system_failure = 2

OTHERS = 3.

IF sy-subrc = 0.

Modify the database table with these changes

MODIFY (p_table) FROM TABLE <dyn_tab_temp>.

REFRESH <dyn_tab_temp>.

Unlock the table

CALL FUNCTION 'DEQUEUE_E_TABLE'

EXPORTING

mode_rstable = 'E'

tabname = p_table.

ENDIF.

ENDCASE.

rs_selfield-refresh = 'X'.

ENDFORM. "user_command

Thanks & Regards,

sateesh.B

Re: ALV grid -Edit

Former Member — Tue, 02 Jun 2009 10:10:16 GMT

bcalv_test_grid_editable

topic Re: ALV grid -Edit in Application Development and Automation Discussions

ALV grid -Edit

Re: ALV grid -Edit

Re: ALV grid -Edit

Re: ALV grid -Edit

Re: ALV grid -Edit

Re: ALV grid -Edit

Re: ALV grid -Edit