ABAP 自定义屏幕开发实现屏幕跳转

屏幕跳转

遇到的问题描述：在ABAP中的SCREEN的开发中，如果通过call screen 1000 starting at 11 12 ending at 23 22实现弹出小窗口的时候，右上角的关闭按钮是无法达到关闭窗口的效果的，我们都知道如果通过call screen 1000调用屏幕的时候，关闭按钮是可以关闭窗口的，小窗口的关闭要通过CODING来实现

1）如果没有给这个屏幕设置GUI状态，那么请创建一个GUI状态，然后给这个屏幕，通过set pf-status来实现。
2）有了GUI状态后，再GUI状态的功能码上的关闭图标上分配一个功能码给它。
3）分配好功能码，在按钮事件处理，如果点击了这个按钮，就 leave to screen 0(返回上一个屏幕，如果上一个屏幕就退出程序）或者 leave program(退出程序）。

LEAVE SCREEN.     or        LEAVE TO SCREEN <next screen>.

LEAVE SCREEN语句会结束当前屏幕并调用下一屏幕，next scree可以是static next screen，或者是dynamic next screen，如果是动态的，你必须在使用LEAVE SCREEN语句前使用SET SCREEN语句来重写static next screen

LEAVE TO SCREEN        相当于        SET SCREEN <next screen>.      LEAVE SCREEN.

这两个语句不会结束屏幕序列，它们仅仅转向统一屏幕序列中的另一个屏幕。屏幕序列是否结束要看<next screen>是否为0或者屏幕的next screen属性是否设置为0

可以用LEAVE TO SCREEN 0来结束当前SCREEN SEQUENCE

CALL SCREEN / SET SCREEN / LEAVE TO SCREEN区别

CALL SCREEN XXXX将在Screen调用栈（CALL STACK）上面添加一层调用（进栈，即重新开启一个新的屏幕序列），调用XXXX的PBO和PAI，如果XXXX的Next Screen不为0，那么将继续其Next Screen的PBO和PAI，如此继续~~~当最后碰到Next Screen为0时，该层调用将从调用栈中退出（出栈），然后系统将继续执行CALL SCREEN XXXX之后的语句。

SET SCREEN XXXX设置调用栈当前层次的Next Screen为XXXX，它并不影响调用栈的层数（即不会重新开启一个新的屏幕序列，只做屏幕之间的切换，而不是屏幕序列之间的切换），除非XXXX为0，那将导致调用栈退掉一层（出栈）。要注意的是，PAI中SET SCREEN XXXX后的语句，系统将照样执行，只有执行完毕该PAI整个逻辑后，才考虑Next Screen的PBO和PAI。

LEAVE TO SCREEN XXX与SET SCREEN XXX比较类似（也不会重新开启一个新的屏幕序列，只做屏幕之间的切换，而不是屏幕序列之间的切换），所不同的是，LEAVE TO SCREEN XXXX将强行中断当前SCREEN的PAI，直接执行XXXX的PBO和PAI。换言之，PAI中LEAVE TO SCREEN XXXX后面的语句，系统将不会执行到。

LEAVE SCREEN.后面的语句也不会执行

CALL SCREEN是将正在运行的画面挂起，进入所调用的画面，当使用LEAVE TO SCREEN 0时，能够返回原主调画面，可理解为嵌套调用；而LEAVE TO SCREEN是立即结束本画面的执行，调用所指定的画面，在调用画面中，无法再返回原主调画面。