abap 弹出窗口屏幕（screen)实现关闭右上角的关闭按钮事件

### 创建 Dialog 类型的日历控件 在 ABAP 中创建对话框类型的日历控件涉及多个方面，包括定义屏幕、编写模块池程序以及处理用户交互逻辑。为了实现这一目标，可以遵循以下方法： #### 定义 Screen 和 PBO/PAI Modules 首先，在 SE51 事务码下设计一个新的 Dynpro 屏幕并放置一个按钮或其他触发器用于打开日历窗口。接着，在该Dynpro对应的Flow Logic部分设置Process Before Output (PBO)和 Process After Input (PAI)事件。 对于 PAI 处理过程中的特定操作，可以通过调用 `CALL SCREEN` 动态加载另一个包含实际日期选择界面的小屏[^1]。此小屏应配置有一个或多个字段来接收所选日期，并且可能还需要额外的功能键（Function Keys），比如确认(OK) 或取消(Cancel)，以便于用户完成选择动作后返回原页面继续流程执行。 #### 编写 Module Pool Program 实现 Calendar Popup 接下来，在ABAP程序中开发相应的函数用来展示弹出式的日历组件。这通常涉及到使用 SAP 提供的标准类如 CL_GUI_CALENDAR 来构建图形化接口对象实例，并将其呈现给最终使用者查看与互动[^2]。 下面是一个简单的例子展示了如何初始化此类对象并将它绑定到当前工作区: ```abap DATA: lo_calendar TYPE REF TO cl_gui_calendar, lt_selected_dates TYPE TABLE OF syst_datum. CREATE OBJECT lo_calendar EXPORTING parent = cl_gui_container=>screen0. lo_calendar->set_date_range( date_from = sy-datum - 30 " 显示过去一个月的数据作为默认范围起点 date_to = sy-datum ). SET HANDLER lo_calendar->on_user_command FOR lo_calendar. ``` 上述代码片段说明了怎样建立一个连接至父容器（即屏幕本身）的日历视图，并设置了初始可见区间；同时注册了一个处理器以响应用户的命令输入，例如点击某个具体日子或者按下快捷方式按键等行为。 当用户选择了期望的日期之后，这些信息会被收集起来并通过适当的方式传递回主应用程序做进一步处理——可能是更新某些数据库记录或者是刷新界面上其他关联元素的状态。