cl_gui_docking_container=>dock_at_top
静态属性可以使用top left right bottom
默认left
当然也不仅限于附加alv。
*&---------------------------------------------------------------------*
*& Report ZLEH10
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
report zleh10.
call screen 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
module status_0100 output.
set pf-status 'ST_100'.
* SET TITLEBAR 'xxx'.
data(go_doc) = new cl_gui_docking_container(
side = cl_gui_docking_container=>dock_at_top
repid = sy-repid
dynnr = sy-dynnr
extension = 100
).
data(go_grid_doc) = new cl_gui_alv_grid( go_doc ).
select from ztpm_bglx
fields *
into table @data(lt_data2).
go_grid_doc->set_table_for_first_display(
exporting
i_structure_name = 'ZTPM_BGLX'
changing
it_outtab = lt_data2
).
select from t001w
fields *
into table @data(lt_data).
data(go_grid) = new cl_gui_alv_grid( cl_gui_container=>screen0 ).
go_grid->set_table_for_first_display(
exporting
i_structure_name = 'T001W'
changing
it_outtab = lt_data
).
endmodule.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.
set screen 0.
leave screen.
endmodule.