需求:修改“附件清单”弹出屏幕显示的数据
1、复制“附件清单”的标准类CL_GOS_SRV_ATTACHMENT_LIST,修改方法EXECUTE,增加代码
DATA: gs_layout TYPE lvc_s_layo,
g_grid TYPE REF TO cl_gui_alv_grid.
DATA: gt_outtab TYPE TABLE OF sflight.
CREATE OBJECT g_grid
EXPORTING
i_parent = io_container.
SELECT * FROM sflight INTO TABLE gt_outtab UP TO 10 ROWS.
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_layout = gs_layout
CHANGING
it_outtab = gt_outtab.
并控制程序不再执行原标准代码
2、SM30修改SGOSATTR
附:可以修改方法check_status 控制“附件清单”按钮是否生效
ep_status = mp_status_active.表示生效
ep_status = mp_status_inactive.表示不生效
更多GOS应用可参考:http://zevolving.com/category/generic-object-services-gos/