*&---------------------------------------------------------------------* *& Transcation Code : ZPPC014 * *& Program Name : ZPPC014 * *& Module Name : PP * *& Sub-Module : * *& Author : linyu * *& Create Date : 2012/04/18 * *& Responsible : * *& Program Type : Other * *& Description : 计划独立需求导入程序 * *& SAP Release : 7.2 * *&---------------------------------------------------------------------* *& REVISION LOG * *& * *& LOG# DATE AUTHOR DESCRIPTION * *& ---- ---- ------ ----------- * *& 0001 12/04/18 zengql Created * REPORT ZPPC014. *存放导入的数据 DATA: BEGIN OF GT_UPLOAD OCCURS 0, PBDNR LIKE AM60X-PBDNR, "需求计划编号 WERKS LIKE AM60X-WERKS, "工厂 " VERSB LIKE AM60X-VERSB, "版本号 DATVE LIKE RM60X-DATVE, "计划开始日期 DATBE LIKE RM60X-DATBE, "计划截至日期 ENTLU LIKE RM60X-ENTLU, "计划周期 MATNR LIKE PBPT-MATNR, "产品编码 WERKS1 LIKE PBPT-WERKS, "工厂 VERSB1 LIKE PBPT-VERSB, "版本号 PLN01 LIKE RM60X-PLN01, "第一个月 PLN02 LIKE RM60X-PLN02, "第二个月 PLN03 LIKE RM60X-PLN03, "第三个月 PLN04 LIKE RM60X-PLN04, "第四个月 END OF GT_UPLOAD. *bapi data DATA: REQ_ITEM LIKE BAPISITEMR. DATA: REQ_DATA LIKE BAPISSHDIN OCCURS 0 WITH HEADER LINE. DATA: RETURN LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE. DATA: MATERTEMP LIKE BAPISITEMR-MATERIAL. DATA: MATEMP LIKE BAPISITEMR-MATERIAL. "物料编码 DATA: BEGIN OF LOG OCCURS 0, INDEX TYPE I, "序号 MESSAGE LIKE RETURN-MESSAGE, "消息文本 END OF LOG. PARAMETERS: F_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\DATA.XLS' MEMORY ID F_FILE VISIBLE LENGTH 30 OBLIGATORY. PARAMETERS: LOGFILE LIKE RLGRAP-FILENAME DEFAULT 'c:\log.txt' OBLIGATORY. ***------------------------------------------------------------------------------------*** *** SELECTION-SCREEN ON VALUE-REQUEST ***------------------------------------------------------------------------------------*** AT SELECTION-SCREEN ON VALUE-REQUEST FOR F_FILE . PERFORM WS_FILENAME_GET USING F_FILE. " 打开本地文件的帮助 START-OF-SELECTION. PERFORM UPLOAD_FILE . PERFORM UPDATE_DATA . *&---------------------------------------------------------------------* *& Form UPLOAD_FILE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM UPLOAD_FILE. * UPLOAD FILE FROM TXT TO INT_MAT. DATA: BEGIN OF UP_EXCLE OCCURS 0. INCLUDE STRUCTURE KCDE_CELLS. DATA: END OF UP_EXCLE. CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT' EXPORTING FILENAME = F_FILE I_BEGIN_COL = 1 I_BEGIN_ROW = 2 I_END_COL = 50 I_END_ROW = 65000 TABLES INTERN = UP_EXCLE EXCEPTIONS INCONSISTENT_PARAMETERS = 1 UPLOAD_OLE = 2 OTHERS = 3. CASE SY-SUBRC . WHEN '1' OR '2' OR '3'. MESSAGE I398(00) WITH F_FILE. WHEN OTHERS. FORMAT COLOR COL_GROUP. WRITE : '上传成功!'. ENDCASE.. FIELD-SYMBOLS: <F>. DATA:INDEX TYPE I. DATA: TYP. LOOP AT UP_EXCLE. INDEX = UP_EXCLE-COL. ASSIGN COMPONENT INDEX OF STRUCTURE GT_UPLOAD TO <F>. IF SY-SUBRC = 0. DESCRIBE FIELD <F> TYPE TYP. CASE TYP. WHEN 'C'. <F> = UP_EXCLE-VALUE. CONDENSE <F>. WHEN 'I' "数字串 OR 's' OR 'b' OR 'N' OR 'F' OR 'P'. CATCH SYSTEM-EXCEPTIONS ARITHMETIC_ERRORS = 5 CONVERSION_ERRORS = 6 BCD_OVERFLOW = 7 BCD_FIELD_OVERFLOW = 8 . <F> = UP_EXCLE-VALUE. ENDCATCH. IF SY-SUBRC <> 0. MESSAGE E000(SU) WITH '数据转化错误！'. ENDIF. WHEN OTHERS. <F> = UP_EXCLE-VALUE. ENDCASE. ENDIF. AT END OF ROW. IF GT_UPLOAD-PBDNR NE SPACE. APPEND GT_UPLOAD. CLEAR GT_UPLOAD. ENDIF. ENDAT. ENDLOOP. ENDFORM. "UPLOAD_FILE *&---------------------------------------------------------------------* *& Form UPDATE_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM UPDATE_DATA . DATA: LV_INDEX TYPE I. DATA: LV_DATE TYPE SY-DATUM. DATA: LV_LAST_DAY TYPE SY-DATUM. "月末最后一天 DATA: LV_FIRST_DAY TYPE SY-DATUM. "下月第一天 DATA: LV_MATNR TYPE MATNR. DATA: LV_DISGR TYPE DISGR, LV_STRGR TYPE STRGR, LV_BEDVP TYPE BEDVP. LOOP AT GT_UPLOAD. CLEAR: LV_DATE,LV_LAST_DAY,LV_FIRST_DAY. LV_INDEX = LV_INDEX + 1. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = GT_UPLOAD-MATNR IMPORTING OUTPUT = REQ_ITEM-MATERIAL. * CONCATENATE '00000000000' GT_UPLOAD-MATNR INTO MATERTEMP. * REQ_ITEM-MATERIAL = MATERTEMP. REQ_ITEM-PLANT = GT_UPLOAD-WERKS. SELECT SINGLE DISGR STRGR FROM MARC INTO (LV_DISGR,LV_STRGR) WHERE MATNR = REQ_ITEM-MATERIAL AND WERKS = REQ_ITEM-PLANT. IF SY-SUBRC = 0. IF LV_STRGR IS INITIAL. SELECT SINGLE STRGR INTO LV_STRGR FROM T438M WHERE WERKS = REQ_ITEM-PLANT AND MTART = LV_DISGR. ENDIF. SELECT SINGLE BEDVP INTO LV_BEDVP FROM T461S WHERE STRA1 = LV_STRGR. ENDIF. IF LV_BEDVP IS INITIAL. LOG-INDEX = LV_INDEX. CONCATENATE '请维护物料' GT_UPLOAD-MATNR '的MRP组！' into LOG-MESSAGE. APPEND LOG. continue. ELSE. ENDIF. * req_item-REQU_TYPE = 'VSE'. REQ_ITEM-VERSION = GT_UPLOAD-VERSB. REQ_ITEM-VERS_ACTIV = 'X'. REQ_ITEM-REQ_NUMBER = GT_UPLOAD-PBDNR. LV_DATE = GT_UPLOAD-DATVE. REQ_DATA-DATE_TYPE = 3. REQ_DATA-REQ_DATE = LV_DATE. REQ_DATA-REQ_QTY = GT_UPLOAD-PLN01. APPEND REQ_DATA. CLEAR REQ_DATA. REQ_DATA-DATE_TYPE = 3. CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS' EXPORTING DAY_IN = LV_DATE IMPORTING LAST_DAY_OF_MONTH = LV_LAST_DAY EXCEPTIONS DAY_IN_NO_DATE = 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. LV_FIRST_DAY = LV_LAST_DAY + 1. REQ_DATA-REQ_DATE = LV_FIRST_DAY. REQ_DATA-REQ_QTY = GT_UPLOAD-PLN02. APPEND REQ_DATA. CLEAR REQ_DATA. REQ_DATA-DATE_TYPE = 3. CLEAR LV_LAST_DAY. CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS' EXPORTING DAY_IN = LV_FIRST_DAY IMPORTING LAST_DAY_OF_MONTH = LV_LAST_DAY EXCEPTIONS DAY_IN_NO_DATE = 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. LV_FIRST_DAY = LV_LAST_DAY + 1. REQ_DATA-REQ_DATE = LV_FIRST_DAY. REQ_DATA-REQ_QTY = GT_UPLOAD-PLN03. APPEND REQ_DATA. CLEAR REQ_DATA. SELECT SINGLE MATNR FROM PBIM INTO LV_MATNR WHERE MATNR = REQ_ITEM-MATERIAL AND WERKS = GT_UPLOAD-WERKS AND BEDAE = LV_BEDVP AND VERSB = REQ_ITEM-VERSION AND PBDNR = REQ_ITEM-REQ_NUMBER. IF SY-SUBRC <> 0. CALL FUNCTION 'BAPI_REQUIREMENTS_CREATE' EXPORTING REQUIREMENTS_ITEM = REQ_ITEM * REQUIREMENT_PARAM = IMPORTING MATERIAL = MATEMP * PLANT = * REQUIREMENTSTYPE = * VERSION = * REQMTSPLANNUMBER = TABLES REQUIREMENTS_SCHEDULE_IN = REQ_DATA * REQUIREMENTS_CHAR_IN = RETURN = RETURN. IF NOT MATEMP IS INITIAL. WRITE:/(10) MATEMP COLOR 4, (50) '创建成功'. ELSE. LOG-INDEX = LV_INDEX. LOG-MESSAGE = RETURN-MESSAGE. APPEND LOG. ENDIF. ELSE. * CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE' * EXPORTING * MATERIAL = * PLANT = * REQUIREMENTSTYPE = * VERSION = * REQMTSPLANNUMBER = * VERS_ACTIV = ** REQUIREMENT_PARAM = ** MRP_AREA = ** DO_COMMIT = 'X' ** UPDATE_MODE = 'X' ** DELETE_OLD = 'X' ** NO_WITHDR = ' ' ** MATERIAL_EVG = ** IMPORTING ** REQUIREMENT_ITEM_OUT = * TABLES ** REQUIREMENTS_SCHEDULE_IN = ** REQUIREMENTS_CHAR_IN = * RETURN = * . CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE' EXPORTING MATERIAL = REQ_ITEM-MATERIAL PLANT = GT_UPLOAD-WERKS REQUIREMENTSTYPE = LV_BEDVP VERSION = REQ_ITEM-VERSION REQMTSPLANNUMBER = REQ_ITEM-REQ_NUMBER VERS_ACTIV = 'X' DELETE_OLD = '' TABLES REQUIREMENTS_SCHEDULE_IN = REQ_DATA * REQUIREMENTS_CHAR_IN = RETURN = RETURN . CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' * EXPORTING * WAIT = * IMPORTING * RETURN = . IF SY-SUBRC = 0. WRITE:/(10) REQ_ITEM-MATERIAL COLOR 4, (50) '更改成功'. ELSE. LOG-INDEX = LV_INDEX. LOG-MESSAGE = RETURN-MESSAGE. APPEND LOG. ENDIF. ENDIF. CLEAR MATEMP. REFRESH REQ_DATA. CLEAR MATERTEMP. CLEAR REQ_ITEM. ENDLOOP. CLEAR: LV_INDEX,LV_DATE,LV_LAST_DAY,LV_FIRST_DAY. CALL FUNCTION 'WS_DOWNLOAD' EXPORTING FILENAME = LOGFILE FILETYPE = 'DAT' TABLES DATA_TAB = LOG EXCEPTIONS INVALID_FILESIZE = 1 INVALID_TABLE_WIDTH = 2 INVALID_TYPE = 3 NO_BATCH = 4 UNKNOWN_ERROR = 5 GUI_REFUSE_FILETRANSFER = 6 CUSTOMER_ERROR = 7 OTHERS = 8. 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 LOG[] IS NOT INITIAL. WRITE: /2 '文件行号', 6 '消息'. * LOOP AT LOG. WRITE: /2 LOG-INDEX, 6 LOG-MESSAGE. ENDLOOP. ENDIF. WRITE : '批输入结束!导入详情请检查LOG文件!'. ENDFORM. "UPDATE_DATA *&---------------------------------------------------------------------* *& Form WS_FILENAME_GET *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_F_FILE text *----------------------------------------------------------------------* FORM WS_FILENAME_GET USING P_F_FILE LIKE RLGRAP-FILENAME. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING DEF_FILENAME = P_F_FILE DEF_PATH = ' ' MASK = ',Excel File,*.xls.' MODE = 'O' TITLE = '选择文件' IMPORTING FILENAME = P_F_FILE EXCEPTIONS INV_WINSYS = 01 " rc = subrc NO_BATCH = 02 SELECTION_CANCEL = 03 SELECTION_ERROR = 04. IF SY-SUBRC <> 0 AND SY-SUBRC <> 3. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " WS_FILENAME_GET