Example of an OO ALV that reflects changes from an editable column...

Question

Hello Experts,
I am currently developing a report wherein I need to add the value entered by the user to
another column. For example, Column A is editable and the user entered the value 100 in a
given cell. I need to add that value(100) to column B. Simple examples would be highly appreciated.
Thank you guys and take care!

Answer 1

Hi use this One.
WA_FIELDCAT-EDIT         = 'X'.
WS_LAYOUT-EDIT_MODE           =  'A'.
      CLASS event_receiver DEFINITION
CLASS EVENT_RECEIVER DEFINITION.
  PUBLIC SECTION.
    METHODS: HANDLE_TOOLBAR_SET
             FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
             IMPORTING E_OBJECT E_INTERACTIVE,
             HANDLE_USER_COMMAND
             FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
             IMPORTING E_UCOMM SENDER,
             DATA_CHANGED_FINISHED
             FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
             IMPORTING ER_DATA_CHANGED.
ENDCLASS.                    "event_receiver DEFINITION
*&       Class (Implementation)  event_receiver
       Text
CLASS EVENT_RECEIVER IMPLEMENTATION.
  METHOD HANDLE_TOOLBAR_SET.
  ENDMETHOD.                    "HANDLE_TOOLBAR_SET
  METHOD HANDLE_USER_COMMAND.
   ENDMETHOD.                    "HANDLE_USER_COMMAND
  METHOD DATA_CHANGED_FINISHED.
    LOOP AT ER_DATA_CHANGED->MT_MOD_CELLS INTO WA_T_MODI.
      READ TABLE IT_FINAL INTO WA_FINAL INDEX WA_T_MODI-TABIX.
      IF SY-SUBRC = 0.
        CASE WA_T_MODI-FIELDNAME.
          WHEN 'INTEREST'.
            WA_FINAL-INTEREST = WA_T_MODI-VALUE.
            WA_FINAL-TOTTDS = WA_FINAL-TDSAMT   + WA_FINAL-SURCHG + WA_FINAL-ECESS + WA_FINAL-HECESS +
                              WA_FINAL-INTEREST + WA_FINAL-OTHERS .
            MODIFY IT_FINAL FROM WA_FINAL INDEX WA_T_MODI-TABIX
              TRANSPORTING INTEREST TOTTDS.
          WHEN 'OTHERS'.
            WA_FINAL-OTHERS = WA_T_MODI-VALUE.
            WA_FINAL-TOTTDS = WA_FINAL-TDSAMT   + WA_FINAL-SURCHG + WA_FINAL-ECESS + WA_FINAL-HECESS +
                              WA_FINAL-INTEREST + WA_FINAL-OTHERS .
            MODIFY IT_FINAL FROM WA_FINAL INDEX WA_T_MODI-TABIX
              TRANSPORTING OTHERS TOTTDS.
        ENDCASE.
      ENDIF.
    ENDLOOP.
    CALL METHOD GV_GRID->REFRESH_TABLE_DISPLAY
          EXCEPTIONS
            FINISHED = 1
            OTHERS   = 2.
  ENDMETHOD.                    "DATA_CHANGED_FINISHED
ENDCLASS.               "event_receiver
DATA : LCL_OBJ TYPE REF TO EVENT_RECEIVER.
CREATE OBJECT LCL_OBJ.
  CREATE OBJECT CONT
    EXPORTING
      CONTAINER_NAME              = 'CC_ALV'
    EXCEPTIONS
      CNTL_ERROR                  = 1
      CNTL_SYSTEM_ERROR           = 2
      CREATE_ERROR                = 3
      LIFETIME_ERROR              = 4
      LIFETIME_DYNPRO_DYNPRO_LINK = 5
      OTHERS                      = 6.
  CREATE OBJECT GV_GRID
    EXPORTING
      I_PARENT          = CONT
    EXCEPTIONS
      ERROR_CNTL_CREATE = 1
      ERROR_CNTL_INIT   = 2
      ERROR_CNTL_LINK   = 3
      ERROR_DP_CREATE   = 4
      OTHERS            = 5.
  SET HANDLER LCL_OBJ->HANDLE_TOOLBAR_SET     FOR GV_GRID.
  SET HANDLER LCL_OBJ->HANDLE_USER_COMMAND    FOR GV_GRID.
  CALL METHOD GV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_VARIANT                    = WS_VARIANT
      I_SAVE                        = 'A'
      IS_LAYOUT                     = WS_LAYOUT
      IT_TOOLBAR_EXCLUDING          = IT_FCODES
    CHANGING
      IT_OUTTAB                     = IT_FINAL
      IT_FIELDCATALOG               = IT_FIELD_CAT
    EXCEPTIONS
      INVALID_PARAMETER_COMBINATION = 1
      PROGRAM_ERROR                 = 2
      TOO_MANY_LINES                = 3
      OTHERS                        = 4.
  CALL METHOD GV_GRID->SET_READY_FOR_INPUT
    EXPORTING
      I_READY_FOR_INPUT = 1.
  CALL METHOD GV_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
  SET HANDLER LCL_OBJ->DATA_CHANGED_FINISHED  FOR GV_GRID.
Edited by: VipulKumar Darji on Oct 20, 2010 11:29 AM