topic Re: Editable ALV in Application Development and Automation Discussions

Editable ALV

Former Member — Mon, 17 Nov 2008 07:07:03 GMT

Hi,

I am using ALV_GRID_DISPLAY. I need to change 3 cloumns of my grid display and update the same in my database table ,I am not using any oops concept and field strings.

I had written the whole code in normal ABAP.

Thanks in advance

correct inputs are rewarded

Regards

Rasheed.

Re: Editable ALV

GauthamV — Mon, 17 Nov 2008 07:08:41 GMT

SEARCH in SCN with editable alv you will get lots of posts.

Re: Editable ALV

Former Member — Mon, 17 Nov 2008 07:15:48 GMT

Hi,

Just pass the Edit option of the fieldcatalog for those specific fields...


fcat-edit = 'X'.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-cprog
      i_callback_pf_status_set = 'PF_STATUS_SET'
      i_callback_user_command  = 'USER_COMMAND'    "<----  pass this
      i_callback_top_of_page   = 'TOP'
      is_layout                = it_layout
      it_fieldcat              = it_fcat
      i_default                = 'X'
      i_save                   = 'A'
      it_events                = it_event
    TABLES
      t_outtab                 = it_final
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.

*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
  CASE r_ucomm.

    WHEN '&DATA_SAVE'.                "<-------check this
      PERFORM save_data.

  ENDCASE.
ENDFORM.                    "USER_COMMAND

Edited by: Sukriti Saha on Nov 17, 2008 12:46 PM

Re: Editable ALV

Former Member — Mon, 17 Nov 2008 07:42:02 GMT

Hi,

when you wnat the field to be editable in ur ALv, then added it_fieldcat-edit = 'X'

for example

wa_fieldcat-col_pos = '6'.

wa_fieldcat-fieldname = 'FILLED_WT'.

wa_fieldcat-seltext_l = 'Gross Weight'.

wa_fieldcat-just = 'L'.

wafieldcat-edit = 'X'._

append wa_fieldcat to it_fieldcat.

then in finction module

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = wrk_pgm

i_callback_user_command = c_user_command <----

Pass this.

I_CALLBACK_TOP_OF_PAGE = 'HEADER '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'HEADER2'
I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

IT_EXCLUDING =
I_SCREEN_END_COLUMN = 0

and write one sub routine.

form user_command using p_1 type any p_selfield type slis_selfield .

v_ucomm = sy-ucomm.

case v_ucomm.

when '&DATA_SAVE'.

clear v_ucomm.

your abab statements

when 'BACK'.

leave program. "to SCREEN 1000.

when '&IC1'.

leave program. "to SCREEN 1000.

endcase.

st_selfield-refresh = 'X'.

endform.

Edited by: Naseeruddin on Nov 17, 2008 8:43 AM

Re: Editable ALV

Former Member — Mon, 17 Nov 2008 08:37:51 GMT

Hi Rasheed,

Go through this

REPORT z_demo_alv_jg.*******************************************************************

TYPE-POOLS *

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

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_LIST_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. "SET_PF_STATUS&----

*& 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.

ENDIF. 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

Re: Editable ALV

Former Member — Mon, 17 Nov 2008 08:42:46 GMT

Hi,

Hope the following Threads will help you regarding your problem

Thanks.

Nitesh

Re: Editable ALV

Former Member — Mon, 17 Nov 2008 08:50:09 GMT

hi rasheed,

check this link.

saptechnical.com/Tutorials/ALV/Edit/demo.htm

hope it may help you.

thanks

Sachin