SAP个人学习-驾驶仓开发

0100：

300

399

*---------------------------------------------------------------------*
* REPORT  ZRSD997
*---------------------------------------------------------------------*

REPORT ZRSD997.

*---------------------------------------------------------------------*
* 变量字段声明
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
TYPE-POOLS: TRUXS.

CLASS LCL_APPLICATION DEFINITION DEFERRED.

DATA:
      EVENT_RECEIVER TYPE REF TO LCL_APPLICATION,
      G_APPLICATION TYPE REF TO LCL_APPLICATION,
      OK_CODE           TYPE SY-UCOMM,
      SAVE_OK           TYPE SY-UCOMM,
      WA_CONTAINER      TYPE SCRFNAME VALUE 'TREE1',
      WA_TREE           TYPE REF TO CL_GUI_SIMPLE_TREE,
      WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      NODE_TABLE        LIKE TABLE OF MTREESNODE,
      NODE1             TYPE MTREESNODE,
      NODEKEY(200)      VALUE 'NODE',
      NODETEXT(200)     VALUE 'NODE',
      SUBSCERRN_1(4)    TYPE N VALUE '399',
      SHIWU(4)          TYPE C.

*----------------------------------------------------------------------*
*       CLASS LCL_APPLICATION DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_APPLICATION DEFINITION.
  PUBLIC SECTION.
    METHODS:
      HANDLE_NODE_DOUBLE_CLICK FOR EVENT NODE_DOUBLE_CLICK
        OF CL_GUI_SIMPLE_TREE IMPORTING NODE_KEY.
ENDCLASS. "LCL_APPLICATION DEFINITION

*---------------------------------------------------------------------*
* CLASS LCL_APPLICATION IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS LCL_APPLICATION IMPLEMENTATION.
  METHOD HANDLE_NODE_DOUBLE_CLICK.
    NODEKEY = NODE_KEY.
    READ TABLE NODE_TABLE WITH KEY NODE_KEY = NODE_KEY INTO NODE1.
    NODETEXT = NODE1-TEXT.

    CASE NODEKEY.

      WHEN 'AA01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI002 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI013 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD997_SYFX VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI014 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA05'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD997_FYFX VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA06'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI015 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA07'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI101 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA08'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI062 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA09'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI060 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA10'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI061 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AA11'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI064 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.

      WHEN 'AB01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZFI=========ZFI008======== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AB02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT RABEST_ALV01 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AB03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI020 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AB04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZFI=========ZFI009======== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AC01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT RFITEMAP VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AC02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT RFAPBALANCE VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BA02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQTGSYSTQV000001ZRFI101======= VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AC05'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZQSD002 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BA03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZSD=========ZSD003_PJ===== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AC04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI004 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AC03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI007 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BA01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD011 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BA04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD015 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BA05'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZQSD010_JM VIA SELECTION-SCREEN AND RETURN.
        ENDIF.

      WHEN 'AD01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT RFARBALANCE VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT RFITEMAR VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRCO003 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI003 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD05'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI006 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD06'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI008 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD07'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI005 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD08'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI010 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD09'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRCO002 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AD10'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI009 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.

      WHEN 'AE01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT RFSSLD00 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AE02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT FAGL_ACCOUNT_BALANCE VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AE03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT FAGL_ACCOUNT_ITEMS_GL VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'AE04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRFI104 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BB01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD022 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BB02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD010_NEW VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BB03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD999_CE002 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BC01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZSD=========ZSD008======== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BD01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZQSD002 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BD02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD998 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BE01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZQSD015_1 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BF01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZSD=========ZSD001======== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BF02'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZSD=========ZSD012======== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BF03'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRSD031 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'BF04'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT AQZZZSD=========ZSD004======== VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN 'CA01'.
        AUTHORITY-CHECK OBJECT 'Z_SD_997'
           ID 'Z_HBKID' FIELD NODEKEY.
        IF SY-SUBRC NE 0.
          MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
          LEAVE SCREEN.
        ELSE.
          SUBMIT ZRHR001 VIA SELECTION-SCREEN AND RETURN.
        ENDIF.
      WHEN OTHERS.
        SUBSCERRN_1 = '0399'.
    ENDCASE.
    CLEAR NODEKEY.
  ENDMETHOD. "HANDLE_NODE_DOUBLE_CLICK
ENDCLASS. "LCL_APPLICATION IMPLEMENTATION

*&---------------------------------------------------------------------*
*&START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.

  CREATE OBJECT G_APPLICATION.
  CALL SCREEN 100.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*& MODULE STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'SD997_100'.
  SET TITLEBAR 'SD997_100'.
  IF WA_CUSTOM_CONTAINER IS INITIAL.
    PERFORM CREATE_TREE.
  ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*
*& MODULE USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.
  IF SHIWU IS NOT INITIAL.
    PERFORM SHIWU.
  ENDIF.

  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'ZHIXIN'.
      PERFORM SHIWU.
  ENDCASE.

  CLEAR SAVE_OK.
  CLEAR SHIWU.
ENDMODULE. " USER_COMMAND_0100 INPUT

*& FORM CREATE_TREE
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM CREATE_TREE .
  DATA: EVENTS TYPE CNTL_SIMPLE_EVENTS,
        EVENT1 TYPE CNTL_SIMPLE_EVENT.
  CREATE OBJECT WA_CUSTOM_CONTAINER
    EXPORTING
      CONTAINER_NAME = WA_CONTAINER.

  CREATE OBJECT WA_TREE
    EXPORTING
      PARENT              = WA_CUSTOM_CONTAINER
      NODE_SELECTION_MODE = CL_GUI_SIMPLE_TREE=>NODE_SEL_MODE_SINGLE.

  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'A'.
  CLEAR NODE1-RELATKEY.
  CLEAR NODE1-RELATSHIP.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ' '.
  NODE1-ISFOLDER = 'X'.
  CLEAR NODE1-N_IMAGE.
  CLEAR NODE1-EXP_IMAGE.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[A]-财务类分析应用'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA'.
  NODE1-RELATKEY = 'A'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@0N@'.
  NODE1-EXP_IMAGE = '@0N@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA]-财务管理指标'.
  APPEND NODE1 TO NODE_TABLE.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'AAA'.
  NODE1-RELATKEY = 'AA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@0N@'.
  NODE1-EXP_IMAGE = '@0N@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AAA]-2011年6月30日前'.
  APPEND NODE1 TO NODE_TABLE.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA01'.
  NODE1-RELATKEY = 'AAA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA01]-资产负债表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA02'.
  NODE1-RELATKEY = 'AAA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA02]-损益表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA03'.
  NODE1-RELATKEY = 'AAA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA03]-损益图形分析'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA04'.
  NODE1-RELATKEY = 'AAA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA04]-费用明细表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA05'.
  NODE1-RELATKEY = 'AAA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA05]-费用明细图形分析'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA06'.
  NODE1-RELATKEY = 'AAA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA06]-业绩表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'AAB'.
  NODE1-RELATKEY = 'AA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@0N@'.
  NODE1-EXP_IMAGE = '@0N@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AAB]-2011年6月30日后'.
  APPEND NODE1 TO NODE_TABLE.

  NODE1-NODE_KEY = 'AA07'.
  NODE1-RELATKEY = 'AAB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA07]-新资产负债表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA08'.
  NODE1-RELATKEY = 'AAB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA08]-新损益表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA09'.
  NODE1-RELATKEY = 'AAB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA09]-新业绩表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA10'.
  NODE1-RELATKEY = 'AAB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA10]-新业绩明细表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AA11'.
  NODE1-RELATKEY = 'AAB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AA11]-新费用表'.
  APPEND NODE1 TO NODE_TABLE.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'AB'.
  NODE1-RELATKEY = 'A'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@AN@'.
  NODE1-EXP_IMAGE = '@AN@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AB]-资产管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AB01'.
  NODE1-RELATKEY = 'AB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AB01]-资产清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AB02'.
  NODE1-RELATKEY = 'AB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AB02]-资产余额'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AB03'.
  NODE1-RELATKEY = 'AB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AB03]-折旧明细'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AB04'.
  NODE1-RELATKEY = 'AB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AB04]-资产明细帐'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AC'.
  NODE1-RELATKEY = 'A'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@E9@'.
  NODE1-EXP_IMAGE = '@E9@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AC]-应付管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AC01'.
  NODE1-RELATKEY = 'AC'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AC01]-应付帐款明细'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AC02'.
  NODE1-RELATKEY = 'AC'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AC02]-应付帐款余额'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AC03'.
  NODE1-RELATKEY = 'AC'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AC03]-应付款趋势分析月报'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AC04'.
  NODE1-RELATKEY = 'AC'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AC04]-应付款趋势分析日报'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AC05'.
  NODE1-RELATKEY = 'AC'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AC05]-供应商档案清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD'.
  NODE1-RELATKEY = 'A'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@E8@'.
  NODE1-EXP_IMAGE = '@E8@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD]-应收管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD01'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD01]-应收帐款余额'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD02'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD02]-应收账款明细'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD03'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD03]-应收帐款帐龄分析'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD04'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD04]-应收帐款月对比分析'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD05'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD05]-应收款往来对帐表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD06'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD06]-应收款趋势分析日报'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD07'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10P@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD07]-应收款趋势分析月报'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD08'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD08]-应收款趋势分析'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD09'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD09]-加盟店信贷日报表'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AD10'.
  NODE1-RELATKEY = 'AD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AD10]-查询信贷当前占用情况'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AE'.
  NODE1-RELATKEY = 'A'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@GT@'.
  NODE1-EXP_IMAGE = '@GT@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AE]-总帐管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AE01'.
  NODE1-RELATKEY = 'AE'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AE01]-科目余额'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AE02'.
  NODE1-RELATKEY = 'AE'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AE02]-科目各期余额'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AE03'.
  NODE1-RELATKEY = 'AE'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AE03]-科目明细账'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'AE04'.
  NODE1-RELATKEY = 'AE'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[AE04]-查询会计凭证'.
  APPEND NODE1 TO NODE_TABLE.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'B'.
  CLEAR NODE1-RELATKEY.
  CLEAR NODE1-RELATSHIP.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ' '.
  NODE1-ISFOLDER = 'X'.
  CLEAR NODE1-N_IMAGE.
  CLEAR NODE1-EXP_IMAGE.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[B]-业务类分析应用'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BA'.
  NODE1-RELATKEY = 'B'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@K4@'.
  NODE1-EXP_IMAGE = '@K4@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BA]-采购管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BA01'.
  NODE1-RELATKEY = 'BA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BA01]-采购价格清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BA02'.
  NODE1-RELATKEY = 'BA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BA02]-采购发票清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BA03'.
  NODE1-RELATKEY = 'BA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BA03]-派价清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BA04'.
  NODE1-RELATKEY = 'BA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BA04]-采购订单备注查询'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BA05'.
  NODE1-RELATKEY = 'BA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BA05]-供应商直发加盟店采购价格'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BB'.
  NODE1-RELATKEY = 'B'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@K5@'.
  NODE1-EXP_IMAGE = '@K5@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BB]-销售管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BB01'.
  NODE1-RELATKEY = 'BB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BB01]-销售价格清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BB02'.
  NODE1-RELATKEY = 'BB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BB02]-销售数据(收入+毛利)'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BB03'.
  NODE1-RELATKEY = 'BB'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BB03]-销售预算执行分析'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BC'.
  NODE1-RELATKEY = 'B'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@A5@'.
  NODE1-EXP_IMAGE = '@A5@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BC]-库存管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BC01'.
  NODE1-RELATKEY = 'BC'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BC01]-查询安全库存值'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BD'.
  NODE1-RELATKEY = 'B'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@AD@'.
  NODE1-EXP_IMAGE = '@AD@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BD]-供应商管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BD01'.
  NODE1-RELATKEY = 'BD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BD01]-供应商资料清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BD02'.
  NODE1-RELATKEY = 'BD'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BD02]-供应商关系管理'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BE'.
  NODE1-RELATKEY = 'B'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@A0@'.
  NODE1-EXP_IMAGE = '@A0@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BE]-客户管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BE01'.
  NODE1-RELATKEY = 'BE'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BE01]-客户资料清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BF'.
  NODE1-RELATKEY = 'B'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@TT@'.
  NODE1-EXP_IMAGE = '@TT@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BF]-商品管理数据'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BF01'.
  NODE1-RELATKEY = 'BF'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BF01]-商品资料清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BF02'.
  NODE1-RELATKEY = 'BF'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BF02]-商品类目清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BF03'.
  NODE1-RELATKEY = 'BF'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BF03]-商品供应源清单'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'BF04'.
  NODE1-RELATKEY = 'BF'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[BF04]-商品计量单位换算关系'.
  APPEND NODE1 TO NODE_TABLE.

  CLEAR NODE1.
  NODE1-NODE_KEY = 'C'.
  CLEAR NODE1-RELATKEY.
  CLEAR NODE1-RELATSHIP.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ' '.
  NODE1-ISFOLDER = 'X'.
  CLEAR NODE1-N_IMAGE.
  CLEAR NODE1-EXP_IMAGE.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[C]-人力资源类分析应用'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'CA'.
  NODE1-RELATKEY = 'C'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = 'X'.
  NODE1-N_IMAGE = '@I2@'.
  NODE1-EXP_IMAGE = '@I2@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[CA]-人力资源管理'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.
  NODE1-NODE_KEY = 'CA01'.
  NODE1-RELATKEY = 'CA'.
  NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  NODE1-HIDDEN = ''.
  NODE1-DISABLED = ''.
  NODE1-ISFOLDER = ''.
  NODE1-N_IMAGE = '@10@'.
  NODE1-EXP_IMAGE = '@10@'.
  CLEAR NODE1-EXPANDER.
  NODE1-TEXT = '[CA01]-人力资源管理系统'.
  APPEND NODE1 TO NODE_TABLE.
  CLEAR NODE1.

  CALL METHOD WA_TREE->ADD_NODES
    EXPORTING
      TABLE_STRUCTURE_NAME = 'MTREESNODE'
      NODE_TABLE = NODE_TABLE
*    EXCEPTIONS
*      ERROR_IN_NODE_TABLE = 1
*      FAILED = 2
*      DP_ERROF = 3
*      TABLE_STRUCTURE_NAME_NOT_FOUND = 4
*      OTHERS = 5
.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  CALL METHOD WA_TREE->EXPAND_NODE
    EXPORTING
      NODE_KEY = 'A'.
  CALL METHOD WA_TREE->EXPAND_NODE
    EXPORTING
      NODE_KEY = 'B'.
  CALL METHOD WA_TREE->EXPAND_NODE
    EXPORTING
      NODE_KEY = 'C'.

*定义双击事件
  EVENT1-EVENTID = CL_GUI_SIMPLE_TREE=>EVENTID_NODE_DOUBLE_CLICK.
  EVENT1-APPL_EVENT = 'X'.
  APPEND EVENT1 TO EVENTS.
  CALL METHOD WA_TREE->SET_REGISTERED_EVENTS
    EXPORTING
      EVENTS                    = EVENTS
    EXCEPTIONS
      CNTL_ERROR                = 1
      CNTL_SYSTEM_ERROR         = 2
      ILLEGAL_EVENT_COMBINATION = 3
      OTHERS                    = 4.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*将已定义的双击事件分配至树对象
  SET HANDLER G_APPLICATION->HANDLE_NODE_DOUBLE_CLICK FOR WA_TREE.
ENDFORM. " CREATE_TREE*&---------------------------

*&---------------------------------------------------------------------*
*&      FORM  SHIWU
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM SHIWU.

  CASE SHIWU.
    WHEN  'AA01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AA01'.
        SUBMIT ZRFI002 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AA02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AA02'.

        SUBMIT ZRFI013 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AA03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AA03'.

        SUBMIT ZRSD997_SYFX VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AA04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AA04'.
        SUBMIT ZRFI014 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AA05'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AA05'.
        SUBMIT ZRSD997_FYFX VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AA06'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AA06'.
        SUBMIT ZRFI015 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AB01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AB01'.
        SUBMIT AQZZZFI=========ZFI008======== VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AB02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AB02'.
        SUBMIT RABEST_ALV01 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AB03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AB03'.
        SUBMIT ZRFI020 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AB04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AB04'.
        SUBMIT AQZZZFI=========ZFI009======== VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AC01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AC01'.
        SUBMIT RFITEMAP VIA SELECTION-SCREEN AND RETURN.
      ENDIF.

    WHEN  'AC02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AC02'.
        SUBMIT RFAPBALANCE VIA SELECTION-SCREEN AND RETURN.
      ENDIF.

    WHEN  'BA02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BA02'.
        SUBMIT AQTGSYSTQV000001ZRFI101======= VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AC05'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AC05'.
        SUBMIT ZQSD002 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BA03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BA03'.
        SUBMIT AQZZZSD=========ZSD003_PJ===== VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AC04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AC04'.
        SUBMIT ZRFI004 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.

    WHEN  'AC03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AC03'.
        SUBMIT ZRFI007 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD01'.
        SUBMIT RFARBALANCE VIA SELECTION-SCREEN AND RETURN.
      ENDIF.

    WHEN  'AD02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD02'.
        SUBMIT RFITEMAR VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD03'.
        SUBMIT ZRCO003 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD04'.
        SUBMIT ZRFI003 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD05'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD05'.
        SUBMIT ZRFI006 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD06'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD06'.
        SUBMIT ZRFI008 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD07'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD07'.
        SUBMIT ZRFI005 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD08'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD08'.
        SUBMIT ZRFI010 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD09'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD09'.
        SUBMIT ZRCO002 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AD10'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AD10'.
        SUBMIT ZRFI009 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AE01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AE01'.
        SUBMIT RFSSLD00 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AE02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AE02'.
        SUBMIT FAGL_ACCOUNT_BALANCE VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AE03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AE03'.
        SUBMIT FAGL_ACCOUNT_ITEMS_GL VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'AE04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'AE04'.
        SUBMIT ZRFI104 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BA01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BA01'.
        SUBMIT ZRSD011 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.

    WHEN  'BA04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BA04'.
        SUBMIT ZRSD015 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.

    WHEN  'BA05'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BA05'.
        SUBMIT ZQSD010_JM VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BB01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BB01'.
        SUBMIT ZRSD022 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BB02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BB02'.
        SUBMIT ZRSD010_NEW VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BB03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BB03'.
        SUBMIT ZRSD999_CE002 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BC01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BC01'.
        SUBMIT ZQSD008 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BD01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BD01'.
        SUBMIT ZQSD002 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BD02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BD02'.
        SUBMIT ZRSD998 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BE01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BE01'.
        SUBMIT ZQSD006 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BF01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BF01'.
        SUBMIT ZQSD001 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BF02'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BF02'.
        SUBMIT ZQSD012 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BF03'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BF03'.
        SUBMIT ZQSD009 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'BF04'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'BF04'.
        SUBMIT ZQSD004 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
    WHEN  'CA01'.
      AUTHORITY-CHECK OBJECT 'Z_SD_997'
        ID 'Z_HBKID' FIELD SHIWU.
      IF SY-SUBRC NE 0.
        MESSAGE  '系统提醒您：您没有获得适当的权限，请联系信息技术部系统管理员！' TYPE 'E'.
        LEAVE SCREEN.
      ELSE.
        CALL METHOD WA_TREE->SET_SELECTED_NODE
          EXPORTING
            NODE_KEY = 'CA01'.
        SUBMIT ZRHR001 VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
  ENDCASE.
ENDFORM.                    "SHIWU