点击此处---> 群内免费提供SAP练习系统(在群公告中)
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
您好,我当前正在尝试在内部表上运行带有选择选项的程序,在该表中,当我按下"多项选择"按钮并转到按钮屏幕时,我按下"检查"按钮(输入),然后 我所有的表字段都将显示在单个值块(红色圆圈)的右侧,是否有任何事件或某种动作能够执行此操作?
我的源代码:
表格:MARA。
选择选项:s_mrktdt,用于mara-matnr,无间隔。
************************** ************************************************
*用于填充文件类型的内部表的类型
类型:x_filtyp的BEGIN,
文件类型char3,"文件类型
描述类型char50," description
x_filtyp的结尾。
* ****************************************************** ********************
*数据*
********************* ******************************************************
数据:
*文件类型
i_filtyp类型标准表x_filtyp的初始大小0,
wa_filtyp类型x_filtyp。
选择选项:p_file for wa_filtyp-文件类型NO 时间间隔。
************************************************* **************************
*初始化*
*************** ****************************************************** ******
INITIALIZATION。
*在内部表中填充文件类型
PERFORM sub_filtyp。
******************* ******************************************* *************
*在选择屏幕上*
************************* **************************************************
AT SELECTION-SCREEN。
*根据p_filtyp的值请求
在p_file-LOW的值请求的SELECTION-SCREEN上。
使用p_file执行sub_get_help_filtyp。
*&-------- -------------------------------------------------- ----------- *
*&表格sub_filtyp
*&-------------------------- ------------------------------------------- **
FORM sub_filtyp。
*局部变量
数据:l_wa_filtyp类型x_filtyp。 "工作区
*附加行
l_wa_filtyp-文件类型='A'。
l_wa_filtyp-描述='字母A'。
附加l_wa_filtyp到i_filtyp。
* 附加行
l_wa_filtyp-文件类型='B'。
l_wa_filtyp-描述='字母B'。
附加l_wa_filtyp到i_filtyp。
ENDFORM。" sub_filtyp
*&- -------------------------------------------------- ----------------- *
*&表格sub_get_help_filtyp
*&-------------------- ------------------------------------------------- *
FORM使用l_filtyp的sub_get_help_filtyp。
*本地变量
数据:l_dynfld TYPE dynfnam,"屏幕字段名称
l_retfld TYPE字段名称,"返回字段名称
l_i_fields TYPE STANDARD TABLE OF dfies" ,"对于调用函数
l_i_return类型表ddshretval,"对于"调用函数
l_wa_field TYPE dfies,"工作区域
l_wa_return类型ddshretval," work
l_wa_value类型seahlpres,
l_i_value类型标准 seahlpres表,
l_i_mapping类型标准dselc表,
l_wa_mapp TYPE dselc。
l_wa_mapping-fldname ='DESCRIPTION'。
附加l_wa_mapping到l_i_mapping。
l_wa_field-fieldname ='FILETYPE'。
l_wa_field-tabname ='I_FILTYP' 。
l_wa_field-intlen =6。
l_wa_field-leng =6。
l_wa_field-outputlen =6。
l_wa_field-position = 1。
l_wa_field-scrtext_s = l_wa_field-fieldname。
l_wa_field-scrtext_m = l_wa_field-fieldname。
l_wa_field-scrtext_l = l_wa_field-fieldname。
l_wa_field-reptext = l_wa_field-fieldname。
APPEND l_wa_field TO l_i_fields。
CLEAR l_wa。 >
l_wa_field-fieldname ='DESCRIPTION'。
l_wa_field-tabname ='I_FILTYP'。
* l_wa_field-OFFSET =3。
l_wa_field-intlen =50。
l_wa_field-leng = 50 。
l_wa_field-outputlen = 50.
l_wa_field-position = 2。
l_wa_field-scrtext_s = l_wa_field-fieldname。
l_wa_field-scrtext_m = l_wa_field-fieldname。
l_wa_field-scrtext_l = l_wa_field-。
l_wa_field-reptext = l_wa_field-fieldname。
附加l_wa_field TO l_i_fields。
将i_filtyp插入到wa_filtyp。
l_wa_value-string = wa_filtyp文件类型。
附加l_wa_value到l_i_value。
l_wa_value-string = wa_filtyp描述。
APPEND l_wa_value到l_i_value。
ENDLOOP。
l_retfld ='FILETYPE'。
l_dynfld = l_filtyp。
*调用功能以寻求搜索帮助
呼叫功能'F4IF_INT_TABLE_VALUE_REQUEST'< br>导出
retfield = l_retfld
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = l_dynfld
window_title ='文件类型'
* value_org ='S'
callback_program = sy-repid
表格
value_tab = l_i_value
field_tab = l_i_fields
return_tab = l_i_return
* dynpfld_mapping = l_i_mapping
EXCEPTIONS
selectoption_error = 1
无值 2
其他=3。
如果sy-subrc EQ0。
读取表l_i_return进入l_wa_return
KEY字段名='FILETYPE'。
如果sy-subrc EQ0。
l_filtyp = l_wa_return-fieldval。
ENDIF。
ENDIF。
ENDFORM。 " sub_get_help_filtyp
(39.2 kB)
如果我正确理解了您的问题,则可以进行初始化。 添加:
请使用CODE按钮设置代码格式,以便以更加用户友好的格式(彩色)显示代码。
请您详细说明一下查询 因为不清楚。
正是我需要的。 谢谢同伴。
请使用COMMENT按钮输入评论,问题,添加详细信息等,答案仅是提出解决方案,请在答案区域的右侧显示SAP文本。
一周热门 更多>