SAP staff maintain

REPORT  Ztest_MAINTAIN NO STANDARD PAGE HEADING.

*----------------------------------------------------------------------*
* TABLE DECLARATION
*----------------------------------------------------------------------*
TABLES : ZSTAFF,
         SSCRFIELDS.
TYPE-POOLS:SLIS.
TYPE-POOLS VRM.
INCLUDE <ICON>.

*&---------------------------------------------------------------------*
* STRUCTURE DECLARATION
*&---------------------------------------------------------------------*
TYPES : BEGIN OF T_STAFF.
        INCLUDE STRUCTURE ZSTAFF.
TYPES :  MARK TYPE C,
         TEXT TYPE CHAR10,
         ICON TYPE CHAR10,
         NAME TYPE CHAR20,
         BZ TYPE CHAR20.
TYPES : END OF T_STAFF.

* Type : Download content
TYPES : BEGIN OF T_DATA,
          F_01(40)  TYPE C,
          F_02(40)  TYPE C,
          F_03(40)  TYPE C,
          F_04(40)  TYPE C,
          F_05(40)  TYPE C,
          F_06(40)  TYPE C,
          F_07(40)  TYPE C,
        END OF T_DATA.

*&---------------------------------------------------------------------*
* INTERNAL TABLE DECLARATION
*&---------------------------------------------------------------------*
DATA :
      I_LIST        TYPE VRM_VALUES,
      ITAB_CATA_TK  TYPE LVC_T_FCAT,
      I_STAFF       TYPE STANDARD TABLE OF T_STAFF,
      I_UPLOAD      TYPE STANDARD TABLE OF ZSTAFF.

*&---------------------------------------------------------------------*
* WORK AREA DECLARATION
*&---------------------------------------------------------------------*
DATA :
      WA_LIST  LIKE LINE OF I_LIST,
      WA_STAFF LIKE LINE OF I_STAFF,
      WA_UPLOAD LIKE LINE OF I_UPLOAD.

*&---------------------------------------------------------------------*
* VARIANT DECLARATION
*&---------------------------------------------------------------------*
DATA :
* 功能代码
      OK_CODE TYPE SY-UCOMM,                                "9000
      OK_CODE1 TYPE SY-UCOMM,                               "9001
      OK_CODE2 TYPE SY-UCOMM,                               "9002
      OK_CODE3 TYPE SY-UCOMM,                               "9003
      OK_CODE4 TYPE SY-UCOMM,                               "9004
* 容器名称
      GV_CNAME TYPE SCRFNAME VALUE 'CONTAINER',
* 容器对象
      GV_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
* ALV对象
      GV_ALV TYPE REF TO CL_GUI_ALV_GRID,
* ALV布局
      GV_LAYOUT    TYPE LVC_S_LAYO,
* 仅显示标志
      GV_FLAG TYPE C,
* 双击显示标志
      GV_DOUBLE TYPE C,
* 上传文件路径
      GV_UPLOAD TYPE LOCALFILE,
* 下载到路径名
      GV_FILE TYPE LOCALFILE,
* 上传到表格中
      GV_TFLAG TYPE C,
*记录数目
      GV_NUM TYPE I.

*&---------------------------------------------------------------------*
* Constant DECLARATION
*&---------------------------------------------------------------------*
CONSTANTS:
* File type for open
           C_MASK(20)    TYPE C VALUE ',*.XLSX,*.XLSX.',
* Mode type
           C_MODE_O      TYPE C VALUE 'O',
* CSV split
           C_SPLIT       TYPE C VALUE ',',
* Defult fold
           C_FOLD(20)    TYPE C VALUE 'D:\',
* Pop-up box name
           C_NAME(20)    TYPE C VALUE 'File Select',
* File name
           C_FILE(20)    TYPE C VALUE 'Temp.xlsx'.

*----------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER DEFINITION .
  PUBLIC SECTION .
    METHODS:
*      Double-click control
      HANDLE_DOUBLE_CLICK
      FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
      IMPORTING E_ROW E_COLUMN.
ENDCLASS.                    "lcl_event_handler DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER IMPLEMENTATION .
*  Handle Double Click
  METHOD HANDLE_DOUBLE_CLICK .
    PERFORM HANDLE_DOUBLE_CLICK USING E_ROW E_COLUMN.
  ENDMETHOD .                    "handle_double_click
ENDCLASS .                    "lcl_event_handler IMPLEMENTATION
DATA : GR_EVENT_HANDLER TYPE REF TO LCL_EVENT_HANDLER.

*&---------------------------------------------------------------------*
* SELECTION SCREEN DECLARATION
*&---------------------------------------------------------------------*
*SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS : P_R1 RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND UC.
SELECTION-SCREEN COMMENT 2(20) TEXT-002  FOR FIELD P_R1.
SELECTION-SCREEN POSITION 30.
PARAMETERS : P_R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 31(20) TEXT-003  FOR FIELD P_R2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS : P_R3 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 2(20) TEXT-004  FOR FIELD P_R3.
SELECTION-SCREEN POSITION 30.
PARAMETERS : P_R4 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 31(20) TEXT-005  FOR FIELD P_R4.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS : P_R5 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 2(20) TEXT-006  FOR FIELD P_R5.
SELECTION-SCREEN POSITION 30.
PARAMETERS : P_R6 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 31(20) TEXT-007  FOR FIELD P_R6.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.
PARAMETERS : P_NUM TYPE ZSTAFF-ZNUM .

SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS : S_DATE FOR ZSTAFF-EDATE NO-EXTENSION MODIF ID G1,
                 S_DEPT FOR ZSTAFF-DEPT NO-EXTENSION MODIF ID G1,
                 S_INPUT FOR ZSTAFF-ERDAT NO-EXTENSION MODIF ID G1.
SELECTION-SCREEN SKIP 1.

PARAMETERS : P_CH AS CHECKBOX DEFAULT 'X' MODIF ID G1.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN COMMENT 1(82) TEXT-030.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT 3(82) TEXT-031.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT 1(82) TEXT-032.
*&---------------------------------------------------------------------*
* INITIALIZATION
*&---------------------------------------------------------------------*
INITIALIZATION.
  SSCRFIELDS-FUNCTXT_01 = TEXT-021.
  SSCRFIELDS-FUNCTXT_02 = TEXT-022.
  SSCRFIELDS-FUNCTXT_03 = TEXT-033.
  CLEAR :
        GV_NUM,
        GV_FLAG.

*&---------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  PERFORM SET_SELECT_SCREEN.

*&---------------------------------------------------------------------*
* AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN.
*  DATA : LV_TCODE TYPE TSTC-TCODE.
*  LV_TCODE = 'ZPP125'.
*  CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
*    EXPORTING
*      TCODE  = LV_TCODE
*    EXCEPTIONS
*      OK     = 1
*      NOT_OK = 2
*      OTHERS = 3.
*  IF SY-SUBRC <> 1.
*    MESSAGE TEXT-034 TYPE 'S' DISPLAY LIKE 'E'.
*    STOP.
*  ENDIF.

  PERFORM FRM_CHECK_INPUT.
  IF SSCRFIELDS-UCOMM = 'FC01'.
    CALL SCREEN 9003 STARTING AT 20 10 ENDING AT 90 16.
  ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
    CALL SCREEN 9004 STARTING AT 20 10 ENDING AT 90 16.
  ELSEIF SSCRFIELDS-UCOMM = 'FC03'.
    PERFORM FRM_UPDATE_STAUTS.
  ENDIF.

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

  IF P_R1 = 'X'
    OR P_R3 = 'X'
    OR P_R4 = 'X'
    OR P_R5 = 'X'
.
    IF P_NUM IS INITIAL.
      SET CURSOR FIELD 'P_NUM'.
      MESSAGE TEXT-009 TYPE 'S' DISPLAY LIKE 'E'.
      EXIT.
    ENDIF.

    IF STRLEN( P_NUM ) < 6.
      SET CURSOR FIELD 'P_NUM'.
      MESSAGE TEXT-010 TYPE 'S' DISPLAY LIKE 'E'.
      EXIT.
    ENDIF.

    IF P_R1 = 'X'.     "添加单条员工信息
      SELECT SINGLE *
        FROM ZSTAFF
        WHERE ZNUM = P_NUM.
      IF SY-SUBRC = 0.
        SET CURSOR FIELD 'P_NUM'.
        MESSAGE TEXT-011 TYPE 'S' DISPLAY LIKE 'E'.
        EXIT.
      ENDIF.
      CALL SCREEN 9000.
    ENDIF.

    IF P_R3 = 'X' OR P_R4 = 'X'.   "显示单条员工信息
      IF P_R3 = 'X'.
        GV_FLAG = ''.
      ELSE.
        GV_FLAG = 'X'.
      ENDIF.
      SELECT SINGLE *
        FROM ZSTAFF
        INTO ZSTAFF
        WHERE ZNUM = P_NUM.
      IF SY-SUBRC <> 0.
        SET CURSOR FIELD 'P_NUM'.
        MESSAGE TEXT-017 TYPE 'S' DISPLAY LIKE 'E'.
      ELSE.
        CALL SCREEN 9000.
      ENDIF.
    ENDIF.

    IF P_R5 = 'X'.   "删除单条员工信息
      PERFORM FRM_DEL_RECORD.
    ENDIF.

*  ELSEIF P_R5 = 'X'.
*    PERFORM FRM_DEL_RECORD.
  ELSEIF P_R6 = 'X'.
    PERFORM FRM_GET_DATA.
    IF I_STAFF IS NOT INITIAL.
      CALL SCREEN 9001.
    ELSE.
      MESSAGE TEXT-012 TYPE 'S' DISPLAY LIKE 'E'.
      EXIT.
    ENDIF.
  ELSEIF P_R2 = 'X'.
    CALL SCREEN 9002.
  ENDIF.
*&---------------------------------------------------------------------*
* END-OF-SELECTION
*&---------------------------------------------------------------------*
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      Form  SET_SELECT_SCREEN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SET_SELECT_SCREEN .
  LOOP AT SCREEN.
    IF P_R1 = 'X' OR P_R3 = 'X' OR P_R4 = 'X' OR P_R5 = 'X'.
      IF SCREEN-GROUP1 = 'G1'.
        SCREEN-INPUT = 0.
      ELSE.
        SCREEN-INPUT = 1.
      ENDIF.
      MODIFY SCREEN.
    ELSEIF  P_R2 = 'X'.
      IF SCREEN-GROUP1 = 'G1' OR SCREEN-NAME = 'P_NUM'.
        SCREEN-INPUT = 0.
      ELSE.
        SCREEN-INPUT = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " SET_SELECT_SCREEN
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       9000 PBO
*----------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.
  IF P_R1 = 'X'.
    SET PF-STATUS '9000'.
    SET TITLEBAR 'TITLE' WITH TEXT-002.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'GP2'.
        SCREEN-INPUT = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSEIF P_R3 = 'X'.
    SET PF-STATUS '9000'.
    SET TITLEBAR 'TITLE' WITH TEXT-001.
  ELSEIF P_R4 = 'X'.
    SET PF-STATUS '9000' EXCLUDING 'SAVE'.
    SET TITLEBAR 'TITLE' WITH TEXT-018.
  ENDIF.

* set the initial value
  PERFORM FRM_SET_INITIAL.
* set the list value
  PERFORM SET_LIST_VALUE.
ENDMODULE.                 " STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_INITIAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_INITIAL .
  IF ZSTAFF-ZNUM IS INITIAL.
    ZSTAFF-ZNUM = P_NUM.
  ENDIF.
  LOOP AT SCREEN .
    IF P_R4 = 'X' OR GV_DOUBLE = 'X'.
      IF SCREEN-GROUP1 = 'GP1' OR SCREEN-GROUP1 = 'GP2' .
        SCREEN-INPUT = 0.
      ELSE.
        SCREEN-INPUT = 1.
      ENDIF.
      MODIFY SCREEN .
    ENDIF.
  ENDLOOP.
ENDFORM.                    " FRM_SET_INITIAL
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       9000 PAI
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
  CASE OK_CODE.
*    WHEN 'BACK' OR 'EXIT'.
*      LEAVE TO SCREEN 0.
*    WHEN 'CANCEL'.
*      LEAVE PROGRAM.
    WHEN 'SAVE'.
      PERFORM FRM_SAVE_INFO.
    WHEN OTHERS.
  ENDCASE.
  CLEAR : OK_CODE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*&      Form  SET_LIST_VALUE
*&---------------------------------------------------------------------*
*       设置部门下拉框的值
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SET_LIST_VALUE .
  DATA:
        LV_I_DOMTAB  TYPE STANDARD TABLE OF DD07V,
        LV_WA_DOMTAB TYPE DD07V.

  IF I_LIST IS INITIAL.
    CALL FUNCTION 'DD_DOMVALUES_GET'
      EXPORTING
        DOMNAME              = 'ZDEPT'
       TEXT                 = 'X'
       LANGU                = SY-LANGU
*   BYPASS_BUFFER        = ' '
* IMPORTING
*   RC                   =
      TABLES
        DD07V_TAB            = LV_I_DOMTAB
* EXCEPTIONS
*   WRONG_TEXTFLAG       = 1
*   OTHERS               = 2
              .
    IF SY-SUBRC = 0.
      LOOP AT LV_I_DOMTAB INTO LV_WA_DOMTAB.
        CLEAR WA_LIST.
        WA_LIST-KEY = LV_WA_DOMTAB-DOMVALUE_L.
        WA_LIST-TEXT = LV_WA_DOMTAB-DDTEXT.
        APPEND WA_LIST TO I_LIST.
      ENDLOOP.
    ENDIF.

  ENDIF.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID                    = 'ZSTAFF-DEPT'
      VALUES                = I_LIST
*   EXCEPTIONS
*     ID_ILLEGAL_NAME       = 1
*     OTHERS                = 2
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " SET_LIST_VALUE
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_INPUT
*&---------------------------------------------------------------------*
*       选择屏幕校验
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_CHECK_INPUT .
*  IF P_R1 = 'X' OR P_R3 = 'X' OR P_R4 = 'X' OR P_R5 = 'X'.
*    IF P_NUM IS INITIAL.
*      SET CURSOR FIELD 'P_NUM'.
*      MESSAGE TEXT-009 TYPE 'S' DISPLAY LIKE 'E'.
*      GV_STATUS = 'X'.
*      EXIT.
*    ENDIF.
*
*    IF STRLEN( P_NUM ) < 6.
*      SET CURSOR FIELD 'P_NUM'.
*      MESSAGE TEXT-010 TYPE 'S' DISPLAY LIKE 'E'.
*      GV_STATUS = 'X'.
*      EXIT.
*    ENDIF.
*
*    SELECT SINGLE *
*      FROM ZSTAFF
*      WHERE ZNUM = P_NUM.
*    IF SY-SUBRC = 0.
*      SET CURSOR FIELD 'P_NUM'.
*      MESSAGE TEXT-011 TYPE 'S' DISPLAY LIKE 'E'.
*      GV_STATUS = 'X'.
*      EXIT.
*    ENDIF.
*  ENDIF.
ENDFORM.                    " FRM_CHECK_INPUT
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE EXIT INPUT.
  DATA : LV_RETURN TYPE C.                                  "#EC *
  CLEAR : LV_RETURN.
* Exit the screen
  IF OK_CODE  = 'CANCEL'.
    IF GV_FLAG = 'X'.
      LEAVE PROGRAM.
    ELSE.
      CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'                 "#EC *
       EXPORTING
         DEFAULTOPTION  = 'Y'
         TEXTLINE1      = TEXT-I01
         TITEL          = TEXT-I02
         CANCEL_DISPLAY = ''
       IMPORTING
         ANSWER         = LV_RETURN.
      IF LV_RETURN = 'J'.
        LEAVE PROGRAM.
      ENDIF.
    ENDIF.
* Back to the previous screen
  ELSEIF OK_CODE = 'BACK' OR OK_CODE = 'EXIT'.
    IF GV_FLAG = 'X'.
      LEAVE TO SCREEN 0.
    ELSE.
      CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'                 "#EC *
        EXPORTING
          DEFAULTOPTION  = 'Y'
          TEXTLINE1      = TEXT-I01
          TITEL          = TEXT-I02
          CANCEL_DISPLAY = ''
        IMPORTING
          ANSWER         = LV_RETURN.
      IF LV_RETURN = 'J'.
        LEAVE TO SCREEN 0.
      ENDIF.
    ENDIF.
  ENDIF.
  CLEAR : OK_CODE.
ENDMODULE.                 " EXIT  INPUT
*&---------------------------------------------------------------------*
*&      Module  INITIAL_CONTAINER  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE INITIAL_CONTAINER OUTPUT.
  IF GV_CONTAINER IS INITIAL.
    PERFORM CREATE_ALV_CONTAINER.
  ENDIF.
  PERFORM FRM_SET_ALV.
ENDMODULE.                 " INITIAL_CONTAINER  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  CREATE_ALV_CONTAINER
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_ALV_CONTAINER .
  IF NOT GV_CONTAINER IS INITIAL.
    CALL METHOD GV_CONTAINER->FREE
      EXCEPTIONS
        CNTL_SYSTEM_ERROR = 1
        CNTL_ERROR        = 2.
*    IF SY-SUBRC <> 0.
*    ENDIF.
    CLEAR GV_CONTAINER.
    CLEAR GV_ALV.
  ENDIF.
  CREATE OBJECT GV_CONTAINER
    EXPORTING
      CONTAINER_NAME              = GV_CNAME
    EXCEPTIONS
      CNTL_ERROR                  = 1
      CNTL_SYSTEM_ERROR           = 2
      CREATE_ERROR                = 3
      LIFETIME_ERROR              = 4
      LIFETIME_DYNPRO_DYNPRO_LINK = 5.
ENDFORM.                    " CREATE_ALV_CONTAINER
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_ALV .
  IF GV_ALV IS INITIAL.
    CREATE OBJECT GV_ALV
      EXPORTING
        I_PARENT          = GV_CONTAINER
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4.

    PERFORM FRM_ALV_LIST.

*   display alv
    CALL METHOD GV_ALV->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        IS_LAYOUT                     = GV_LAYOUT
      CHANGING
        IT_OUTTAB                     = I_STAFF
        IT_FIELDCATALOG               = ITAB_CATA_TK
      EXCEPTIONS
        INVALID_PARAMETER_COMBINATION = 1
        PROGRAM_ERROR                 = 2
        TOO_MANY_LINES                = 3
        OTHERS                        = 4.
*    --Creating an instance for the event handler
    CREATE OBJECT GR_EVENT_HANDLER .
*    --Registering handler methods to handle ALV Grid events
    SET HANDLER GR_EVENT_HANDLER->HANDLE_DOUBLE_CLICK FOR GV_ALV.
  ELSE.
*    PERFORM FRM_REFRESH_DATA.
    CALL METHOD GV_ALV->REFRESH_TABLE_DISPLAY( ).
  ENDIF.
ENDFORM.                    " FRM_SET_ALV
*&---------------------------------------------------------------------*
*&      Form  FRM_ALV_LIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_ALV_LIST .
* set fieldcatalog
  PERFORM FRM_SET_FIELDCAT.
* set layout
  PERFORM FRM_SET_LAYOUT.
ENDFORM.                    " FRM_ALV_LIST
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_FIELDCAT .
  DATA:
      LV_WA_FCAT TYPE LVC_S_FCAT.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'ZNUM'.
  LV_WA_FCAT-COLTEXT = TEXT-H01.
  LV_WA_FCAT-OUTPUTLEN = 10.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'ZNAME'.
  LV_WA_FCAT-COLTEXT = TEXT-H02.
  LV_WA_FCAT-OUTPUTLEN = 10.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'ZPOST'.
  LV_WA_FCAT-COLTEXT = TEXT-H03.
  LV_WA_FCAT-OUTPUTLEN = 15.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'EDATE'.
  LV_WA_FCAT-COLTEXT = TEXT-H04.
  LV_WA_FCAT-OUTPUTLEN = 10.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'ZID'.
  LV_WA_FCAT-COLTEXT = TEXT-H05.
  LV_WA_FCAT-OUTPUTLEN = 20.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'REMARK'.
  LV_WA_FCAT-COLTEXT = TEXT-H06.
  LV_WA_FCAT-OUTPUTLEN = 25.
  LV_WA_FCAT-NO_OUT = 'X'.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'NAME'.
  LV_WA_FCAT-COLTEXT = TEXT-H07.
  LV_WA_FCAT-OUTPUTLEN = 15.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'BZ'.
  LV_WA_FCAT-COLTEXT = TEXT-H10.
  LV_WA_FCAT-OUTPUTLEN = 10.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'ICON'.
  LV_WA_FCAT-COLTEXT = TEXT-H09.
  LV_WA_FCAT-OUTPUTLEN = 4.
  LV_WA_FCAT-ICON = 'X'.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.

  CLEAR LV_WA_FCAT.
  LV_WA_FCAT-FIELDNAME = 'TEXT'.
  LV_WA_FCAT-COLTEXT = TEXT-H08.
  LV_WA_FCAT-OUTPUTLEN = 8.
  APPEND LV_WA_FCAT TO ITAB_CATA_TK.
ENDFORM.                    " FRM_SET_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_LAYOUT .
  GV_LAYOUT-SEL_MODE = 'D'.
  GV_LAYOUT-ZEBRA = 'X' .
*  GV_LAYOUT-CWIDTH_OPT = 'X'.
ENDFORM.                    " FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
  DATA:
        LV_CHAR TYPE CHAR50,
        LV_I_DOMTAB  TYPE STANDARD TABLE OF DD07V,
        LV_WA_DOMTAB TYPE DD07V.

  CALL FUNCTION 'DD_DOMVALUES_GET'
    EXPORTING
      DOMNAME              = 'ZDEPT'
     TEXT                 = 'X'
     LANGU                = SY-LANGU
*   BYPASS_BUFFER        = ' '
* IMPORTING
*   RC                   =
    TABLES
      DD07V_TAB            = LV_I_DOMTAB
* EXCEPTIONS
*   WRONG_TEXTFLAG       = 1
*   OTHERS               = 2
            .
  IF SY-SUBRC = 0.
    LOOP AT LV_I_DOMTAB INTO LV_WA_DOMTAB.
      CLEAR WA_LIST.
      WA_LIST-KEY = LV_WA_DOMTAB-DOMVALUE_L.
      WA_LIST-TEXT = LV_WA_DOMTAB-DDTEXT.
      APPEND WA_LIST TO I_LIST.
    ENDLOOP.
  ENDIF.

  IF P_NUM IS NOT INITIAL.
    IF P_CH = 'X'.
      SELECT *
        FROM ZSTAFF
        INTO CORRESPONDING FIELDS OF TABLE I_STAFF
        WHERE EDATE IN S_DATE
          AND DEPT IN S_DEPT
          AND ERDAT IN S_INPUT
          AND ZNUM = P_NUM
          AND STATUS = ''.

    ELSE.
      SELECT *
        FROM ZSTAFF
        INTO CORRESPONDING FIELDS OF TABLE I_STAFF
        WHERE EDATE IN S_DATE
          AND DEPT IN S_DEPT
          AND ERDAT IN S_INPUT
          AND ZNUM = P_NUM.
    ENDIF.
  ELSE.
    IF P_CH = 'X'.
      SELECT *
        FROM ZSTAFF
        INTO CORRESPONDING FIELDS OF TABLE I_STAFF
        WHERE EDATE IN S_DATE
          AND DEPT IN S_DEPT
          AND ERDAT IN S_INPUT
          AND STATUS = ''.
    ELSE.
      SELECT *
        FROM ZSTAFF
        INTO CORRESPONDING FIELDS OF TABLE I_STAFF
        WHERE EDATE IN S_DATE
          AND DEPT IN S_DEPT
          AND ERDAT IN S_INPUT.
    ENDIF.
  ENDIF.

  LOOP AT I_STAFF INTO WA_STAFF.
    CLEAR LV_CHAR.
    READ TABLE LV_I_DOMTAB INTO LV_WA_DOMTAB
      WITH KEY DOMVALUE_L = WA_STAFF-DEPT.
    IF SY-SUBRC = 0.
      WA_STAFF-NAME = LV_WA_DOMTAB-DDTEXT.
    ENDIF.
    IF WA_STAFF-STATUS = ''.
      WA_STAFF-TEXT = TEXT-S01.
      WA_STAFF-ICON = ICON_LED_GREEN.
    ELSE.
      WA_STAFF-TEXT = TEXT-S02.
      WA_STAFF-ICON = ICON_LED_RED.
    ENDIF.
    IF WA_STAFF-LEADER = 'X'.
      WA_STAFF-BZ = TEXT-S03.
    ELSE.
      WA_STAFF-BZ = ''.
    ENDIF.
    MODIFY I_STAFF FROM WA_STAFF.
  ENDLOOP.

  DESCRIBE TABLE I_STAFF LINES GV_NUM.
ENDFORM.                    " FRM_GET_DATA
*&---------------------------------------------------------------------*
*&      Module  STATUS_9001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9001 OUTPUT.
  SET PF-STATUS '9001'.
  IF P_CH = 'X'.
    SET TITLEBAR 'TITLE' WITH TEXT-007 '-' '已激活'.
  ELSE.
    SET TITLEBAR 'TITLE' WITH TEXT-007 '-' '全部'.
  ENDIF.
ENDMODULE.                 " STATUS_9001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9001 INPUT.
  DATA :
         LT_ROW TYPE  LVC_T_ROID,                           "#EC *
         LS_ROW TYPE  LVC_S_ROID.                           "#EC *

  CASE OK_CODE1.
    WHEN 'BACK' OR 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'DELALL'.
      PERFORM FRM_DEL_SEL.
    WHEN OTHERS.
  ENDCASE.
  CLEAR : OK_CODE1.
ENDMODULE.                 " USER_COMMAND_9001  INPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_DEL_RECORD
*&---------------------------------------------------------------------*
*       删除记录
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DEL_RECORD .
  DATA :
      LV_ANSWER TYPE C,
      LV_CHAR01 TYPE CHAR255,
      LV_CHAR02 TYPE CHAR255,
      LV_CHAR03 TYPE CHAR255.

  CLEAR : WA_STAFF.
  SELECT SINGLE *
    INTO WA_STAFF
    FROM ZSTAFF
    WHERE ZNUM = P_NUM.
  IF SY-SUBRC = 0.
    CONCATENATE TEXT-H02 ':' WA_STAFF-ZNAME
      INTO LV_CHAR01 SEPARATED BY SPACE.
    CONCATENATE TEXT-H03 ':' WA_STAFF-ZPOST
      INTO LV_CHAR02 SEPARATED BY SPACE.
    CONCATENATE TEXT-H04 ':' WA_STAFF-EDATE+0(4) '年'
      WA_STAFF-EDATE+4(2) '月' WA_STAFF-EDATE+6(2) '日'
      INTO LV_CHAR03 SEPARATED BY SPACE.
  ELSE.
    MESSAGE TEXT-017 TYPE 'S' DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.
  CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'           "#EC FB_OLDED
      EXPORTING
      DEFAULTOPTION  = 'N'
        TEXTLINE1      = TEXT-014
*     TEXTLINE2      = ' '
        DIAGNOSETEXT1  = LV_CHAR01
        DIAGNOSETEXT2  = LV_CHAR02
        DIAGNOSETEXT3  = LV_CHAR03
        TITEL          = TEXT-015
*     START_COLUMN   = 25
*     START_ROW      = 6
        CANCEL_DISPLAY = ''
      IMPORTING
        ANSWER         = LV_ANSWER.

  CHECK LV_ANSWER = 'J'.
  DELETE ZSTAFF FROM WA_STAFF.
  IF SY-SUBRC = 0.
    MESSAGE TEXT-013 TYPE 'S'.
    COMMIT WORK.
  ENDIF.
ENDFORM.                    " FRM_DEL_RECORD
*&---------------------------------------------------------------------*
*&      Form  FRM_SAVE_INFO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SAVE_INFO .
  CALL FUNCTION 'ENQUEUE_EZSTAFF'
   EXPORTING
     MODE_ZSTAFF          = 'E'
     MANDT                = SY-MANDT
     ZNUM                 = ZSTAFF-ZNUM
*     X_ZNUM               = ' '
*     _SCOPE               = '2'
*     _WAIT                = ' '
*     _COLLECT             = ' '
   EXCEPTIONS
     FOREIGN_LOCK         = 1
     SYSTEM_FAILURE       = 2
     OTHERS               = 3
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  IF ZSTAFF IS NOT INITIAL.
    ZSTAFF-ERDAT = SY-DATUM.
    ZSTAFF-UZEIT = SY-UZEIT.
    ZSTAFF-UNAME = SY-UNAME.
  ENDIF.
*  IF GV_STATUS =  ''.
*    ZSTAFF-STATUS = ''.
*  ELSE.
*    ZSTAFF-STATUS = 'X'.
*  ENDIF.

  MODIFY ZSTAFF FROM ZSTAFF.
  IF SY-SUBRC = 0.
    CALL FUNCTION 'DEQUEUE_EZSTAFF'
     EXPORTING
       MODE_ZSTAFF       = 'E'
       MANDT             = SY-MANDT
       ZNUM              = ZSTAFF-ZNUM
*       X_ZNUM            = ' '
*       _SCOPE            = '3'
*       _SYNCHRON         = ' '
*       _COLLECT          = ' '
              .
    MESSAGE TEXT-008 TYPE 'S'.
    COMMIT WORK.
    LEAVE TO SCREEN 0.
  ELSE.
    CALL FUNCTION 'DEQUEUE_EZSTAFF'
     EXPORTING
       MODE_ZSTAFF       = 'E'
       MANDT             = SY-MANDT
       ZNUM              = ZSTAFF-ZNUM
*       X_ZNUM            = ' '
*       _SCOPE            = '3'
*       _SYNCHRON         = ' '
*       _COLLECT          = ' '
              .
    MESSAGE TEXT-019 TYPE 'I'.
    ROLLBACK WORK.
    LEAVE TO SCREEN 0.
  ENDIF.
ENDFORM.                    " FRM_SAVE_INFO
*&---------------------------------------------------------------------*
*&      Module  STATUS_9002  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9002 OUTPUT.
  SET PF-STATUS '9000'.
  SET TITLEBAR 'TITLE' WITH TEXT-003.
  PERFORM SET_LISTBOX_VALUE.
ENDMODULE.                 " STATUS_9002  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9002  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9002 INPUT.
  CASE OK_CODE2.
    WHEN 'BACK' OR 'EXIT'.
      IF I_STAFF IS NOT INITIAL.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'               "#EC *
        EXPORTING
          DEFAULTOPTION  = 'Y'
          TEXTLINE1      = TEXT-I01
          TITEL          = TEXT-I02
          CANCEL_DISPLAY = ''
        IMPORTING
          ANSWER         = LV_RETURN.
        IF LV_RETURN = 'J'.
          LEAVE TO SCREEN 0.
        ENDIF.
      ELSE.
        LEAVE TO SCREEN 0.
      ENDIF.
    WHEN 'CANCEL'.
      IF I_STAFF IS NOT INITIAL.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'               "#EC *
         EXPORTING
           DEFAULTOPTION  = 'Y'
           TEXTLINE1      = TEXT-I01
           TITEL          = TEXT-I02
           CANCEL_DISPLAY = ''
         IMPORTING
           ANSWER         = LV_RETURN.
        IF LV_RETURN = 'J'.
          LEAVE PROGRAM.
        ENDIF.
      ELSE.
        LEAVE PROGRAM.
      ENDIF.
    WHEN 'SAVE'.
* 批量保存
      PERFORM FRM_SAVE_RECORDS.
    WHEN 'UP'.
* 上传至Table中
      GV_TFLAG = 'X'.
      CALL SCREEN 9004 STARTING AT 20 10 ENDING AT 90 16.
    WHEN OTHERS.
  ENDCASE.
  CLEAR : OK_CODE2.
ENDMODULE.                 " USER_COMMAND_9002  INPUT

*&SPWizard: Data incl. inserted by SP Wizard. DO NOT CHANGE THIS LINE!
INCLUDE ZSTAFF_MAINTAIN_TBL .
*&---------------------------------------------------------------------*
*&      Form  FRM_SAVE_RECORDS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SAVE_RECORDS .
  IF I_STAFF IS NOT INITIAL.
    INSERT ZSTAFF FROM TABLE I_STAFF ACCEPTING DUPLICATE KEYS.
    IF SY-SUBRC = 0.
      MESSAGE TEXT-008 TYPE 'S'.
      COMMIT WORK.
      LEAVE TO SCREEN 0.
    ELSE.
      MESSAGE TEXT-019 TYPE 'I'.
      ROLLBACK WORK.
      LEAVE TO SCREEN 0.
    ENDIF.
  ELSE.
    MESSAGE TEXT-020 TYPE 'I'.
  ENDIF.
ENDFORM.                    " FRM_SAVE_RECORDS
*&---------------------------------------------------------------------*
*&      Form  SET_LISTBOX_VALUE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SET_LISTBOX_VALUE .
  DATA:
          LV_I_DOMTAB  TYPE STANDARD TABLE OF DD07V,
          LV_WA_DOMTAB TYPE DD07V.

  IF I_LIST IS INITIAL.
    CALL FUNCTION 'DD_DOMVALUES_GET'
      EXPORTING
        DOMNAME              = 'ZDEPT'
       TEXT                 = 'X'
       LANGU                = SY-LANGU
*   BYPASS_BUFFER        = ' '
* IMPORTING
*   RC                   =
      TABLES
        DD07V_TAB            = LV_I_DOMTAB
* EXCEPTIONS
*   WRONG_TEXTFLAG       = 1
*   OTHERS               = 2
              .
    IF SY-SUBRC = 0.
      LOOP AT LV_I_DOMTAB INTO LV_WA_DOMTAB.
        CLEAR WA_LIST.
        WA_LIST-KEY = LV_WA_DOMTAB-DOMVALUE_L.
        WA_LIST-TEXT = LV_WA_DOMTAB-DDTEXT.
        APPEND WA_LIST TO I_LIST.
      ENDLOOP.
    ENDIF.

  ENDIF.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID                    = 'WA_STAFF-DEPT'
      VALUES                = I_LIST
*   EXCEPTIONS
*     ID_ILLEGAL_NAME       = 1
*     OTHERS                = 2
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " SET_LISTBOX_VALUE

*&---------------------------------------------------------------------*
*&      Form  HANDLE_DOUBLE_CLICK
*&---------------------------------------------------------------------*
*       Double Click method
*----------------------------------------------------------------------*
*      -->P_E_ROW  text
*      -->P_E_COLUMN  text
*----------------------------------------------------------------------*
FORM HANDLE_DOUBLE_CLICK  USING FU_ROW  FU_COLUMN.        "#EC * "#EC *
  READ TABLE I_STAFF INTO WA_STAFF INDEX FU_ROW.
  SELECT SINGLE *
    FROM ZSTAFF
    INTO ZSTAFF
    WHERE ZNUM = WA_STAFF-ZNUM.
  GV_DOUBLE = 'X'.
  GV_FLAG = 'X'.
  CALL SCREEN 9000.
ENDFORM.                    " HANDLE_DOUBLE_CLICK
*&---------------------------------------------------------------------*
*&      Module  STATUS_9003  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9003 OUTPUT.
  SET PF-STATUS '9003'.
  SET TITLEBAR 'TITLE' WITH TEXT-023.
ENDMODULE.                 " STATUS_9003  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9003  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9003 INPUT.
  CASE OK_CODE3.
    WHEN 'CANCEL' OR 'CANC'.
      LEAVE TO SCREEN 0.
    WHEN 'DOWN'.
      PERFORM FRM_CHECK_FOLD.
      PERFORM FRM_DOWNLOAD_EXCEL.
    WHEN OTHERS.
  ENDCASE.
  CLEAR : OK_CODE3.
ENDMODULE.                 " USER_COMMAND_9003  INPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_FOLD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_CHECK_FOLD .
  DATA:
* Return value
        LV_RETURN      TYPE C.

* Check file path for downloading valid
  CALL FUNCTION 'WS_QUERY'
    EXPORTING
      FILENAME = GV_FILE
      QUERY    = 'DE'
    IMPORTING
      RETURN   = LV_RETURN
    EXCEPTIONS                                              "#EC *
      OTHERS   = 1.
  IF LV_RETURN <> '1'.
    SET CURSOR FIELD 'GV_FILE'.
    MESSAGE TEXT-028 TYPE 'I'.
  ELSE.
    CONCATENATE GV_FILE C_FILE INTO GV_FILE.
  ENDIF.

ENDFORM.                    " FRM_CHECK_FOLD
*&---------------------------------------------------------------------*
*&      Form  FRM_DOWNLOAD_EXCEL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DOWNLOAD_EXCEL .
  DATA:
      LV_STR    TYPE CHAR255,
      LV_RETURN TYPE I,
      LV_RESULT TYPE C,
      LV_FILENAME1 TYPE STRING,
      LV_FILENAME  TYPE LOCALFILE,
      I_DOWN_DATA  TYPE STANDARD TABLE OF T_DATA,
      LV_WA_DATA   TYPE T_DATA.

  LV_FILENAME = GV_FILE.

* set excel head name
  CLEAR LV_WA_DATA.
  REFRESH I_DOWN_DATA.
  LV_WA_DATA-F_01 = TEXT-H01.
  LV_WA_DATA-F_02 = TEXT-H02.
  LV_WA_DATA-F_03 = TEXT-H03.
  LV_WA_DATA-F_04 = TEXT-H04.
  LV_WA_DATA-F_05 = TEXT-H05.
  LV_WA_DATA-F_06 = TEXT-H06.
  LV_WA_DATA-F_07 = TEXT-H07.
  APPEND LV_WA_DATA TO I_DOWN_DATA.

  LV_FILENAME1 = LV_FILENAME.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
    EXPORTING
      FILE                 = LV_FILENAME1
    RECEIVING
      RESULT               = LV_RESULT
    EXCEPTIONS
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      WRONG_PARAMETER      = 3
      NOT_SUPPORTED_BY_GUI = 4
      OTHERS               = 5.
  IF LV_RESULT = 'X'.
    CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE
      EXPORTING
        FILENAME             = LV_FILENAME1
      CHANGING
        RC                   = LV_RETURN
      EXCEPTIONS
        FILE_DELETE_FAILED   = 1
        CNTL_ERROR           = 2
        ERROR_NO_GUI         = 3
        FILE_NOT_FOUND       = 4
        ACCESS_DENIED        = 5
        UNKNOWN_ERROR        = 6
        NOT_SUPPORTED_BY_GUI = 7
        WRONG_PARAMETER      = 8
        OTHERS               = 9.

  ENDIF.

  CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
    EXPORTING
*     I_FIELD_SEPERATOR          = 'X'
*     I_LINE_HEADER              =
      I_FILENAME                 = LV_FILENAME
*     I_APPL_KEEP                = ' '
    TABLES
      I_TAB_SAP_DATA             = I_DOWN_DATA
*   CHANGING
*     I_TAB_CONVERTED_DATA       =
   EXCEPTIONS
     CONVERSION_FAILED          = 1
     OTHERS                     = 2.

  IF SY-SUBRC = 0.
    CONCATENATE TEXT-029 LV_FILENAME INTO LV_STR.
    MESSAGE LV_STR TYPE 'S'.
    CLEAR :LV_FILENAME , GV_FILE.
    LEAVE TO SCREEN 0.
  ELSE.
    MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4
          DISPLAY LIKE SY-MSGTY.
  ENDIF.

ENDFORM.                    " FRM_DOWNLOAD_EXCEL
*&---------------------------------------------------------------------*
*&      Module  GET_FILENAME  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE GET_FILEPATH INPUT.
* Get file path
  CALL FUNCTION 'TMP_GUI_BROWSE_FOR_FOLDER'
    EXPORTING
      WINDOW_TITLE    = ''
      INITIAL_FOLDER  = 'D:\'
    IMPORTING
      SELECTED_FOLDER = GV_FILE
    EXCEPTIONS                                              "#EC *
      CNTL_ERROR      = 1
      OTHERS          = 2.
  IF SY-SUBRC = 0.
*    CONCATENATE GV_FILE C_FILE INTO GV_FILE.
  ENDIF.
ENDMODULE.                 " GET_FILENAME  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9004  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9004 OUTPUT.
  SET PF-STATUS '9003'.
  SET TITLEBAR 'TITLE' WITH TEXT-024.
ENDMODULE.                 " STATUS_9004  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9004  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9004 INPUT.
  CASE OK_CODE4.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN 'UPLOAD'.
      PERFORM FRM_CHECK_FILE.
    WHEN OTHERS.
  ENDCASE.
  CLEAR : OK_CODE4.
ENDMODULE.                 " USER_COMMAND_9004  INPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*       文件上传
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_UPLOAD_EXCEL .
  DATA :
        LV_W_EXCEL   TYPE ALSMEX_TABLINE,
        LV_I_EXCEL   TYPE STANDARD TABLE OF ALSMEX_TABLINE.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                      = GV_UPLOAD
      I_BEGIN_COL                   = 1         "起始列
      I_BEGIN_ROW                   = 2         "起始行
      I_END_COL                     = 7
      I_END_ROW                     = 9999
    TABLES
      INTERN                        = LV_I_EXCEL
* EXCEPTIONS
*   INCONSISTENT_PARAMETERS       = 1
*   UPLOAD_OLE                    = 2
*   OTHERS                        = 3
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  SORT LV_I_EXCEL BY ROW COL.

  LOOP AT LV_I_EXCEL INTO LV_W_EXCEL .
    IF LV_W_EXCEL-COL = 1.
      WA_UPLOAD-ZNUM = LV_W_EXCEL-VALUE.
    ENDIF.

    IF LV_W_EXCEL-COL = 2.
      WA_UPLOAD-ZNAME = LV_W_EXCEL-VALUE.
    ENDIF.

    IF LV_W_EXCEL-COL = 3.
      WA_UPLOAD-ZPOST = LV_W_EXCEL-VALUE.
    ENDIF.

    IF LV_W_EXCEL-COL = 4.
      WA_UPLOAD-EDATE = LV_W_EXCEL-VALUE.
    ENDIF.

    IF LV_W_EXCEL-COL = 5.
      WA_UPLOAD-ZID = LV_W_EXCEL-VALUE.
    ENDIF.

    IF LV_W_EXCEL-COL = 6.
      WA_UPLOAD-REMARK = LV_W_EXCEL-VALUE.
    ENDIF.

    IF LV_W_EXCEL-COL = 7.
      WA_UPLOAD-DEPT = LV_W_EXCEL-VALUE.
    ENDIF.

    AT END OF ROW.
      WA_UPLOAD-UNAME = SY-UNAME.
      WA_UPLOAD-ERDAT = SY-DATUM.
      WA_UPLOAD-UZEIT = SY-UZEIT.
      APPEND WA_UPLOAD TO I_UPLOAD.
      CLEAR WA_UPLOAD.
    ENDAT.
  ENDLOOP.

  IF GV_TFLAG = ''.
* 直接上传
    IF I_UPLOAD IS NOT INITIAL.
      INSERT ZSTAFF FROM TABLE I_UPLOAD ACCEPTING DUPLICATE KEYS.
      IF SY-SUBRC = 0.
        COMMIT WORK.
        MESSAGE TEXT-008 TYPE 'S'.
        CLEAR : GV_UPLOAD.
        LEAVE TO SCREEN 0.
      ELSE.
        ROLLBACK WORK.
        MESSAGE TEXT-019 TYPE 'I'.
        CLEAR : GV_UPLOAD.
        LEAVE TO SCREEN 0.
      ENDIF.
    ENDIF.
  ELSE.
* 上传到Table
    LOOP AT I_UPLOAD INTO WA_UPLOAD.
      MOVE-CORRESPONDING WA_UPLOAD TO WA_STAFF.
      APPEND WA_STAFF TO I_STAFF.
    ENDLOOP.
    LEAVE TO SCREEN 0.
  ENDIF.
ENDFORM.                    " FRM_UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*&      Module  GET_F4_HELP  INPUT
*&---------------------------------------------------------------------*
*       上传文件F4帮助
*----------------------------------------------------------------------*
MODULE GET_F4_HELP INPUT.
  CALL FUNCTION 'WS_FILENAME_GET'
     EXPORTING
*   DEF_FILENAME           = ' '
       DEF_PATH               = C_FOLD
       MASK                   = C_MASK
       MODE                   = C_MODE_O
       TITLE                  = C_NAME
     IMPORTING
       FILENAME               =  GV_UPLOAD
*   RC                     =
   EXCEPTIONS
     INV_WINSYS             = 1
     NO_BATCH               = 2
     SELECTION_CANCEL       = 3
     SELECTION_ERROR        = 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.
ENDMODULE.                 " GET_F4_HELP  INPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_FILE
*&---------------------------------------------------------------------*
*       检查上传文件有效性
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_CHECK_FILE .
  DATA :
          LV_RESULT TYPE C.

  IF GV_UPLOAD IS NOT INITIAL.
    CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
      EXPORTING
        FNAME          = GV_UPLOAD
      IMPORTING
        EXIST          = LV_RESULT
*       ISDIR          =
*       FILESIZE       =
      EXCEPTIONS
        FILEINFO_ERROR = 1
        OTHERS         = 2.
    IF LV_RESULT <> 'X'.
      SET CURSOR FIELD 'GV_UPLOAD'.
      MESSAGE TEXT-025 TYPE 'I'.
    ELSE.
      PERFORM FRM_UPLOAD_EXCEL.
    ENDIF.
  ELSE.
    SET CURSOR FIELD 'GV_UPLOAD'.
    MESSAGE TEXT-026 TYPE 'I'.
  ENDIF.
ENDFORM.                    " FRM_CHECK_FILE
*&---------------------------------------------------------------------*
*&      Form  FRM_DEL_SEL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DEL_SEL .
  DATA : LV_RETURN TYPE C.                                  "#EC *
  CLEAR : WA_STAFF , LV_RETURN.
* Get the selected line in ALV
  CALL METHOD GV_ALV->GET_SELECTED_ROWS
    IMPORTING
      ET_ROW_NO = LT_ROW.
  IF LT_ROW IS INITIAL.
    MESSAGE TEXT-027 TYPE 'I'.
  ENDIF.

  LOOP  AT  LT_ROW INTO  LS_ROW FROM 1 TO 1.
    READ  TABLE  I_STAFF INTO WA_STAFF INDEX  LS_ROW-ROW_ID.
  ENDLOOP .
  IF WA_STAFF IS NOT INITIAL.
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'                   "#EC *
       EXPORTING
         DEFAULTOPTION  = 'Y'
         TEXTLINE1      = TEXT-I03
         TITEL          = TEXT-I04
         CANCEL_DISPLAY = ''
       IMPORTING
         ANSWER         = LV_RETURN.
    IF LV_RETURN = 'J'.
      MESSAGE TEXT-035 TYPE 'W'.
      CALL FUNCTION 'ENQUEUE_EZSTAFF'
        EXPORTING
          MODE_ZSTAFF          = 'E'
          MANDT                = SY-MANDT
          ZNUM                 = WA_STAFF-ZNUM
*            X_ZNUM               = ' '
*            _SCOPE               = '2'
*            _WAIT                = ' '
*            _COLLECT             = ' '
        EXCEPTIONS
          FOREIGN_LOCK         = 1
          SYSTEM_FAILURE       = 2
          OTHERS               = 3
                 .
      DELETE ZSTAFF FROM WA_STAFF.
      IF SY-SUBRC = 0.
        CALL FUNCTION 'DEQUEUE_EZSTAFF'
         EXPORTING
           MODE_ZSTAFF       = 'E'
           MANDT             = SY-MANDT
           ZNUM              = ZSTAFF-ZNUM
*       X_ZNUM            = ' '
*       _SCOPE            = '3'
*       _SYNCHRON         = ' '
*       _COLLECT          = ' '
                  .
        COMMIT WORK.
        MESSAGE TEXT-013 TYPE 'S'.
        PERFORM FRM_GET_DATA.
        CALL METHOD GV_ALV->REFRESH_TABLE_DISPLAY( ).
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.                    " FRM_DEL_SEL
*&---------------------------------------------------------------------*
*&      Form  FRM_UPDATE_STAUTS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_UPDATE_STAUTS .
  DATA : I_UPDATE TYPE STANDARD TABLE OF ZSTAFF,
         WA_UPDATE TYPE ZSTAFF.
  SELECT *
    FROM ZSTAFF
    INTO CORRESPONDING FIELDS OF TABLE I_UPDATE.
  IF SY-SUBRC = 0.
    LOOP AT I_UPDATE INTO WA_UPDATE.
      IF WA_UPDATE-STATUS <> 'X'.
        WA_UPDATE-STATUS = ''.
      ENDIF.
      IF WA_UPDATE-LEADER <> 'X'.
        WA_UPDATE-LEADER = ''.
      ENDIF.
      MODIFY I_UPDATE FROM WA_UPDATE.
    ENDLOOP.
    MODIFY ZSTAFF FROM TABLE I_UPDATE.
    IF SY-SUBRC = 0 .
      COMMIT WORK.
      CLEAR : WA_UPDATE.
      REFRESH : I_UPDATE.
      MESSAGE '人员状态更新成功！' TYPE 'S'.
    ELSE.
      ROLLBACK WORK.
      CLEAR : WA_UPDATE.
      REFRESH : I_UPDATE.
      MESSAGE '更新失败，请自寻原因！' TYPE 'S'.
    ENDIF.
  ENDIF.
ENDFORM.                    " FRM_UPDATE_STAUTS