通过按Enter键,将所有表格条目填充并填写单个值。

2020-08-22 07:35发布

         点击此处--->   EasySAP.com群内免费提供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)

         点击此处--->   EasySAP.com群内免费提供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)
付费偷看设置
发送
5条回答
Aaron 3364
1楼 · 2020-08-22 07:56.采纳回答

如果我正确理解了您的问题,则可以进行初始化。 添加:

 p_file-option ='EQ'。
   p_file-sign ='I'。
   p_file-low ='A'。
   APPEND p_file。
   p_file-option ='EQ'。
   p_file-sign ='I'。
   p_file-low ='B'。
   APPEND p_file。
 
哎,真难
2楼-- · 2020-08-22 08:05

请使用CODE按钮设置代码格式,以便以更加用户友好的格式(彩色)显示代码。

南山jay
3楼-- · 2020-08-22 08:02

请您详细说明一下查询 因为不清楚。

compass1988
4楼-- · 2020-08-22 07:47

正是我需要的。 谢谢同伴。

亦是此间程序员
5楼-- · 2020-08-22 07:53

请使用COMMENT按钮输入评论,问题,添加详细信息等,答案仅是提出解决方案,请在答案区域的右侧显示SAP文本。

一周热门 更多>