SAP CDS+AMDP获取订单状态文本（替代函数STATUS_TEXT_EDIT）

DeveloperMrMeng

已于 2024-01-24 20:34:28 修改

阅读量1.9k

点赞数 25

分类专栏： SAP技术小知识文章标签： abap sap erp CDS AMDP 生产订单状态

于 2024-01-24 16:18:17 首次发布

本文链接：https://blog.csdn.net/DeveloperMrMeng/article/details/135824189

版权

SAP技术小知识专栏收录该内容

65 篇文章

订阅专栏

背景：

客户反映某本报表运行效率极慢，需要进行优化，简单看了代码并且使用SAT分析后，定位了两个主要的问题，最主要的问题是合计数量的时候在LOOP循环中使用了SELECT SUM(*) FROM internal_table，而且还有很多个，导致当LOOP的本地内表条目比较大的时候，效率将会受到非常大的影响；其次是在循环中调用函数STATUS_TEXT_EDIT来获取订单文本，这个其实影响不算很大，但为了最大化提升效率，针对这点也做了优化。

优化前：time out dump。

优化后：10秒运行完成。

问题点1：

最大的元凶就是下面这段代码，LOOP中多个聚合函数导致随着数据量的增加，效率会异常低下。

解决方式：

sort table + collect

问题点2：

循环中调用函数获取订单状态文本，对性能影响较小，不过本着能优则优的心态，顺手也对其进行了优化。

解决方式：

table function + cds view

1.首先定义table function：ZPRPP_ORDER_STATUS_TF

@ClientDependent: false
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'Table function for get PP order status'
define table function ZPRPP_ORDER_STATUS_TF
returns
{
  objnr          :j_objnr;
  status_profile :j_stsma;
  @EndUserText.label: 'System status'
  system_status  :char60;
}
implemented by method
  zprcl_st_text=>get_status_text;

2.然后创建实现类： zprcl_st_text

CLASS zprcl_st_text DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.
    INTERFACES if_amdp_marker_hdb.


    CLASS-METHODS get_status_text FOR TABLE FUNCTION zprpp_order_status_tf.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS zprcl_st_text IMPLEMENTATION.
  METHOD get_status_text BY DATABASE FUNCTION
                               FOR HDB
                               LANGUAGE SQLSCRIPT
                               OPTIONS READ-ONLY
                               USING jest jsto tj02t tj02 tj04.

    declare lv_99 "$ABAP.type( numc2 )";

    lv_99 = 99;

    gt_status = select distinct
                       a.objnr,
                       b.stsma as status_profile,
                       d.txt04 as system_status,
                       E.nodis as no_display,

                       CASE
                         when f.linep is not null or f.linep <> 00 then
                           f.linep
                         else
                           lv_99
                       end as position,

                       CASE
                         when f.statp is not null or f.statp <> 00 then
                           f.statp
                         else
                           lv_99
                       end as priority

                  from jest as a
                 inner join jsto as b
                    on b.objnr = a.objnr
                  left outer join tj02t as d
                    on d.istat = a.stat
                 inner join tj02 as e on e.istat = a.stat
                  left outer join tj04 as f
                    on f.obtyp = b.obtyp
                   and f.istat = a.stat
                 where a.inact <> 'X'
                   and e.nodis <> 'X'
                   and a.mandt = session_context('CLIENT')
                   and b.mandt = session_context('CLIENT')
                   and d.spras = session_context('LOCALE_SAP')
                         order by POSITION desc,
                         priority desc,
                         system_status desc;

    RETURN SELECT objnr,
                  status_profile,
                  STRING_AGG( system_status, char( 32 ) ORDER BY position asc, priority asc, system_status asc ) as system_status
             FROM :gt_status
             GROUP BY objnr, status_profile;
  ENDMETHOD.
ENDCLASS.

3.最后创建cds view:

@AbapCatalog.sqlViewName: 'ZPRPPORDSTTXT'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'CDS View for get PP order status text'
define view ZPRPP_ORDER_STATUS_V
  as select from ZPRPP_ORDER_STATUS_TF
{
  key objnr,
      status_profile,
      @EndUserText.label: 'System status'
      cast(system_status as abap.char(60)) as system_status
}

4.在循环外直接根据AFKO-OBJNR关联该cds对应的sql view，一条sql即可获取订单状态。