在ALV弹出窗口中排除"取消"按钮

2020-09-10 02:53发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨 我正在使用CALL F...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


我正在使用CALL FUNCTION'REUSE_ALV_POPUP_TO_SELECT'。 我想删除显示在那儿的取消按钮。

我知道如何删除标准按钮。 我必须将"导出"选项与一串功能代码一起使用。

it_clusion = alv_excl

但是我不知道取消的功能代码。

请帮助

7条回答
DafaDDDa
2020-09-10 03:23

HI Shanmugham Muralidaran

-


报告程序

&----


&报告ZVKRTEST

*&

&----


*&

*&----


报告ZVKRTEST。

TYPE-POOLS: SLIS。

数据:GT_OUTTAB类型异常事件0,

GS_PRIVATE类型SLIS_DATA_CALLER_EXIT,

GS_SELFIELD类型SLIS_SELFIELD,

G_EXIT(1) TYPE C。

数据:it_ex_wa类型slis_extab,

it_ex类型slis_t_extab。

参数:P_TITLE类型SY-TITLE。

开始 -选择 ION。

从*到表GT_OUTTAB中选择*最多5行。

*在IT_EX索引处循环1。

it_ex_wa-FCODE ='&AC1'。

将it_ex_wa附加到it_ex。

呼叫功能'REUSE_ALV_POPUP_TO_SELECT'

导出

I_TITLE = P_TITLE

    < li>

    I_SELECTION ='X'

  • I_ZEBRA =''

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_CHECKBOX_FIELDNAME =

  • I_LINEMARK_FIELDNAME =

  • I_SCROLL_TO_SEL_LINE ='X'

I_TABNAME ='1'

I_STRUCTURE_NAME ='SFLIGHT'

  • IT_FIELDCAT =

IT_EXCLUDING = it_ex

  • I_CALLBACK_PROGRAM =

  • I_CALLBACK_USER_COMMAND =

IS_PRIVATE = GS_PRIVATE

导入

ES_SELFIELD = GS_SELFIELD

E_EXIT = G_EXIT

表格

T_OUTTAB = GT_OUTTAB

例外情况

PROGRAM_ERROR = 1

其他= 2。

如果SY-SUBRC <> 0。

带有SY-SUBRC的消息I000(0K)。

ENDIF。

WRITE:/G_EXIT,

GS_SELFIELD-TABNAME,

gs_selfield-TABINDEX,

gs_selfield-SEL_TAB_FIELD,

gs_selfield-VALUE。

-


取消按钮处于活动状态的报告程序。

-


&----


*&报告ZVKRTEST

*&

&- -


*&

*&

&----


报告ZVKRTEST。

TYPE-POOLS:SLIS。

DATA:GT_OUTTAB TYPE S 飞行事故0,

GS_PRIVATE TYPE SLIS_DATA_CALLER_EXIT,

GS_SELFIELD TYPE SLIS_SELFIELD,

G_EXIT(1)TYPE C。

*数据: it_ex_wa类型为slis_extab,

  • it_ex类型为slis_t_extab。

参数:P_TITLE类型为SY-TITLE。

选择开始。

从*到表GT_OUTTAB中选择*最多5个行。

**在IT_EX索引1处循环。

* it_ex_wa -FCODE ='&AC1'。

*

*将it_ex_wa附加到it_ex。

调用功能'REUSE_ALV_POPUP_TO_SELECT'

导出

I_TITLE = P_TITLE

  • I_SELECTION ='X'

  • I_ZEBRA =''

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_CHECKBOX_FIELDNAME =

  • I_LINEMAR K_FIELDNAME =

  • I_SCROLL_TO_SEL_LINE ='X'

I_TABNAME ='1'

I_STRUCTURE_NAME = 'SFLIGHT'

  • IT_FIELDCAT =

  • IT_EXCLUDING = it_ex

  • I_CALLBACK_PROGRAM =

  • I_CALLBACK_USER_COMMAND =

IS_PRIVATE = GS_PRIVATE

导入

ES_SELFIELD = GS_SELFIELD

E_EXIT = G_EXIT

T_OUTTAB = GT_OUTTAB

例外情况

PROGRAM_ERROR = 1

其他= 2。

如果SY-SUBRC <> 0。

带有SY-SUBRC的消息I000(0K)。

ENDIF 。

写:/G_EXIT,

GS_SELFIELD-TABNAME,

gs_selfield-TABINDEX,

gs_selfield-SEL_TAB_ FIELD,

gs_selfield-VALUE。

-


我认为这是您想要的确切代码 ..

注意事项

VIJAY RAHEJA

一周热门 更多>