alv

*&---------------------------------------------------------------------*
*& REPORT  ZMMR238
*&
*&---------------------------------------------------------------------*
*& 需求描述：設備進機明細系統化
*& 需求單號：HB17050029
*& 開發人員：ZXK
*& 開發日期：20170919
*&
*&---------------------------------------------------------------------*
*----------DRAGON BE HERE!----------/
* 　　　┏┓　　　┏┓
* 　　┏┛┻━━━┛┻┓
* 　　┃　　　　　　　┃
* 　　┃　　　━　　　┃
* 　　┃　┳┛　┗┳　┃
* 　　┃　　　　　　　┃
* 　　┃　　　┻　　　┃
* 　　┃　　　　　　　┃
* 　　┗━┓　　　┏━┛
* 　　　　┃　　　┃神兽保佑
* 　　　　┃　　　┃代码无BUG！
* 　　　　┃　　　┗━━━┓
* 　　　　┃　　　　　　　┣┓
* 　　　　┃　　　　　　　┏┛
* 　　　　┗┓┓┏━┳┓┏┛
* 　　　　　┃┫┫　┃┫┫
* 　　　　　┗┻┛　┗┻┛
* ━━━━━━神兽出没━━━━━━

REPORT  ZMMR238.

TABLES :MARA,EKPO,EBAN,T023,EKKO,ZMMT190.

CLASS LCL_ALV_EVENT_HANDLER DEFINITION.
   PUBLIC SECTION.
     METHODS :HANDLE_DATA_CHANGED
     FOR  EVENT DATA_CHANGED  OF CL_GUI_ALV_GRID
     IMPORTING ER_DATA_CHANGED.

ENDCLASS.

DATA: CON_SPLITTER  TYPE  REF  TO CL_GUI_SPLITTER_CONTAINER,
      ALV_TABLES  TYPE  REF  TO CL_GUI_ALV_GRID,
      CON_ALV_TABLES  TYPE  REF  TO CL_GUI_CONTAINER,
      ALV_DATA_CHAGNED  TYPE  REF  TO LCL_ALV_EVENT_HANDLER.

DATA:  GT_FIELDCAT    TYPE LVC_T_FCAT,
       GS_FIELDCAT    TYPE LVC_S_FCAT,
       GS_LAYOUT      TYPE LVC_S_LAYO,
       GT_EXCLUDE     TYPE UI_FUNCTIONS.

DATA: WA_EQUIP  LIKE ZMMT190,
      GT_EQUIP  LIKE ZMMT190  OCCURS  0  WITH  HEADER LINE,
      GT_EQUIP_A  LIKE ZMMT190  OCCURS  0  WITH  HEADER LINE,
      GT_EQUIP_X  LIKE ZMMT190  OCCURS  0  WITH  HEADER LINE,
      GT_MBLNR  LIKE ZMMT190  OCCURS  0  WITH  HEADER LINE,
      GT_ENMBLNR  LIKE ZMMT190  OCCURS  0  WITH  HEADER LINE.

DATA:BEGIN  OF GT_ANLC  OCCURS 0,
     KANSW  LIKE ANLC-KANSW,
     KNAFA  LIKE ANLC-KNAFA,
     NAFAG  LIKE ANLC-NAFAG,
     ANSWL  LIKE ANLC-ANSWL,
     NAFAV  LIKE ANLC-NAFAV,
     NAFAL  LIKE ANLC-NAFAL,
     GJAHR  LIKE ANLC-GJAHR,
   END  OF GT_ANLC.


DATA: G_LINES(4)  TYPE  C ,
      G_ANSWER  TYPE C,
      G_INDATE(15)  TYPE C,
      G_INDATE2  LIKE SY-DATUM,
      G_DAYS_OUT(5)  TYPE I.

DATA: PROXY  TYPE  REF  TO ZMMCO_BO_REAT,
      PROXY2  TYPE  REF  TO ZMMCO_BO_REAT_ITEM,
      LSERROR  TYPE STRING ,
      CLOREF  TYPE  REF  TO CX_ROOT.

DATA: WS_INPUT_REAT  TYPE ZMMFIND_REAT_BY_PAPER_NUMS,
      WS_PAPER_NUM  TYPE ZMMQUERY_FILTER_TAB  WITH  HEADER LINE,
      WS_OUTPUT_REAT  TYPE ZMMFIND_REAT_BY_PAPER_NUMS_RES,
      WS_OUTPUT  TYPE ZMMBO_REAT_TAB  WITH  HEADER LINE,
      WS_INPUT_REAT_ITEM  TYPE ZMMFIND_REAT_ITEM_BY_SER_NOS,
      WS_SER_NO  TYPE ZMMQUERY_FILTER_TAB1  WITH  HEADER LINE,
      WS_OUTPUT_REAT_ITEM  TYPE ZMMFIND_REAT_ITEM_BY_SER_NOS_R,
      WS_OUTPUT_ITEM  TYPE ZMMBO_REAT_ITEM_TAB  WITH  HEADER LINE.

DEFINE: ADD_FIELD.
  CLEAR:GS_FIELDCAT.
  GS_FIELDCAT-FIELDNAME = &1.
  GS_FIELDCAT-COLTEXT = &2.
  GS_FIELDCAT-REF_TABLE =  'ZMMT190'.  "ALV編輯時長度受限，需要參照字段
  GS_FIELDCAT-REF_FIELD = &1.
   IF SY-TCODE =  'ZMM321E'.
     IF &1 =  'ANTAG'  OR &1 =  'ANTBG'  OR &1 =  'EBELN_TW'  OR &1 =  'LIFNR_TW'  OR &1 =  'NAME1_TW'  OR
        &1 =  'RUDAT'  OR &1 =  'CABIN'  OR &1 =  'PERSO'  OR &1 =  'CONTA'  OR &1 =  'POSIT'  OR &1 =  'SPARE' .
      GS_FIELDCAT-EDIT =  'X'.
    ENDIF.
  ENDIF.
   APPEND GS_FIELDCAT  TO GT_FIELDCAT.
END-OF-DEFINITION.


CLASS LCL_ALV_EVENT_HANDLER IMPLEMENTATION.
   METHOD HANDLE_DATA_CHANGED.
     PERFORM HANDLE_DATA_CHANGED  USING ER_DATA_CHANGED.
  ENDMETHOD.
ENDCLASS.

SELECTION-SCREEN  BEGIN  OF  BLOCK T1  WITH  FRAME .
SELECT-OPTIONS: S_EBELN  FOR EKPO-EBELN,
                S_BANFN  FOR EBAN-BANFN,
                S_MATKL  FOR MARA-MATKL,
                S_AEDAT  FOR EKKO-AEDAT,
                S_ERNAM  FOR EKKO-ERNAM,
                S_BUKRS  FOR EKKO-BUKRS,
                S_RUDAT  FOR ZMMT190-RUDAT,
                S_ANTAG  FOR ZMMT190-ANTAG.
SELECTION-SCREEN  END  OF  BLOCK T1.

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR S_MATKL-LOW.
   PERFORM F4_MATKL.

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR S_MATKL-HIGH.
   PERFORM F4_MATKL.

AT  SELECTION-SCREEN OUTPUT.
*  LOOP AT SCREEN.
*    IF SCREEN-NAME EQ 'S_ANTAG-LOW' OR SCREEN-NAME EQ 'S_ANTAG-HIGH' OR SCREEN-NAME EQ '%_S_ANTAG_%_APP_%-TEXT' OR SCREEN-NAME EQ '%_S_ANTAG_%_APP_%-VALU_PUSH'.
*      SCREEN-ACTIVE = 0.
*    ENDIF.
*    MODIFY SCREEN.
*  ENDLOOP.

START-OF-SELECTION.

   PERFORM GET_AND_PROCESS_DATA.
   CALL  SCREEN  2000.

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_2000 OUTPUT.
   SET  PF-STATUS  'PS_2000'.
*  SET TITLEBAR 'XXX'.

   PERFORM SET_ALV_FIELDS.
   PERFORM SET_ALV_LAYOUT  CHANGING GS_LAYOUT.
   IF SY-TCODE =  'ZMM321E'.
     PERFORM ALV_PREPARE_TOOLBAR  TABLES GT_EXCLUDE.
  ENDIF.



   CHECK CON_SPLITTER  IS INITIAL.
   "創建容器
   CREATE OBJECT CON_SPLITTER
     EXPORTING
      PARENT  = CL_GUI_CONTAINER=>SCREEN0
       ROWS    =  1
      COLUMNS =  1.
   "創建ALV控件
  CON_ALV_TABLES = CON_SPLITTER->GET_CONTAINER( ROW =  1 COLUMN =  1 ).
   CREATE OBJECT ALV_TABLES
     EXPORTING
      I_PARENT = CON_ALV_TABLES.

   "事件响应
   CREATE OBJECT ALV_DATA_CHAGNED .

   SET  HANDLER ALV_DATA_CHAGNED->HANDLE_DATA_CHANGED  FOR ALV_TABLES.

   CALL  METHOD ALV_TABLES->REGISTER_EDIT_EVENT(  EXPORTING I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED ).



   CALL  METHOD ALV_TABLES->SET_TABLE_FOR_FIRST_DISPLAY
     EXPORTING
*     I_BUFFER_ACTIVE               =
*     I_BYPASSING_BUFFER            =
*     I_CONSISTENCY_CHECK           =
*     I_STRUCTURE_NAME              =
*     IS_VARIANT                    =
      I_SAVE                        =  'X'
*     I_DEFAULT                     = 'X'
      IS_LAYOUT                     = GS_LAYOUT
*     IS_PRINT                      =
*     IT_SPECIAL_GROUPS             =
      IT_TOOLBAR_EXCLUDING          = GT_EXCLUDE
*     IT_HYPERLINK                  =
*     IT_ALV_GRAPHICS               =
*     IT_EXCEPT_QINFO               =
*     IR_SALV_ADAPTER               =
     CHANGING
      IT_OUTTAB                     = GT_EQUIP_A[]
      IT_FIELDCATALOG               = GT_FIELDCAT
*     IT_SORT                       =
*     IT_FILTER                     =
     EXCEPTIONS
      INVALID_PARAMETER_COMBINATION =  1
      PROGRAM_ERROR                 =  2
      TOO_MANY_LINES                =  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.


   IF LSERROR  IS   NOT  INITIAL .
     MESSAGE W000(ZMM03)  WITH   '連接錯誤,無法取得進機天數及驗收狀態'  LSERROR .
  ENDIF.


ENDMODULE.                  " STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_EXIT  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_EXIT INPUT.
   CASE SY-UCOMM.
     WHEN  'EXIT'  OR  'BACK' .
       LEAVE  TO  SCREEN  0.
     WHEN  'CANCEL'.
       LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                  " USER_EXIT  INPUT
*&---------------------------------------------------------------------*
*&      FORM  GET_AND_PROCESS_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM GET_AND_PROCESS_DATA .
   IF S_MATKL[]  IS INITIAL.
    S_MATKL-SIGN =  'I'.
    S_MATKL-OPTION =  'BT'.
    S_MATKL-LOW =  'A001'.
    S_MATKL-HIGH =  'A007'.
     APPEND S_MATKL.
  ENDIF.

   SELECT *
   INTO CORRESPONDING  FIELDS  OF  TABLE GT_EQUIP
   FROM ZMMT190  AS T1
   JOIN EKKO  AS T2
   ON T1~EBELN = T2~EBELN
     WHERE T1~EBELN  IN S_EBELN
     AND T1~BANFN  IN S_BANFN
     AND T2~ERNAM  IN S_ERNAM
     AND T2~AEDAT  IN S_AEDAT
     AND T2~BUKRS  IN S_BUKRS
     AND T1~RUDAT  IN S_RUDAT
     AND T1~ANTAG  IN S_ANTAG
    .
   IF S_RUDAT[]  IS  INITIAL  AND S_ANTAG[]  IS INITIAL.
     SELECT T1~BANFN T1~BNFPO T1~EBELN T1~EBELP T1~TXZ01 T1~MENGE T1~MEINS T3~ANLN1 T4~KOSTL  AS KOSTL_REQ
     INTO CORRESPONDING  FIELDS  OF  TABLE GT_EQUIP_X
     FROM EKPO  AS T1
     JOIN EBAN  AS T2
     ON T1~BANFN = T2~BANFN
     AND T1~BNFPO = T2~BNFPO
     JOIN EKKN  AS T3
     ON T1~EBELN = T3~EBELN
     AND T1~EBELP = T3~EBELP
     JOIN ANLZ  AS T4
     ON T4~ANLN1 = T3~ANLN1
     AND T4~BUKRS = T1~BUKRS
     JOIN EKKO  AS T5
     ON T1~EBELN = T5~EBELN
     WHERE T1~EBELN  IN S_EBELN
       AND T2~BANFN  IN S_BANFN
       AND T1~MATKL  IN S_MATKL
       AND T5~ERNAM  IN S_ERNAM
       AND T5~AEDAT  IN S_AEDAT
       AND T5~BUKRS  IN S_BUKRS.

     LOOP  AT GT_EQUIP_X.
       SELECT  SINGLE KTEXT
         INTO GT_EQUIP_X-KTEXT_REQ
       FROM CSKT
         WHERE KOSTL = GT_EQUIP_X-KOSTL_REQ
           AND SPRAS =  'M'.

       SELECT  SINGLE LIFNR
         INTO GT_EQUIP_X-LIFNR
       FROM EKKO
         WHERE EBELN = GT_EQUIP_X-EBELN.

       SELECT  SINGLE EBELN
         INTO GT_EQUIP_X-EBELN_TW
       FROM EKPO
         WHERE BEDNR = GT_EQUIP_X-BANFN.

       SELECT  SINGLE LIFNR
        INTO GT_EQUIP_X-LIFNR_TW
      FROM EKKO
        WHERE EBELN = GT_EQUIP_X-EBELN_TW.

       SELECT  SINGLE NAME1
         INTO GT_EQUIP_X-NAME1
       FROM LFA1
         WHERE LIFNR = GT_EQUIP_X-LIFNR.

       SELECT  SINGLE NAME1
         INTO GT_EQUIP_X-NAME1_TW
       FROM LFA1
         WHERE LIFNR = GT_EQUIP_X-LIFNR_TW.

       MODIFY GT_EQUIP_X.
    ENDLOOP.

     IF GT_EQUIP_X[]  IS  NOT INITIAL.
       SORT GT_EQUIP_X  BY BANFN BNFPO EBELN EBELP.
       LOOP  AT GT_EQUIP_X  INTO WA_EQUIP.

         READ  TABLE GT_EQUIP  WITH  KEY EBELN = WA_EQUIP-EBELN
                                     EBELP = WA_EQUIP-EBELP
                                     BANFN = WA_EQUIP-BANFN
                                     BNFPO = WA_EQUIP-BNFPO.
         IF SY-SUBRC  NE  0.
           APPEND WA_EQUIP  TO GT_EQUIP.
          CLEAR:WA_EQUIP.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDIF.

   LOOP  AT GT_EQUIP.
     SELECT  SINGLE ENMBLNR MBLNR BPM_STATUS
     INTO (GT_EQUIP-ENMBLNR,GT_EQUIP-MBLNR,GT_EQUIP-BPM_STATUS)
   FROM EKBE  AS T1
   JOIN ZMMT006  AS T2
     ON T1~BELNR = T2~MBLNR
     AND T1~GJAHR = T2~MJAHR
WHERE T1~EBELN = GT_EQUIP-EBELN
     AND T1~EBELP = GT_EQUIP-EBELP
     AND ( T2~BPM_STATUS <>  ''  AND T2~BPM_STATUS <>  '40' ).
     MODIFY GT_EQUIP.
  ENDLOOP.
*---------WEBSERVICE 進機日期
   LOOP  AT GT_EQUIP.
     IF GT_EQUIP-MBLNR  IS  NOT  INITIAL.
      GT_MBLNR-MBLNR = GT_EQUIP-MBLNR.
       APPEND GT_MBLNR.
    ENDIF.
     IF GT_EQUIP-ENMBLNR  IS  NOT  INITIAL.
      GT_ENMBLNR-ENMBLNR = GT_EQUIP-ENMBLNR.
       APPEND GT_ENMBLNR.
    ENDIF.
  ENDLOOP.


  TRY.
       CREATE OBJECT PROXY
         EXPORTING
          LOGICAL_PORT_NAME =  'ZMMCO_BO_REAT'.

       CREATE OBJECT PROXY2
         EXPORTING
          LOGICAL_PORT_NAME =  'ZMMCO_BO_REAT_ITEM'.
     CATCH CX_AI_SYSTEM_FAULT .
  ENDTRY.


   LOOP  AT GT_MBLNR.
    WS_PAPER_NUM-VALUE = GT_MBLNR-MBLNR.
    WS_PAPER_NUM-CONDITION =  'EQ'.
     APPEND WS_PAPER_NUM.
    WS_SER_NO-VALUE = GT_ENMBLNR-ENMBLNR.
    WS_SER_NO-CONDITION =  'EQ'.
     APPEND WS_SER_NO.
  ENDLOOP.
  WS_INPUT_REAT-PAPER_NUM = WS_PAPER_NUM[].
  WS_INPUT_REAT_ITEM-SER_NO = WS_SER_NO[].

  TRY.
       CALL  METHOD PROXY->FIND_REAT_BY_PAPER_NUMS
         EXPORTING
           INPUT  = WS_INPUT_REAT
         IMPORTING
           OUTPUT = WS_OUTPUT_REAT.
       CALL  METHOD PROXY2->FIND_REAT_ITEM_BY_SER_NOS
         EXPORTING
           INPUT  = WS_INPUT_REAT_ITEM
         IMPORTING
           OUTPUT = WS_OUTPUT_REAT_ITEM.

     CATCH CX_AI_SYSTEM_FAULT  INTO CLOREF.
       CALL  METHOD CLOREF->IF_MESSAGE~GET_TEXT
        RECEIVING
          RESULT = LSERROR.
     CATCH ZMMCX_CAFFIND_EXCEPTION  INTO CLOREF.
       CALL  METHOD CLOREF->IF_MESSAGE~GET_TEXT
        RECEIVING
          RESULT = LSERROR.
     CATCH CX_AI_APPLICATION_FAULT  INTO CLOREF.
       CALL  METHOD CLOREF->IF_MESSAGE~GET_TEXT
        RECEIVING
          RESULT = LSERROR.
  ENDTRY.

  WS_OUTPUT[] = WS_OUTPUT_REAT-OUTPUT.
  WS_OUTPUT_ITEM[] = WS_OUTPUT_REAT_ITEM-OUTPUT.
   SORT WS_OUTPUT  BY PAPER_NUM VERSION DESCENDING.

   LOOP  AT GT_EQUIP.
     IF GT_EQUIP-MBLNR  IS  NOT  INITIAL  AND GT_EQUIP-IN_DATE  EQ  0.
       READ  TABLE WS_OUTPUT  WITH  KEY PAPER_NUM = GT_EQUIP-MBLNR.
       IF SY-SUBRC =  0.
        CLEAR: G_INDATE,G_INDATE2.
        G_INDATE = WS_OUTPUT-IN_DATE.
        G_INDATE = G_INDATE+0(8).
        G_INDATE2 = G_INDATE.
         CALL  FUNCTION  'HR_99S_INTERVAL_BETWEEN_DATES'
           EXPORTING
            BEGDA = G_INDATE2
            ENDDA = SY-DATUM
           IMPORTING
            DAYS  = G_DAYS_OUT.
        GT_EQUIP-IN_DATE = G_DAYS_OUT.
      ENDIF.
    ENDIF.
     IF GT_EQUIP-ENMBLNR  IS  NOT  INITIAL  AND GT_EQUIP-DEPTTYPE  IS INITIAL.
       LOOP  AT WS_OUTPUT_ITEM  WHERE SER_NO = GT_EQUIP-ENMBLNR.
         CONCATENATE GT_EQUIP-DEPTTYPE WS_OUTPUT_ITEM-DEPT_TYPE  INTO GT_EQUIP-DEPTTYPE  SEPARATED  BY  '-'.
      ENDLOOP.
    ENDIF.
     SELECT  SINGLE LOEKZ
       INTO GT_EQUIP-LOEKZ
     FROM EKPO
       WHERE EBELN = GT_EQUIP-EBELN
       AND EBELP = GT_EQUIP-EBELP.

     MODIFY GT_EQUIP.
  ENDLOOP.



   LOOP  AT GT_EQUIP  INTO WA_EQUIP.
     IF WA_EQUIP-ACTID  EQ  0.
       DO WA_EQUIP-MENGE TIMES.
        WA_EQUIP-MENGE =  1.
        WA_EQUIP-ACTID = WA_EQUIP-ACTID +  1.
         APPEND WA_EQUIP  TO GT_EQUIP_A.
      ENDDO.
      CLEAR:WA_EQUIP.
    ELSE.
       APPEND WA_EQUIP  TO GT_EQUIP_A.
      CLEAR:WA_EQUIP.
    ENDIF.
  ENDLOOP.
ENDFORM.                     " GET_AND_PROCESS_DATA
*&---------------------------------------------------------------------*
*&      FORM  SET_ALV_FIELDS
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM SET_ALV_FIELDS .
  ADD_FIELD  'BANFN'  '請購單'.
  ADD_FIELD  'BNFPO'  '請購單項次'.
  ADD_FIELD  'EBELN'  '訂單'.
  ADD_FIELD  'EBELP'  '訂單項次'.
  ADD_FIELD  'LOEKZ'  '刪除標記'.
  ADD_FIELD  'ACTID'  '拆分編號'.
  ADD_FIELD  'ANLN1'  '待驗資產編碼'.
  ADD_FIELD  'ANTAG'  '財產標籤-主資產'.
  ADD_FIELD  'ANTBG'  '財產標籤-子資產'.
  ADD_FIELD  'TXZ01'  '設備品名'.
  ADD_FIELD  'MENGE'  '數量'.
  ADD_FIELD  'MEINS'  '單位'.
  ADD_FIELD  'KOSTL'  '現行成本中心'.
  ADD_FIELD  'KTEXT'  '成本中心名稱'.
  ADD_FIELD  'KOSTL_REQ'  '訂單成本中心'.
  ADD_FIELD  'KTEXT_REQ'  '訂單成本中心名稱'.
  ADD_FIELD  'CBZMJ'  '財報帳面淨值'.
  ADD_FIELD  'SBZMJ'  '稅報帳面淨值'.
  ADD_FIELD  'AKTIV'  '資本化日期'.
  ADD_FIELD  'LIFNR'  '廠商'.
  ADD_FIELD  'NAME1'  '廠商名稱'.
  ADD_FIELD  'EBELN_TW'  '台灣訂單'.
  ADD_FIELD  'LIFNR_TW'  '原始廠商'.
  ADD_FIELD  'NAME1_TW'  '原始廠商代碼'.
  ADD_FIELD  'CUSTNO'  '報關單號'.
  ADD_FIELD  'IMDAT'  '進口日期'.
  ADD_FIELD  'JGDAT'  '海關監管到期日'.
  ADD_FIELD  'RUDAT'  '入廠時間'.
  ADD_FIELD  'CABIN'  '柜量/柜型'.
  ADD_FIELD  'PERSO'  '接機人'.
  ADD_FIELD  'CONTA'  '聯繫方式'.
  ADD_FIELD  'POSIT'  '搬運定位需求'.
  ADD_FIELD  'SPARE'  '備品'.
  ADD_FIELD  'INDETERMINATE1'  '裝機完成時間'.
  ADD_FIELD  'IN_DATE'  '進機天數'.
  ADD_FIELD  'DEPTTYPE'  '驗收狀態'.
  ADD_FIELD  'ENMBLNR'  'BPM單號'.
  ADD_FIELD  'MBLNR'  '驗收單號'.
  ADD_FIELD  'BPM_STATUS'  '單據狀態'.


ENDFORM.                     " SET_ALV_FIELDS
*&---------------------------------------------------------------------*
*&      FORM  SET_ALV_LAYOUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      <--P_GS_LAYOUT  TEXT
*----------------------------------------------------------------------*
FORM SET_ALV_LAYOUT   CHANGING P_GS_LAYOUT  TYPE LVC_S_LAYO.
  P_GS_LAYOUT-ZEBRA =  'X'.
  P_GS_LAYOUT-SMALLTITLE =  'X'.
  P_GS_LAYOUT-SEL_MODE =  'A'.
  P_GS_LAYOUT-GRID_TITLE =  '進機明細'.
  P_GS_LAYOUT-CWIDTH_OPT =  'X'.
ENDFORM.                     " SET_ALV_LAYOUT
*&---------------------------------------------------------------------*
*&      FORM  ALV_PREPARE_TOOLBAR
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_GT_EXCLUDE  TEXT
*----------------------------------------------------------------------*
FORM ALV_PREPARE_TOOLBAR   TABLES   PT_EXCLUDE  TYPE UI_FUNCTIONS.
  REFRESH: PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_MAXIMUM TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_MINIMUM TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_SUBTOT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_SUM TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_AVERAGE TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_SUM TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_SUBTOT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_SORT_ASC TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_SORT_DSC TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_FIND TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_FILTER TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_PRINT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_PRINT_PREV TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_EXPORT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_GRAPH TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_EXPORT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_VIEW TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_DETAIL TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_HELP TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_INFO TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_VARIANT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_REFRESH TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_CHECK TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_COPY TO PT_EXCLUDE.
   APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW  TO PT_EXCLUDE.
   APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW  TO PT_EXCLUDE.
   APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW  TO PT_EXCLUDE.
   APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW  TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_FC_LOC_CUT TO PT_EXCLUDE.
*  APPEND CL_GUI_ALV_GRID=>MC_MB_PASTE TO PT_EXCLUDE.

ENDFORM.                     " ALV_PREPARE_TOOLBAR
*&---------------------------------------------------------------------*
*&      FORM  F4_MATKL
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM F4_MATKL .
   DATA :  BEGIN  OF LT_MATKL  OCCURS  0  ,
  MATKL  LIKE MARA-MATKL,
  WGBEZ  LIKE T023T-WGBEZ,
END  OF LT_MATKL.
   SELECT MATKL WGBEZ
     INTO CORRESPONDING  FIELDS  OF  TABLE LT_MATKL
   FROM T023T
   WHERE ( MATKL =  'A001'  OR MATKL =  'A002' OR  MATKL =  'A003'  OR
     MATKL =  'A004'  OR   MATKL =  'A005'  OR   MATKL =  'A006'  OR MATKL =  'A007' )
     AND SPRAS =  'M'.

   CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
      RETFIELD        =  'MATKL'         "  大写,可选值内表的字段名
      VALUE_ORG       =  'S'            "          就写'S'
      DYNPPROG        = SY-REPID       "  返回的输入框所在的MAIN PROGRAM
      DYNPNR          = SY-DYNNR         "   返回的输入框所在屏幕
      DYNPROFIELD     =  'S_MATKL'   "  返回的输入框名
                                                                                                               "   CALLBACK_PROGRAM = SY-REPID
                                                                                                                "   CALLBACK_FORM    =  "F4 帶出多個值到頁面上
     TABLES
      VALUE_TAB       = LT_MATKL     "   可选值的内表
                                                                                                                 "  RETURN_TAB       = LT_RETURN
     EXCEPTIONS
      PARAMETER_ERROR =  1
      NO_VALUES_FOUND =  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.
ENDFORM.                                                     " F4_MATKL
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_2000 INPUT.


   CASE SY-UCOMM.
     WHEN  'SAVE'.
       IF SY-TCODE =  'ZMM321E'.
         CALL  METHOD ALV_TABLES->CHECK_CHANGED_DATA( ).  "此方法將畫面上更改的數據更新至內表中去,貌似CHECK_CHANGED_DATA會自動調用我修改後的DATA_CHAGNED EVENT事件
         "  CALL METHOD ALV_DATA_CHAGNED->HANDLE_DATA_CHANGED.
         PERFORM SAVE_DATA .
      ENDIF.
     WHEN OTHERS.
*           CALL METHOD CL_GUI_CFW=>DISPATCH.
*
** FORCE ALV TO COPY THE DATA FROM GRID TO THE INTERNAL TABLE
**(EVENTS DATA_CHANGED AND DATA_CHANGED_FINISHED)
*   CALL METHOD ALV_TABLES->CHECK_CHANGED_DATA.
  ENDCASE.
ENDMODULE.                  " USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*&      FORM  HANDLE_DATA_CHANGED
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_ER_DATA_CHANGED  TEXT
*----------------------------------------------------------------------*
FORM HANDLE_DATA_CHANGED   USING  DATA_CHANGED  TYPE  REF  TO CL_ALV_CHANGED_DATA_PROTOCOL.
  DATA:MOD_DATA  TYPE LVC_T_MODI ,
       MOD_DATA_WA  TYPE LVC_S_MODI.

  DATA:G_KANSW  LIKE ANLC-KANSW,
       G_KNAFA  LIKE ANLC-KNAFA,
       G_NAFAG  LIKE ANLC-NAFAG,
       G_ANSWL  LIKE ANLC-ANSWL,
       G_NAFAV  LIKE ANLC-NAFAV,
       G_NAFAL  LIKE ANLC-NAFAL,
       G_BUKRS  LIKE EKKO-BUKRS,
       G_ANTAG  LIKE ZMMT190-ANTAG,
       G_ANTBG  LIKE ZMMT190-ANTBG,
       G_AKTIV  LIKE ZMMT190-AKTIV.

  MOD_DATA = DATA_CHANGED->MT_MOD_CELLS.
   DESCRIBE  TABLE MOD_DATA  LINES G_LINES.

   LOOP  AT MOD_DATA  INTO MOD_DATA_WA.
    CLEAR:G_ANTAG,G_ANTBG.
     IF MOD_DATA_WA-FIELDNAME =  'ANTAG'  OR MOD_DATA_WA-FIELDNAME =  'ANTBG' .
       IF MOD_DATA_WA-FIELDNAME =  'ANTAG'.
        G_ANTAG = MOD_DATA_WA-VALUE.
        G_ANTBG =  0000.
       ELSEIF MOD_DATA_WA-FIELDNAME =  'ANTBG'.
         READ  TABLE GT_EQUIP_A  INDEX MOD_DATA_WA-ROW_ID.
         IF SY-SUBRC =  0.
          G_ANTAG = GT_EQUIP_A-ANTAG.
        ENDIF.
        G_ANTBG = MOD_DATA_WA-VALUE.
      ENDIF.



       READ  TABLE GT_EQUIP_A  INDEX MOD_DATA_WA-ROW_ID.
       IF SY-SUBRC =  0.
         SELECT  SINGLE CUSTNO IMDAT JGDAT
           INTO (GT_EQUIP_A-CUSTNO,GT_EQUIP_A-IMDAT,GT_EQUIP_A-JGDAT)
         FROM ZMMT064
         WHERE ANLN1 = G_ANTAG.
         IF GT_EQUIP_A-CUSTNO  IS INITIAL.
           CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
             EXPORTING
               INPUT  = G_ANTAG
             IMPORTING
               OUTPUT = G_ANTAG.

           SELECT  SINGLE CUSTNO IMDAT JGDAT
           INTO (GT_EQUIP_A-CUSTNO,GT_EQUIP_A-IMDAT,GT_EQUIP_A-JGDAT)
         FROM ZMMT064
         WHERE ANLN1 = G_ANTAG.
        ENDIF.

        CLEAR:G_BUKRS.
         SELECT  SINGLE BUKRS
           INTO G_BUKRS
         FROM EKKO
           WHERE EBELN = GT_EQUIP_A-EBELN.
      ENDIF.

       CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
           INPUT  = G_ANTAG
         IMPORTING
           OUTPUT = G_ANTAG.

       CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
           INPUT  = G_ANTBG
         IMPORTING
           OUTPUT = G_ANTBG.

*-----財報

      CLEAR:GT_ANLC,GT_ANLC[].
       SELECT  KANSW KNAFA NAFAG ANSWL NAFAV NAFAL GJAHR
         INTO CORRESPONDING  FIELDS  OF  TABLE GT_ANLC
       FROM ANLC
       WHERE ANLN1 = G_ANTAG
         AND ANLN2 = G_ANTBG
         AND BUKRS = G_BUKRS
         AND AFABE =  1.
       SORT GT_ANLC  BY GJAHR DESCENDING.
       READ  TABLE GT_ANLC  INDEX  1.
      GT_EQUIP_A-CBZMJ = GT_ANLC-KANSW + GT_ANLC-KNAFA + GT_ANLC-NAFAG + GT_ANLC-ANSWL + GT_ANLC-NAFAV + GT_ANLC-NAFAL.
*-----稅報
      CLEAR:GT_ANLC,GT_ANLC[].
       SELECT  KANSW KNAFA NAFAG ANSWL NAFAV NAFAL GJAHR
         INTO CORRESPONDING  FIELDS  OF  TABLE GT_ANLC
       FROM ANLC
       WHERE ANLN1 = G_ANTAG
         AND ANLN2 = G_ANTBG
         AND BUKRS = G_BUKRS
         AND AFABE =  20.
       SORT GT_ANLC  BY GJAHR DESCENDING.
       READ  TABLE GT_ANLC  INDEX  1.
      GT_EQUIP_A-SBZMJ =  GT_ANLC-KANSW + GT_ANLC-KNAFA + GT_ANLC-NAFAG + GT_ANLC-ANSWL + GT_ANLC-NAFAV + GT_ANLC-NAFAL.
*-----資本化日期
      CLEAR:G_AKTIV.
       SELECT  SINGLE AKTIV
         INTO G_AKTIV
       FROM ANLA
       WHERE ANLN1 = G_ANTAG
         AND ANLN2 = G_ANTBG
         AND BUKRS = G_BUKRS.

      GT_EQUIP_A-AKTIV = G_AKTIV.

*-----现行成本中心
       SELECT  SINGLE KOSTL
         INTO GT_EQUIP_A-KOSTL
       FROM ANLZ
         WHERE BUKRS = G_BUKRS
         AND ANLN1 = G_ANTAG
         AND ANLN2 = G_ANTBG
         AND BDATU >= SY-DATUM.

       SELECT  SINGLE KTEXT
             INTO GT_EQUIP_A-KTEXT
           FROM CSKT
             WHERE KOSTL = GT_EQUIP_A-KOSTL
               AND SPRAS =  'M'.

       MODIFY GT_EQUIP_A  INDEX MOD_DATA_WA-ROW_ID.
    ENDIF.
     CALL  METHOD ALV_TABLES->REFRESH_TABLE_DISPLAY
*     EXPORTING
*       IS_STABLE      =
*       I_SOFT_REFRESH =
*     EXCEPTIONS
*       FINISHED       = 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.






  ENDLOOP.
ENDFORM.                     " HANDLE_DATA_CHANGED
*&---------------------------------------------------------------------*
*&      FORM  SAVE_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM SAVE_DATA .


   IF G_LINES  NE  0.
     CALL  FUNCTION  'POPUP_TO_CONFIRM'
       EXPORTING
         TITLEBAR              =  'SAVE'
        TEXT_QUESTION         =  '是否儲存'
        TEXT_BUTTON_1         =  'YES'
        ICON_BUTTON_1         =  'ICON_OKAY'
        TEXT_BUTTON_2         =  'NO'
        ICON_BUTTON_2         =  'ICON_CANCEL'
        DEFAULT_BUTTON        =  '1'
        DISPLAY_CANCEL_BUTTON =  ''
        START_COLUMN          =  25
        START_ROW             =  8
        POPUP_TYPE            =  'ICON_MESSAGE_WARNING'
       IMPORTING
        ANSWER                = G_ANSWER.  " 1= YES, 2= NO, A= CANCEL
     IF G_ANSWER =  1.
       MODIFY ZMMT190  FROM  TABLE GT_EQUIP_A.
       IF SY-SUBRC  NE  0.
         ROLLBACK WORK.
         MESSAGE E000(ZMM03)  WITH  '儲存資料發生失敗'.
      ELSE.
         COMMIT  WORK  AND WAIT.
         MESSAGE S000(ZMM03)  WITH  '儲存資料成功！'.
      ENDIF.
    ENDIF.
  ELSE.
     MESSAGE S000(ZMM03)  WITH  '無修改數據'.
  ENDIF.
ENDFORM.                     " SAVE_DATA