建立搜索帮助使用exit函数.docx
《建立搜索帮助使用exit函数.docx》由会员分享，可在线阅读，更多相关《建立搜索帮助使用exit函数.docx（7页珍藏版）》请在冰豆网上搜索。
建立搜索帮助使用exit函数
建立搜索帮助（使用exit函数）
SE11SearchHelp
Create：
定义了
3个参数：
FUNDS_PLAN_ID
OBJECT_ID
DESCRIPTION
数据元素的指定：
1.定义改字段的参照类型
2.直接影响页面上都所帮助Label的显示，所以尽量使用SAP标准定义。
名词解释：
IMP:
Importparameters:
Parameterswithwhichcontextinformationfromtheprocessedinputtemplate（screen）maybecopiedtothehelpprocess.
EXP:
Exportparameters:
Parameterswithwhichvaluesfromthehitlistmaybereturnedtotheinputtemplate.
LPos:
YoucandefinethedialogfortheinputhelpwiththefieldsLPos,SPosandSDis.Enterthe
parameterpositioninthehitlistinLPos.Ifyouenternothingorthevalue0here,theparameterisnotdisplayedinthehitlist.
SPos
:
EntertheparameterpositioninthedialogboxforvalueselectioninSPos.Ifyouenternothingorthevalue0here,theparameterisnotdisplayedinthedialogboxforvalueselection.
搜索帮助的数据获取有两种方式：
1．Selectionmethod：
这里可以是一个数据库表或者一个视图
2．Searchhelpexit：
这里是一个函数
下面介绍搜索帮助【函数】的创建
函数创建
1.创建函数组
T-code：
SE37GotoFunctionGroupsCreateGroup
2.创建函数，分配函数组（刚才创建的函数组）。
FunctionMode参照标准模块填写如下：
Changing中：
Tables中：
Exceptions中：
可定义抛出异常属性。
SourceCode中：
参照sap搜索帮助标准，在CALL子例程部分需作修改。
IFCALLCONTROL-STEP='SELECT'.
PERFORMSTEP_SELECT_FND_FUND_IDTABLESRECORD_TAB
SHLP_TAB
CHANGINGSHLPCALLCONTROLRC.
IFRC=0.
CALLCONTROL-STEP='DISP'.
ELSE.
CALLCONTROL-STEP='EXIT'.
ENDIF.
EXIT."Don'tprocessSTEPDISPadditionallyinthiscall.
ENDIF.
STEP_SELECT_FND_FUND_ID为子例程名称，需要重新创建。
3.点击对象清单
创建的子例程：
STEP_SELECT_FND_FUND_ID
LZCRM_FM_FND_F4_EXITF01：
子例程的实现
LZCRM_FM_FND_F4_EXITTOP：
需要在这里指定函数池（FUNCTION-POOL）
代码如下：
FUNCTION-POOLZCRM_FM_FND_F4_EXIT."MESSAGE-ID..
LZCRM_FM_FND_F4_EXITTUXX：
代码如下：
**************************************************************
*THISFILEISGENERATEDBYTHEFUNCTIONLIBRARY.*
*NEVERCHANGEITMANUALLY,PLEASE!
*
第4/8页
**************************************************************
INCLUDELZCRM_FM_FND_F4_EXITU01.
"ZCRM_FM_FND_FPALN_FUND_ID_EXIT
4.函数中参数
Changing:
SHLP搜索帮助描述
CALLCONTROL具有搜索帮助出口的F4处理控制结构
Tables:
SHLP_TAB替代基本搜索帮助的清单
RECORD_TAB搜索帮助的结果结构
5.函数如何接收搜索帮助的参数值？
DATA:
ls_seloptTYPEddshselopt,
lt_fnd_id_f4TYPETABLEOFZFUNDPLAN_FUND_ID,
ls_fnd_id_f4TYPEZFUNDPLAN_FUND_ID.
DATA:
FP_OBJIDTYPERANGEOFZFUNDPLAN_FUND_ID-OBJECT_ID,
L_FP_OBJIDLIKELINEOFFP_OBJID,
F_OBJIDTYPERANGEOFZFUNDPLAN_FUND_ID-OBJECT_ID,
L_F_OBJIDLIKELINEOFF_OBJID.
LOOPATp_shlp-seloptINTOls_selopt.
"匹配搜索帮助中FPLAN_OBJID字段
IFls_selopt-shlpfield='FUNDS_PLAN_ID'."将搜索帮助FPLAN_OBJID的属性写入查询范围（ranges）
CLEARL_FP_OBJID.
IFls_selopt-option='CP'ANDls_selopt-low='*'.
L_FP_OBJID-sign=ls_selopt-sign.
L_FP_OBJID-option='NE'.
CLEARL_FP_OBJID-low.
CLEARL_FP_OBJID-high.
ELSE.
L_FP_OBJID-sign=ls_selopt-sign.L_FP_OBJID-option=ls_selopt-option.
L_FP_OBJID-low=ls_selopt-low.
第5/8页
L_FP_OBJID-high=ls_selopt-high.
ENDIF.
APPENDL_FP_OBJIDTOFP_OBJID.
ELSEIFls_selopt-shlpfield='OBJECT_ID'."将搜索帮助OBJECT_ID的属性写入查询范围（ranges）
CLEARL_F_OBJID.
IFls_selopt-option='CP'ANDls_selopt-low='*'.
L_F_OBJID-sign=ls_selopt-sign.
L_F_OBJID-option='NE'.
CLEARL_F_OBJID-low.
CLEARL_F_OBJID-high.
ELSE.
L_F_OBJID-sign=ls_selopt-sign.L_F_OBJID-option=ls_selopt-option.L_F_OBJID-low=ls_selopt-low.L_F_OBJID-high=ls_selopt-high.
ENDIF.
APPENDL_F_OBJIDTOF_OBJID.
ELSE.
ENDIF.
ENDLOOP.
解释：
SHLP_DESCR结构中SELOPT字段是一个内表，存储着搜索帮助的选择选项。
而ddshselopt是搜索帮助中选择值的选择选项结构。
SHLP_DESCR-SELOPT
第6/8页
DDSHSELOPT-shlpfield对应搜索帮助中定义的参数值，例如：
”FUNDS_PLAN_ID”6.根据接收的参数值查询数据。
SELECT*
FROM
INTOCORRESPONDINGFIELDSOFTABLElt_fnd_id_f4
WHERE…
7.怎么将内表返回给搜索帮助？
代码如下：
*******************************************************************formattransformationforsearchhelp
******************************************************************CALLFUNCTION'F4UT_RESULTS_MAP'
EXPORTING
source_structure='ZFUNDPLAN_FUND_ID'
*apply_restrictions='X'
apply_restrictions=''
TABLES
shlp_tab=p_shlp_tab
record_tab=p_record_tab
source_tab=lt_fnd_id_f4
CHANGING
shlp=p_shlp
callcontrol=p_callcontrol
EXCEPTIONS
illegal_structure=1
第7/8页
OTHERS=2.
IFsy-subrc<>0.
MOVEsy-subrcTOp_rc.
EXIT.
ENDIF.
解释：
ZFUNDPLAN_FUND_ID为内表结构，lt_fnd_id_f4为存储查询结果的内表该函数是将自定义内表和搜索帮助标准内表进行MAPPING。
升级会员 