SAP ABAP SEARCH HELP F4 自定义搜索帮助出口

利用搜索帮助出口创建自定义搜索帮助。

1.拷贝标准搜索帮助出库DEMO函数 F4IF_SHLP_EXIT_EXAMPLE 实现FORM STEP_SELECT

FORM FRM_STEP_SELECT_ZZFI002 TABLES PT_RECORD_TAB STRUCTURE SEAHLPRESPT_SHLP_TAB    TYPE SHLP_DESCTCHANGING CS_SHLP        TYPE SHLP_DESCRCS_CALLCONTROL TYPE DDSHF4CTRLCV_SUBRC       TYPE SY-SUBRC.TYPES:BEGIN OF LTY_ZZFI002,ZZFI002  TYPE ZFIT0036-ZKEY,ZZFI002T TYPE ZFIT0036-ZVALUE,END OF LTY_ZZFI002.
*DATA: L_BUKRS      TYPE T001-BUKRS,L_HSLB       TYPE ZFIT0036-HSLB,L_HKONT      TYPE SKA1-SAKNR,LW_SELOPT    TYPE DDSHSELOPT,LR_ZZFI002  TYPE RANGE OF  ZFIT0036-ZKEY,LR_ZZFI002T TYPE RANGE OF ZFIT0036-ZVALUE,LW_ZZFI002  LIKE LINE OF LR_ZZFI002,LW_ZZFI002T LIKE LINE OF LR_ZZFI002T,LT_ZZFI002  TYPE STANDARD TABLE OF LTY_ZZFI002.
*FIELD-SYMBOLS: <L_BSEG> TYPE BSEG,<L_COBL> TYPE COBL.
*ASSIGN ('(SAPMF05A)BSEG') TO <L_BSEG>.IF SY-SUBRC = 0.L_HKONT = <L_BSEG>-HKONT.ELSE.ASSIGN ('(SAPLF040)BSEG') TO <L_BSEG>.IF SY-SUBRC = 0.L_HKONT = <L_BSEG>-HKONT.ELSE.ASSIGN ('(SAPMF05L)BSEG') TO <L_BSEG>.IF SY-SUBRC = 0.L_HKONT = <L_BSEG>-HKONT.ENDIF.ENDIF.ENDIF.
*IF L_HKONT IS INITIAL.ASSIGN ('(SAPLKACB)COBL') TO <L_COBL>.IF SY-SUBRC = 0.L_HKONT = <L_COBL>-HKONT.ENDIF.ENDIF.IF L_HKONT IS INITIAL.ASSIGN ('(SAPLFSKB)COBL') TO <L_COBL>.IF SY-SUBRC = 0.L_HKONT = <L_COBL>-HKONT.ENDIF.ENDIF.
*IF L_HKONT IS INITIAL.RETURN.ENDIF.
*GET PARAMETER ID 'BUK' FIELD L_BUKRS.
*IF L_BUKRS IS INITIAL.EXIT.ENDIF.
* 取数据SELECTSINGLEHSLBINTO L_HSLBFROM ZFIT0035WHERE BUKRS = L_BUKRSAND FRGL <= L_HKONTAND TOGL >= L_HKONTAND FIELDN EQ 'ZZFI002'.
*-  如果未取到核算类别时，则不做后续取数IF L_HSLB IS INITIAL.RETURN.ENDIF.LOOP AT CS_SHLP-SELOPT INTO LW_SELOPT.CASE LW_SELOPT-SHLPFIELD.WHEN 'ZZFI002'.LW_ZZFI002-SIGN   = LW_SELOPT-SIGN.LW_ZZFI002-OPTION = LW_SELOPT-OPTION.LW_ZZFI002-LOW    = LW_SELOPT-LOW.LW_ZZFI002-HIGH   = LW_SELOPT-HIGH.APPEND LW_ZZFI002 TO LR_ZZFI002.WHEN 'ZZFI002T'.LW_ZZFI002T-SIGN   = LW_SELOPT-SIGN.LW_ZZFI002T-OPTION = LW_SELOPT-OPTION.LW_ZZFI002T-LOW    = LW_SELOPT-LOW.LW_ZZFI002T-HIGH   = LW_SELOPT-HIGH.APPEND LW_ZZFI002T TO LR_ZZFI002T.WHEN OTHERS.ENDCASE.ENDLOOP.*SELECT ZKEYZVALUEINTO TABLE LT_ZZFI002FROM ZFIT0036WHERE BUKRS = L_BUKRSAND HSLB  = L_HSLBAND FIELDN EQ 'ZZFI002'AND ZKEY  IN LR_ZZFI002AND ZVALUE IN LR_ZZFI002T.
*CALL FUNCTION 'F4UT_RESULTS_MAP'TABLESSHLP_TAB          = PT_SHLP_TABRECORD_TAB        = PT_RECORD_TABSOURCE_TAB        = LT_ZZFI002CHANGINGSHLP              = CS_SHLPCALLCONTROL       = CS_CALLCONTROLEXCEPTIONSILLEGAL_STRUCTURE = 1OTHERS            = 2.IF SY-SUBRC <> 0.CV_SUBRC = SY-SUBRC.ELSE.CV_SUBRC = SY-SUBRC.ENDIF.
ENDFORM.

SE11创建搜索帮助如下如：

激活即可。

SAP ABAP SEARCH HELP F4 自定义搜索帮助出口相关推荐

SAP ABAP SEARCH HELP F4搜索帮助常用函数
F4IF_INT_TABLE_VALUE_REQUEST :F4 help also returning the value to be displayed in internal table 自定 ...
ABAP：ALV中自定义搜索帮助
如果希望ALV中某字段具有搜索帮助,第一种办法当然是对表中某字段的引用,设置ref_table.ref_field,将自动触发该字段所带的搜索帮助. 可不可以直接设置Searh Help呢?应该不可以 ...
ABAP ALV中自定义搜索帮助
一.干货: 在fieldcat-ref_table 和 fieldcat-ref_field 填入参考表和参考字段,搜索帮助就自动出来了. 想要选择屏幕添加自定义搜索帮助-转到这里 ALV自定义搜索帮 ...
SAP ABAP SM30 自定义检查
SAP ABAP SM30 自定义检查 SM30自定义表数据维护 SAP的自定义表可以生成表维护视图后,通过SM30进行维护.生成标准的表维护有时候不满足用户需求:我们可以手动调整生成的屏幕. 常见的 ...
ABAP中的F4帮助怎么用？
ABAP中的F4帮助怎么用? 当我们在sap的界面上,焦点放到一个字段上的时候,按F4,会出现选择或者搜索的界面,这就是abap中的f4帮助. 有多种实现f4帮助的方法,现在就把我指导的一点点说出来: ...
ABAP中的F4帮助怎么用
ABAP中的F4帮助怎么用? 当我们在sap的界面上,焦点放到一个字段上的时候,按F4,会出现选择或者搜索的界面,这就是abap中的f4帮助. 有多种实现f4帮助的方法,现在就把我指导的一点点 ...
SAP ABAP 业务开关和 SAP 电商云的 Feature Level
这是 Jerry 2021 年的第 72 篇文章,也是汪子熙公众号总共第 349 篇原创文章. 基于 ABAP 技术栈的 SAP 产品,客户可以通过安装 Enhancement Package(增强包 ...
关于 SAP ABAP 报表的多语言显示问题试读版
本专栏计划的文章数在 150 篇左右,到 2022年11月9日为止,目前已经更新了 63 篇,专栏完成度为 42% 笔者这套零基础快速学习 ABAP从 2021年4月10日写下第一篇文章以来,感谢广大 ...
小程序自定义搜索框_将自定义搜索提供程序添加到Windows 7以及高级搜索技巧
小程序自定义搜索框 Disclaimer: Many of my tips have crashed cars, broken lights, and caused lawnmowers to go ...

SAP ABAP SEARCH HELP F4 自定义搜索帮助出口

SAP ABAP SEARCH HELP F4 自定义搜索帮助出口相关推荐

最新文章

热门文章