FUNCTION z_rfc_plm_009.
*"----------------------------------------------------------------------
*"*"本地接口:
*"  IMPORTING
*"     VALUE(P_SYSTEM) TYPE  CHAR4 DEFAULT 'PLM'
*"     VALUE(P_UNAME) TYPE  UNAME DEFAULT SY-UNAME
*"     VALUE(P_NAME1) TYPE  CHAR12 OPTIONAL
*"     VALUE(P_START) TYPE  SYST_TABIX OPTIONAL
*"     VALUE(P_LIMIT) TYPE  SYST_TABIX OPTIONAL
*"     VALUE(P_MATKL) TYPE  MATKL OPTIONAL
*"     VALUE(P_WGBEZ) TYPE  WGBEZ OPTIONAL
*"     VALUE(P_KONTSX) TYPE  CHAR1 OPTIONAL
*"  EXPORTING
*"     VALUE(P_TOTAL) TYPE  INT4
*"  TABLES
*"      IT_T023T STRUCTURE  ZRFCS_PLM009 OPTIONAL
*"      S_MATKL STRUCTURE  ZRANGES_MATKL OPTIONAL
*"      S_WGBEZ STRUCTURE  ZRANGES_WGBEZ OPTIONAL
*"----------------------------------------------------------------------
  DATA: lv_tabix TYPE sy-tabix.
  IF p_matkl IS NOT INITIAL.
    s_matkl-sign = 'I'.
    s_matkl-option = 'CP'.
    s_matkl-low = p_matkl.
    APPEND s_matkl.
  ENDIF.
  IF p_wgbez IS NOT INITIAL.
    s_wgbez-sign = 'I'.
    s_wgbez-option = 'CP'.
    s_wgbez-low = p_wgbez.
    APPEND s_wgbez.
  ENDIF.

  IF p_limit IS INITIAL OR p_kontsx IS NOT INITIAL.
    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE @it_t023t
      FROM t023t
     WHERE spras EQ @sy-langu
       AND matkl IN @s_matkl
       AND wgbez IN @s_wgbez.
    p_total = lines( it_t023t[] ).
  ELSE.
    SELECT COUNT(*)
      INTO @p_total"TABLE @DATA(lt_t023t)
      FROM t023t
     WHERE spras EQ @sy-langu
       AND matkl IN @s_matkl
       AND wgbez IN @s_wgbez.

    SELECT FROM t023t
    FIELDS matkl,wgbez
    WHERE spras EQ @sy-langu
      AND matkl IN @s_matkl
      AND wgbez IN @s_wgbez
    ORDER BY matkl
    INTO CORRESPONDING FIELDS OF TABLE @it_t023t
    OFFSET @p_start UP TO @p_limit ROWS.

*    p_total = lines( lt_t023t[] ).
  ENDIF.

  IF it_t023t[] IS NOT INITIAL.
    SELECT t023~matkl,
           t023~bklas,
           t030~ktopl,
           t030~ktosl,
           t030~bwmod,
           t030~komok,
           t030~konts
      INTO TABLE @DATA(lt_t023)
      FROM t023 JOIN t030 ON t023~bklas EQ t030~bklas
       FOR ALL ENTRIES IN @it_t023t
     WHERE t023~matkl EQ @it_t023t-matkl
       AND t023~bklas NE ''
       AND t030~ktopl EQ 'HL00'.
    SORT lt_t023[] BY matkl.
  ENDIF.

  LOOP AT it_t023t ASSIGNING FIELD-SYMBOL(<ls_t023t>).
    READ TABLE lt_t023 INTO DATA(ls_t023) WITH KEY matkl = <ls_t023t>-matkl BINARY SEARCH.
    IF sy-subrc EQ 0.
      <ls_t023t>-konts = ls_t023-konts.
    ENDIF.
  ENDLOOP.

  IF p_kontsx IS NOT INITIAL.
    DELETE it_t023t[] WHERE konts EQ ''.
    p_total = lines( it_t023t[] ).
    SORT it_t023t[] BY matkl.
    IF p_limit IS NOT INITIAL.
      "分页操作
      LOOP AT it_t023t ASSIGNING FIELD-SYMBOL(<ls_t023t2>).
        <ls_t023t2>-zindex = sy-tabix.
      ENDLOOP.
      lv_tabix = p_start + p_limit.
      DELETE it_t023t[] WHERE zindex > lv_tabix.
      DELETE it_t023t[] WHERE zindex < p_start.
    ENDIF.

  ENDIF.

ENDFUNCTION.

标签智能推荐:

java 核心技术卷一 知识点

第九章集合1.Iterator和Iterable接口类,作用。2.Collection接口类,作用。3.Map接口类,作用。

测试RestTemplate

一:Controller的接口二:测试类

为什么要做接口自动化测试?

1,接口数量比较多(敏捷开发)2,功能稳定,3,有些复杂的加密接口、有不同协议的接口(无法实现接口自动化)4,

TP5.0实现Layui 局部刷新修改

1.获取要修改的数据2.请求接口&nbsp;后端接口控制器模型里面

积分墙项目接口文档

1、积分墙任务列表2、任务报名接口3、任务提交接口

JavaB站学习————接口和多态联合使用。

1接口可以使用多态,把接口看成是父类。2P507

jmeter接口测试-正则表达式提取器的使用(关联接口

jmeter接口测试-正则表达式提取器的使用(关联接口)

接口interface_听韩顺平课笔记

1.接口快速入门为什么要有接口:程序模拟USB接口:定义一个USB接口规范有实现USB接口的类Phone,Camera定义一个Computer类,接收一个实现了USB接口的类2.接口基本介绍什么是接口:接口的基本介绍jdk1.8以及之后,接口中可以有静态方法static,默认方法(default关键字修饰)接口中抽象方法可以省略abstract关键字(默认)接口中的所有抽象方法都需要实现imple

接口

1.接口的概念使用Ajax请求数据时,被请求的URL地址,就叫做数据接口(简称接口),同时,每个接口必须有请求方式。2.分析接口的请求过程2.1通过GET方式请求接口的过程&nbsp;2.2通过POST方式请求接口的过程&nbsp;3.接口测试工具3.1什么是接口测试工具为了验证接口能否被正常访问,我们需要使用接口测试工具,来对数据接口进行检测。好处:接口测试工具能让我们在不写任何代码的情况下,对

接口

用接口测试工具,来对数据接口进行检测。好处:接口测试工具能让我们在不写任何代码的情况下,对接口进行调用和测试。7.4、接口文档7.4.1、什么是接口文档接口文档,顾名思义就是接口的说明文档,它是我们调用接口的依据,好的接口文档包含了对接口URL,参数以及输出内容的说明,我们参照口文档就能方便的知道的作用,以及接口如何进行调用7.4.2、接口文档的组成部分接口文档可以包含很多信息,也可以按需进行精简