F4 Function for low value and high value

最新推荐文章于 2024-08-19 17:28:06 发布

helloLife

最新推荐文章于 2024-08-19 17:28:06 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP 文章标签： function table duplicates header delete types

本文链接：https://blog.youkuaiyun.com/helloLife/article/details/1550949

ABAP 专栏收录该内容

9 篇文章

订阅专栏

博客主要围绕ABAP编程展开，定义了内部表类型tp_person用于存储人员信息，使用DYNP_VALUES_READ函数读取动态字段值，从数据库表中查询数据存入内表it_person，还进行了去重、排序操作，最后调用F4IF_INT_TABLE_VALUE_REQUEST函数处理数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

form get_values_f4_function.

* Internal Table for storage location help
TYPES: BEGIN OF tp_person,
          bukrs LIKE pa0001-bukrs, "Company Code
          pernr LIKE pa0001-pernr, "Personnel number
          END OF tp_person.
it_person     TYPE TABLE OF tp_person.

data: dynfields type table of dynpread with header line.

dynfields-fieldname = 'S_BUKRS-LOW'.
append dynfields.
dynfields-fieldname = 'S_BUKRS-HIGH'.
append dynfields.

call function 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-cprog
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
    TABLES
      dynpfields           = dynfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      others               = 11.

READ TABLE it_dyfields INDEX 1.
rg_bukrs-low = it_dyfields-fieldvalue.

READ TABLE it_dyfields INDEX 2.
rg_bukrs-high = it_dyfields-fieldvalue.

SELECT SINGLE * FROM t001 WHERE bukrs IN rg_bukrs.

IF sy-subrc = 0. "Company code is valid
    SELECT * FROM pa0001
    INTO CORRESPONDING FIELDS OF TABLE it_person
    WHERE bukrs IN rg_bukrs.

DELETE ADJACENT DUPLICATES FROM it_person COMPARING pernr.

SORT it_person BY bukrs pernr.

* Display it.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield        = 'PERNR'
        dynprofield     = 'S_PERNR'
        dynpprog        = sy-cprog
        dynpnr          = sy-dynnr
        value_org       = 'S'
      TABLES
        value_tab       = it_person
      EXCEPTIONS
        parameter_error = 1
        no_values_found = 2
        OTHERS          = 3.
ENDIF.
endform.                    "get_values_f4_function