ABAP中BOM批导程序,以及函数CS_BI_BOM_CREATE_BATCH_INPUT1的用
发布时间:2020-12-14 04:08:06 所属栏目:大数据 来源:网络整理
导读:*----------------------------------------------------------------------* *?Program?Name??????????:?BOM批导入 *?Purpose???????????????: *?Project?Name??????????:? *?Created?by????????????:? *?Create?on?????????????:?20130527 *?Functional?Co
*----------------------------------------------------------------------*
*?Program?Name??????????:?BOM批导入 *?Purpose???????????????: *?Project?Name??????????:? *?Created?by????????????:? *?Create?on?????????????:?20130527 *?Functional?Consultant?: *?Description???????????: *此程序主要功能为BOM批导入 *客户使用固定的EXCEL格式的文件格式,通过批导程序,导入相关表中。导入结果可以查询 *----------------------------------------------------------------------* *????Modification?Log *Date????????Programmer?????Corr.?#??????Description * *----------------------------------------------------------------------* REPORT??ZPP_BOM_BATCH_CREATE ????????MESSAGE-ID?00 ????????LINE-COUNT?50 ????????LINE-SIZE?132 ????????NO?STANDARD?PAGE?HEADING. *----------------------------------------------------------------------* *?Table?Work?Areas *----------------------------------------------------------------------* TYPE-POOLS:?SLIS. TYPE-POOLS:?KCDE. *&---------------------------------------------------------------------* *&??????TABLES *&---------------------------------------------------------------------* TABLES:?MAST, ????????STKO, ????????STPO. *----------------------------------------------------------------------* *?Global?Internal?Tables?Declaration *----------------------------------------------------------------------* DATA:?IT_FILE?TYPE?FILETABLE. TYPES:BEGIN?OF?TY_IT_UPLOAD, ????????WERKS?LIKE?MAST-WERKS,???"工厂 ????????MATNR?LIKE?MAST-MATNR,???"物料 ????????BMENG(13),???????????????"数量 ????????STLAL?LIKE?STKO-STLAL,???"可选BOM ????????POSNR?LIKE?STPO-POSNR,???"组件项目号 ????????IDNRK?LIKE?STPO-IDNRK,???"SAP组件物料号 ????????MENGE(13),????????????????"组件数量 ????????MEINS?LIKE?STPO-MEINS,???"组件单位 ????????AUSCH(5),????????????????"部件废品百分数 ????????KZKUP?LIKE?STPO-KZKUP,???"是否为联产品(指示符:联合产品) ????????LGORT?LIKE?STPO-LGORT,???"生产仓储地点 ????????VERTI?LIKE?STPO-VERTI,???"分配代码 ????????ALPGR?LIKE?STPO-ALPGR,???"替代项目组 ????????ALPRF?LIKE?STPO-ALPRF,???"优先级 ????????ALPST?LIKE?STPO-ALPST,???"策略 ????????EWAHR(3),?????????????????"使用可能性 END?OF?TY_IT_UPLOAD. **定义一个带有Header?line的内存表IT DATA:IT_UPLOAD?TYPE?TABLE?OF?TY_IT_UPLOAD?WITH?HEADER?LINE. DATA:WA_IT_UPLOAD?TYPE?TY_IT_UPLOAD. *----------------------------------------------------------------------* *?Global?Variants?Declaration *----------------------------------------------------------------------* DATA:?G_REPID?TYPE?SY-REPID. DATA:?IT_FIELD?TYPE?SLIS_T_FIELDCAT_ALV. *定义读入EXCEL的内表 DATA?GIT_EXCEL?TYPE?KCDE_INTERN_STRUC?OCCURS?0?WITH?HEADER?LINE. TYPES:BEGIN?OF?T_OUT. ??????INCLUDE?STRUCTURE?IT_UPLOAD. ??????TYPES?FLAG(1). ??????TYPES?MESSAGE(200). TYPES:END?OF?T_OUT. DATA:IT_OUT?TYPE?TABLE?OF?T_OUT?WITH?HEADER?LINE. DATA:?L_NAME?LIKE?WWWDATATAB. DATA:?L_FULLPATH?TYPE?STRING. *----------------------------------------------------------------------* *?Selection?Screen *----------------------------------------------------------------------* SELECTION-SCREEN?BEGIN?OF?BLOCK?FRAME2?WITH?FRAME?TITLE?T2. PARAMETER:?P_RB_1?RADIOBUTTON?GROUP?G1?USER-COMMAND?F1?DEFAULT?'X', ???????????P_RB_2?RADIOBUTTON?GROUP?G1. SELECTION-SCREEN?END?OF?BLOCK?FRAME2. *****选择条件 SELECTION-SCREEN?BEGIN?OF?BLOCK?BL01?WITH?FRAME?TITLE?TEXT-001. PARAMETERS:????P_FILE?LIKE?RLGRAP-FILENAME?MODIF?ID?M1. SELECTION-SCREEN?END?OF?BLOCK?BL01. SELECTION-SCREEN?BEGIN?OF?BLOCK?BL02?WITH?FRAME?TITLE?TEXT-001. SELECTION-SCREEN?BEGIN?OF?LINE. SELECTION-SCREEN?COMMENT?(79)?text-004. SELECTION-SCREEN?END?OF?LINE. SELECTION-SCREEN?BEGIN?OF?LINE. SELECTION-SCREEN?COMMENT?(79)?text-005. SELECTION-SCREEN?END?OF?LINE. SELECTION-SCREEN?END?OF?BLOCK?BL02. *&---------------------------------------------------------------------* *&???Event?AT?INITIALIZATION *&---------------------------------------------------------------------* INITIALIZATION. *&---------------------------------------------------------------------* *&???Event?AT?SELECTION-SCREEN *&---------------------------------------------------------------------* AT?SELECTION-SCREEN. AT?SELECTION-SCREEN?OUTPUT. ??LOOP?AT?SCREEN. ????IF?(?P_RB_1?=?'X'?OR?P_RB_2?=?'X'??)?AND?(?SCREEN-GROUP1?=?'M2'?OR?SCREEN-GROUP1?=?'M3'?OR?SCREEN-GROUP1?=?'M4'). ??????SCREEN-ACTIVE?=?'0'. ????ENDIF. ????IF?(?P_RB_2?=?'X'?)?AND?SCREEN-GROUP1?=?'M1'. ??????SCREEN-ACTIVE?=?'0'. ????ENDIF. ????MODIFY?SCREEN. ??ENDLOOP. ********************************************************************* *?AT?SELECTION-SCREEN ********************************************************************* AT?SELECTION-SCREEN?ON?VALUE-REQUEST?FOR?P_FILE. ??PERFORM?FRM_OPEN_FILE. *----------------------------------------------------------------------* *?Event?Occurs?After?The?Selection?Screen?Has?Been?Processed *----------------------------------------------------------------------* START-OF-SELECTION. ??IF?P_RB_1?=?'X'. ????PERFORM?FRM_AUTH_CHECK. ????PERFORM?FRM_CHECK. *????PERFORM?FRM_ALV. ????PERFORM?FRM_DOWNLOAD. ??ENDIF. ??IF?P_RB_2?=?'X'. ????L_NAME-RELID?=?'MI'. ????L_NAME-OBJID?=?'Z_BOM_TEMPLATE'. ????PERFORM?GET_TEMPLATE?CHANGING?L_NAME?L_FULLPATH. ??ENDIF. ??"ALV *----------------------------------------------------------------------* *?The?Last?Of?The?Events?Called?By?The?Runtime?Environment?To?Occur *----------------------------------------------------------------------* END-OF-SELECTION. *&---------------------------------------------------------------------* *&??????Form??frm_open_file *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* FORM?FRM_OPEN_FILE. ??CALL?FUNCTION?'WS_FILENAME_GET' ????EXPORTING ??????DEF_FILENAME?????=?SPACE ??????DEF_PATH?????????=?P_FILE ??????MASK?????????????=?TEXT-001 ??????MODE?????????????=?'O' ????IMPORTING ??????FILENAME?????????=?P_FILE ????EXCEPTIONS ??????SELECTION_CANCEL?=?0. ENDFORM.????????????????????"frm_open_file *&---------------------------------------------------------------------* *&??????Form??frm_auth_check *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* FORM?FRM_AUTH_CHECK. *??DATA:?LV_BUKRS?TYPE?STRING. *??DATA:?VKORG?TYPE?TVKO-VKORG. * *??SELECT?SINGLE?VKORG *????FROM?TVKO *????INTO?VKORG *????WHERE??BUKRS?=?P_BUKRS. * *??AUTHORITY-CHECK?OBJECT?'V_VBAK_VKO' *?????????ID?'VKORG'?FIELD?VKORG. *??IF?SY-SUBRC?NE?0. *????CONCATENATE?'没有权限对公司'?VKORG?'进行操作!'?INTO?LV_BUKRS. *????MESSAGE?LV_BUKRS?TYPE?'S'?DISPLAY?LIKE?'E'?. *????LEAVE?LIST-PROCESSING. *??ENDIF. ENDFORM.????????????????????"frm_auth_check *&---------------------------------------------------------------------* *&??????Form??frm_check *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* FORM?FRM_CHECK. ??PERFORM?FRM_TIDY. ??PERFORM?FRM_SAVE. ENDFORM.????????????????????"frm_check *&---------------------------------------------------------------------* *&??????Form??frm_tidy *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* FORM?FRM_TIDY. *从已知文件名读入内表 ??CALL?FUNCTION?'KCD_EXCEL_OLE_TO_INT_CONVERT' ????EXPORTING ??????FILENAME????????????????=?P_FILE ??????I_BEGIN_COL?????????????=?1 ??????I_BEGIN_ROW?????????????=?1 ??????I_END_COL???????????????=?20 ??????I_END_ROW???????????????=?65535 ????TABLES ??????INTERN??????????????????=?GIT_EXCEL[] ????EXCEPTIONS ??????INCONSISTENT_PARAMETERS?=?1 ??????UPLOAD_OLE??????????????=?2 ??????OTHERS??????????????????=?3. ??IF?SY-SUBRC?<>?0. ????MESSAGE??'打开文件错误,请检查文件,确保关闭文件!'?TYPE?'E'. ????STOP. ??ENDIF. ??REFRESH?IT_UPLOAD. ??CLEAR?IT_UPLOAD. ??LOOP?AT?GIT_EXCEL. ????CASE?GIT_EXCEL-COL. ??????WHEN?'001'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-WERKS. ??????WHEN?'002'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-MATNR. ??????WHEN?'003'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-BMENG. ??????WHEN?'004'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-STLAL. ??????WHEN?'005'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-POSNR. ??????WHEN?'006'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-IDNRK. ??????WHEN?'007'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-MENGE. ??????WHEN?'008'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-MEINS. ??????WHEN?'009'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-AUSCH. ??????WHEN?'010'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-KZKUP. ??????WHEN?'011'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-LGORT. ??????WHEN?'012'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-VERTI. ??????WHEN?'013'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-ALPGR. ??????WHEN?'014'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-ALPRF. ??????WHEN?'015'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-ALPST. ??????WHEN?'016'. ????????WRITE?GIT_EXCEL-VALUE?TO?IT_UPLOAD-EWAHR. ????ENDCASE. ????AT?END?OF?ROW. ??????APPEND?IT_UPLOAD. ??????CLEAR??IT_UPLOAD. ????ENDAT. ??ENDLOOP. *?删除表头 ??DELETE?IT_UPLOAD?INDEX?1. ENDFORM.????????????????????"frm_tidy *&---------------------------------------------------------------------* *&??????Form??frm_save *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* FORM?FRM_SAVE. DATA:?L_BOM_HEADER?LIKE?BICSK, ??????L_GROUP_DATA?LIKE?BGR00, ??????L_MSGID?LIKE?T100-ARBGB, ??????L_MSGNO?LIKE?T100-MSGNR, ??????P_MSGNO?LIKE?SY-MSGNO, ??????L_MSGTY?LIKE?SY-MSGTY, ??????L_MSGV1?LIKE?SY-MSGV1, ??????L_MSGV2?LIKE?SY-MSGV2, ??????L_MSGV3?LIKE?SY-MSGV3, ??????L_MSGV4?LIKE?SY-MSGV4, ??????L_POSNR?LIKE?BICSP-POSNR. DATA:?LT_BOM_ITEM?LIKE?BICSP?OCCURS?0?WITH?HEADER?LINE, ??????LT_SUB_ITEM?LIKE?BICSU?OCCURS?0?WITH?HEADER?LINE. DATA:?GS_MSG?LIKE??MESSAGE, ??????L_ERROR(1). SORT?IT_UPLOAD?BY?WERKS?MATNR. CLEAR?IT_OUT. REFRESH?IT_OUT. LOOP?AT?IT_UPLOAD. ??????CLEAR?WA_IT_UPLOAD. ??????MOVE-CORRESPONDING?IT_UPLOAD?TO?WA_IT_UPLOAD. ??????AT?NEW?MATNR. *?????????创建之前先删除 ??????????CALL?FUNCTION?'CSAP_MAT_BOM_DELETE' *??????????DESTINATION?V_RFC_DES ????????????????EXPORTING ??????????????????MATERIAL???????????=?WA_IT_UPLOAD-MATNR ??????????????????PLANT??????????????=?WA_IT_UPLOAD-WERKS ??????????????????ALTERNATIVE????????=?WA_IT_UPLOAD-STLAL ??????????????????BOM_USAGE??????????=?'1' ??????????????????FL_NO_CHANGE_DOC???=?'X' ??????????????????FL_COMMIT_AND_WAIT?=?'X' ????????????????EXCEPTIONS ??????????????????ERROR??????????????=?1 ??????????????????OTHERS?????????????=?2. ??????????CLEAR?L_BOM_HEADER. ??????????CLEAR?LT_BOM_ITEM. ??????????REFRESH?LT_BOM_ITEM. ??????????L_BOM_HEADER-TCODE?=?'CS01'. ??????????L_BOM_HEADER-WERKS?=?WA_IT_UPLOAD-WERKS. ??????????L_BOM_HEADER-MATNR?=?WA_IT_UPLOAD-MATNR. ??????????L_BOM_HEADER-BMENG?=?WA_IT_UPLOAD-BMENG. ??????????L_BOM_HEADER-STLAL?=?WA_IT_UPLOAD-STLAL. ??????????L_BOM_HEADER-STLAN?=?'1'. ??????????L_BOM_HEADER-DATUV?=?SY-DATUM. ??????ENDAT. ??????LT_BOM_ITEM-POSTP?=?'L'. ??????LT_BOM_ITEM-SANKA?=?'X'. ??????LT_BOM_ITEM-XLINE?=?'1'. ??????LT_BOM_ITEM-POSNR?=?WA_IT_UPLOAD-POSNR. ??????LT_BOM_ITEM-IDNRK?=?WA_IT_UPLOAD-IDNRK. ??????LT_BOM_ITEM-MENGE?=?WA_IT_UPLOAD-MENGE. ??????LT_BOM_ITEM-MEINS?=?WA_IT_UPLOAD-MEINS. ??????LT_BOM_ITEM-AUSCH?=?WA_IT_UPLOAD-AUSCH. ??????LT_BOM_ITEM-KZKUP?=?WA_IT_UPLOAD-KZKUP. ??????LT_BOM_ITEM-LGORT?=?WA_IT_UPLOAD-LGORT. ??????LT_BOM_ITEM-VERTI?=?WA_IT_UPLOAD-VERTI. ??????LT_BOM_ITEM-ALPGR?=?WA_IT_UPLOAD-ALPGR. ??????LT_BOM_ITEM-ALPRF?=?WA_IT_UPLOAD-ALPRF. ??????LT_BOM_ITEM-ALPST?=?WA_IT_UPLOAD-ALPST. ??????LT_BOM_ITEM-EWAHR?=?WA_IT_UPLOAD-EWAHR. ??????APPEND?LT_BOM_ITEM. ??????CLEAR?LT_BOM_ITEM. ??????AT?END?OF?MATNR. ??????????CALL?FUNCTION?'CS_BI_BOM_CREATE_BATCH_INPUT1' ?????????????EXPORTING ???????????????BOM_HEADER?????????=?L_BOM_HEADER *?????????????CLOSE_GROUP????????=?'X' ???????????????COMMIT_WORK????????=?'X' ???????????????GROUP_DATA?????????=?L_GROUP_DATA *?????????????NEW_GROUP??????????=?'X' ???????????????TCODE_MODE?????????=?'E' ???????????????TCODE_UPDATE???????=?'S' ?????????????IMPORTING ???????????????MSGID??????????????=?L_MSGID ???????????????MSGNO??????????????=?L_MSGNO ???????????????MSGTY??????????????=?L_MSGTY ???????????????MSGV1??????????????=?L_MSGV1 ???????????????MSGV2??????????????=?L_MSGV2 ???????????????MSGV3??????????????=?L_MSGV3 ???????????????MSGV4??????????????=?L_MSGV4 ?????????????TABLES ???????????????BOM_ITEM???????????=?LT_BOM_ITEM ???????????????BOM_SUB_ITEM???????=?LT_SUB_ITEM. ??????????L_MSGID?=?L_MSGID. ??????????P_MSGNO?=?L_MSGNO. *?????????**get?message?string ??????????CALL?FUNCTION?'WRITE_MESSAGE' ??????????????EXPORTING ????????????????MSGID??=?L_MSGID ????????????????MSGNO??=?P_MSGNO ????????????????MSGTY??=?L_MSGTY ????????????????MSGV1??=?L_MSGV1 ????????????????MSGV2??=?L_MSGV2 ????????????????MSGV3??=?L_MSGV3 ????????????????MSGV4??=?L_MSGV4 ????????????????MSGV5??=?SPACE ??????????????IMPORTING ????????????????ERROR??=?L_ERROR ????????????????MESSG??=?GS_MSG ??????????????EXCEPTIONS ????????????????OTHERS?=?1. ??????????IT_OUT-WERKS?=?WA_IT_UPLOAD-WERKS. ??????????IT_OUT-MATNR?=?WA_IT_UPLOAD-MATNR. ??????????IT_OUT-BMENG?=?WA_IT_UPLOAD-BMENG. ??????????IT_OUT-STLAL?=?WA_IT_UPLOAD-STLAL. ??????????IF?GS_MSG-MSGTY?=?'E'?OR?NOT?(?L_ERROR?IS?INITIAL?). ?????????????IT_OUT-FLAG?=?'E'. ??????????ELSE. ?????????????IT_OUT-FLAG?=?'S'. ??????????ENDIF. ?????????????IT_OUT-MESSAGE?=?GS_MSG-MSGTX. ??????????APPEND?IT_OUT. ??????????CLEAR?IT_OUT. ??????ENDAT. ENDLOOP. ENDFORM.????????????????????"frm_save *&---------------------------------------------------------------------* *&??????Form??GET_TEMPLATE *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* *??????<--P_L_NAME??text *??????<--P_L_FULLPATH??text *----------------------------------------------------------------------* FORM?GET_TEMPLATE???CHANGING?NAME?FULLPATH. ??DATA:?TITLE?TYPE?STRING. ??DATA:?MIME?LIKE?W3MIME?OCCURS?10. ??DATA:?FILENAME?TYPE?STRING. ??DATA:?PATH?TYPE?STRING. ??TITLE?=?'BOM批量创建模版'. ??CALL?FUNCTION?'WWWDATA_IMPORT' ????EXPORTING ??????KEY???????????????=?NAME ????TABLES ??????MIME??????????????=?MIME ????EXCEPTIONS ??????WRONG_OBJECT_TYPE?=?1 ??????IMPORT_ERROR??????=?2 ??????OTHERS????????????=?3. ??CALL?METHOD?CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG ????EXPORTING ??????WINDOW_TITLE?????????=?TITLE ??????DEFAULT_EXTENSION????=?'xls' ??????DEFAULT_FILE_NAME????=?TITLE ??????FILE_FILTER??????????=?'(电子表格EXCEL)' ????CHANGING ??????FILENAME?????????????=?FILENAME ??????PATH?????????????????=?PATH ??????FULLPATH?????????????=?FULLPATH ????EXCEPTIONS ??????CNTL_ERROR???????????=?1 ??????ERROR_NO_GUI?????????=?2 ??????NOT_SUPPORTED_BY_GUI?=?3 ??????OTHERS???????????????=?4. ??IF?SY-SUBRC?<>?0. ????STOP. ??ENDIF. ??CALL?FUNCTION?'GUI_DOWNLOAD' ????EXPORTING ??????FILENAME?=?FULLPATH ??????FILETYPE?=?'BIN' ????TABLES ??????DATA_TAB?=?MIME. ENDFORM.????????????????????"?GET_TEMPLATE *&---------------------------------------------------------------------* *&??????Form??FRM_DOWNLOAD *&---------------------------------------------------------------------* *???????text *----------------------------------------------------------------------* *??-->??p1????????text *??<--??p2????????text *----------------------------------------------------------------------* FORM?FRM_DOWNLOAD?. ??CALL?FUNCTION?'GUI_DOWNLOAD' ?????EXPORTING *????BIN_FILESIZE????????????????????= ???????FILENAME????????????????????????=?'C:/BOM批量创建程序结果表.TXT' ???????FILETYPE????????????????????????=?'ASC' ???????APPEND??????????????????????????=?'?' *????WRITE_FIELD_SEPARATOR???????????=?'?' *????HEADER??????????????????????????=?'00' *????TRUNC_TRAILING_BLANKS???????????=?'?' *????WRITE_LF????????????????????????=?'X' *????COL_SELECT??????????????????????=?'?' *????COL_SELECT_MASK?????????????????=?'?' *????DAT_MODE????????????????????????=?'?' *????CONFIRM_OVERWRITE???????????????=?'?' *????NO_AUTH_CHECK???????????????????=?'?' *????CODEPAGE????????????????????????=?'?' *????IGNORE_CERR?????????????????????=?ABAP_TRUE *????REPLACEMENT?????????????????????=?'#' *????WRITE_BOM???????????????????????=?'?' *????TRUNC_TRAILING_BLANKS_EOL???????=?'X' *????WK1_N_FORMAT????????????????????=?'?' *????WK1_N_SIZE??????????????????????=?'?' *????WK1_T_FORMAT????????????????????=?'?' *????WK1_T_SIZE??????????????????????=?'?' *??IMPORTING *????FILELENGTH??????????????????????= ?????TABLES ???????DATA_TAB????????????????????????=?IT_OUT *????FIELDNAMES??????????????????????= *??EXCEPTIONS *????FILE_WRITE_ERROR????????????????=?1 *????NO_BATCH????????????????????????=?2 *????GUI_REFUSE_FILETRANSFER?????????=?3 *????INVALID_TYPE????????????????????=?4 *????NO_AUTHORITY????????????????????=?5 *????UNKNOWN_ERROR???????????????????=?6 *????HEADER_NOT_ALLOWED??????????????=?7 *????SEPARATOR_NOT_ALLOWED???????????=?8 *????FILESIZE_NOT_ALLOWED????????????=?9 *????HEADER_TOO_LONG?????????????????=?10 *????DP_ERROR_CREATE?????????????????=?11 *????DP_ERROR_SEND???????????????????=?12 *????DP_ERROR_WRITE??????????????????=?13 *????UNKNOWN_DP_ERROR????????????????=?14 *????ACCESS_DENIED???????????????????=?15 *????DP_OUT_OF_MEMORY????????????????=?16 *????DISK_FULL???????????????????????=?17 *????DP_TIMEOUT??????????????????????=?18 *????FILE_NOT_FOUND??????????????????=?19 *????DATAPROVIDER_EXCEPTION??????????=?20 *????CONTROL_FLUSH_ERROR?????????????=?21 *????OTHERS??????????????????????????=?22 ???. ??IF?SY-SUBRC?<>?0. *?MESSAGE?ID?SY-MSGID?TYPE?SY-MSGTY?NUMBER?SY-MSGNO *?????????WITH?SY-MSGV1?SY-MSGV2?SY-MSGV3?SY-MSGV4. ??ENDIF. ??WRITE:'数据成功保存到C盘根目录下,请查看!'. ENDFORM.????????????????????"?FRM_DOWNLOAD (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |