topic Re: Editable ALV problem in Application Development and Automation Discussions

Editable ALV problem

sonu_p2 — Tue, 24 Apr 2007 08:23:55 GMT

Hello Gurus !!

I have implemented (displayed ) editable ALV using

set_table_for_first_display

. Requirement is whenever user edit changes and click on save button , the appropriate changeds should be saved in table.

Please suggest ur answers .

The code is given below :-

**********************FOR EDITABLE ALV**********************

DATA :g_grid TYPE REF TO cl_gui_alv_grid,

g_custom_container TYPE REF TO cl_gui_custom_container,

gs_layout TYPE lvc_s_layo,

g_max type i value 100,

METHOD EDITABLE_ALV.

IF g_custom_container IS INITIAL.

CREATE OBJECT g_custom_container

EXPORTING container_name = 'ALV_EDIT'.

CREATE OBJECT g_grid

EXPORTING i_parent = g_custom_container.

*§1.Set status of all cells to editable using the layout structure.

gs_layout-edit = 'X'.

select * from ZSAC_EDIT into table gt_outtab up to g_max rows.

CALL METHOD

g_grid->set_table_for_first_display

EXPORTING i_structure_name = 'zsac_edit'

is_layout = gs_layout

i_bypassing_buffer = space

is_variant = ws_f_grid_disvar
i_save = ws_c_grid_save

CHANGING it_outtab = gt_outtab.

CALL METHOD g_grid->set_ready_for_input

EXPORTING i_ready_for_input = 1.

ENDIF.

what code shouild I write when user click on save button :----

case sy-ucomm.

WHEN 'SAVE'.

???????????????????????

ENDCASE.

Points will be rewarded for helpful answers

Thanks in advance :-).

Sachin

Re: Editable ALV problem

amit_khare — Tue, 24 Apr 2007 08:25:35 GMT

Check the sample program BCLAV_EDIT_04 in Se38.

Regards,

Amit

Reward all helpful replies.

Re: Editable ALV problem

Former Member — Tue, 24 Apr 2007 08:27:01 GMT

Check whether the changes are coming into gt_outtab internal table in USER-COMMAND 'SAVE'. If yes, then you can use UPDATE ZSAC_EDIT option to update teh DB table using chnages....

Re: Editable ALV problem

Former Member — Tue, 24 Apr 2007 08:28:05 GMT

Hi,

Go thru this program

BCALV_TEST_GRID_EDITABLE

santhosh

Re: Editable ALV problem

Former Member — Tue, 24 Apr 2007 08:30:02 GMT

Hi Sachin,

Try with this sample code .


REPORT zedit_alv .

INCLUDE <icon>.
TABLES:zmmlmir.
 data: wl_row type lvc_s_row.
 data: wl_col type lvc_s_col.
 data: wl_rowid type lvc_s_roid.


TYPES: BEGIN OF zmmlmir_type.
        INCLUDE STRUCTURE zmmlmir_alv.
TYPES: cell_style TYPE lvc_t_styl.
TYPES: END OF zmmlmir_type.
DATA: IT_ZMMLMIR TYPE TABLE OF ZMMLMIR_ALV.
DATA: t_zmmlmir TYPE TABLE OF zmmlmir_TYPE.

data: wl_answer type c.

data: t_deleted_rows type table of zmmlmir_TYPE.
DATA: wa_zmmlmir LIKE LINE OF t_zmmlmir.
CONSTANTS:c_check TYPE c VALUE 'X'.
*-----------class variable.
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
*      DATA: inserted_rows LIKE T_ZMMLMIR,
*          deleted_rows LIKE T_ZMMLMIR.



  METHODS:handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive.
   METHODS:handle_usercommand FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm.
   METHODS:HANDLE_DATACHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
            IMPORTING ER_DATA_CHANGED E_ONF4 E_ONF4_BEFORE E_ONF4_AFTER.

*    METHODS:
*      get_inserted_rows
*           EXPORTING
*              inserted_rows LIKE T_ZMMLMIR.
*
*    METHODS:
*      get_deleted_rows
*          EXPORTING
*              deleted_rows LIKE T_ZMMLMIR.
*
*    METHODS:
*       refresh_delta_tables.
*



ENDCLASS.

*---------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_toolbar.
    PERFORM modify_toolbar CHANGING e_object .
  ENDMETHOD.

  METHOD handle_usercommand.
    PERFORM handle_usercommand USING e_ucomm.
*    IF E_UCOMM = 'APPEND'.
*    RAISE EVENT user_command EXPORTING e_ucomm = 'CHANGE'.
*
*    ENDIF.
  ENDMETHOD.
  METHOD HANDLE_DATACHANGED.
    PERFORM HANDLE_DATACHANGED USING ER_DATA_CHANGED .
  ENDMETHOD.


**------------------------------------------------------
*
*  METHOD get_inserted_rows.
*    inserted_rows = me->inserted_rows.
*  ENDMETHOD.
**------------------------------------------------------
*
*  METHOD get_deleted_rows.
*    deleted_rows = me->deleted_rows.
*  ENDMETHOD.
**------------------------------------------------------
*  METHOD refresh_delta_tables.
*    CLEAR me->inserted_rows[].
*    CLEAR me->deleted_rows[].
*  ENDMETHOD.


ENDCLASS.

DATA:w_container TYPE REF TO cl_gui_custom_container.
DATA:w_alv_grid TYPE REF TO cl_gui_alv_grid.
DATA:t_fieldcatalog TYPE lvc_t_fcat.
DATA:wa_layout TYPE lvc_s_layo.
DATA:t_toolbar TYPE ui_functions.
DATA:w_event TYPE REF TO lcl_event_receiver.

START-OF-SELECTION.
  SELECT * FROM zmmlmir INTO CORRESPONDING FIELDS OF
  TABLE It_zmmlmir.

  CALL SCREEN 9000.
*&---------------------------------------------------------------------*
*&      Module  create_alv  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE create_alv OUTPUT.

  IF w_container IS INITIAL.
    CREATE OBJECT w_container
    EXPORTING container_name = 'W_CONTAINER'.

    CREATE OBJECT w_alv_grid
    EXPORTING i_parent = w_container
              I_APPL_EVENTS = C_CHECK.


    CREATE OBJECT w_event.
*WA_LAYOUT-EDIT = C_CHECK.
*wa_layout-edit_mode = c_check.
WA_LAYOUT-STYLEFNAME = 'CELL_STYLE'.
    PERFORM create_fieldcatalog.
    PERFORM change_fieldcatalog.
    PERFORM exclude_function.
      PERFORM change_cellstyle.

*   Handle events
    SET HANDLER w_event->handle_toolbar   FOR w_alv_grid.
    SET HANDLER w_event->handle_usercommand   FOR w_alv_grid.
    SET HANDLER w_event->handle_DATACHANGED   FOR w_alv_grid.


    CALL METHOD w_alv_grid->set_table_for_first_display
      EXPORTING
*    I_BYPASSING_BUFFER            =
*    I_BUFFER_ACTIVE               =
*    I_CONSISTENCY_CHECK           =
*    I_STRUCTURE_NAME              =
*    IS_VARIANT                    =
*    I_SAVE                        =
*    I_DEFAULT                     = 'X'
        is_layout                     = wa_layout
*    IS_PRINT                      =
*    IT_SPECIAL_GROUPS             =
        it_toolbar_excluding          = t_toolbar
*    IT_HYPERLINK                  =
*    IT_ALV_GRAPHICS               =
      CHANGING
        it_outtab                     =   t_zmmlmir
        it_fieldcatalog               =   t_fieldcatalog
*    IT_SORT                       =
*    IT_FILTER                     =
*  EXCEPTIONS
*    INVALID_PARAMETER_COMBINATION = 1
*    PROGRAM_ERROR                 = 2
*    TOO_MANY_LINES                = 3
*    others                        = 4
            .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.


*   Register the events
    CALL METHOD w_ALV_grid->register_edit_event
        EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter.



  ELSE.
*    CALL METHOD w_ALV_grid->refresh_table_display
*              EXCEPTIONS
*                   finished       = 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.
  ENDIF.




ENDMODULE.                 " create_alv  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit INPUT.
  SET SCREEN 0.
  LEAVE TO SCREEN 0.
ENDMODULE.                 " EXIT  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
  SET PF-STATUS '9000'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  CREATE_FIELDCATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_fieldcatalog.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
*   I_BUFFER_ACTIVE              =
     i_structure_name             = 'ZMMLMIR_ALV'
*   I_CLIENT_NEVER_DISPLAY       = 'X'
*   I_BYPASSING_BUFFER           =
    CHANGING
      ct_fieldcat                  = t_fieldcatalog
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 2
*   OTHERS                       = 3
            .
  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.                    " CREATE_FIELDCATALOG
*&---------------------------------------------------------------------*
*&      Form  exclude_function
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM exclude_function.
  DATA: wal_toolbar LIKE LINE OF t_toolbar.
*  wal_toolbar = cl_gui_alv_grid=>mc_fc_graph.
*  APPEND wal_toolbar TO t_toolbar.
  wal_toolbar = cl_gui_alv_grid=>mc_fc_loc_insert_row.
  APPEND wal_toolbar TO t_toolbar.
*  wal_toolbar = cl_gui_alv_grid=>mc_fc_loc_append_row.
*  APPEND wal_toolbar TO t_toolbar.

  wal_toolbar = cl_gui_alv_grid=>MC_FC_CHECK.
  APPEND wal_toolbar TO t_toolbar.

  wal_toolbar = cl_gui_alv_grid=>MC_FC_LOC_COPY.
  APPEND wal_toolbar TO t_toolbar.

*  wal_toolbar = cl_gui_alv_grid=>MC_FC_LOC_COPY_ROW.
*  APPEND wal_toolbar TO t_toolbar.

  wal_toolbar = cl_gui_alv_grid=>MC_FC_LOC_CUT.
  APPEND wal_toolbar TO t_toolbar.

  wal_toolbar = cl_gui_alv_grid=>MC_FC_LOC_PASTE.
  APPEND wal_toolbar TO t_toolbar.


  wal_toolbar = cl_gui_alv_grid=>MC_FC_LOC_PASTE_NEW_ROW.
  APPEND wal_toolbar TO t_toolbar.





ENDFORM.                    " exclude_function
*&---------------------------------------------------------------------*
*&      Form  change_fieldcatalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM change_fieldcatalog.
  FIELD-SYMBOLS: <fs_fcat> LIKE LINE OF t_fieldcatalog.
  LOOP AT t_fieldcatalog ASSIGNING <fs_fcat>.
    CASE <fs_fcat>-fieldname.
      WHEN 'END_DATE'.
*<FS_FCAT>-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.

when 'MATNR'.
<FS_FCAT>-CHECKTABLE = 'MARA'.
<FS_FCAT>-EDIT = C_cHECK.

      WHEN 'AENAM'.
*<FS_FCAT>-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.

      WHEN 'LGORT'.
        <fs_fcat>-f4availabl = c_check.
        <fs_fcat>-edit = c_check.

      WHEN 'COSTCENTER'.
        <fs_fcat>-f4availabl = c_check.
        <fs_fcat>-edit = c_check.

      WHEN 'OTH_ASSET'.
        <fs_fcat>-f4availabl = c_check.
        <fs_fcat>-edit = c_check.


      WHEN 'COSTELEM'.
        <fs_fcat>-f4availabl = c_check.
        <fs_fcat>-edit = c_check.


      WHEN 'MATNR'.
        <fs_fcat>-edit = c_check.

      WHEN 'WERKS'.
        <fs_fcat>-edit = c_check.

      WHEN 'START_DATE'.
        <fs_fcat>-edit = c_check.

      WHEN 'SPLIT_PER'.
        <fs_fcat>-edit = c_check.
        when 'LED'.
        <FS_FCAT>-EDIT = SPACE.
        when others.
        <fs_fcat>-edit = c_check.


    ENDCASE.
  ENDLOOP.

ENDFORM.                    " change_fieldcatalog
*&---------------------------------------------------------------------*
*&      Form  CHANGE_CELLSTYLE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM change_cellstyle.
field-symbols: <fs_zmmlmir> like line of It_zmmlmir.
DATA:WAL_ZMMLMIR LIKE LINE OF T_ZMMLMIR.
DATA:WAL_CELL_STYLE TYPE lvc_S_styl.
DATA:CELL_STYLE TYPE LVC_T_STYL.
loop at It_zmmlmir assigning <fs_zmmlmir>.
MOVE-CORRESPONDING <FS_ZMMLMIR> TO WAL_ZMMLMIR.
WAL_cell_style-FIELDNAME = 'MATNR'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
WAL_cell_style-FIELDNAME = 'WERKS'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
WAL_cell_style-FIELDNAME = 'LGORT'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
WAL_cell_style-FIELDNAME = 'START_DATE'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
WAL_cell_style-FIELDNAME = 'COSTCENTER'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
WAL_cell_style-FIELDNAME = 'OTH_ASSET'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
WAL_cell_style-FIELDNAME = 'COSTELEM'.
WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.


APPEND WAL_ZMMLMIR TO T_ZMMLMIR.
REFRESH CELL_STYLE.
CLEAR WAL_CELL_STYLE.
endloop.
ENDFORM.                    " CHANGE_CELLSTYLE
*&---------------------------------------------------------------------*
*&      Form  MODIFY_TOOLBAR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM modify_toolbar CHANGING pt_toolbar TYPE REF TO
                                        cl_alv_event_toolbar_set.

  DATA:wl_toolbar TYPE stb_button.
  DATA:tl_toolbar TYPE ttb_button.
  wl_toolbar-function = 'APPEND'.
  wl_toolbar-icon = icon_insert_row.
  wl_toolbar-quickinfo = 'Insert Row'.
  APPEND wl_toolbar TO tl_toolbar.
  INSERT wl_toolbar INTO pt_toolbar->mt_toolbar INDEX 9.

*   clear wl_toolbar.
**   wl_toolbar-butn_type = '3'.
**  wl_toolbar-function = 'APPEND'.
**  wl_toolbar-icon = icon_insert_row.
**  APPEND wl_toolbar TO tl_toolbar.
**  INSERT wl_toolbar INTO pt_toolbar->mt_toolbar INDEX 10.
*
  wl_toolbar-function = 'CHANGE'.
  wl_toolbar-icon = ICON_PREVIOUS_VALUE.
  wl_toolbar-quickinfo = 'CHANGE'.
  APPEND wl_toolbar TO tl_toolbar.
  INSERT wl_toolbar INTO pt_toolbar->mt_toolbar INDEX 11.


ENDFORM.                    " MODIFY_TOOLBAR
*&---------------------------------------------------------------------*
*&      Form  HANDLE_USERCOMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_E_UCOMM  text
*----------------------------------------------------------------------*
FORM handle_usercommand USING    p_ucomm TYPE sy-ucomm.
          .
  DATA:wal_zmmlmir LIKE LINE OF t_zmmlmir.
  DATA:WAL_STABLE TYPE  LVC_S_STBL.
  data:wl_line type i.
*  WAL_STABLE-ROW  = C_CHECK.
*  WAL_STABLE-COL = C_CHECK.

  CASE p_ucomm.
    WHEN 'SAVE'.
    P_UCOMM = 'CHANGE'.
      WAL_ZMMLMIR-END_DATE = '99991231'.
      WAL_ZMMLMIR-AENAM = SY-UNAME.
      APPEND wal_zmmlmir TO t_zmmlmir.
   describe table t_zmmlmir lines wl_line.



 wl_rowid-ROW_ID = wl_line - 1.
 WL_ROWID-SUB_ROW_ID = 0.
 wl_col-fieldname = 'MATNR'.
* WL_COL-HIERLEVEL = 0.
 WL_ROW-INDEX = WL_LINE - 1.

CALL METHOD w_alv_grid->refresh_table_display.
CALL METHOD w_alv_grid->set_current_cell_via_id
  EXPORTING
    IS_ROW_ID    = WL_ROW
    IS_COLUMN_ID = WL_COL
*    IS_ROW_NO    = wl_rowid.
.

  ENDCASE.

ENDFORM.                    " HANDLE_USERCOMMAND
*&---------------------------------------------------------------------*
*&      Form  HANDLE_DATACHANGED
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ER_DATA_CHANGED  text
*----------------------------------------------------------------------*
form HANDLE_DATACHANGED using    p_er_data_changed TYPE REF TO
                                 CL_ALV_CHANGED_DATA_PROTOCOL.
*MESSAGE I070(ZM) WITH 'IN DATA MODIFIED'.
field-symbols:<l_outtab> like line of t_zmmlmir.
DATA: L_OUTTAB LIKE LINE OF T_ZMMLMIR.
FIELD-SYMBOLS: <TL_ZMMLMIR> LIKE T_ZMMLMIR.
DATA: WAL_ZMMLMIR LIKE LINE OF T_ZMMLMIR.

field-symbols:<l_del_row> type LVC_s_MOCE.
DATA:WL_INDEX LIKE SY-INDEX.
field-symbols: <fs_zmmlmir> like line of It_zmmlmir.
DATA:WAL_CELL_STYLE TYPE lvc_S_styl.
DATA:CELL_STYLE TYPE LVC_T_STYL.
DATA:T_INS_ROW TYPE LVC_T_MOCE.
FIELD-SYMBOLS:<L_INS_ROW> TYPE LVC_S_MOCE.


* deleted rows
*    LOOP AT p_er_data_changed->mt_deleted_rows ASSIGNING <l_del_row>.
*      READ TABLE t_zmmlmir ASSIGNING <l_outtab>
*                               INDEX <l_del_row>-row_id.
*      IF sy-subrc NE 0.
*        MESSAGE i000(0k) WITH 'error'.
*      ELSE.
*        MOVE-CORRESPONDING <l_outtab> TO wa_zmmlmir.
*        APPEND wa_zmmlmir TO t_deleted_rows.
*      ENDIF.
*    ENDLOOP.
* PERFORM DUPLICATE CHECK.
LOOP AT P_ER_DATA_CHANGED->MT_INSERTED_ROWS ASSIGNING <L_INS_ROW>.
*WL_INDEX = <L_DEL_ROW>-ROW_ID - 1.
*READ TABLE T_ZMMLMIR INTO WAL_ZMMLMIR INDEX WL_INDEX.
*
*
ENDLOOP.
*ASSIGN P_ER_DATA_CHANGED->MP_MOD_ROWS->* TO <TL_ZMMLMIR>.
**
*PERFORM CHANGE_CELLSTYLE_ENABLED CHANGING <TL_ZMMLMIR>
*P_ER_DATA_CHANGED
.
*
endform.                    " HANDLE_DATACHANGED
*&---------------------------------------------------------------------*
*&      Form  change_cellstyle_ENABLED
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_<L_OUTTAB>  text
*----------------------------------------------------------------------*
form change_cellstyle_ENABLED
                CHANGING   TL_ZMMLMIR LIKE T_ZMMLMIR
                P_ER_DATA_CHANGED TYPE REF TO
                CL_ALV_CHANGED_DATA_PROTOCOL.

  DATA:WAL_STABLE TYPE  LVC_S_STBL.
*  WAL_STABLE-ROW  = C_CHECK.
*  WAL_STABLE-COL = C_CHECK.


               .
DATA:WL_INDEX LIKE SY-INDEX.
field-symbols: <fs_zmmlmir> like line of t_zmmlmir.
DATA:WAL_CELL_STYLE TYPE lvc_S_styl.
DATA:WAL_ZMMLMIR LIKE LINE OF T_ZMMLMIR.
DATA:CELL_STYLE TYPE LVC_T_STYL.
FIELD-SYMBOLS:                    <lt_good_cells> TYPE lvc_t_modi,
                    <l_good> TYPE lvc_s_modi.

    ASSIGN p_ER_data_changed->mt_good_cells TO <lt_good_cells>.

LOOP AT TL_ZMMLMIR INTO WAL_ZMMLMIR.
WL_INDEX = SY-TABIX.
      READ TABLE <lt_good_cells> ASSIGNING <l_good>
                           WITH KEY tabix = wL_INDEX.
IF SY-SUBRC = 0.
WAL_ZMMLMIR-END_DATE = SY-DATUM.
WAL_ZMMLMIR-AENAM = SY-UNAME.

      CALL METHOD p_ER_data_changed->modify_cell
        EXPORTING i_row_id    = <l_good>-row_id
                  i_fieldname = 'AENAM'
                  i_value     = WAL_ZMMLMIR-AENAM.


CALL METHOD p_er_data_changed->modify_CELL
  EXPORTING
    i_row_id    = <l_good>-ROW_ID
    i_fieldname = 'END_DATE'
    I_VALUE = WAL_ZMMLMIR-END_DATE    .
*


*CALL METHOD w_alv_grid->refresh_table_display
*  EXPORTING
*    IS_STABLE      = WAL_STABLE
*    I_SOFT_REFRESH = SPACE
*  EXCEPTIONS
*    FINISHED       = 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.


*READ TABLE T_ZMMLMIR
*WITH KEY MATNR = WAL_ZMMLMIR-MATNR
*         WERKS = WAL_ZMMLMIR-WERKS
*         LGORT = WAL_ZMMLMIR-LGORT
*         START_DATE = WAL_ZMMLMIR-START_DATE TRANSPORTING NO FIELDS.
*
*IF SY-SUBRC = 0.
*MESSAGE I070(ZM) WITH 'DUPLICATE ROW'.
**
**
*WAL_cell_style-FIELDNAME = 'MATNR'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*WAL_cell_style-FIELDNAME = 'WERKS'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*WAL_cell_style-FIELDNAME = 'LGORT'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*WAL_cell_style-FIELDNAME = 'START_DATE'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*WAL_cell_style-FIELDNAME = 'COSTCENTER'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*WAL_cell_style-FIELDNAME = 'OTH_ASSET'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*WAL_cell_style-FIELDNAME = 'COSTELEM'.
*WAL_CELL_STYLE-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
*INSERT WAL_CELL_STYLE INTO TABLE WAL_ZMMLMIR-CELL_STYLE.
*MODIFY TL_ZMMLMIR FROM WAL_ZMMLMIR INDEX WL_INDEX.
*
*      CALL METHOD p_ER_data_changed->modify_cell
*        EXPORTING i_row_id    = <l_good>-row_id
*                  i_fieldname = 'CELL_STYLE'
*                  i_value     = WAL_ZMMLMIR-cell_style.
*
*
*
ENDIF.
*

ENDLOOP.
endform.                    " change_cellstyle_ENABLED
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_9000 input.
CASE SY-UCOMM.
WHEN 'BACK'.
CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
  EXPORTING
    textline1           = 'are you sure you want to leave'
*   TEXTLINE2           = ' '
    titel               =  'Loss of Data'
   START_COLUMN        = 25
   START_ROW           = 6
   DEFAULTOPTION       = 'N'
 IMPORTING
   ANSWER              = WL_ANSWER
          .

if wl_answer = 'J'.

LEAVE TO SCREEN 0.
ENDIF.
WHEN 'SAVE'.
message i070(zm) with 'Data Saved'.
WHEN OTHERS.

ENDCASE.
endmodule.                 " USER_COMMAND_9000  INPUT

Regards,

Raghav

Re: Editable ALV problem

Former Member — Tue, 24 Apr 2007 08:31:32 GMT

change the structure name to upper case

CALL METHOD g_grid->set_table_for_first_display
EXPORTING i_structure_name = 'ZSAC_EDIT'      "<-------------to upper case

u need to use HANDLE_USER_COMMAND and CHECK_CHANGED_DATA methods to save the values in table

chk BCALV_EDIT_05 programs

Re: Editable ALV problem

sonu_p2 — Tue, 24 Apr 2007 09:42:08 GMT

Hello,

I am not getting what u hav written.

What should be in upper case...Pls suggest that

Could u please explain HANDLE_USER_COMMAND and CHECK_CHANGED_DATA with examples.

That will help me out.

Thanks in advance,

Sachin

Re: Editable ALV problem

sonu_p2 — Tue, 24 Apr 2007 10:24:07 GMT

Hello Gurus!!

I have successfully changed the data in alv grid using

call method g_grid->check_changed_data.

Could u please suggest me how to save the same data in the DATABASE table we defined.

Please explain the same with sample code.

Thanks in advance

Sachin

Re: Editable ALV problem

uwe_schieferstein — Tue, 24 Apr 2007 10:26:37 GMT

Hello Sachin

As I have already posted previously the changes from an editable ALV grid (OO-based, class CL_GUI_ALV_GRID) will only transported from the frontend (= grid control) to the backend (= itab in ABAP program) if you call method go_grid->check_changed_data at PAI of the dynpro:

module USER_COMMAND_0100 INPUT.


  

  CASE syst-ucomm.
    WHEN 'SAVE'.
"    Retrieve data from frontend to backend
      CALL METHOD go_grid->check_changed_data( ). 

      PERFORM save_data.
 
    WHEN others.
    ENDCASE.


endmodule.

Are you sure that the users do not enter faulty values into your editable ALV grid? If this is possible (and it is most likely) then you should define an event handler method for event DATA_CHANGED and validate the changes. Otherwise you will end up with messy data in your DB table.

Regards

Uwe

Re: Editable ALV problem

sonu_p2 — Tue, 24 Apr 2007 12:36:22 GMT

by using...

call method g_grid->check_changed_data.

UPDATE zsac_edit FROM TABLE gt_outtab.

The problem is solved

Thanks for all ur support