ABAP 用户选择屏幕搜索帮助实现代码

最新推荐文章于 2024-08-06 11:18:54 发布

SAP剑客

最新推荐文章于 2024-08-06 11:18:54 发布

阅读量8.3k

点赞数

文章标签： table

代码实现如下：

屏幕字段：为一区间对前后的两个区间字段分别开发搜索帮助；因是同一数据，可共用一个搜索帮助；

第一步：字义一内表，注：包含的若干字段为搜索帮助显示的内容；

第二步：在INITIALLIXATION 事件初始化此内表的值，就是用户想看到的预选清单；

第三步：在选择屏幕事件中对屏幕参数作如下处理：

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_xxx-low.
PERFORM FRM_GET_KOSTL.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_xxx-HIGH.
PERFORM FRM_GET_KOSTL.

因参数P_xxx在屏幕上为一选择区间

代码:

* F4 变量定义.
data: LT_SKAT  like table of SKAT with header line.
data : begin of LT_VALUE  occurs 0,
         VALUE(50) type C,
       end of LT_VALUE.
       data : LT_FIELD_TAB type table of DFIES,
      WA_FIELD like line of LT_FIELD_TAB,
      LT_RETURN_TAB type table of DDSHRETVAL,
      WA_RETURN like line of LT_RETURN_TAB.

* F4 执行

start-of-selection.

at selection-screen on value-request for S_SAKNR-LOW.
perform show_values.

at selection-screen on value-request for S_SAKNR-HIGH.
perform show_values.

*F4 子程序

FORM SHOW_VALUES .

  refresh LT_VALUE.
  refresh LT_FIELD_TAB.
  refresh LT_RETURN_TAB.

  select
    SAKNR
    TXT50
     from SKAT
     into corresponding fields of table LT_SKAT
     where SPRAS = 'EN'.

  clear WA_FIELD.
  WA_FIELD-TABNAME = 'SKAT'.
  WA_FIELD-FIELDNAME = 'SAKNR'.
  append WA_FIELD to LT_FIELD_TAB.

  clear WA_FIELD.
  WA_FIELD-TABNAME = 'SKAT'.
  WA_FIELD-FIELDNAME = 'TXT50'.
  append WA_FIELD to LT_FIELD_TAB.

  clear LT_VALUE.
  loop at LT_SKAT.
    LT_VALUE-VALUE = LT_SKAT-SAKNR.
    append  LT_VALUE.
    LT_VALUE-VALUE = LT_SKAT-TXT50.
    append  LT_VALUE.
  endloop.

  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      RETFIELD        = 'SAKNR'
    tables
      VALUE_TAB       = LT_VALUE
      FIELD_TAB       = LT_FIELD_TAB
      RETURN_TAB      = LT_RETURN_TAB
    exceptions
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      others          = 3.
  if SY-SUBRC <> 0.
    message id SY-MSGID type SY-MSGTY number SY-MSGNO
            with SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  else.
    read table LT_RETURN_TAB into WA_RETURN index 1.
    S_SAKNR = WA_RETURN-FIELDVAL.
  endif.

ENDFORM.