SAP 屏幕开发流水账

子屏幕处理

在主屏幕中，指定子屏幕区域名。

" 子屏幕号码
DATA: gv_subscreen TYPE sy-dynnr VALUE '0101'.

START-OF-SELECTION.
  CALL SCREEN 100.

*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS_0100'.
ENDMODULE.

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  IF sy-ucomm = 'BACK'.
    LEAVE TO SCREEN 0.
  ENDIF.

  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'SWICH'.
      " 切换子屏幕
      IF gv_subscreen = '0102'.
        gv_subscreen = '0101'.
      ELSE.
        gv_subscreen = '0102'.
      ENDIF.

    WHEN OTHERS.
  ENDCASE.
ENDMODULE.