SAP ABAP Odata

GetEntity和GetEntitys

  1. GetEntitys
    创建Odata Project
    SAP ABAP Odata_第1张图片
  2. 导入结构
    SAP ABAP Odata_第2张图片

SAP ABAP Odata_第3张图片
选择需要的字段
SAP ABAP Odata_第4张图片
设定Key
SAP ABAP Odata_第5张图片
勾选字段的creatable、updatable、sortable、nullable、filterable属性值。
SAP ABAP Odata_第6张图片
再依上述步骤创建ZPOITEM结构和实体集
3. 创建ZPOHEADER和ZPOITEM的Association
SAP ABAP Odata_第7张图片
两个实体集的关联字段,关联字段依情况填写,完了下一步点完成
在这里插入图片描述

  1. 生成服务对象
    SAP ABAP Odata_第8张图片
    生成4个类,注册1个模型,1个服务
    ZCL_ZTEST_ODATA1_MPC_EXT 数据处理增强类
    接口逻辑主要处理类,在该类中重定义相应的方法来执行业务处理逻辑
    ZCL_ZTEST_ODATA1_DPC_EXT 模型处理增强类
    接口数据模型定义类,在该类中定义接口结构。

  2. 基于Odata对象生成相应服务
    注册服务并指定系统别名
    SAP ABAP Odata_第9张图片
    SAP ABAP Odata_第10张图片
    注意:别名不跨client,所以需要将别名放入定制请求中,通过scc1传输到开发系统的其他client。最后也需要传输到测试和生产系统。
    注意:odata接口服务传输到测试或生产系统后需要手动激活服务。可以点击下图中的Internet通信框架节点按钮再点击激活按钮,或者在SCIF下激活服务。
    SAP ABAP Odata_第11张图片
    点击定制进入到修改别名视图,点击修改按钮后,选中别名服务行,再点击标示图按钮,选则传输后会弹出选中请求输入框,指定需要放入的定制请求后,点击包含在请求中,最后点击保存按钮后则别名正式被包含在了请求中。
    SAP ABAP Odata_第12张图片
    SAP ABAP Odata_第13张图片
    然后将它包含到请求中再点击保存
    SAP ABAP Odata_第14张图片
    服务注册完成之后,点击SAP Gateway Client(T-Code:/IWFND/GW_CLIENT)按钮进入测试页面
    SAP ABAP Odata_第15张图片

  3. 实现GetEntitys方法(取多条数据)
    SAP ABAP Odata_第16张图片
    重定义Get_EntitySet方法,鼠标右键点击方法
    SAP ABAP Odata_第17张图片
    (注:GET_ENTITYSET后缀的表示取数方法取多条数据,GET_ENTITY后缀的表示取单条)
    SAP ABAP Odata_第18张图片
    IV_ENTITY_NAME区分大小写,与下面的保持一致
    SAP ABAP Odata_第19张图片
    都转成大写,保持一致
    SAP ABAP Odata_第20张图片
    实施重定义的方法

    DATA:lr_ebeln TYPE RANGE OF ekko-ebeln,
         ls_ebeln LIKE LINE OF lr_ebeln,
         lv_top   TYPE i,
         lv_skip  TYPE i.
    es_response_context-count = lines( et_entityset ).
    lv_top = io_tech_request_context->get_top( ).
    lv_skip = io_tech_request_context->get_skip( ).
    CASE translate_entity_name( iv_entity_name ).
      WHEN 'ZPOHEADER'.
        "filter  操作符eq , ne, le, lt , ge, gt
        IF it_filter_select_options[] IS NOT INITIAL.
          READ TABLE it_filter_select_options INTO DATA(lw_filter) WITH KEY property = 'Ebeln'.
          IF  sy-subrc = 0.
            LOOP AT lw_filter-select_options INTO DATA(lw_range).
              MOVE-CORRESPONDING lw_range TO ls_ebeln.
              APPEND ls_ebeln TO lr_ebeln.
            ENDLOOP.
          ENDIF.
        ENDIF.
        SELECT * FROM ekko
                 WHERE ebeln IN @lr_ebeln
                 ORDER BY ebeln
                 INTO CORRESPONDING FIELDS OF TABLE @et_entityset UP TO @lv_top ROWS OFFSET @lv_skip.

        "sort
        IF it_order[] IS NOT INITIAL.
          READ TABLE it_order INTO DATA(lw_order) WITH KEY property = 'Ebeln'.
          IF sy-subrc = 0.
            CASE me->translate_entity_name( lw_order-order ).
              WHEN 'DESC'.
                SORT et_entityset BY ebeln DESCENDING.
              WHEN 'ASC'.
                SORT et_entityset BY ebeln ASCENDING.
              WHEN OTHERS.
            ENDCASE.
          ENDIF.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.

SAP ABAP Odata_第21张图片
Top,skip
SAP ABAP Odata_第22张图片
Filter
SAP ABAP Odata_第23张图片
Orderby
SAP ABAP Odata_第24张图片
7. Get_entity
SAP ABAP Odata_第25张图片

  METHOD zpoheaderset_get_entity.
    CASE  me->translate_entity_name( iv_entity_name ).
      WHEN  'ZPOHEADER'.
        READ TABLE it_key_tab INTO DATA(lw_key_tab) WITH KEY name = 'Ebeln'.
        IF sy-subrc = 0.
          DATA(lv_ebeln) = |{ lw_key_tab-value  ALPHA = IN WIDTH = 10 }|.
          SELECT SINGLE * FROM ekko INTO CORRESPONDING FIELDS OF @er_entity WHERE ebeln = @lv_ebeln.
        ENDIF.
    ENDCASE.
  ENDMETHOD.

Association和Navigation

Association 和 Navigation主要是用来关联两个entity,比如先前例子中的header和item,我们想在获取header数据的同时,还获取其item的数据。
只需要在ITEM的GET_ENTITYSET方法实现即可。

  1. 重定义ITEM的方法
    DATA:lr_ebeln TYPE RANGE OF ekko-ebeln,
         ls_ebeln LIKE LINE OF lr_ebeln,
         lr_ebelp TYPE RANGE OF ekpo-ebelp,
         ls_ebelp LIKE LINE OF lr_ebelp.
    CASE translate_entity_name( iv_entity_name ).
      WHEN 'ZPOITEM'.
        IF it_filter_select_options[] IS NOT INITIAL.
          READ TABLE it_filter_select_options INTO DATA(lw_filter) WITH KEY property = 'Ebeln'.
          IF  sy-subrc = 0.
            LOOP AT lw_filter-select_options INTO DATA(lw_range).
              MOVE-CORRESPONDING lw_range TO ls_ebeln.
              APPEND ls_ebeln TO lr_ebeln.
            ENDLOOP.
          ENDIF.
          READ TABLE it_filter_select_options INTO lw_filter WITH KEY property = 'Ebelp'.
          IF  sy-subrc = 0.
            LOOP AT lw_filter-select_options INTO lw_range.
              MOVE-CORRESPONDING lw_range TO ls_ebelp.
              APPEND ls_ebeln TO lr_ebelp[].
            ENDLOOP.
          ENDIF.
        ENDIF.
        "AssociationNavigation
        READ TABLE it_key_tab INTO DATA(lw_key_tab) WITH KEY name = 'Ebeln'.
        IF sy-subrc = 0.
          DATA(lv_ebeln) = |{ lw_key_tab-value  ALPHA = IN WIDTH = 10 }|.
        ENDIF.
        IF lv_ebeln IS NOT  INITIAL.
          SELECT * FROM ekpo INTO CORRESPONDING FIELDS OF TABLE @et_entityset UP TO 500 ROWS
             WHERE ebeln = @lv_ebeln.
        ELSE.
          SELECT * FROM ekpo INTO CORRESPONDING FIELDS OF TABLE @et_entityset UP TO 500 ROWS
             WHERE ebeln IN @lr_ebeln AND ebelp IN @lr_ebelp.
        ENDIF.
        IF it_order[] IS NOT INITIAL.
          READ TABLE it_order INTO DATA(lw_order) WITH KEY property = 'Ebeln'.
          READ TABLE it_order INTO lw_order WITH KEY property = 'Ebelp'.
          IF sy-subrc = 0.
            CASE me->translate_entity_name( lw_order-order ).
              WHEN 'DESC'.
                SORT et_entityset BY ebeln DESCENDING.
              WHEN 'ASC'.
                SORT et_entityset BY ebeln ASCENDING.
              WHEN OTHERS.
            ENDCASE.
          ENDIF.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.

SAP ABAP Odata_第26张图片

  1. Expand实现
    需重定义/IWBEP/IF_MGW_APPL_SRV_RUNTIME~GET_EXPANDED_ENTITY方法
    SAP ABAP Odata_第27张图片
    "GET po item
    TYPES: ty_item TYPE TABLE OF zcl_ztest_po_mpc_ext=>ts_zpoitem WITH DEFAULT KEY.
    TYPES: BEGIN OF ty_po_data.
        INCLUDE TYPE zcl_ztest_po_mpc_ext=>ts_zpoheader.
    TYPES: zpoitemset TYPE ty_item,
           END OF ty_po_data.
    DATA:ls_po_data TYPE ty_po_data,
         ls_header  TYPE zcl_ztest_po_mpc_ext=>ts_zpoheader,
         lt_item    TYPE ty_item.
    TYPES: ty_header TYPE TABLE OF zcl_ztest_po_mpc_ext=>ts_zpoheader WITH DEFAULT KEY.
    CASE translate_entity_name( io_tech_request_context->get_entity_set_name( ) ).
      WHEN 'ZPOHEADERSET'.
        READ TABLE it_key_tab INTO DATA(ls_key) WITH KEY name = 'Ebeln'.
        IF sy-subrc = 0.
          DATA(lv_ebeln) = |{ ls_key-value ALPHA = IN WIDTH = 10 }|.
          SELECT SINGLE * FROM ekko INTO CORRESPONDING FIELDS OF @ls_header
                WHERE ebeln = @lv_ebeln.
          SELECT * FROM ekpo INTO CORRESPONDING FIELDS OF TABLE @lt_item
                WHERE ebeln = @lv_ebeln.
          MOVE-CORRESPONDING ls_header TO ls_po_data.
          MOVE-CORRESPONDING lt_item[] TO ls_po_data-zpoitemset[].
          copy_data_to_ref( EXPORTING is_data = ls_po_data
                            CHANGING cr_data = er_entity ).
        ENDIF.
      WHEN OTHERS.
    ENDCASE.

SAP ABAP Odata_第28张图片

Create方法实现

Create方法同上面一样,直接重定义对应的Create_Entity方法即可。

  1. 先定义结构,获取传来的参数
    SAP ABAP Odata_第29张图片

  2. 检查主键

  METHOD check_ebeln.
    IF is_header-ebeln IS INITIAL.
      is_message = VALUE #( msgid = 'SY' msgno = '002' attr1 = '采购单为空' ).
    ENDIF.
  ENDMETHOD.
  1. 方法实施
    io_data_provider->read_entry_data( IMPORTING es_data  = gs_header ).
    gs_message = check_ebeln( gs_header ).
    IF gs_message IS  INITIAL.
      MOVE-CORRESPONDING gs_header TO er_entity."返回数据
    ELSE.
      RAISE EXCEPTION TYPE /iwbep/cx_mgw_busi_exception
        EXPORTING
          textid = gs_message.
    ENDIF.

SAP ABAP Odata_第30张图片
主键为空,需报错
SAP ABAP Odata_第31张图片
Update和Delete方法实现与Create一样

Create_Deep_Entity

重定义实现CREATE_DEEP_ENTITY方法,我们可以实现一起更新Navigation属性。比如前台创建PO 抬头和相应的行项目,传到后台可以通过此方法将抬头和行项目一起创建。

  1. 重定义/IWBEP/IF_MGW_APPL_SRV_RUNTIME~CREATE_DEEP_ENTITY方法
    SAP ABAP Odata_第32张图片

  2. 定义模型增强类(zcl_ztest_odata1_mpc_ext)中的类型

CLASS zcl_ztest_odata1_mpc_ext DEFINITION
  PUBLIC
  INHERITING FROM zcl_ztest_odata1_mpc
  CREATE PUBLIC .

  PUBLIC SECTION.
    TYPES:
      ty_t_po_data TYPE STANDARD TABLE OF zcl_ztest_odata1_mpc_ext=>ts_zpoitem WITH DEFAULT KEY .
    TYPES:
      BEGIN OF ty_po_data.
        INCLUDE TYPE zcl_ztest_odata1_mpc_ext=>ts_zpoheader.
    TYPES: toitem TYPE ty_t_po_data,
           END OF ty_po_data .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.

  1. 实现方法Create_deep_entity
    DATA:lv_compare_result TYPE /iwbep/if_mgw_odata_expand=>ty_e_compare_result.
    DATA:ls_po     TYPE zcl_ztest_po_mpc_ext=>ty_po_data,
         ls_header TYPE ekko,
         lt_item   TYPE TABLE OF ekpo,
         ls_item   TYPE ekpo.
    CONSTANTS:lc_toitem TYPE string VALUE 'ToItem'.
    "判断传入数据是否包含ITEM数据
    lv_compare_result = io_expand->compare_to_tech_names( lc_toitem ).
    IF lv_compare_result EQ /iwbep/if_mgw_odata_expand=>gcs_compare_result-match_no.
      io_data_provider->read_entry_data(  IMPORTING es_data = ls_po ).
      MOVE-CORRESPONDING ls_po TO ls_header.
      MOVE-CORRESPONDING ls_po-toitem[] TO lt_item.
      copy_data_to_ref( EXPORTING is_data = ls_po
                        CHANGING cr_data  = er_deep_entity ).
    ENDIF.

SAP ABAP Odata_第33张图片

你可能感兴趣的:(ABAP,sap,sap,abap)