SAP class creation

最新推荐文章于 2025-07-09 17:58:06 发布

free_pop2k

最新推荐文章于 2025-07-09 17:58:06 发布

阅读量759

点赞数

CC 4.0 BY-SA版权

文章标签： class sap command delete user methods

本文链接：https://blog.youkuaiyun.com/free_pop2k/article/details/2278097

本文介绍了一个ABAP程序中ALV Grid双击事件的具体实现方法。通过定义类`lcl_event_alv`及其实现，文章详细展示了如何在双击事件触发时读取表格数据并进行相应操作。此外，还提供了一个用于处理不同命令的表单`f_user_command`，实现了数据验证、更新等关键功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

CLASS lcl_event_alv DEFINITION.

  PUBLIC SECTION.
    METHODS:
      h_double_click FOR EVENT double_click OF cl_gui_alv_grid
                     IMPORTING e_row                         "#EC NEEDED
                               e_column.                     "#EC NEEDED

ENDCLASS.                                                    " LCL_EVENT_ALV DEFINITION
*---------------------------------------------------------------------*
*        Class (Implementation)  lcl_event_alv
*---------------------------------------------------------------------*
CLASS lcl_event_alv IMPLEMENTATION.

  METHOD h_double_click.
*    READ TABLE gt_user INDEX e_row-index INTO gs_user.
    IF sy-subrc EQ 0.
      PERFORM f_user_command USING '&IC1'.

    ENDIF.
  ENDMETHOD.                           " H_double_click

ENDCLASS.                              " LCL_EVENT_ALV

*&---------------------------------------------------------------------*
*&      Form  f_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->U_UCOMM    text
*----------------------------------------------------------------------*
FORM f_user_command USING u_ucomm TYPE sy-ucomm.

    Data : lv_valid      TYPE char1.           "#EC NEEDED
    Data : lw_data       type ZTMMCUST101_CN  .

  CASE u_ucomm.
*RC - 2008.04.07 -->
*    WHEN '&IC1'.

    WHEN c_save.

*     Verification of Changes
      CALL METHOD go_alv_grid->check_changed_data
        IMPORTING
          e_valid = lv_valid.

*     Delete table
      loop at gt_data assigning <fs_data>.
        delete table  gt_grid1 from <fs_data>.
      endloop.

      loop at gt_grid1 assigning <fs_data>.
        MOVE-CORRESPONDING   <fs_data>  to lw_data.
        delete ZTMMCUST101_CN from lw_data.
        free lw_data.
      endloop.

*     Update Modify table
      LOOP AT gt_data assigning  <fs_data>.

        MOVE-CORRESPONDING   <fs_data>  to lw_data.
        modify ZTMMCUST101_CN from lw_data.
        free lw_data.
      ENDLOOP.

      message i009(z_dev_custom_cn).

  ENDCASE.

endform.                    "f_user_command