Get the F4 help of a fiel based on the avlue of another help For Mulitple selection Field(联动的搜索帮助)

原创 2015年11月19日 17:23:16

...

TABLES: tvko.
SELECT-OPTIONS: s_bukrs FOR tvko-bukrs,
                s_vkorg FOR tvko-vkorg.
*custom F4 help for Sales Org.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vkorg-low.
  PERFORM form_f4help_vkorg.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vkorg-high.
  PERFORM form_f4help_vkorg.

*&---------------------------------------------------------------------
*
*&      Form  form_f4help_vkorg
*&---------------------------------------------------------------------
*
*       text
*----------------------------------------------------------------------
*
FORM form_f4help_vkorg .

  DATA: BEGIN OF ty_vkorg,
          vkorg TYPE tvko-vkorg,
        END OF ty_vkorg.
  DATA: lt_dynpfields TYPE TABLE OF dynpread,
        ls_dynpfields TYPE dynpread,
        l_bukrs_low   TYPE tvko-bukrs,
        l_bukrs_high  TYPE tvko-bukrs,
        li_tab        LIKE TABLE OF ty_vkorg,
        li_ret       LIKE TABLE OF ddshretval.

  CLEAR: ls_dynpfields, lt_dynpfields.
  REFRESH: lt_dynpfields.

*1)Add the fields to be fetched from the screen to dynpread table.
  ls_dynpfields-fieldname = 'S_BUKRS-LOW'.
  APPEND ls_dynpfields TO lt_dynpfields.
  CLEAR: ls_dynpfields.
  ls_dynpfields-fieldname = 'S_BUKRS-HIGH'.
  APPEND ls_dynpfields TO lt_dynpfields.

*2)Fetch the values from the screen
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = lt_dynpfields
    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 lt_dynpfields INTO ls_dynpfields
                WITH KEY fieldname = 'S_BUKRS-LOW'.
  IF sy-subrc = 0.
    l_bukrs_low = ls_dynpfields-fieldvalue.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = l_bukrs_low
      IMPORTING
        output = l_bukrs_low.
  ENDIF.

  READ TABLE lt_dynpfields INTO ls_dynpfields
              WITH KEY fieldname = 'S_BUKRS-HIGH'.
  IF sy-subrc = 0.
    l_bukrs_high = ls_dynpfields-fieldvalue.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = l_bukrs_high
      IMPORTING
        output = l_bukrs_high.
  ENDIF.

*3)Select the data from the database table
  SELECT    vkorg  FROM  tvko INTO TABLE li_tab
        WHERE  bukrs  >= l_bukrs_low
          AND   bukrs <= l_bukrs_high.

*4) Display the data in the F4 help
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'VKORG'
      dynpprog        = sy-repid
      dynpnr          = '1000'
      dynprofield     = 'S_VKORG'
      window_title    = text-t01
      value_org       = 'S'
    TABLES
      value_tab       = li_tab
      return_tab      = li_ret
    EXCEPTIONS
      parameter_error = 1
      no_values_found
      =2
      OTHERS          = 3.


ENDFORM.                    " form_f4help_vkorg


 

[SAP ABAP开发技术总结]搜索帮助Search Help (F4)

声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否...
  • fengyeyu090813
  • fengyeyu090813
  • 2017年01月17日 11:49
  • 2783

Get the F4 help of a field based on the value of another field in the selction screen(联动的搜索帮助)

F4 help , search help, DYNP_VALUES_READ, F4IF_INT_TABLE_VALUE_REQUEST
  • fengyan5022
  • fengyan5022
  • 2013年10月15日 08:32
  • 559

SAP ABAP F4的检索帮助(包括自定义检索帮助)

abap开发中,检索帮助的方法大概有4种,下面进行简单描述下。   1.  参照数据库字段,用数据字典自带的检索帮助,或者参照字段的定义域实现F4检索帮助。也是最简单的方法,参照字段定义即可。   2...
  • forever_crazy
  • forever_crazy
  • 2014年02月12日 09:17
  • 4212

关于SAP F4 Search Help Exit Module

1. 机能作用                   Search Help Exit是用于对标准帮助进行扩充,以便与更加灵活的使用.2. 使用场合标准的Search Help其本身就可以进行一些简单的...
  • Chuckth
  • Chuckth
  • 2010年07月15日 12:50
  • 3632

在alv中按F4显示帮助信息

在用ALV显示数据的时候,有时候,一些列需要更改,客户可能要求像标准程序一样,按F4按钮,弹出该列的相关数据,选择后,反填到单元格中,以下程序是示例程序。   REPORT Z_EXAMPLE. **...
  • champaignwolf
  • champaignwolf
  • 2013年04月14日 10:50
  • 3811

Table Control中自定义 F4 帮助

部分一:根据屏幕已有信息获取帮助信息,填充到内表 SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background:...
  • sunfeng8848
  • sunfeng8848
  • 2008年12月05日 09:39
  • 3172

ABAP联动更新值

用这两个函数Function DYNP_VALUES_READ, DYNP_VALUES_UPDATE 参考代码: MODULE ztmdno_dr_help INPUT.   DATA:  ...
  • zhongguomao
  • zhongguomao
  • 2015年06月18日 08:47
  • 454

物料查询F4帮助增强(添加筛选条件…

需求: 1、通过F4快捷按钮查询物料主数据时,在查询界面增加已删除/冻结物料点选按钮(如上图) 2、系统默认不点选已删除/冻结物料,查询结果不包括已删除和已冻结物料;当用户点选已删除/冻结物料时,...
  • senlinmu110
  • senlinmu110
  • 2014年01月22日 09:23
  • 1172

Search Help SE11

现有表 ZARA005T。 WERKS 和MATNR 都是自定义的数据元素,因此目前没有搜索帮助。 表数据如下。 我们先创建搜索帮助 选基本。 ...
  • pely122
  • pely122
  • 2012年11月02日 13:53
  • 1071

如何使用Powershell的Get-help

初学Powershell必不可少的是学会使用其的帮助文档,这样可以更高效的让我们学会Powershell。 下面就说说新手学习Powershell如何从Powershell中的帮助文档中获取更多信...
  • qq_21349669
  • qq_21349669
  • 2017年02月07日 14:38
  • 888
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Get the F4 help of a fiel based on the avlue of another help For Mulitple selection Field(联动的搜索帮助)
举报原因:
原因补充:

(最多只允许输入30个字)