*&---------------------------------------------------------------------*
*& 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
*& 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
