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

代码实现如下：

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

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

第二步：在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.

ABAP 用户选择屏幕搜索帮助实现代码相关推荐

用户选择屏幕搜索帮助的代码实现
很久不写程序了,最近接手一财务报表修改,对一用户选择屏幕开发搜索帮助:第一反应就是搜索帮助是与数据字典相关联,大凡系统表字段里的数据元素都会有默认的,但找遍了所有的表,此字段就是没有自带的搜索帮助,在 ...
ABAP 动态控制选择屏幕 / Free Selection
常规实现方式: 1. 动态控制属性,使用如下语句代码控制. 2. 标准模块实现的free selection 3. 结合逻辑数据库的动态选择屏幕具体实现: 第一种大致通过如下代码实现 AT SELE ...
SAP ABAP 动态选择屏幕
常规实现方式: 1. 动态控制属性,使用如下语句代码控制. 2. 标准模块实现的free selection 3. 结合逻辑数据库的动态选择屏幕具体实现: 第一种大致通过如下代码实现 AT SELE ...
ABAP ALV选择屏幕下拉框实现方法
第一步:下拉框定义 DATA:VID1 TYPE VRM_ID, LIST1 TYPE VRM_VALUES, VALUE1 LIKE LINE OF LIST1. DATA ...
ABAP编程选择屏幕字段权限检查--公司代码事例
"屏幕字段 SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME . SELECT-OPTIONS G_BUKRS FOR ANLA-BUKRS. SEL ...
下拉框实现一 - SAP ABAP 报表选择屏幕下拉框的实现
DATA:vid TYPE vrm_id , "屏幕字段(可以是单个的I/O空间或者是Table Control中的一个单元格) list TYPE vrm_values ...
复杂的选择屏幕搜索帮助
REPORT ZTEST7 . TABLES :MARA . SELECT-OPTIONS :S_MATNR FOR MARA -MATNR NO INTERVALS . INITIALIZATI ...
ABAP选择屏幕下拉框
导语:好久没有写选择屏幕了,下面分享一个选择屏幕下拉框的实现,用户认为在选择屏幕上的搜索帮助不太友好,希望做一个下拉框来选. 一.直接引用标准值第一种是最基础的,直接依靠表字段的搜索帮助等系统自带的 ...
linux qt wifi连接,贡献自己写的，在linux，arm下的屏幕搜索wifi并连接（qt，多选择，wifi按信号排列）...
当前位置:我的异常网» Linux/Unix » 贡献自己写的,在linux,arm下的屏幕搜索wifi并连接贡献自己写的,在linux,arm下的屏幕搜索wifi并连接(qt,多选择,wifi按信 ...

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

ABAP 用户选择屏幕搜索帮助实现代码相关推荐

最新文章

热门文章

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

ABAP 用户选择屏幕 搜索帮助 实现代码相关推荐

最新文章

热门文章

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

ABAP 用户选择屏幕搜索帮助实现代码相关推荐