SAP Fiori RAP CDS行为模型实战指南-代码聚汇网

SAP Fiori RAP CDS行为模型实战指南

张瑞15129378030

1. SAP Fiori RAP CDS行为模型深度解析

作为一名在SAP领域摸爬滚打十年的老鸟，我发现很多开发者在接触Fiori Elements时都会在行为定义(Behavior)这个环节卡壳。今天我就用最接地气的方式，带大家彻底搞懂RAP框架中的CDS行为模型到底怎么玩。

RAP(Restful ABAP Programming)是SAP S/4HANA时代的核心开发框架，而CDS行为定义则是连接前端Fiori UI和后端业务逻辑的神经中枢。简单来说，它决定了你的应用能做什么（创建、读取、更新、删除）、怎么做（校验逻辑、自动计算）以及什么时候做（状态控制）。下面这个例子展示了最基本的CDS行为定义：

abap复制define behavior for ZI_Travel_RAP alias Travel
{
  // 标准CRUD操作
  create;
  update;
  delete;

  // 字段级控制
  field ( readonly ) TravelID;
  
  // 动作定义
  action ( features : instance ) acceptTravel result [1] $self;
}

2. 核心行为类型与实现套路

2.1 标准CRUD行为的隐藏玩法

你以为create; update; delete;就是简单的声明？其实每个操作背后都有玄机：

abap复制create (features: instance)
update (features: instance)
delete (features: instance)

这个features: instance参数控制着UI上的按钮显示逻辑。我遇到过最坑的情况是忘记加这个参数，导致移动端Fiori Client上操作按钮神秘消失。解决方案是在unmanaged_save方法中补全校验逻辑：

abap复制METHOD unmanaged_save.
    DATA(lo_travel) = zcl_travel_bo=>get_instance( keys ).
    lo_travel->validate_business_data( ).
    lo_travel->save_to_db( ).
ENDMETHOD.

2.2 字段控制的实战技巧

字段控制常见三种场景：

只读字段：field ( readonly ) TravelID;
必输字段：field ( mandatory ) BeginDate;
隐藏字段：field ( hidden ) LastChangedAt;

但实际项目中我更喜欢用动态控制：

abap复制METHOD get_features.
    result = VALUE #( FOR key IN keys 
                     ( %tky = key-%tky
                       %field-Status = COND #( WHEN ... THEN if_abap_behv=>fc-f-read_only
                                               ELSE if_abap_behv=>fc-f-unrestricted )
                     ) ).
ENDMETHOD.

3. 自定义动作的进阶操作

3.1 状态控制动作的实现

审批流中最常用的acceptTravel动作，需要配合状态字段使用：

abap复制action ( features : instance ) acceptTravel result [1] $self;

METHOD acceptTravel.
    DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
    LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>).
      <ls_travel>->set_status( 'A' ). " Approved
    ENDLOOP.
    
    " 必须返回修改后的实体
    result = VALUE #( FOR key IN keys 
                     ( %tky = key-%tky
                       %param = CORRESPONDING #( <ls_travel>->get_data( ) )
                     ) ).
ENDMETHOD.

3.2 带参数动作的骚操作

当需要弹出参数对话框时：

abap复制action ( features : instance ) rescheduleTravel 
       parameter ZI_TravelReschedule 
       result [1] $self;

对应的参数CDS视图：

abap复制@AccessControl.authorizationCheck: #NOT_REQUIRED
define view ZI_TravelReschedule as select from ztravel_reschedule {
  key travel_id,
  new_begin_date,
  new_end_date,
  reason
}

4. 校验逻辑的避坑指南

4.1 字段级校验的最佳实践

abap复制METHOD validateEndDate.
    DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
    LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>).
      IF <ls_travel>-end_date < <ls_travel>-begin_date.
        APPEND VALUE #( %tky = <ls_travel>-%tky ) TO failed.
        APPEND VALUE #( %tky = <ls_travel>-%tky
                        %msg = new_message( id = 'ZTRAVEL_MSG'
                                           number = '001'
                                           severity = if_abap_behv=>msgerror )
                      ) TO reported.
      ENDIF.
    ENDLOOP.
ENDMETHOD.

4.2 跨字段校验的经典套路

处理像"结束日期不能早于开始日期"这类需求时，必须在late numbering阶段处理：

abap复制METHOD adjust_numbers.
    LOOP AT entities ASSIGNING FIELD-SYMBOL(<entity>).
      IF <entity>-end_date < <entity>-begin_date.
        <entity>-end_date = <entity>-begin_date + 7. " 默认延期一周
      ENDIF.
    ENDLOOP.
ENDMETHOD.

5. 性能优化实战技巧

5.1 批量处理的正确姿势

新手常犯的错误是逐条处理数据：

abap复制" 错误示范
LOOP AT keys INTO DATA(key).
  DATA(lo_travel) = zcl_travel_bo=>get_instance( key ).
  ...
ENDLOOP.

正确的批量处理方式：

abap复制" 正确做法
DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>).
  ...
ENDLOOP.

5.2 缓存策略的巧妙应用

在determination中使用缓存可以大幅提升性能：

abap复制METHOD calculateTotalPrice.
    DATA: lt_travel TYPE SORTED TABLE OF ztravel WITH UNIQUE KEY travel_id.
    
    " 批量读取主数据
    SELECT * FROM ztravel INTO TABLE @lt_travel
     FOR ALL ENTRIES IN @keys WHERE travel_id = @keys-TravelID.
    
    " 批量读取子项
    DATA(lt_items) = zcl_item_bo=>get_instances( keys ).
    
    LOOP AT keys INTO DATA(key).
      DATA(lv_total) = REDUCE decfloat34( 
        INIT sum = 0 
        FOR <item> IN FILTER #( lt_items USING KEY entity WHERE travel_id = key-TravelID )
        NEXT sum += <item>-price * <item>-quantity ).
      
      " 更新缓存实体
      MODIFY ENTITIES OF ZI_Travel_RAP IN LOCAL MODE
        ENTITY Travel UPDATE FIELDS ( total_price )
        WITH VALUE #( ( %tky = key-%tky total_price = lv_total ) ).
    ENDLOOP.
ENDMETHOD.

6. 调试技巧与常见坑点

6.1 行为调试的独门秘技

在unmanaged_save方法中设置外部断点是最有效的调试方式：

abap复制METHOD unmanaged_save.
    BREAK-POINT ID zrap_debug.
    ...
ENDMETHOD.

然后通过事务码SAAB设置过滤器：

code复制Object Name: ZCL_TRAVEL_BO*
Method Name: UNMANAGED_SAVE

6.2 我踩过的三个经典大坑

幽灵字段问题：当发现某些字段莫名其妙被清空时，检查是否漏掉了field声明
动作消失之谜：移动端按钮不显示？检查是否漏了features:instance
校验失效陷阱：后置校验不生效？确认是否在late numbering阶段处理

7. 与Fiori Elements的深度集成

7.1 注解控制UI行为

abap复制@UI: { 
  lineItem: [ { position: 10, importance: #HIGH } ],
  identification: [ { position: 20 } ],
  selectionField: [ { position: 30 } ]
}
BeginDate;

7.2 动作按钮的精细控制

通过determination动态控制按钮状态：

abap复制METHOD determineActionControl.
    DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
    result = VALUE #( FOR ls_travel IN lt_travel
                     ( %tky = ls_travel-%tky
                       %action-acceptTravel = COND #( WHEN ls_travel-status = 'N' 
                                                      THEN if_abap_behv=>fc-o-enabled
                                                      ELSE if_abap_behv=>fc-o-disabled )
                     ) ).
ENDMETHOD.

8. 复杂业务场景实战

8.1 主子表联动的经典实现

abap复制METHOD validateItemQuantity.
    DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
    DATA(lt_items) = zcl_item_bo=>get_instances( keys ).
    
    LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>).
      DATA(lv_total_qty) = REDUCE i( 
        INIT sum = 0 
        FOR <item> IN FILTER #( lt_items USING KEY entity WHERE travel_id = <ls_travel>-travel_id )
        NEXT sum += <item>-quantity ).
      
      IF lv_total_qty > <ls_travel>-max_quantity.
        APPEND VALUE #( %tky = <ls_travel>-%tky ) TO failed.
        APPEND VALUE #( %tky = <ls_travel>-%tky
                        %msg = new_message( ... )
                      ) TO reported.
      ENDIF.
    ENDLOOP.
ENDMETHOD.

8.2 状态机的优雅实现

abap复制METHOD validateStatusTransition.
    DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
    
    LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>).
      CASE <ls_travel>-status.
        WHEN 'N'. " New
          IF update_operation = 'ACCEPT' AND NOT has_authority( 'Z_TRAVEL_APPROVER' ).
            APPEND VALUE #( %tky = <ls_travel>-%tky ) TO failed.
            APPEND VALUE #( ... ) TO reported.
          ENDIF.
          
        WHEN 'A'. " Approved
          " 审批后不允许修改基础信息
          IF update_operation = 'UPDATE' AND modified_fields CONTAINS 'BEGIN_DATE'.
            APPEND VALUE #( %tky = <ls_travel>-%tky ) TO failed.
            APPEND VALUE #( ... ) TO reported.
          ENDIF.
      ENDCASE.
    ENDLOOP.
ENDMETHOD.

9. 性能监控与优化

9.1 关键性能指标采集

在save_sequence中插入性能采集代码：

abap复制METHOD save_sequence.
    DATA(lv_start) = utclong_current( ).
    
    " 原有业务逻辑
    ...
    
    DATA(lv_duration) = utclong_current( ) - lv_start.
    zcl_perf_monitor=>record( 
      object    = 'Z_TRAVEL_SAVE'
      operation = CONV #( requested_early )
      duration  = lv_duration
      records   = lines( keys )
    ).
ENDMETHOD.

9.2 批量处理优化策略

对于大数据量处理，建议采用分块提交策略：

abap复制METHOD process_in_chunks.
    DATA: lt_chunk TYPE STANDARD TABLE OF /bobf/s_frw_key.
    
    " 每100条记录作为一个处理块
    DO lines( keys ) DIV 100 + 1 TIMES.
      CLEAR lt_chunk.
      LOOP AT keys INTO DATA(key) FROM ( sy-index - 1 ) * 100 + 1
                               TO   sy-index * 100.
        APPEND key TO lt_chunk.
      ENDLOOP.
      
      IF lt_chunk IS NOT INITIAL.
        " 处理当前分块
        super->process_in_chunks( lt_chunk ).
        
        " 显式提交
        COMMIT WORK AND WAIT.
      ENDIF.
    ENDDO.
ENDMETHOD.

10. 版本兼容性处理

10.1 多版本API的兼容方案

abap复制METHOD feature_control.
    " 检查S/4HANA版本
    DATA(lv_release) = cl_abap_system_services=>get_release( ).
    
    IF lv_release(4) >= '2022'.
      " 新版本特性
      result = VALUE #( FOR key IN keys
                       ( %tky = key-%tky
                         %features-%action-newFeature2022 = if_abap_behv=>fc-o-enabled
                       ) ).
    ELSE.
      " 旧版本回退
      result = VALUE #( FOR key IN keys
                       ( %tky = key-%tky
                         %features-%action-fallbackFeature = if_abap_behv=>fc-o-enabled
                       ) ).
    ENDIF.
ENDMETHOD.

10.2 向后兼容的字段处理

abap复制METHOD adjust_numbers.
    LOOP AT entities ASSIGNING FIELD-SYMBOL(<entity>).
      " 新版本字段不存在时提供默认值
      IF NOT line_exists( <entity>-%control-new_field ).
        <entity>-new_field = 'DEFAULT_VALUE'.
      ENDIF.
    ENDLOOP.
ENDMETHOD.

11. 安全控制实战

11.1 字段级权限控制

abap复制METHOD get_features.
    DATA(lv_user_role) = zcl_auth_check=>get_user_role( ).
    
    result = VALUE #( FOR key IN keys
                     ( %tky = key-%tky
                       %field-Price = COND #( WHEN lv_user_role = 'ACCOUNTANT' 
                                              THEN if_abap_behv=>fc-f-unrestricted
                                              ELSE if_abap_behv=>fc-f-read_only )
                     ) ).
ENDMETHOD.

11.2 动作权限的精细控制

abap复制METHOD determineActionControl.
    DATA(lt_auth) = zcl_auth_check=>check_bulk_action_auth(
      object = 'ZTRAVEL'
      action = 'APPROVE'
      keys   = keys
    ).
    
    result = VALUE #( FOR ls_auth IN lt_auth
                     ( %tky = ls_auth-key
                       %action-acceptTravel = COND #( WHEN ls_auth-authorized = abap_true
                                                      THEN if_abap_behv=>fc-o-enabled
                                                      ELSE if_abap_behv=>fc-o-disabled )
                     ) ).
ENDMETHOD.

12. 异常处理的艺术

12.1 业务异常的统一处理

abap复制METHOD save_modified.
    TRY.
        super->save_modified( ).
        
      CATCH zcx_travel_error INTO DATA(lx_error).
        " 转换业务异常为行为框架异常
        APPEND VALUE #( %tky = lx_error->travel_key ) TO failed-travel.
        APPEND VALUE #( %tky = lx_error->travel_key
                        %msg = new_message( id       = lx_error->msgid
                                           number   = lx_error->msgno
                                           severity = CONV #( lx_error->severity ) )
                      ) TO reported-travel.
    ENDTRY.
ENDMETHOD.

12.2 数据库异常的优雅处理

abap复制METHOD unmanaged_save.
    TRY.
        " 业务逻辑处理
        ...
        
        " 数据库操作
        MODIFY ztravel FROM TABLE @lt_travel.
        
      CATCH cx_sy_open_sql_db INTO DATA(lx_db_error).
        " 提取具体错误记录
        DATA(ls_error_detail) = zcl_sql_error_parser=>parse( lx_db_error ).
        
        " 精准定位失败记录
        LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>)
                         WHERE travel_id = ls_error_detail-record_id.
          APPEND VALUE #( %tky = CORRESPONDING #( <ls_travel> ) ) TO failed.
          APPEND VALUE #( %tky = CORRESPONDING #( <ls_travel> )
                          %msg = new_message( ... )
                        ) TO reported.
        ENDLOOP.
    ENDTRY.
ENDMETHOD.

13. 测试驱动开发实践

13.1 行为测试类的标准结构

abap复制CLASS ltc_travel_behavior DEFINITION FINAL
      FOR TESTING RISK LEVEL CRITICAL DURATION MEDIUM.
  PRIVATE SECTION.
    METHODS:
      " 测试方法
      create_travel FOR TESTING,
      update_travel FOR TESTING,
      delete_travel FOR TESTING,
      
      " 测试准备
      class_setup,
      setup.
      
    DATA:
      mo_cut TYPE REF TO zbp_travel_rap,  " 被测行为类
      mt_keys TYPE /bobf/t_frw_key.       " 测试用键值表
ENDCLASS.

13.2 集成测试的完整示例

abap复制METHOD create_travel.
    " 准备测试数据
    DATA(ls_travel) = VALUE zst_travel(
      travel_id = 'TEST001'
      begin_date = cl_abap_context_info=>get_system_date( )
      end_date = cl_abap_context_info=>get_system_date( ) + 7
    ).
    
    " 执行创建操作
    MODIFY ENTITIES OF zi_travel_rap
      ENTITY Travel
      CREATE FROM VALUE #( ( %cid = 'TEST_CREATE'
                             %data = CORRESPONDING #( ls_travel ) ) )
      MAPPED DATA(ls_mapped)
      FAILED DATA(ls_failed)
      REPORTED DATA(ls_reported).
    
    " 验证结果
    cl_abap_unit_assert=>assert_initial( ls_failed-travel ).
    cl_abap_unit_assert=>assert_not_initial( ls_mapped-travel ).
    
    " 验证数据库记录
    SELECT SINGLE FROM ztravel FIELDS travel_id
     WHERE travel_id = @ls_travel-travel_id
     INTO @DATA(lv_db_id).
    cl_abap_unit_assert=>assert_subrc( ).
ENDMETHOD.

14. 调试与问题排查

14.1 行为调试的三板斧

检查行为定义：事务码BEFD查看行为定义是否激活正确
监控SQL语句：事务码ST05跟踪数据库操作
分析内存快照：事务码SAT捕获性能瓶颈

14.2 常见错误代码速查表

错误代码	可能原因	解决方案
BEH002	行为定义未激活	重新激活行为定义
BEH101	键字段缺失	检查CDS视图的key定义
BEH204	权限不足	检查授权对象配置
BEH307	校验失败	检查validate方法实现

15. 与周边组件的集成

15.1 与OData服务的无缝对接

abap复制METHOD get_global_authorizations.
    " 控制OData层面的权限
    IF is_authorized-%action-acceptTravel = if_abap_behv=>fc-o-enabled.
      result = VALUE #( %update = if_abap_behv=>auth-allowed
                        %action-acceptTravel = if_abap_behv=>auth-allowed ).
    ELSE.
      result = VALUE #( %update = if_abap_behv=>auth-unauthorized
                        %action-acceptTravel = if_abap_behv=>auth-unauthorized ).
    ENDIF.
ENDMETHOD.

15.2 与工作流集成的经典模式

abap复制METHOD start_approval_process.
    DATA(lt_travel) = zcl_travel_bo=>get_instances( keys ).
    
    LOOP AT lt_travel ASSIGNING FIELD-SYMBOL(<ls_travel>).
      " 创建工作流实例
      DATA(lv_wi_id) = zcl_wf_launcher=>start_workflow(
        object_type = 'ZTRAVEL'
        object_key  = <ls_travel>-travel_id
        event       = 'APPROVAL_REQUEST'
      ).
      
      " 更新工作流ID到业务对象
      <ls_travel>-workflow_id = lv_wi_id.
    ENDLOOP.
    
    " 批量保存
    zcl_travel_bo=>save_instances( lt_travel ).
ENDMETHOD.

16. 性能优化进阶

16.1 延迟加载的巧妙实现

abap复制METHOD read.
    " 仅读取基本字段
    IF requested_fields IS INITIAL OR line_exists( requested_fields[ table_line = 'TRAVEL_ID' ] ).
      SELECT travel_id, begin_date, end_date FROM ztravel
        FOR ALL ENTRIES IN @keys
        WHERE travel_id = @keys-TravelID
        INTO CORRESPONDING FIELDS OF TABLE @result.
    ENDIF.
    
    " 按需读取复杂字段
    IF line_exists( requested_fields[ table_line = 'TOTAL_PRICE' ] ).
      " 调用计算逻辑
      LOOP AT result ASSIGNING FIELD-SYMBOL(<result>).
        <result>-total_price = calculate_price( <result>-travel_id ).
      ENDLOOP.
    ENDIF.
ENDMETHOD.

16.2 批量预加载的优化策略

abap复制METHOD read.
    " 预加载主数据
    SELECT * FROM ztravel
      FOR ALL ENTRIES IN @keys
      WHERE travel_id = @keys-TravelID
      INTO TABLE @DATA(lt_travel).
    
    " 预加载关联数据
    SELECT * FROM ztravel_item
      FOR ALL ENTRIES IN @keys
      WHERE travel_id = @keys-TravelID
      INTO TABLE @DATA(lt_items).
    
    " 组装结果
    result = VALUE #( FOR ls_travel IN lt_travel
                     ( CORRESPONDING #( ls_travel )
                       %control = VALUE #( 
                         TravelID    = if_abap_behv=>mk-on
                         BeginDate   = if_abap_behv=>mk-on
                         EndDate     = if_abap_behv=>mk-on
                         TotalPrice  = if_abap_behv=>mk-on )
                     ) ).
ENDMETHOD.

17. 云环境适配技巧

17.1 BTP环境下的特殊处理

abap复制METHOD save_modified.
    " 检查运行环境
    IF cl_abap_context_info=>is_cloud_system( ) = abap_true.
      " 云环境下禁用直接数据库访问
      IF requested_early = 'COMMIT'.
        zcl_btp_service=>call_persistence_service(
          entity = 'Travel'
          operation = 'UPDATE'
          data = CORRESPONDING #( entities )
        ).
        RETURN.
      ENDIF.
    ENDIF.
    
    " 本地环境走标准流程
    super->save_modified( ).
ENDMETHOD.

17.2 多租户数据隔离方案

abap复制METHOD read.
    " 获取当前租户
    DATA(lv_tenant) = cl_abap_context_info=>get_tenant_id( ).
    
    " 按租户过滤数据
    SELECT * FROM ztravel
      FOR ALL ENTRIES IN @keys
      WHERE travel_id = @keys-TravelID
        AND tenant_id = @lv_tenant
      INTO CORRESPONDING FIELDS OF TABLE @result.
ENDMETHOD.

18. 移动端适配要点

18.1 离线模式特殊处理

abap复制METHOD determineMode.
    " 检查是否离线模式
    DATA(lv_is_offline) = cl_fpm_offline_services=>is_offline_mode( ).
    
    result = VALUE #( FOR key IN keys
                     ( %tky = key-%tky
                       %features-%update = COND #( WHEN lv_is_offline = abap_true
                                                   THEN if_abap_behv=>fc-f-read_only
                                                   ELSE if_abap_behv=>fc-f-unrestricted )
                     ) ).
ENDMETHOD.

18.2 移动端字段精简策略

abap复制METHOD get_features.
    " 检查客户端类型
    DATA(lv_client_type) = cl_ui_services=>get_client_type( ).
    
    IF lv_client_type = if_ui_service=>client_type_mobile.
      " 移动端只暴露核心字段
      result = VALUE #( FOR key IN keys
                       ( %tky = key-%tky
                         %field-TravelID    = if_abap_behv=>mk-on
                         %field-BeginDate   = if_abap_behv=>mk-on
                         %field-EndDate     = if_abap_behv=>mk-on
                         %action-acceptTravel = if_abap_behv=>fc-o-enabled
                       ) ).
    ELSE.
      " 桌面端完整字段集
      result = VALUE #( FOR key IN keys
                       ( %tky = key-%tky
                         %features = VALUE #( %enableAllFields = abap_true )
                       ) ).
    ENDIF.
ENDMETHOD.

19. 升级迁移策略

19.1 从传统BOPF迁移到RAP

abap复制METHOD migrate_from_bopf.
    " 1. 转换旧版键值
    DATA(lt_old_keys) = VALUE zbopf_travel_key_tab( FOR key IN keys
                     ( travel_id = key-TravelID ) ).
    
    " 2. 批量读取旧数据
    DATA(lt_old_data) = zcl_legacy_travel_bo=>get_instances( lt_old_keys ).
    
    " 3. 转换数据结构
    DATA(lt_new_entities) = VALUE ztravel_tab( FOR ls_old IN lt_old_data
                     ( CORRESPONDING #( ls_old MAPPING
                        TravelID    = travel_id
                        BeginDate   = start_date
                        EndDate     = end_date
                        Description = remark ) ) ).
    
    " 4. 批量创建新实体
    MODIFY ENTITIES OF ZI_Travel_RAP IN LOCAL MODE
      ENTITY Travel CREATE FROM lt_new_entities
      MAPPED DATA(ls_mapped)
      FAILED DATA(ls_failed)
      REPORTED DATA(ls_reported).
    
    " 5. 返回映射结果
    result = VALUE #( FOR ls_map IN ls_mapped-travel
                     ( source_key = VALUE #( TravelID = lt_old_data[ KEY entity 
                                       travel_id = ls_map-TravelID ]-travel_id )
                       target = ls_map ) ).
ENDMETHOD.

19.2 数据结构变更的平滑过渡

abap复制METHOD adjust_numbers.
    " 处理新增字段的默认值
    LOOP AT entities ASSIGNING FIELD-SYMBOL(<entity>).
      IF NOT line_exists( <entity>-%control-NewField ).
        <entity>-NewField = 'DEFAULT_VALUE'.
      ENDIF.
    ENDLOOP.
    
    " 处理废弃字段
    IF requested_early = 'PREPARE'.
      LOOP AT entities ASSIGNING <entity>.
        CLEAR: <entity>-DeprecatedField.
      ENDLOOP.
    ENDIF.
ENDMETHOD.

20. 监控与运维

20.1 行为日志的标准化记录

abap复制METHOD save_modified.
    " 记录操作日志
    zcl_audit_log=>log_begin( object = 'ZTRAVEL'
                              operation = requested_early
                              count = lines( entities ) ).
    
    TRY.
        super->save_modified( ).
        zcl_audit_log=>log_success( ).
        
      CATCH cx_root INTO DATA(lx_error).
        zcl_audit_log=>log_error( exception = lx_error ).
        RAISE EXCEPTION lx_error.
    ENDTRY.
ENDMETHOD.

20.2 性能监控的埋点策略

abap复制METHOD calculateTotalPrice.
    DATA(lv_start) = cl_abap_runtime=>get_runtime( ).
    
    " 原有计算逻辑
    ...
    
    " 记录性能指标
    zcl_perf_monitor=>record(
      component = 'BEHAVIOR'
      operation = 'CALCULATE_TOTAL'
      duration  = cl_abap_runtime=>get_runtime( ) - lv_start
      records   = lines( keys )
    ).
ENDMETHOD.