ABAP BP屏幕增强

最新推荐文章于 2024-04-11 11:15:37 发布

SAP L同学

最新推荐文章于 2024-04-11 11:15:37 发布

阅读量2.5k

点赞数 1

分类专栏： ABAP 增强文章标签： sap abap

原文链接：https://blog.youkuaiyun.com/guangcong2009/article/details/80569877

版权

ABAP 增强专栏收录该内容

2 篇文章

订阅专栏

1、 BUT000表增强CI_EEW_BUT000，CI_EEW_BUT000_X

2、创建增强结构ZSBUT00_CUST，该结构在DSAVB事件中，会被使用到

3、创建函数组ZSD_BP，增强相关的程序必须全部放在该程序中，包括函数、屏幕、变量

4、在ZSD_BP的include top中定义变量如下：

5、创建屏幕9001，屏幕字段从表BUT000直接F6生成,命名格式必须为BUT000-XXXXX

6、9001屏幕的PBO、PAI如下

6、屏幕增强配置，进入TCODE: BUPT

7、创建应用程序

8、创建数据集

9、创建字段组

10、创建视图

11、创建PBO函数无输入输出参数

function zsd_but000_pbo.
*"----------------------------------------------------------------------
*"*"本地接口：
*"-------------------------------------------------------------------
  data:
    lt_but000   type table of but000.

* step 1: request data from xo for dynpro structure
  "if gs_but000 is initial.
    cvi_bdt_adapter=>data_pbo(
      exporting
        i_table_name = table_name_but000
      importing
        e_data_table = lt_but000[]
    ).
  "endif.

  if lt_but000[] is initial.
    clear gs_but000.
  else.
    read table lt_but000 into gs_but000 index 1.
  endif.

endfunction.

12、创建PAI函数，无输入输出参数

function zsd_but000_pai.
*"----------------------------------------------------------------------
*"*"本地接口：
*"----------------------------------------------------------------------
  data:
      lt_but000         type table of but000.
  field-symbols:
    <but000>          like line of lt_but000.

  check cvi_bdt_adapter=>is_direct_input_active( ) = false.
* step 1: update xo memory from dypro structure
  cvi_bdt_adapter=>get_current_bp_data(
    exporting
      i_table_name = table_name_but000
    importing
      e_data_table = lt_but000[]
  ).

  if lt_but000[] is initial.
    if gs_but000 is not initial.
      gs_but000-partner = cvi_bdt_adapter=>get_current_bp( ).
      append gs_but000 to lt_but000.
    endif.
  else.
    read table lt_but000 assigning <but000> index 1.
    <but000>-zbpmid = gs_but000-zbpmid.
    assign gs_but000 to <but000>.
  endif.

  cvi_bdt_adapter=>data_pai(
    i_table_name = table_name_but000
    i_data_new   = lt_but000[]
    i_validate   = false
  ).
endfunction.