Functional ALV系列 (05) - ALV 作为数据编辑界面

最新推荐文章于 2023-12-20 10:11:26 发布

stone0823

最新推荐文章于 2023-12-20 10:11:26 发布

阅读量780

点赞数 1

分类专栏： # SAP ABAP

本文链接：https://blog.csdn.net/stone0823/article/details/117926005

版权

SAP ABAP 专栏收录该内容

34 篇文章 66 订阅

订阅专栏

本篇介绍如何将 ALV 作为数据编辑界面来使用。关于 ALV 作为编辑界面的方法，我在如何对SAP数据库表进行增删改查操作这篇博文里已有详细说明，本文不再重复过程。本篇的目的是继续深入，讲解 ALV 作为界面的要点，并且提供一个通用的在 AVL 中修改表的程序。

FALV 作为编辑界面的要点

编写一个能运行的用 ALV 显示数据的程序
从 SAPLKKBL 拷贝 standard 工具栏到本程序，命名为 zstandard
在工具栏中添加一个 Save 按钮
设置 ALV 可编辑
在程序中添加用于设置工具栏和处理用户命令的两个子例程并且进行应用

完成后的完整代码如下：

report  z_falv_009.

type-pools: slis.

data: gt_fieldcat type slis_t_fieldcat_alv,
      gs_fieldcat type slis_fieldcat_alv.

data:gt_spfli type standard table of spfli,
     gs_spfli like line of gt_spfli.

start-of-selection.
  perform frm_get_data.
  perform frm_disp_data.


*&---------------------------------------------------------------------*
*&      Form  frm_get_data
*&---------------------------------------------------------------------*
form frm_get_data.
  select * from spfli
    into table gt_spfli.
endform.                    "frm_get_data


*&---------------------------------------------------------------------*
*&      Form  frm_disp_data
*&---------------------------------------------------------------------*
form frm_disp_data.
  call function 'Z_FALV_FIELD_CATALOG'
    exporting
      it_output     = gt_spfli[]
    tables
      field_catalog = gt_fieldcat[].

  " make ALV editable if field is not a key
  loop at gt_fieldcat into gs_fieldcat.
    if gs_fieldcat-key = 'X'.
      gs_fieldcat-edit = ''.
    else.
      gs_fieldcat-edit = 'X'.
    endif.
    modify gt_fieldcat from gs_fieldcat.
    clear gs_fieldcat.
  endloop.

  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'FRM_GUI_STATUS'
      i_callback_user_command  = 'FRM_USER_COMMAND'
      it_fieldcat              = gt_fieldcat[]
    tables
      t_outtab                 = gt_spfli[].
endform.                    "frm_disp_data

*&---------------------------------------------------------------------*
*&      Form  frm_gui_status
*&---------------------------------------------------------------------*
form frm_gui_status using ex_tab type slis_t_extab.
  set pf-status 'ZSTANDARD'.
endform.                    "frm_status_set


*&---------------------------------------------------------------------*
*&      Form  frm_user_command
*&---------------------------------------------------------------------*
form frm_user_command using p_ucomm    type sy-ucomm        " user command
                            p_selfield type slis_selfield.  " select field

  data: r_alv_grid type ref to cl_gui_alv_grid.

  case p_ucomm.
    when '&SAVE'.
      if r_alv_grid is initial.
        call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          importing
            e_grid = r_alv_grid.
      endif.

      if not r_alv_grid is initial.
        call method r_alv_grid->check_changed_data.
      endif.

      p_selfield-refresh = 'X'.

      " save data to db
      update spfli from table gt_spfli.

      if sy-subrc is initial.
        message 'Data was saved successfully.' type 'S'.
      else.
        message 'Data was not saved, errors ocured.' type 'S'.
      endif.
  endcase.
endform.                    "frm_user_command

在拷贝的工具栏中添加 Save 按钮（细节略)

设置 ALV 可编辑：

设置工具栏：

处理用户的命令：

锁对象

为了保证多用户操作数据的一致性问题，数据保存到数据库需要添加锁对象并且在程序中调用 FM 来加锁和释放。我的另一篇博文 ABAP - 锁对象及使用方法描述了如何创建和应用锁对象。在程序中应用锁对象的方法如下：

form frm_user_command using p_ucomm    type sy-ucomm        " user command
                            p_selfield type slis_selfield.  " select field

  data: r_alv_grid type ref to cl_gui_alv_grid.

  case p_ucomm.
    when '&SAVE'.
      if r_alv_grid is initial.
        call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          importing
            e_grid = r_alv_grid.
      endif.

      if not r_alv_grid is initial.
        call method r_alv_grid->check_changed_data.
      endif.

      p_selfield-refresh = 'X'.

      " save data to db

      call function 'ENQUEUE_EZ_SPFLI'
        exporting
          mode_spfli     = 'E'
          mandt          = sy-mandt
          _scope         = '2'
        exceptions
          foreign_lock   = 1
          system_failure = 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.
      else.
        update spfli from table gt_spfli.

        if sy-subrc is initial.
          message 'Data was saved successfully.' type 'S'.
        else.
          message 'Data was not saved, errors ocured.' type 'S'.
        endif.

        call function 'DEQUEUE_EZ_SPFLI'
          exporting
            mode_spfli = 'E'
            mandt      = sy-mandt
            _scope     = '3'.
      endif.
  endcase.
endform.                    "frm_user_command

ALV 实现通用表编辑界面

通过动态编程，我们也可以实现对任意表的编辑和保存。新的知识点主要是利用 ABAP 的动态编程语法。在选择屏幕中，输入表名和选择条件：

SAP 展示选择的数据，双击其中一行，在对话框中显示该行：

在弹出的对话矿中，编辑数据后回到主界面，点击保存按钮将数据保存到数据库。

下面是完整代码：

report  z_falv_010.

type-pools: slis.

data: gt_fieldcat type slis_t_fieldcat_alv,
      gs_fieldcat type slis_fieldcat_alv.

data: gt_index   type standard table of i with header line,
      table_name like dd02l-tabname.

data: report_id like sy-repid.

data: dy_table   type ref to data,
      dy_temptab type ref to data, " temporary table for saving to db
      dy_line    type ref to data.

field-symbols: <dyn_table>    type standard table,
               <dyn_wa>       type any,
               <dyn_field>    type any,
               <dyn_tab_temp> type standard table.

*------------------------------------------------------
* Screen
*------------------------------------------------------
parameters: p_tab(30) type c obligatory, " table name
            p_cri     type string.       " criteria

*------------------------------------------------------
* Events
*------------------------------------------------------
start-of-selection.
  report_id = sy-repid.
  table_name = p_tab. " table name

  perform frm_check_if_table_exists using table_name.
  perform frm_get_data.
  perform frm_disp_data.


*&---------------------------------------------------------------------*
*&      Form  frm_check_if_table_exists
*&---------------------------------------------------------------------*
form frm_check_if_table_exists using p_tabname like dd02l-tabname.
  data: l_tabname like dd02l-tabname.
  select single tabname from dd02l into l_tabname
    where tabname = table_name.

  if not sy-subrc is initial.
    message ' No table was found.' type 'E'.
    leave program.
  endif.
endform.                    "frm_check_if_table_exists

*&---------------------------------------------------------------------*
*&      Form  frm_get_data
*&---------------------------------------------------------------------*
form frm_get_data.
  " Create internal table dynamically from table name input in selection screen
  create data dy_table type standard table of (table_name).
  assign dy_table->* to <dyn_table>.

  " Create another temporary table
  create data dy_temptab type standard table of (table_name).
  assign dy_temptab->* to <dyn_tab_temp>.

  " Create work area for the table
  create data dy_line like line of <dyn_table>.
  assign dy_line->* to <dyn_wa>.

  select * from (table_name) into table <dyn_table>
    where (p_cri).

  refresh <dyn_tab_temp>.
endform.                    "frm_get_data


*&---------------------------------------------------------------------*
*&      Form  frm_disp_data
*&---------------------------------------------------------------------*
form frm_disp_data.
  sort gt_fieldcat by col_pos.

  " Display table in ALV
  call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_callback_program       = report_id
      i_structure_name         = table_name
      i_callback_user_command  = 'FRM_USER_COMMAND'
      i_callback_pf_status_set = 'FRM_SET_PF_STATUS'
    tables
      t_outtab                 = <dyn_table>
    exceptions
      program_error            = 1
      others                   = 2.
endform.                    "frm_disp_data


*&---------------------------------------------------------------------*
*&      Form  frm_set_pf_status
*&---------------------------------------------------------------------*
form frm_set_pf_status using rt_extab type slis_t_extab.
  set pf-status 'Z_STANDARD'.
endform.                    "SET_PF_STATUS


*&---------------------------------------------------------------------*
*&      Form  frm_user_command
*&---------------------------------------------------------------------*
form frm_user_command using r_ucomm     like sy-ucomm
                            rs_selfield type slis_selfield.

  data: li_tab type ref to data,
        l_line type ref to data.


  field-symbols:<l_tab> type table,
                <l_wa>  type any.

  " Create table
  create data li_tab type standard table of (table_name).
  assign li_tab->* to <l_tab>.

  " Create work area
  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         = report_id
            i_structure_name       = table_name
          changing
            ct_fieldcat            = gt_fieldcat
          exceptions
            inconsistent_interface = 1
            program_error          = 2
            others                 = 3.
        if sy-subrc = 0.
          " Make all the fields input enabled except key fields
          gs_fieldcat-input = 'X'.
          modify gt_fieldcat from gs_fieldcat transporting input
          where key is initial.
        endif.

        " Display the record for editing purpose
        call function 'REUSE_ALV_LIST_DISPLAY'
          exporting
            i_callback_program    = report_id
            i_structure_name      = table_name
            it_fieldcat           = gt_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>.
            gt_index = rs_selfield-tabindex.
            append gt_index.
          endif.
        endif.
      endif.

    when 'SAVE'.
      " Sort the index table
      sort gt_index.

      " Delete all duplicate records
      delete adjacent duplicates from gt_index.

      loop at gt_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 gt_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        = table_name
        exceptions
          foreign_lock   = 1
          system_failure = 2
          others         = 3.
      if sy-subrc = 0.
        " Modify the database table with the changes
        modify (table_name) from table <dyn_tab_temp>.
        refresh <dyn_tab_temp>.

        " Unlock the table
        call function 'DEQUEUE_E_TABLE'
          exporting
            mode_rstable = 'E'
            tabname      = table_name.

        message 'Data was saved successfully' type 'S'.
      endif.
  endcase.

  rs_selfield-refresh = 'X'.
endform.                    "user_command