版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
屏幕逻辑流
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