无法关闭模式对话框

Question

我正在尝试将屏幕称为弹出窗口。屏幕类型设置为模态对话框，我可以调用屏幕，但无法关闭它。当我点击小十字时什么也没有发生。下一个屏幕设置为0。

我作为弹出窗口调用的屏幕不包含任何按钮，也不包含任何硬编码的按钮。有什么想法我做错了吗？

我还希望它返回的屏幕能够刷新（因此它会再次加载 PBO）。我该怎么做？

这是代码：

MODULE werkende_knoppen_subscreen INPUT.
  CASE ok_code.
    WHEN 'X'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.

Answer 1

您应该在弹出窗口的 PAI 部分中检查 'EXIT'（或者，在您的情况下为自定义关闭按钮，'X'）用户命令。
例如：

MODULE user_command_0010 INPUT.
  ok = sy-ucomm.
  CLEAR sy-ucomm.
  CASE ok.
    WHEN 'EXIT' OR 'X'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.

Answer 2

这是一个未记录的功能，但在模式对话框（弹出窗口）中，用于关闭弹出窗口的右上角按钮被分配了 F12 键，因此您必须将此键分配给功能代码并像任何其他功能代码一样处理它。

分步过程：

1) 创建ABAP程序（事务代码SE38或SE80）

REPORT.

CALL SCREEN 100 STARTING AT 10 10 ENDING AT 60 20.

MODULE status_0100 OUTPUT. " <=== called "before output"
  SET PF-STATUS '0100'.    " <=== choose the GUI status
ENDMODULE.

MODULE user_command_0100 INPUT. " <=== called "after input" (after user action)
  IF sy-ucomm = 'CANCEL'.       " <=== the function code you chose in your GUI status
    SET SCREEN 0.               " <=== 0 is a special number which ends "CALL SCREEN"
  ENDIF.
ENDMODULE.

注意：设置屏幕0是关闭对话框（0表示“当前dynpro序列结束”）；如果您有一个复杂的屏幕，您也可以使用 LEAVE TO SCREEN（相当于 2 个语句 SET SCREEN + LEAVE SCREEN）。

2）创建画面0100（事务码SE51或双击CALL SCREEN后面的0100）

画面类型：模态对话框

流程逻辑：

PROCESS BEFORE OUTPUT.
  MODULE status_0100.

PROCESS AFTER INPUT.
  MODULE user_command_0100.

3 ) 创建GUI状态0100（事务代码SE41或双击SET PF-STATUS后面的0100）

状态类型：对话框

将 F12 键分配给任意功能代码（我选择名称 CANCEL），并激活该功能代码（按钮“功能代码”）：

4) 测试

运行程序，您现在可以单击右上角的按钮（或者按 F12 如果您愿意）关闭模式对话框：