*&---------------------------------------------------------------------*
*& Report ZFASDFA
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZFASDFA.
DATA:con_diabox TYPE REF TO cl_gui_dialogbox_container.
DATA: l_alv TYPE REF TO cl_gui_alv_grid ,
lt_sflight TYPE TABLE OF sflight .
DATA: ok_code LIKE sy-ucomm.parameters: p_zkp type char15.
initialization.
START-OF-SELECTION.
set pf-status 'XG001'.
write 'zkp is a good student'.AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'SSSS'.
CALL SCREEN 100..
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.*----------------------------------------------------------------------*
* CLASS lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
on_close FOR EVENT close OF cl_gui_dialogbox_container IMPORTING
sender.
ENDCLASS. "lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
METHOD on_close.
CALL METHOD sender->free.
FREE: con_diabox, l_alv.
LEAVE to screen 0. ENDMETHOD. "on_close
ENDCLASS. "lcl_event_handler IMPLEMENTATION*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'M200'. SELECT * FROM sflight INTO TABLE lt_sflight.
IF con_diabox IS INITIAL.
CREATE OBJECT con_diabox
EXPORTING
width = 600
height = 200
top = 70
left = 140
caption = 'Title'
EXCEPTIONS
OTHERS = 1.
SET HANDLER lcl_event_handler=>on_close FOR con_diabox . CREATE OBJECT l_alv
EXPORTING
i_parent = con_diabox.
ENDIF.
CALL METHOD l_alv->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
CHANGING
it_outtab = lt_sflight.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE to screen 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPU
弹出小窗口的例子
原创
©著作权归作者所有:来自51CTO博客作者precipitant的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:修改report程序源代码的程序
下一篇:过滤掉内表中没有重复记录的数据
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
[转]弹出div小窗口
_xWin 窗口1窗口2窗口3
ide html sed .net 初始化