ABAP中對(duì)上傳文件和下載文件的一般檢查

ABAP中對(duì)上傳文件和下載文件的一般檢查ABAP中對(duì)上傳文件和下載文件的一般檢查ABAP中對(duì)上傳文件和下載文件的一般檢查V:1.0精細(xì)整理，僅供參考ABAP中對(duì)上傳文件和下載文件的一般檢查日期：20xx年X月ABAP中對(duì)上傳文件和下載文件的一般檢查文件檢查的一般方法。實(shí)用。設(shè)計(jì)一些通用模塊，和使用方法。1，首先對(duì)要上傳的文件進(jìn)行存在檢查。（在ATSELECTION-SCREEN事件下完成）CALLMETHODCL_GUI_FRONTEND_SERVICES=>FILE_EXISTEXPORTINGFILE=LW_FILERECEIVINGRESULT=LW_RESULTEXCEPTIONSCNTL_ERROR=1ERROR_NO_GUI=2WRONG_PARAMETER=3NOT_SUPPORTED_BY_GUI=4OTHERS=5.IFSY-SUBRC<>0.SETCURSORFIELD'P_UPFILE'."カーソルをセット*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'E'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.*-----チェック結(jié)果判定IFLW_RESULT<>CNS_TRUE."ファイル存在しないSETCURSORFIELD'P_UPFILE'."カーソルをセット*-----MSG:アップロードファイル&1は存在しませんMESSAGEE116(ZNKCC1)WITHP_UPFILE.ENDIF.2，對(duì)于指定下載到本地的文件，首先，將屏幕上輸入的路徑和文件名分隔開(kāi)來(lái)，（在ATSELECTION-SCREEN事件下完成）*-----CALL汎用モジュールCALLFUNCTION'SO_SPLIT_FILE_AND_PATH'EXPORTINGFULL_NAME=P_ERFILEIMPORTINGSTRIPPED_NAME=W_FILEFILE_PATH=P_O_PATHEXCEPTIONSX_ERROR=1OTHERS=2.IFSY-SUBRC<>0.SETCURSORFIELD'P_ERFILE'."カーソルをセット*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'E'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.其次，檢查分隔得到的文件路徑（路徑是否存在）。（在ATSELECTION-SCREEN事件下完成）CALLMETHODCL_GUI_FRONTEND_SERVICES=>DIRECTORY_EXISTEXPORTINGDIRECTORY=LW_PATHRECEIVINGRESULT=LW_RESULTEXCEPTIONSCNTL_ERROR=1ERROR_NO_GUI=2WRONG_PARAMETER=3NOT_SUPPORTED_BY_GUI=4OTHERS=5.IFSY-SUBRC<>0.SETCURSORFIELD'P_ERFILE'."カーソルをセットMESSAGEIDSY-MSGIDTYPE'S'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.3，實(shí)現(xiàn)對(duì)上傳文件的檢索幫助。（在ATSELECTION-SCREENONVALUE-REQUESTFORP_UPFILE.事件下完成）CALLMETHODCL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOGEXPORTINGWINDOW_TITLE=LW_TITLE"ファイル選択CHANGINGFILE_TABLE=LTD_FILERC=LW_RETURN"リターン値USER_ACTION=LW_ACTION"動(dòng)作結(jié)果EXCEPTIONSFILE_OPEN_DIALOG_FAILED=1CNTL_ERROR=2ERROR_NO_GUI=3NOT_SUPPORTED_BY_GUI=4OTHERS=5.*-----リターンコード判定IFSY-SUBRC<>0."メソッド失敗時(shí)SETCURSORFIELD'P_UPFILE'."カーソルをセット*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'S'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.RETURN.ENDIF.*-----結(jié)果情報(bào)判定IFLW_RETURN<0.RETURN."選択畫面へ戻るENDIF.*-----結(jié)果情報(bào)判定IFLW_ACTION=0.*-----[選択ファイルテーブル]の1件目を[アップロードファイル名]設(shè)定READTABLELTD_FILEINTOLTH_FILEINDEX1.*-----リターンコード判定IFSY-SUBRC=0.P_UPFILE=LTH_FILE-FILENAME.ENDIF.ENDIF.4，對(duì)下載的文件的檢索幫助的實(shí)現(xiàn)同3。5，對(duì)下載的文件是保存幫助處理。CALLMETHODCL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOGEXPORTINGWINDOW_TITLE=LW_TITLE"エラー出力ファイル選択CHANGINGFILENAME=LW_FILENAME"ファイル名PATH=LW_PATH"パース名FULLPATH=LW_FULLPATH"ファイルパース名USER_ACTION=LW_ACTION"動(dòng)作結(jié)果EXCEPTIONSCNTL_ERROR=1ERROR_NO_GUI=2NOT_SUPPORTED_BY_GUI=3OTHERS=4.*-----リターンコード判定IFSY-SUBRC<>0."CALLメソッド失敗時(shí)SETCURSORFIELD'P_ERFILE'."カーソルをセット*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'S'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.RETURN."選択畫面へ戻るENDIF.*-----結(jié)果情報(bào)判定IFLW_ACTION=0.*-----[ファイルパース名]を[選択畫面-エラーファイル名]に設(shè)定するP_ERFILE=LW_FULLPATH.ENDIF.6．另外的情況，屏幕上輸入下載文件指定路徑和文件名后，先檢查該文件是否存在，如果存在，則需要彈出對(duì)話框，提醒用戶是否覆蓋原文件。（在ATSELECTION-SCREENONVALUE-REQUESTFORP_DOFILE.事件下完成）*-----エラーファイルの存在チェックCALLMETHODCL_GUI_FRONTEND_SERVICES=>FILE_EXISTEXPORTINGFILE=LW_FILE"ファイルRECEIVINGRESULT=LW_RESULT"チェック結(jié)果EXCEPTIONSCNTL_ERROR=1ERROR_NO_GUI=2WRONG_PARAMETER=3NOT_SUPPORTED_BY_GUI=4OTHERS=5.*-----リターンコード判定IFSY-SUBRC<>0."CALLメソッド失敗時(shí)SETCURSORFIELD'P_ERFILE'."カーソルをセット*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'E'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.提示是否覆蓋原文件：*-----CALL汎用モジュールCALLFUNCTION'POPUP_TO_CONFIRM'EXPORTINGTITLEBAR=TEXT-006"確認(rèn)TEXT_QUESTION=TEXT-007"質(zhì)問(wèn)テキストTEXT_BUTTON_1=TEXT-008"はいTEXT_BUTTON_2=TEXT-009"いいえDEFAULT_BUTTON='1'"カーソル位置DISPLAY_CANCEL_BUTTON='X'"取消押ボタンSTART_COLUMN=25"POPUPの開(kāi)始列START_ROW=6"POPUPの開(kāi)始行IMPORTINGANSWER=LW_ANSWER"リターンコードEXCEPTIONSTEXT_NOT_FOUND=1OTHERS=2.*-----リターンコード判定IFSY-SUBRC<>0."CALLモジュール失敗時(shí)*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'S'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.LEAVELIST-PROCESSING.ENDIF.*-----結(jié)果情報(bào)判定IFLW_ANSWER='2'"いいえOR中止ボタン押下ORLW_ANSWER='A'.LEAVELIST-PROCESSING."選択畫面へ戻るENDIF.示例：REPORTZLEI_FILE_CHECK.*----------------------------------------------------------------------**WORKS*----------------------------------------------------------------------*DATA:W_FILETYPESTRING."ファイル名*----------------------------------------------------------------------**CONSTANTS*----------------------------------------------------------------------*CONSTANTS:CNS_TRUE(1)TYPECVALUE'X'."TRUE*----------------------------------------------------------------------**PARAMETERS*----------------------------------------------------------------------*PARAMETERS:P_UPFILELIKERLGRAP-FILENAME,"UploadfileP_ERFILELIKERLGRAP-FILENAME."Downloadfile*----------------------------------------------------------------------**ATSELECTION-SCREEN*----------------------------------------------------------------------*ATSELECTION-SCREEN.*-----アップロードファイルの存在チェックPERFORMFRM_CHECK_UPFILE_EXIST.*-----エラーファイルのチェックPERFORMFRM_CHECK_ERFILE.*----------------------------------------------------------------------**ATSELECTION-SCREENONVALUE-REQUEST*----------------------------------------------------------------------*ATSELECTION-SCREENONVALUE-REQUESTFORP_UPFILE.*-----アップロードファイルの検索ヘルプPERFORMFRM_SEARCH_UPFILE.ATSELECTION-SCREENONVALUE-REQUESTFORP_ERFILE.*-----エラー出力ファイルの検索ヘルプPERFORMFRM_SAVE_ERFILE.*&---------------------------------------------------------------------**&FormFRM_CHECK_UPFILE_NAME*&---------------------------------------------------------------------**アップロードファイルの存在チェック*----------------------------------------------------------------------*FORMFRM_CHECK_UPFILE_EXIST.DATA:LW_FILETYPESTRING,"ファイルLW_RESULTTYPEC."チェック結(jié)果LW_FILE=P_UPFILE.CALLMETHODCL_GUI_FRONTEND_SERVICES=>FILE_EXISTEXPORTINGFILE=LW_FILERECEIVINGRESULT=LW_RESULTEXCEPTIONSCNTL_ERROR=1ERROR_NO_GUI=2WRONG_PARAMETER=3NOT_SUPPORTED_BY_GUI=4OTHERS=5.IFSY-SUBRC<>0.SETCURSORFIELD'P_UPFILE'."カーソルをセット*-----システムメッセージ出力MESSAGEIDSY-MSGIDTYPE'E'NUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.*-----チェック結(jié)果判定IFLW_RESULT<>CNS_TRUE."ファイル存在しないSETCURSORFIELD'P_UPFILE'."カーソルをセット*-----MSG:アップロードファイル&1は存在しませんMESSAGEE116(ZNKCC1)WITHP_UPFILE.ENDIF.ENDFORM."FRM_CHECK_UPFILE_EXIST*&---------------------------------------------------------------------**&FormFRM_CHECK_ERFILE*&---------------------------------------------------------------------**エラーファイルのチェック*----------------------------------------------------------------------*FORMFRM_CHECK_ERFILE.DATA:LW_PATHTYPERLGRAP-FILENAME."パス*-----エラーファイルの切りのチェックPERFORMFRM_SPLIT_ERFILE_PATHCHANGINGLW_PATH.*-----エラーファイルのパスのチェックPERFORMFRM_CHECK_DIRECTORY_EXISTUSINGLW_PATH.*-----エラーファイルの存在のチェックPERFORMFRM_CHECK_ERFILE_EXIST.ENDFORM."FRM_CHECK_ERFILE*&---------------------------------------------------------------------**&FormFRM_SPLIT_ERFILE_PATH*&---------------------------------------------------------------------**エラーファイルの切りのチェック*----------------------------------------------------------------------**<--P_O_PATHパス（CHANGINGパラメータ）*----------------------------------------------------------------------*FORMFRM_SPLIT_ERFILE_PATHCHANGINGP_O_PATHTYPERLGRAP-FILENAME.*-----CALL汎用モジュールCALLFUNCTION'SO_SPLIT_FILE_AND_PATH'EXPORTINGFULL_NAME=P_ERFILEIMPORTINGSTRIPPED_NAME=W_FILEFILE_PATH=P_O_PATHEXCEPTIONSX_ERROR=1OTHERS=2.IFSY-SUBRC<>0.SETCURSORFIELD'P_ERFILE'.&quo