DIALOG——实现屏幕缩放功能

屏幕逻辑流

SE38 创建可执行程序
*& CALL 9000 屏幕
call screen 9000.
双击创建第一屏（主屏幕）


点击格式->添加子屏幕区域

保存激活->转到逻辑流

gv_screen初始等于9010.当点击不同按钮，通过改变gv_screen的值来指向不同的屏幕（9011、9012、9013），代码如下：

子屏幕9010设置如下


按钮设置如下

保存激活退出->转到逻辑流->调9020 9021子屏幕

子屏幕9011设置如下

9012 子屏幕如下：



9013 子屏幕如下：



9020子屏幕如下：

9021子屏幕如下：

演示：




程序源码：

*&---------------------------------------------------------------------*
*& Program ID :  ZDEMO_DYNPRO_ZOOM
*& Description: 屏幕缩放功能DEMO
*&---------------------------------------------------------------------*
*& Created by : Mitchell Wang                Date: 2019/06/25 Ver: 01.0
*&---------------------------------------------------------------------*
*& Modified by: author                       Date: YYYY/MM/DD Ver: 02.0
*&   … Description of modification …
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*

report zdemo_dynpro_zoom.
*&---------------------------------------------------------------------*
*&                    global variable                                  *
*&---------------------------------------------------------------------*
data gv_screen type char10 value '9010'.

*& CALL 9000 屏幕
call screen 9000.
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module status_9000 output.
  set pf-status 'STATUS_9000'.
  set titlebar '9000_TITLE'.
endmodule.                 " STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module user_command_9000 input.

  case sy-ucomm.
    when 'EXIT'.
      leave to screen 0.
    when '9010' or '9011' or '9012' or '9013'.
      gv_screen = sy-ucomm.
    when others.
  endcase.
endmodule.                 " USER_COMMAND_9000  INPUT