Abap/4操作屏幕（7）

来源：互联网发布：坚果s1安装软件编辑：程序博客网时间：2024/06/05 07:44

*&---------------------------------------------------------------------*
*& Report Z_CPT7_10                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&     页框控件                       *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT Z_CPT7_10 .

DATA: SAVE_OK LIKE SY-UCOMM,
OK_CODE LIKE SY-UCOMM,
CSUB(4) TYPE N.

CALL SCREEN 1000.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&      Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
*    SAVE_OK = OK_CODE.
*    CLEAR OK_CODE.
*    CASE SAVE_OK.
*        WHEN 'TAB1'.
*            CTAB = '0101'.
*        WHEN 'TAB2'.
*            CTAB = '0102'.
*    ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*&      Module CANCEL INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE CANCEL INPUT.
    LEAVE PROGRAM.
ENDMODULE.                 " CANCEL INPUT

*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'MYTABCONTROL'
CONSTANTS: BEGIN OF C_MYTABCONTROL,
             TAB1 LIKE SY-UCOMM VALUE 'MYTABCONTROL_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'MYTABCONTROL_FC2',
           END OF C_MYTABCONTROL.
*&SPWIZARD: DATA FOR TABSTRIP 'MYTABCONTROL'
CONTROLS: MYTABCONTROL TYPE TABSTRIP.
DATA:      BEGIN OF G_MYTABCONTROL,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE 'Z_CPT7_10',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_MYTABCONTROL-TAB1,
           END OF G_MYTABCONTROL.

*&SPWIZARD: OUTPUT MODULE FOR TS 'MYTABCONTROL'. DO NOT CHANGE THIS LINE
*&SPWIZARD: SETS ACTIVE TAB
MODULE MYTABCONTROL_ACTIVE_TAB_SET OUTPUT.
MYTABCONTROL-ACTIVETAB = G_MYTABCONTROL-PRESSED_TAB.
CASE G_MYTABCONTROL-PRESSED_TAB.
    WHEN C_MYTABCONTROL-TAB1.
      G_MYTABCONTROL-SUBSCREEN = '0101'.
    WHEN C_MYTABCONTROL-TAB2.
      G_MYTABCONTROL-SUBSCREEN = '0102'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
ENDCASE.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TS 'MYTABCONTROL'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE MYTABCONTROL_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
    WHEN C_MYTABCONTROL-TAB1.
      G_MYTABCONTROL-PRESSED_TAB = C_MYTABCONTROL-TAB1.
    WHEN C_MYTABCONTROL-TAB2.
      G_MYTABCONTROL-PRESSED_TAB = C_MYTABCONTROL-TAB2.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
ENDCASE.
ENDMODULE.

*子屏幕100的逻辑流
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN: MYTABCONTROL INCLUDING SY-REPID CSCR.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
MODULE CANCEL AT EXIT-COMMAND.

*子屏幕1000的逻辑流
PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABSTRIP 'MYTABCONTROL'
MODULE MYTABCONTROL_ACTIVE_TAB_SET.
CALL SUBSCREEN MYTABCONTROL_SCA
INCLUDING G_MYTABCONTROL-PROG G_MYTABCONTROL-SUBSCREEN.
* MODULE STATUS_1000.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABSTRIP 'MYTABCONTROL'
CALL SUBSCREEN MYTABCONTROL_SCA.
MODULE MYTABCONTROL_ACTIVE_TAB_GET.
MODULE CANCEL AT EXIT-COMMAND.
* MODULE USER_COMMAND_1000.