【ABAP】屏幕方式对话框

弹出对话框可以参考FB03

步骤：

创建屏幕->方式对话框，绘制屏幕，GUI状态选择对话框状态，对是ENTR，错是E

在PBO事件中加

MODULE tab_init.

代码：

MODULE tab_init OUTPUT.
  DATA lt_fcode TYPE TABLE OF sy-ucomm.
  CLEAR lt_fcode[].
  SET PF-STATUS 'GUI' EXCLUDING lt_fcode.
ENDMODULE.

在PAI事件中加

MODULE user_command.

代码：

MODULE user_command INPUT.
  IF ok_code = space OR ok_code = 'ENTR'.
    ok_code = space.
    SET SCREEN 0.
    LEAVE SCREEN.
  ELSE.
    ok_code = 'E'.
    SET SCREEN 0.
    LEAVE SCREEN.
  ENDIF.
ENDMODULE.