對於SAP貨源清單的批量創建，試用了很多網上的函數創建法，發現都不怎么好使。決定自己錄一個BDC進行使用，
參考了網上了一些BDC的例子，注意到了一點這個貨源清單使用的一些坑，如果發現當物料和工廠是一樣的情況下，
不做任何處理，供應商不同時候，只能創建成功第一個。
針對上述這個問題，我合並了物料及工廠，並且用於物料及工廠只填入一次，供應商多次填入。
源碼及模板如下：
*&---------------------------------------------------------------------* *& Report ZMMRP088A *&---------------------------------------------------------------------* *&PROGRAM NAME : <ZMMRP088A> *---------------------------------------------------------------------* * VERSION: V1.0 * DATE CREATED : 20210519 * CREATED BY : Bruce King * DESCRIPTION : Batch Maintain Source List REPORT ZMMRP088A. TYPE-POOLS:TRUXS. TABLES:SSCRFIELDS,RLGRAP,MSEG,EORD. "貨源清單查詢結構 TYPES : BEGIN OF LTYPE_INFOR, MATNR TYPE EORD-MATNR, WERKS TYPE EORD-WERKS, VDATU TYPE EORD-VDATU, BDATU TYPE EORD-BDATU, LIFNR TYPE EORD-LIFNR, EKORG TYPE EORD-EKORG, END OF LTYPE_INFOR. DATA: IT_RAW TYPE TRUXS_T_TEXT_DATA, BEGIN OF RECORD OCCURS 0, MATNRWERKS TYPE STRING, WERKS TYPE WERKS_D, MATNR TYPE MATNR, LIFNR LIKE EORD-LIFNR, VDATU TYPE CHAR8, "ordab, BDATU TYPE CHAR8, "bdatu, EKORG LIKE EORD-EKORG, RESWK LIKE EORD-RESWK, AUTET TYPE AUTET, "mrp ZEORD LIKE EORD-ZEORD, TIPS TYPE STRING, CHECKBOX TYPE CHAR1, END OF RECORD, IT_CREATE LIKE TABLE OF RECORD WITH HEADER LINE. DATA:WA_CREATE LIKE LINE OF IT_CREATE. DATA: GT_INFO TYPE STANDARD TABLE OF LTYPE_INFOR, GS_INFO TYPE LTYPE_INFOR. DATA:ITMP LIKE TABLE OF EKPO WITH HEADER LINE, ITMP1 LIKE TABLE OF EKPO WITH HEADER LINE, ITMP2 LIKE TABLE OF EKPO WITH HEADER LINE. DATA : LT_EORD TYPE STANDARD TABLE OF EORD, LS_EORD LIKE LINE OF LT_EORD. DATA : GT_EORDU TYPE STANDARD TABLE OF EORDU, WA_EORDU LIKE LINE OF GT_EORDU. DATA:ITAB_BDCTAB TYPE TABLE OF BDCDATA WITH HEADER LINE. DATA:P_MODE TYPE CHAR1 VALUE 'N', P_UPDA TYPE CHAR1 VALUE 'L'. DATA LV_MESS TYPE STRING. DATA BEGIN OF MESSTAB OCCURS 10. INCLUDE STRUCTURE BDCMSGCOLL. DATA END OF MESSTAB. *ALV顯示參數定義 DATA :GS_LAYOUT TYPE LVC_S_LAYO."SLIS_LAYOUT_ALV. DATA :GT_FIELDCAT TYPE LVC_T_FCAT, "SLIS_T_FIELDCAT_ALV. GS_FIELDCAT TYPE LVC_S_FCAT. DATA :GS_SETTINGS TYPE LVC_S_GLAY. DATA :GT_SORT TYPE LVC_T_SORT, GS_SORT TYPE LVC_S_SORT. DATA: GT_EVENT TYPE SLIS_T_EVENT WITH HEADER LINE. DATA: GT_EVENT_EXIT TYPE SLIS_T_EVENT_EXIT WITH HEADER LINE. DATA :G_GRID TYPE REF TO CL_GUI_ALV_GRID. *&---------------------------------------------------------------------* * 宏的定義 *&---------------------------------------------------------------------* DEFINE ADDFIELDCAT. CLEAR gs_fieldcat. gs_fieldcat-fieldname = &1. "字段名 gs_fieldcat-scrtext_l = &2. "字段描述 gs_fieldcat-do_sum = &3. "匯總 gs_fieldcat-EDIT = &4. "列可編輯 gs_fieldcat-edit_mask = &5. "隱藏前導零 gs_fieldcat-outputlen = &6. "輸出長度 gs_fieldcat-CHECKBOX = &7. APPEND gs_fieldcat TO gt_fieldcat. CLEAR gs_fieldcat. END-OF-DEFINITION. SELECTION-SCREEN:FUNCTION KEY 1. SELECTION-SCREEN BEGIN OF BLOCK BLK00 WITH FRAME TITLE TEXT-001. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN POSITION 3. PARAMETERS A RADIOBUTTON GROUP RG1 DEFAULT 'X' USER-COMMAND DOWNLOAD. SELECTION-SCREEN COMMENT 5(10) TEXT-002 FOR FIELD A. SELECTION-SCREEN POSITION 20. PARAMETERS B RADIOBUTTON GROUP RG1. SELECTION-SCREEN COMMENT 22(15) TEXT-003 FOR FIELD B. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK BLK00. "上傳文件界面 SELECTION-SCREEN BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-005. PARAMETERS: P_FILE LIKE RLGRAP-FILENAME MODIF ID M1. SELECTION-SCREEN END OF BLOCK BLK01. "查詢貨源清單界面 SELECTION-SCREEN BEGIN OF BLOCK BLK02 WITH FRAME TITLE TEXT-006. SELECT-OPTIONS:S_MATNR FOR EORD-MATNR MODIF ID M2, S_WERKS FOR EORD-WERKS MODIF ID M2, S_LIFNR FOR EORD-LIFNR MODIF ID M2, S_EKORG FOR EORD-EKORG MODIF ID M2. SELECTION-SCREEN END OF BLOCK BLK02. INITIALIZATION. DATA BUT_DOWN(255) TYPE C. CALL FUNCTION 'ICON_CREATE' " 給按鈕添加圖標和文本 EXPORTING NAME = ICON_XLS TEXT = '下載貨源清單導入模板' IMPORTING RESULT = BUT_DOWN EXCEPTIONS OTHERS = 0. SSCRFIELDS-FUNCTXT_01 = BUT_DOWN. AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. CASE SCREEN-GROUP1. WHEN 'M1'. IF B = 'X' . SCREEN-ACTIVE = '0'. ENDIF. WHEN 'M2'. IF A = 'X' . SCREEN-ACTIVE = '0'. ENDIF. ENDCASE. MODIFY SCREEN. ENDLOOP. AT SELECTION-SCREEN. CASE SSCRFIELDS-UCOMM. WHEN 'FC01'. PERFORM DOWN_TEMPLATE."下載導入模板 ENDCASE. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. PERFORM FRM_GET_FILE USING P_FILE."獲得路徑 START-OF-SELECTION. IF A EQ 'X'. PERFORM FRM_IMPORT_DATA. PERFORM DISPLAY_ALV. ELSEIF B EQ 'X'. PERFORM EORD_DISPLAY. ENDIF. FORM FRM_IMPORT_DATA. CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP' EXPORTING * I_FIELD_SEPERATOR = I_LINE_HEADER = 'X' I_TAB_RAW_DATA = IT_RAW I_FILENAME = P_FILE TABLES I_TAB_CONVERTED_DATA = RECORD[]. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. DELETE RECORD WHERE MATNR IS INITIAL. DELETE RECORD WHERE LIFNR IS INITIAL. LOOP AT RECORD. RECORD-MATNR = |{ RECORD-MATNR ALPHA = IN }|. RECORD-MATNR = RECORD-MATNR+22(18). RECORD-LIFNR = |{ RECORD-LIFNR ALPHA = IN }|. IF RECORD-VDATU IS INITIAL. RECORD-VDATU = SY-DATUM. MODIFY RECORD TRANSPORTING VDATU. ENDIF. IF RECORD-BDATU IS INITIAL. RECORD-BDATU = '99991231'. MODIFY RECORD TRANSPORTING BDATU. ENDIF. IF RECORD-WERKS IS INITIAL. RECORD-TIPS = '請輸入工廠！'. MODIFY RECORD TRANSPORTING TIPS. CLEAR RECORD. CONTINUE. ENDIF. IF RECORD-MATNR IS INITIAL. RECORD-TIPS = '請輸入物料編碼！'. MODIFY RECORD TRANSPORTING TIPS. CLEAR RECORD. CONTINUE. ENDIF. IF RECORD-LIFNR IS INITIAL. RECORD-TIPS = '請輸入供應商！'. MODIFY RECORD TRANSPORTING TIPS. CLEAR RECORD. CONTINUE. ENDIF. SELECT SINGLE * FROM MARC INTO @DATA(WA_MARC) WHERE MATNR = @RECORD-MATNR AND WERKS = @RECORD-WERKS. IF WA_MARC IS INITIAL. RECORD-TIPS = |物料{ RECORD-MATNR }在工廠{ RECORD-WERKS }中未維護！|. MODIFY RECORD TRANSPORTING TIPS. CLEAR RECORD. CONTINUE. ELSE. CLEAR WA_MARC. ENDIF. RECORD-LIFNR = |{ RECORD-LIFNR ALPHA = IN }|. SELECT SINGLE * FROM LFA1 INTO @DATA(WA_LFA1) WHERE LIFNR = @RECORD-LIFNR. IF WA_LFA1 IS INITIAL. RECORD-TIPS = |供應商{ RECORD-LIFNR }主數據不存在！|. MODIFY RECORD TRANSPORTING TIPS. CLEAR RECORD. CONTINUE. ELSE. CLEAR:WA_LFA1. ENDIF. SELECT SINGLE * FROM LFM1 INTO @DATA(WA_LFM1) WHERE LIFNR = @RECORD-LIFNR AND EKORG = @RECORD-EKORG. IF WA_LFM1 IS INITIAL. RECORD-TIPS = |采購組織{ RECORD-WERKS }未維護供應商{ RECORD-LIFNR }！|. MODIFY RECORD TRANSPORTING TIPS. CLEAR RECORD. CONTINUE. ELSE. CLEAR:WA_LFM1. ENDIF. ENDLOOP. ENDFORM. "frm_import_data FORM CREATE_ME01 . DATA L_ERR TYPE STRING. DATA: L_VDATU(20), L_BDATU(20), L_LIFNR(20), L_EKORG(20), L_FESKZ(20), L_AUTET(20). DATA: L_COUNT TYPE I. DATA:LT_RETURN TYPE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE. CLEAR LT_EORD[]. IF RECORD[] IS NOT INITIAL. SELECT * FROM EORD INTO CORRESPONDING FIELDS OF TABLE LT_EORD FOR ALL ENTRIES IN RECORD WHERE MATNR = RECORD-MATNR AND WERKS = RECORD-WERKS AND LIFNR = RECORD-LIFNR AND EKORG = RECORD-EKORG. ENDIF. SORT LT_EORD BY MATNR WERKS LIFNR EKORG ASCENDING VDATU DESCENDING. CLEAR:LS_EORD,GT_EORDU,GT_EORDU[],RECORD. REFRESH ITAB_BDCTAB[]. SORT RECORD BY MATNR WERKS ZEORD. LOOP AT RECORD. RECORD-MATNRWERKS = |{ RECORD-MATNR }{ RECORD-WERKS }|. MODIFY RECORD TRANSPORTING MATNRWERKS. CLEAR:RECORD. ENDLOOP. LOOP AT RECORD WHERE CHECKBOX EQ 'X'. READ TABLE LT_EORD INTO LS_EORD WITH KEY MATNR = RECORD-MATNR WERKS = RECORD-WERKS LIFNR = RECORD-LIFNR EKORG = RECORD-EKORG. IF LS_EORD-LIFNR <> RECORD-LIFNR. "創建貨源清單. MOVE-CORRESPONDING RECORD TO WA_CREATE. APPEND WA_CREATE TO IT_CREATE. ENDIF. CLEAR:WA_CREATE. ENDLOOP. SORT IT_CREATE BY MATNRWERKS MATNR WERKS ZEORD. LOOP AT IT_CREATE ASSIGNING FIELD-SYMBOL(<FS_CREATE>). L_COUNT = L_COUNT + 1. <FS_CREATE>-ZEORD = L_COUNT. CONCATENATE 'EORD-VDATU(' <FS_CREATE>-ZEORD ')' INTO L_VDATU. CONCATENATE 'EORD-BDATU(' <FS_CREATE>-ZEORD ')' INTO L_BDATU. CONCATENATE 'EORD-LIFNR(' <FS_CREATE>-ZEORD ')' INTO L_LIFNR. CONCATENATE 'EORD-EKORG(' <FS_CREATE>-ZEORD ')' INTO L_EKORG. CONCATENATE 'EORD-AUTET(' <FS_CREATE>-ZEORD ')' INTO L_AUTET. CONCATENATE 'RM06W-FESKZ(' <FS_CREATE>-ZEORD ')' INTO L_FESKZ. AT NEW MATNRWERKS. PERFORM BDC_DYNPRO USING 'SAPLMEOR' '0200'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EORD-MATNR'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_FIELD USING 'EORD-MATNR' <FS_CREATE>-MATNR. PERFORM BDC_FIELD USING 'EORD-WERKS' <FS_CREATE>-WERKS. PERFORM BDC_DYNPRO USING 'SAPLMEOR' '0205'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EORD-RESWK(01)'. PERFORM BDC_FIELD USING 'BDC_OKCODE' 'BU'. ENDAT. PERFORM BDC_FIELD USING L_VDATU <FS_CREATE>-VDATU. PERFORM BDC_FIELD USING L_BDATU <FS_CREATE>-BDATU. PERFORM BDC_FIELD USING L_LIFNR <FS_CREATE>-LIFNR. PERFORM BDC_FIELD USING L_EKORG <FS_CREATE>-EKORG. * PERFORM BDC_FIELD USING 'EORD-RESWK(01)' * RECORD-RESWK_01_007. * PERFORM BDC_TRANSACTION USING 'ME01'. AT END OF MATNRWERKS. CALL TRANSACTION 'ME01' USING ITAB_BDCTAB MODE P_MODE UPDATE P_UPDA MESSAGES INTO MESSTAB. CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2' TABLES IMT_BDCMSGCOLL = MESSTAB EXT_RETURN = LT_RETURN. READ TABLE MESSTAB WITH KEY MSGTYP = 'S'. IF SY-SUBRC EQ 0. LOOP AT RECORD WHERE MATNR = <FS_CREATE>-MATNR AND WERKS = <FS_CREATE>-WERKS AND CHECKBOX EQ 'X'. RECORD-TIPS = |貨源清單創建成功|. MODIFY RECORD TRANSPORTING TIPS. CLEAR:RECORD,WA_CREATE. ENDLOOP. ELSE. LOOP AT RECORD WHERE MATNR = <FS_CREATE>-MATNR AND WERKS = <FS_CREATE>-WERKS AND CHECKBOX EQ 'X'. RECORD-TIPS = |貨源清單創建失敗|. MODIFY RECORD TRANSPORTING TIPS. CLEAR:RECORD,WA_CREATE. ENDLOOP. ENDIF. REFRESH ITAB_BDCTAB[]. REFRESH MESSTAB[]. CLEAR:L_COUNT,<FS_CREATE>. ENDAT. ENDLOOP. ENDFORM. FORM BDC_DYNPRO USING NAME VALUE. CLEAR ITAB_BDCTAB. ITAB_BDCTAB-PROGRAM = NAME. ITAB_BDCTAB-DYNPRO = VALUE. ITAB_BDCTAB-DYNBEGIN = 'X'. APPEND ITAB_BDCTAB. ENDFORM. "BDC_DYNPRO FORM BDC_FIELD USING NAME VALUE. CLEAR ITAB_BDCTAB. ITAB_BDCTAB-FNAM = NAME. ITAB_BDCTAB-FVAL = VALUE. APPEND ITAB_BDCTAB. ENDFORM. "BDC_FIELD FORM DISPLAY_ALV . GS_LAYOUT-CWIDTH_OPT = 'X'. "根據優化列寬度 GS_LAYOUT-ZEBRA = 'X'. "ALV行的顏色間隔更換(間隔色帶) GS_LAYOUT-SEL_MODE = 'A'. "A：行或列選擇 B：單一選擇 C：多條選擇 D：單元格選擇 ADDFIELDCAT 'CHECKBOX' '選擇' SPACE 'X' SPACE SPACE 'X'. ADDFIELDCAT 'WERKS' '工廠' SPACE SPACE SPACE SPACE SPACE. ADDFIELDCAT 'MATNR' '物料編碼' SPACE SPACE SPACE SPACE SPACE. ADDFIELDCAT 'LIFNR' '供應商' SPACE SPACE SPACE SPACE SPACE. ADDFIELDCAT 'VDATU' '有效期起' SPACE SPACE SPACE SPACE SPACE. ADDFIELDCAT 'BDATU' '有效期止' SPACE SPACE SPACE SPACE SPACE. ADDFIELDCAT 'EKORG' '采購組織' SPACE SPACE SPACE SPACE SPACE. ADDFIELDCAT 'TIPS' '備注 ' SPACE SPACE SPACE '20' SPACE. *---FUNCTION CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING I_CALLBACK_PROGRAM = SY-REPID " IT_FIELDCAT_LVC = GT_FIELDCAT " IS_LAYOUT_LVC = GS_LAYOUT " I_SAVE = 'A' " I_CALLBACK_PF_STATUS_SET = 'FRM_PF_STATUS_SET' "GUI STATUS I_CALLBACK_USER_COMMAND = 'FRM_USER_COMMAND' "USER COMMAND TABLES T_OUTTAB = RECORD[] EXCEPTIONS PROGRAM_ERROR = 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. FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD. DATA: REF TYPE REF TO CL_GUI_ALV_GRID. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING E_GRID = REF. CALL METHOD REF->CHECK_CHANGED_DATA. "響應事件 CASE R_UCOMM. WHEN '&SEL'. LOOP AT RECORD WHERE CHECKBOX NE 'X' AND TIPS IS INITIAL. RECORD-CHECKBOX = 'X'. MODIFY RECORD TRANSPORTING CHECKBOX. CLEAR RECORD. ENDLOOP. WHEN '&DESEL'. LOOP AT RECORD WHERE CHECKBOX EQ 'X'. RECORD-CHECKBOX = ' '. MODIFY RECORD TRANSPORTING CHECKBOX. CLEAR RECORD. ENDLOOP. WHEN '&IC1'. READ TABLE RECORD INDEX RS_SELFIELD-TABINDEX. "單擊選擇按鈕時觸發 IF RS_SELFIELD-FIELDNAME = 'CHECKBOX'. IF RECORD-CHECKBOX = 'X'. RECORD-CHECKBOX = ''. ELSE. RECORD-CHECKBOX = 'X'. ENDIF. MODIFY RECORD INDEX RS_SELFIELD-TABINDEX. ENDIF. CLEAR RECORD. WHEN '&CREATE'." PERFORM CREATE_ME01. WHEN '&DEL'." PERFORM DEL_ME01. ENDCASE. "刷新ALV RS_SELFIELD-ROW_STABLE = 'X'. RS_SELFIELD-COL_STABLE = 'X'. RS_SELFIELD-REFRESH = 'X'. ENDFORM. "FR FORM FRM_PF_STATUS_SET USING EXTAB TYPE SLIS_T_EXTAB.. SET PF-STATUS 'T001'. ENDFORM. FORM DOWN_TEMPLATE ."用的自己封裝的模板下載類 CALL METHOD ZCL_BC_EXCEL=>DOWNLOAD_TEMPLATE EXPORTING NAME_OF_TEMPLATE = '貨源清單導入模板' IV_RELID = 'MI' IV_OBJID = 'ZMM088A'. IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. ENDFORM. FORM EORD_DISPLAY ."用的SALV顯示類 DATA: GR_FUNCTIONS TYPE REF TO CL_SALV_FUNCTIONS, LR_DISPLAY TYPE REF TO CL_SALV_DISPLAY_SETTINGS. SELECT * FROM EORD INTO CORRESPONDING FIELDS OF TABLE GT_INFO WHERE MATNR IN S_MATNR AND WERKS IN S_WERKS AND LIFNR IN S_LIFNR AND EKORG IN S_EKORG. TRY. CL_SALV_TABLE=>FACTORY( IMPORTING R_SALV_TABLE = DATA(S_ALV) CHANGING T_TABLE = GT_INFO ). CATCH CX_SALV_MSG. ENDTRY. "首先我們要取得類CL_SALV_FUNCTIONS的實例，根據類CL_SALV_TABLE的方法get_functions可以取得功能實例。 GR_FUNCTIONS = S_ALV->GET_FUNCTIONS( ). GR_FUNCTIONS->SET_ALL( ABAP_TRUE ). LR_DISPLAY = S_ALV->GET_DISPLAY_SETTINGS( ). LR_DISPLAY->SET_STRIPED_PATTERN( 'X' )."設置顏色間隔顯示 LR_DISPLAY->SET_LIST_HEADER( '貨源清單展示報表' ). "設置ALV的抬頭 LR_DISPLAY->SET_HORIZONTAL_LINES( '' ). "設置水平線是否顯示 LR_DISPLAY->SET_VERTICAL_LINES( '' ). "設置垂直線是否顯示 LR_DISPLAY->SET_FIT_COLUMN_TO_TABLE_SIZE( 'X')."列自適應表格寬度 "3、取得實例之后再調用方法Display（）顯示列表 S_ALV->DISPLAY( ). ENDFORM. FORM FRM_GET_FILE USING P_P_FILE. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING DEF_FILENAME = P_FILE MASK = ',*.xlsx,*.XLSX,*.xls,*.XLS,*.txt,*.TXT' *'',*.xls,*.XLS.'如果讀入txt文件，在后邊就需要用函數 MODE = 'O' TITLE = 'File Name' IMPORTING FILENAME = P_FILE EXCEPTIONS INV_WINSYS = 1 NO_BATCH = 2 SELECTION_CANCEL = 3 SELECTION_ERROR = 4 OTHERS = 5. ENDFORM. FORM DEL_ME01 . DATA: BEGIN OF LT_DEL OCCURS 0, MATNR LIKE EORD-MATNR, WERKS LIKE EORD-WERKS, END OF LT_DEL. LOOP AT RECORD WHERE CHECKBOX EQ 'X'. MOVE-CORRESPONDING RECORD TO LT_DEL. APPEND LT_DEL. CLEAR:RECORD,LT_DEL. ENDLOOP. SORT LT_DEL BY MATNR WERKS. DELETE ADJACENT DUPLICATES FROM LT_DEL COMPARING ALL FIELDS. LOOP AT LT_DEL. PERFORM BDC_DYNPRO USING 'SAPLMEOR' '0200'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EORD-WERKS'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'. PERFORM BDC_FIELD USING 'EORD-MATNR' LT_DEL-MATNR. PERFORM BDC_FIELD USING 'EORD-WERKS' LT_DEL-WERKS. PERFORM BDC_DYNPRO USING 'SAPLMEOR' '0205'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EORD-WERKS'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SA'. PERFORM BDC_DYNPRO USING 'SAPLMEOR' '0205'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EORD-WERKS'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=LOES'. PERFORM BDC_DYNPRO USING 'SAPLSPO1' '0200'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=YES'. PERFORM BDC_DYNPRO USING 'SAPLMEOR' '0205'. PERFORM BDC_FIELD USING 'BDC_CURSOR' 'EORD-WERKS'. PERFORM BDC_FIELD USING 'BDC_OKCODE' '=BU'. CALL TRANSACTION 'ME01' USING ITAB_BDCTAB MODE P_MODE UPDATE P_UPDA MESSAGES INTO MESSTAB. READ TABLE MESSTAB WITH KEY MSGTYP = 'S'. IF SY-SUBRC EQ 0. LOOP AT RECORD WHERE MATNR = LT_DEL-MATNR AND WERKS = LT_DEL-WERKS AND CHECKBOX EQ 'X'. RECORD-TIPS = |關於物料{ LT_DEL-MATNR }在工廠{ LT_DEL-WERKS }的貨源清單刪除成功|. MODIFY RECORD TRANSPORTING TIPS. CLEAR:RECORD. ENDLOOP. ELSE. LOOP AT RECORD WHERE MATNR = LT_DEL-MATNR AND WERKS = LT_DEL-WERKS AND CHECKBOX EQ 'X'. RECORD-TIPS = |關於物料{ LT_DEL-MATNR }在工廠{ LT_DEL-WERKS }的貨源清單刪除失敗|. MODIFY RECORD TRANSPORTING TIPS. CLEAR:RECORD. ENDLOOP. ENDIF. REFRESH ITAB_BDCTAB[]. REFRESH MESSTAB[]. ENDLOOP. ENDFORM.
