ODATA Master-Detail GatewayService 创建与发布

最新推荐文章于 2024-12-14 17:55:09 发布

Gong JX

最新推荐文章于 2024-12-14 17:55:09 发布

阅读量431

点赞数

CC 4.0 BY-SA版权

分类专栏： FIORI 文章标签：后端前端大数据程序人生经验分享

本文链接：https://blog.csdn.net/qq_40977705/article/details/110059987

FIORI 专栏收录该内容

14 篇文章

订阅专栏

本文介绍如何使用SAP Gateway Service Builder (SEGW)创建ODATA服务，并详细讲解了从Data Model导入、实体集创建到关联关系设定的全过程。此外，还提供了具体的ABAP代码示例用于实现数据读取及过滤。

开放数据协议（Open Data Protocol，简称OData）是一种描述如何创建和访问Restful服务的OASIS标准。

T-CODE: /IWFND/MAINT_SERVICE - 激活并维护服务
SEGW - SAP Gateway Service Builder 创建ODATA
首先创建GatewayService （SEGW）
在这里插入图片描述
Data Model 导入Entity Types 右击Data Model->import->DDIC structure

参照的表VBAK 选取了其中几个字段其中 VBELN作为主键 finifsh

再根据以上方法创建一个Entity Set

为两个Entity Set建立Association 一对多的关系

两个EntitySet通过VBELN来关联
在这里插入图片描述
激活

方法实现，右键->重定义继承的方法

方法：SALESORDERSET_GET_ENTITY

    DATA: LS_KEY LIKE LINE OF IT_KEY_TAB ,
          LV_VALUE TYPE vbak-VBELN .

    CLEAR LS_KEY.
    READ TABLE IT_KEY_TAB INTO LS_KEY WITH KEY NAME = 'Vbeln'.

    LV_VALUE = |{ LS_KEY-VALUE ALPHA = IN WIDTH = 10 }|.

    SELECT SINGLE * INTO CORRESPONDING FIELDS OF ER_ENTITY
      FROM ZVBAK
      WHERE VBELN = LV_VALUE .

方法：SALESORDERSET_GET_ENTITYSET

  DATA: lw_entityset LIKE LINE OF it_filter_select_options,
        lr_netwr     LIKE lw_entityset-select_options,
        LR_SELECT    TYPE /IWBEP/S_COD_SELECT_OPTION.

  DATA: IS_ORDER TYPE /IWBEP/S_MGW_SORTING_ORDER,
        LT_SORTORDER TYPE ABAP_SORTORDER_TAB ,
        LS_SORTORDER TYPE ABAP_SORTORDER .

"过滤
 IF it_filter_select_options[] IS NOT INITIAL.
      CLEAR lw_entityset.
      CLEAR: lr_netwr[].
      LOOP AT it_filter_select_options INTO lw_entityset.
        CASE lw_entityset-property.
          WHEN 'Netwr'.
            lr_netwr = lw_entityset-select_options.
          WHEN 'Vbeln'.
            lr_netwr = lw_entityset-select_options.

        ENDCASE.
      ENDLOOP.
 "查询
   IF lw_entityset-property EQ 'Netwr'.
     SELECT * FROM Zvbak
       INTO CORRESPONDING FIELDS OF TABLE ET_ENTITYSET
       WHERE netwr IN lr_netwr.
    ELSE.
    SELECT * FROM Zvbak
       INTO CORRESPONDING FIELDS OF TABLE ET_ENTITYSET
       WHERE VBELN IN lr_netwr.
   ENDIF.

 ELSE.
     SELECT * FROM Zvbak
      INTO CORRESPONDING FIELDS OF TABLE ET_ENTITYSET
      UP TO 100 ROWS .
 ENDIF.
"排序
  IF IT_ORDER[] IS NOT INITIAL.
    LOOP AT IT_ORDER INTO IS_ORDER.
      LS_SORTORDER-NAME = IS_ORDER-PROPERTY.
      IF LS_SORTORDER-NAME = 'Vbeln'.
        LS_SORTORDER-NAME = 'VBELN'.
      ELSEIF LS_SORTORDER-NAME = 'Netwr'.
        LS_SORTORDER-NAME = 'NETWR'.
      ENDIF.
      IF IS_ORDER-ORDER = 'desc'.
         LS_SORTORDER-DESCENDING = 'X'.
      ELSE.
         LS_SORTORDER-DESCENDING = ''.

      ENDIF.
      APPEND LS_SORTORDER TO LT_SORTORDER .

    ENDLOOP.
    SORT ET_ENTITYSET BY (LT_SORTORDER).

  ENDIF.

方法：SALESORDERITEMSS_GET_ENTITYSET

  DATA: LS_KEY LIKE LINE OF IT_KEY_TAB ,
        LV_VALUE TYPE vbak-VBELN .

  CLEAR LS_KEY.
  READ TABLE IT_KEY_TAB INTO LS_KEY WITH KEY NAME = 'Vbeln'.

  LV_VALUE = |{ LS_KEY-VALUE ALPHA = IN WIDTH = 10 }|.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE ET_ENTITYSET
    FROM ZVBAP
    WHERE VBELN = LV_VALUE .