获取TABCONTROL的值及搜索帮助更新多个字段的使用

最新推荐文章于 2023-07-27 16:06:00 发布

SAP唐

最新推荐文章于 2023-07-27 16:06:00 发布

阅读量700

点赞数

CC 4.0 BY-SA版权

文章标签： dynp_values_read tabcontrol f4 dynp_values_read

本文链接：https://blog.youkuaiyun.com/tz38195/article/details/79194545

本文介绍了一种使用ABAP进行动态程序处理的方法，包括动态程序字段的读取、转换及内表数据的选择操作，并展示了如何通过调用标准函数实现这些功能。

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

DATA: it_beizhu          TYPE STANDARD TABLE OF zst_beizhu WITH HEADER LINE,
        it_dynpfld_mapping LIKE TABLE OF dselc WITH HEADER LINE,
        it_field_tab       LIKE TABLE OF dfies WITH HEADER LINE,
        it_dynpfields      LIKE TABLE OF  dynpread WITH HEADER LINE,
        l_selline          TYPE i,
        l_equnr            TYPE equnr.

  GET CURSOR LINE l_selline.

  l_selline = l_selline + tab9000-top_line - 1.

  REFRESH it_dynpfields.
  CLEAR it_dynpfields.
  it_dynpfields-fieldname = 'LT_PLWH-EQUNR'.
  it_dynpfields-stepl = l_selline. "table control行
  APPEND it_dynpfields.

  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-cprog
      dynumb               = sy-dynnr
      determine_loop_index = 'X' "table control的时候用
    TABLES
      dynpfields           = it_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6

invalid_parameter = 7

READ TABLE it_dynpfields WITH KEY fieldname = 'LT_PLWH-EQUNR'.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = it_dynpfields-fieldvalue
    IMPORTING
      output = l_equnr.

  SELECT zno beizhu INTO TABLE it_beizhu FROM ztpm_sbtz
      WHERE equnr = l_equnr
      AND   arbpl = p_arbpl.

“添加映射关系
  REFRESH: it_dynpfld_mapping,it_field_tab.
  CLEAR it_dynpfld_mapping.
  it_dynpfld_mapping-fldname = 'ZNO'.
  it_dynpfld_mapping-dyfldname = 'LT_PLWH-ZNO'.
  APPEND it_dynpfld_mapping.
  it_dynpfld_mapping-fldname = 'BEIZHU'.
  it_dynpfld_mapping-dyfldname = 'LT_PLWH-BEIZHU'.
  APPEND it_dynpfld_mapping.

  "添加显示字段 ZST_BEIZHU为内表结构
  CLEAR it_field_tab.
  it_field_tab-fieldname = 'ZNO'.
  it_field_tab-tabname = 'ZST_BEIZHU'.
  APPEND it_field_tab.
  it_field_tab-fieldname = 'BEIZHU'.
  it_field_tab-tabname = 'ZST_BEIZHU'.
  APPEND it_field_tab.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZNO'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = 'LT_PLWH-ZNO'
      value_org       = 'S'
    TABLES
      value_tab       = it_beizhu
      field_tab       = it_field_tab
      dynpfld_mapping = it_dynpfld_mapping.