Doubt in Editable ALV

Question

Dear Friends,
I have editable ALV and capturing there save event its working properly.
so my problem is..
when i change there cell values can i capture that event like follows.
in my editable column only can be change 0-100 value cant be <0 or >100 values.
is it possible ....
please reply me....if possible give some sample plz....
Thanks in Advance

Answer 1

Hi Nelson,
Check out this code.
*& Report  ZST_ALV_DATA_CHANGE_EVENT
REPORT  ZST_ALV_DATA_CHANGE_EVENT.
      CLASS lcl_grid DEFINITION
class lcl_grid DEFINITION.
  PUBLIC SECTION.
    methods: handle_data_changed
             for event data_changed of cl_gui_alv_grid
             IMPORTING er_data_changed.
endclass.                    "lcl_grid DEFINITION
      CLASS lcl_grid IMPLEMENTATION
class lcl_grid IMPLEMENTATION.
  method handle_data_changed.
    perform validation using er_data_changed.
  endmethod.                    "handle_data_changed
endclass.                    "lcl_grid IMPLEMENTATION
types: begin of ty_itab,
       vbeln  TYPE vbap-vbeln,
       posnr  TYPE vbap-posnr,
       netwr  TYPE vbap-netwr,
      end of ty_itab.
data: lt_itab TYPE TABLE OF ty_itab,
      lw_itab TYPE ty_itab.
data: lt_fcat type lvc_t_fcat,
      lw_fcat TYPE lvc_s_fcat.
data: l_grid    TYPE REF TO cl_gui_alv_grid,
      l_custom  TYPE REF TO cl_gui_custom_container,
      l_class   TYPE ref to lcl_grid.
start-of-selection.
  select vbeln
         posnr
         netwr
         from vbap
         into table lt_itab
         up to 50 rows.
  delete lt_itab where posnr ne '000010'.
  perform build_fieldcatalog.
  call screen 200.
*&      Module  STATUS_0200  OUTPUT
      text
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS 'ZST_GUI'.
SET TITLEBAR 'xxx'.
  if l_custom is initial.
    CREATE OBJECT L_CUSTOM
      EXPORTING
       PARENT                      =
        CONTAINER_NAME              = 'CUSTOM'
       STYLE                       =
       LIFETIME                    = lifetime_default
       REPID                       =
       DYNNR                       =
       NO_AUTODEF_PROGID_DYNNR     =
      EXCEPTIONS
        CNTL_ERROR                  = 1
        CNTL_SYSTEM_ERROR           = 2
        CREATE_ERROR                = 3
        LIFETIME_ERROR              = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5
        others                      = 6
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CREATE OBJECT L_GRID
      EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
        I_PARENT          = l_custom
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT  =
   I_NAME            =
   I_FCAT_COMPLETE   = SPACE
EXCEPTIONS
   ERROR_CNTL_CREATE = 1
   ERROR_CNTL_INIT   = 2
   ERROR_CNTL_LINK   = 3
   ERROR_DP_CREATE   = 4
   others            = 5
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CALL METHOD L_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
   I_BUFFER_ACTIVE               =
   I_BYPASSING_BUFFER            =
   I_CONSISTENCY_CHECK           =
   I_STRUCTURE_NAME              =
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = 'X'
   IS_LAYOUT                     =
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          =
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
   IR_SALV_ADAPTER               =
      CHANGING
        IT_OUTTAB                     = lt_itab[]
        IT_FIELDCATALOG               = lt_fcat[]
   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.
    create OBJECT l_class.
  endif.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE USER_COMMAND_0200 INPUT.
  if sy-ucomm = 'EXIT'.
    leave program.
  elseif sy-ucomm = 'SAVE'.
    set HANDLER l_class->handle_data_changed for l_grid.
    data: l_char TYPE c.
    CALL METHOD L_GRID->CHECK_CHANGED_DATA
      IMPORTING
        E_VALID = l_char.
  endif.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Form  BUILD_FIELDCATALOG
      text
-->  p1        text
<--  p2        text
FORM BUILD_FIELDCATALOG .
  clear lw_fcat.
  lw_fcat-fieldname = 'VBELN'.
  lw_fcat-scrtext_l = 'Sales document'.
  append lw_fcat to lt_fcat.
  clear lw_fcat.
  lw_fcat-fieldname = 'POSNR'.
  lw_fcat-scrtext_l = 'Sales document'.
  append lw_fcat to lt_fcat.
  clear lw_fcat.
  lw_fcat-fieldname = 'NETWR'.
  lw_fcat-scrtext_l = 'Quantity'.
  lw_fcat-edit      = 'X'.
  append lw_fcat to lt_fcat.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form  VALIDATION
      text
     -->P_ER_DATA_CHANGED  text
FORM VALIDATION  USING    er_data_changed TYPE REF TO
cl_alv_changed_data_protocol.
  data: temp type vbap-netwr.
  DATA: ls_good TYPE lvc_s_modi.
DATA wa LIKE LINE OF lt_good_cells.
  CALL METHOD l_grid->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_modified.
  LOOP AT er_data_changed->mt_good_cells INTO ls_good.
    CASE ls_good-fieldname.
      WHEN 'NETWR'. "Your fieldname
      CALL METHOD er_data_changed->get_cell_value "Get the changed value
      EXPORTING
      i_row_id = ls_good-row_id
      i_fieldname = ls_good-fieldname
      IMPORTING
      e_value = temp. "Your temp variable
        if temp > 1000000.
message e000(8i) with 'amount should not be greater than 200'.
        endif.
        "Make your validations here.
    ENDCASE.
  endloop.
ENDFORM.                    " VALIDATION
in the ZST_GUI
there are two function code 'SAVE' and 'EXIT'.
regards,
Santosh Thorat