2015培训技术搜索帮助

1、SAP 山鹰纸业技术培训SAP HAND 技术文档2016 年 9 月简体中文搜索帮助HANDSAP 山鹰纸业技术培训SAP 搜索帮助图标图标含义警告示例注释建议语法外部处理可选业务处理或决定排版惯例字体风格描述Example text出现在屏幕上的单字或字符。名、路径和选项。字段名、屏幕标题、按钮以及菜单到其它文档的交叉。Example textEXAMPLE TEXT正文文本中强调的字或词组，图形和表格的标题。系统中元素的名称。报表名、程序名、事务代码、表名和正文文本中嵌入的编程语言关键字，如 SELECT 和 INCLUDE。Example text屏幕输出。文件和目录的名称及其路径、消

2、息、源代码、变量和参数的名称以及安装工具、更新工具和数据库工具的名称。键盘上的按键。例如，功能键（如 F2）或 ENTER 键。用户输入原文。完全如文档所示输入这些单字或字符至系统中。可变用户输入。尖括号表示应使用适当的输入替换括号中的单字和字符。EXAMPLE TEXTExample text<Example text>© HAND SAP第 2 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助目录1 业务需求42 SE11 域值搜索帮助43 下拉框64 SE11 自定义搜索帮助75 函数实现搜索帮助106 联动搜索帮助137 OO ALV 搜索帮助158 单

3、元格搜索帮助169 限制分级搜索帮助1610 出口实现搜索帮助1911 标准复合搜索帮助附加页签2112 例子-成本中心自定义的搜索帮助2413 附加-搜索帮助显示不出值31© HAND SAP第 3 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助1 业务需求SAP 一个很强大的功能就是无所不在的搜索帮助，如果使用系统的标准字段如MATNR AUFNR 等，都会有相应的搜索帮助，但是对于自建的表格，就得制作搜索帮助了,下面简单制作基本搜索帮助。2 SE11 域值搜索帮助DD07T 中）还可以自定义新增（域值© HAND SAP第 4 页（共 31 页）SAP 山

4、鹰纸业技术培训SAP 搜索帮助可以看到新增域值搜索帮助© HAND SAP第 5 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助3 下拉框代码：TYPE-POOLS:.DATA:it_val TYPEvrm_values,LIKE LIKELINEOFit_val,OCCURS0.PARAMETERS位(2)AS4OBLIGATORY.“2 表示是 char2initialization.*p_gjahr = sy-datum+0(4).-key-text='01'.'一月'.APPENDTO.-key-text='02'.

5、'二月'.APPENDTO.-key-text='03'.'三月'.APPENDTO.-key-text='04'.'四月'.APPENDTO.-key-text='05'.'五月'.APPENDTO.-key-text='06'. ''.© HAND SAP第 6 页（共 31 页）w_linew_lineit_valw_linew_linew_lineit_valw_linew_linew_lineit_valw_linew_linew_

6、lineit_valw_linew_linew_lineit_valw_linew_linew_lineLISTBOX VISIBLE LENGTHp_monthw_linew_linewa_linevrmSAP 山鹰纸业技术培训SAP 搜索帮助APPENDTO.-key-text='07'.'七月'.APPENDTO.-key-text='08'.'八月'.APPENDTO.-key-text='09'.'九月'.APPENDTO.-key-text='10'.'十月

7、9;.APPENDTO.-key-text='11'.'十一月'.APPENDTO.-key-text='12'.'十二月'.APPENDTO.ATSELECTION-SCREENOUTPUT.CALLFUNCTION'VRM_SET_VALUES'EXPORTINGid='P_MONTH'=.values4 SE11 自定义搜索帮助系统标准的字段的搜索帮助© HAND SAP第 7 页（共 31 页）it_valit_valw_linew_linew_lineit_valw_linew_

8、linew_lineit_valw_linew_linew_lineit_valw_linew_linew_lineit_valw_linew_linew_lineit_valw_linew_linew_lineit_valw_lineSAP 山鹰纸业技术培训SAP 搜索帮助基于数据类型的 searchhelp，比如，对于 dats 类型的屏幕元素，系统会自动调用日期类型的 search help。而对于上图中搜索帮助列的 MAT1 等则都是在 se11 里定义的搜索帮助效果：© HAND SAP第 8 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助而如果 IMP 复选框

9、没有勾上，效果图其中一个基本搜索帮助有一个页签，而复合搜索帮助里可以嵌套多个基本搜索帮助。下面的就是一个基本搜索帮助，复合搜索帮助效果如下：© HAND SAP第 9 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助建好搜索帮助后，就可以把它挂到表上去了。5 函数实现搜索帮助© HAND SAP第 10 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助实现屏幕元素的搜索帮助时，当要参考的字段系统中已经定义有搜索帮助时，无须做其他操作，系统会自动调用该字段的搜索帮助。实现屏幕元素的搜索帮助时，当要参考的字段系统中没有定义搜索帮助时，我们可以到 se11 里

10、定义搜索帮助，然后代码里只需要加 matchcode（ZH_SD08 为在 se11 里定义的搜索帮助）：object 选项我们还可以通过 at selection-screen on value-request for(屏幕元素)或 OO的processon value-request 用代码实现 searchhelp。有时候需要 key© HAND SAP第 11 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助这种也是比较常用的另一种TABLES:t001w.DATA:LIKEt001w-werks,lc_werksLIKEOCCURS 0WITHHEADERLINE

11、,ltab_fieldshelp_valueBEGIN OFOCCURS0,ltab_valuesfeld(40)TYPEc,END OFltab_values.PARAMETERS:werks(4) TYPEc.ATSELECTION-SCREENONVALUE-REQUESTwerks text-006.FOR.PERFORMUSINGINITIALIZATION.*-Set up fieldsto=retrievedataltab_fields-tabnameltab_fields-fieldname ltab_fields-selectflag APPEND ltab_fields.

12、ltab_fields-tabname ltab_fields-fieldname ltab_fields-selectflag APPEND ltab_fields.'T001W'.'WERKS'.'X'.='T001W'.'NAME1'.*-Fill valuesSELECTFROMt001w.*ltab_values-feld =t001w-werks.APPEND ltab_values.ltab_values-feld =t001w-name1.APPEND ltab_values.ENDSELECT.*

13、&*&*&Formget_werks*text© HAND SAP第 12 页（共 31 页）spaceget_werkswerksSAP 山鹰纸业技术培训SAP 搜索帮助*->P_WERKS->P_TEXT_006texttext*FORMUSINGget_werksp_werksp_text_006.CALLFUNCTION'HELP_VALUES_GET_WITH_TABLE'EXPORTING='WERKS' 'T001W''Selectfieldname tabnametitle_i

14、n_values_listavalue'IMPORTING=select_valueTABLESfields=valuetabEXCEPTIONS=010203.field_not_in_ddic more_then_one_selectfieldno_selectfieldENDFORM."get_werks附加：描述都是数据元素带出来的描述6 联动搜索帮助© HAND SAP第 13 页（共 31 页）ltab_valuesltab_fieldsp_werksSAP 山鹰纸业技术培训SAP 搜索帮助代码如下*搜索帮助测试REPORTztest_zx.PARAME

15、TERS:P_LICENS LIKEZTTSD_LOAD-ZLICENSE,LIKEZTTSD_LOAD-BUKRS.ATSELECTION-SCREENONVALUE-REQUESTFOR.DATA:LIKEOCCURS0WITHHEADERLINE.DATA:BEGINOFOCCURS0,it_pernr4LIKEZTTSD_LOAD-ZLICENSE,ZTTSD_LOAD-BUKRS,LIKEit_pernr4.SORTBY.DELETE ADJACENTDUPLICATESFROM.CALLFUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'EX

16、PORTING='ZLICENSE'retfield dynpprog dynpnr dynprofield value_orgcallback_programcallback_formsy-sy-'P_LICENS' 'S'sy-repid'CM_FORM4'"这个函数是自动带出来下面的搜索帮助© HAND SAP第 14 页（共 31页）repiddynnrit_pernr4ZLICENSE BUKRSit_pernr4SELECT ZLICENSE BUKRSINTOTABLEit_pernr4FROMZ

17、TTSD_LOAD.ZLICENSEBUKRSEND OFddshretvalrt_tabP_LICENSP_BUKRSSAP 山鹰纸业技术培训SAP 搜索帮助值的不需要就不要写TABLES=value_tabreturn_tabEXCEPTIONS=12parameter_errorno_values_foundOTHERS=3.IFsy-subrc0.<>*MESSAGEID SY-MSGIDTYPE SY-MSGTYNUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2SY-MSGV3 SY-MSGV4.ENDIF.*"自动带下面搜索帮助*&am

18、p;*&*&Formcb_form*FORMTABLESrecord_tab STRUCTUREcm_form4CHANGINGTYPELIKE.callcontrolDATA:interfaceLIKELINEOFshlp-interface.TABLE-interfaceINTOinterfaceINDEX1.interface-shlpfield+4(1)= '2'. interface-valfield ='P_BUKRS'.APPEND interfaceTO-interface."bo_callback_formENDFOR

19、M.7 OO ALV 搜索帮助OO 还可以在屏幕绘制器里实现 search help。© HAND SAP第 15 页（共 31 页）ddshf4ctrlshlp_descr_tshlpseahlpresshlpshlpit_pernr4rt_tabSAP 山鹰纸业技术培训SAP 搜索帮助8 单元格搜索帮助要实现 alv 字段的搜索帮助：代码9 限制分级搜索帮助需求： 在检索界面，当用户输入物料号后，物料的搜索帮助只显示该物料的。© HAND SAP第 16 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助（DYNP_VALUES_这个函数的作用就是传递屏幕上的物

20、料号应该还有更不过比较简单的需求不值得深入研究了这样就好了）代码如下：*搜索帮助测试REPORTztest_zx.DATA:BEGINOFitab OCCURS0,TYPEmarm-matnr,TYPEt006a-,TYPEt006a-,ENDOFitab.DATA:tab LIKEOCCURS 0WITHHEADERLINE.dynpPARAMETERS:r_matnr TYPEmarm-matnr OBLIGATORY,TYPEt006a-msehi.ATSELECTION-SCREENONVALUE-REQUESTFORr_msehi.PERFORM.© HAND SAP第 1

21、7 页（共31页）get_boxr_msehimsehimsehtmatnrmsehi msehtSAP 山鹰纸业技术培训SAP 搜索帮助FORMget_box.-fieldname='R_MATNR'.APPENDtab.'DYNP_VALUES_'"由于没执行 PAI这会获取不到屏幕输CALL入FUNCTION"字段的值所以需EXPORTING要调用这个函数=-repid-dynnrTABLES=.dynpfieldsIF-subrc <> 0.MESSAGEIDsy-msgid TYPE-msgty NUMBER-msgno

22、WITHsy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ELSE.CALL FUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=tab-fieldvalueIMPORTINGoutput=.IFsy-subrc <> 0.MESSAGEIDsy-msgid TYPEsy-msgty NUMBERsy-msgnoWITH-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.ENDIF.SELECTseht amatnrINTOFIELDSOFTABLEFROM JOI

23、N WHEREASb ONameinh =bmsehi=ANDbspras ='1'.CALLFUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'EXPORTING='MSEHI'retfield dynpprog dynpnr dynprofieldvalue_org-repid-dynnr'R_MSEHI' 'S'© HAND SAP第 18 页（共 31页）r_matnrt006abmsehCORRESPONDINGmarm ASadynamedynumbtabsysymat

24、nritabsyr_matnrsysytabsysysySAP 山鹰纸业技术培训SAP 搜索帮助TABLES=.value_tabENDFORM.10 出口实现搜索帮助如果不是对数据库或数据视图的基本筛选，需要写 exit（比如选出的值不是数据表的键值，需要去除重复项的情况）该 exit（f4if_shlp_exit_bc）在 se37 定义，从标准 Function：f4if_shlp_exit_example而来。该 exit 的名字要以 f4ut 为前缀(以f4if_shlp_exit_为前缀也可以创建)© HAND SAP第 19 页（共 31页）itabSAP 山鹰纸业技术

25、培训SAP 搜索帮助© HAND SAP第 20 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助11 标准复合搜索帮助附加页签F1,例如 va03 销售订单的搜索帮助双击搜索帮助进入© HAND SAP第 21 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助© HAND SAP第 22 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助激活返回这个也要激活© HAND SAP第 23 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助效果：12 例子-成本中心自定义的搜索帮助从标准的成本中心的搜索帮助拷贝出一个自定

26、义的搜索帮助修改自定义的成本中心© HAND SAP第 24 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助增加搜索帮助的选择字段业务范围和利润中心为 selection method 自定义 VIEW（拷贝来自于 M_KOSTN）在新的试图增加上述两个字段© HAND SAP第 25 页（共 31 页）SAP 山鹰纸业技术培训SAP 搜索帮助检查上述 VIEW 的相关表是否满足要求（不满足则修改）激活并作检查。将新创建的 VIEW 替代 Z_KOST 的 selection method© HAND SAP第 26 页（共 31 页）SAP 山鹰纸业

27、技术培训SAP 搜索帮助保存后将上述两个勾去掉。为 Search help exit 创建新的搜索出口（拷贝来源于原来的搜索帮助：SE37）. 先为 FUNCTION 创建 FUNCTION GROUP：ZFUNGRP_SEARCH_HELP。再创建 FUNTION：ZF4UT_PARAMETERIDS_SET修改函数体为：=FUNCTION*".*"*"本地接口:*"*"*"*"*"*"*"IMPORTINGVALUE(PARAMID_LIST) TYPE VALUE(UNCONDITIONA

28、L) TYPETABLESCDEFAULTSPACE DEFAULTDDBOOL_DSPACESHLP_TAB TYPESHLP_DESCR_TAB_TRECORD_TAB STRUCTURESEAHLPRESCHANGING© HAND SAP第27 页（共 31 页）ZF4UT_PARAMETERIDS_SETSAP 山鹰纸业技术培训SAP 搜索帮助*"*"*"REFERENCE(SHLP) TYPE REFERENCE(CALLCONTROL)SHLP_DESCR_TTYPEDDSHF4CTRLDATA:TYPETABLEOFdynpWITHHEA

29、DERLINE,it_dyvalTYPEddshselopt,iw_ddshseloptBEGINOFiw_record,LIKEcsks-kokrs,csks-bukrs, csks-kosar, csks-verak,kokrs bukrs kosarverakLIKELIKELIKELIKEcsks-verak_user,verak_userLIKEcskt-mctxt,cskt-spras, csks-kostl, csks-datab, csks-datbi, csks-gsber, csks-prctr,mctxt spras kostl datab datbi gsberprct

30、rLIKELIKELIKELIKELIKELIKEEND OFiw_record.CASE-step.WHEN'SELONE'.WHEN'PRESEL1'.WHEN'PRESEL'.*设置当前屏幕字段名-fieldname-stepl='COBL-GSBER'. 0."屏幕控件名称-业务范围it_dyval.-fieldname-stepl='COBL-PRCTR'. 0."屏幕控件名称-利润中心it_dyval.*获取屏幕字段值CALL FUNCTION'DYNP_VALUES_

31、9;EXPORTING='SAPLKACB' '1014''X'dyname dynumbtranslate_to_upper© HAND SAP第 28 页（共 31 页）it_dyvalit_dyvalAPPENDit_dyvalit_dyvalAPPENDcallcontrolSAP 山鹰纸业技术培训SAP 搜索帮助=12345678910=11.CHECK sy-subrc =0.*维护该搜索 选择屏幕上的初始值iw_ddshselopt-shlpname =iw_ddshselopt-sign iw_ddshselopt-option='ZKOST'.='I'.'EQ'.LOOP ATit_dyval.SPLITit_dyval-fieldname AT'-'