SAP常用对话框应用.docx
《SAP常用对话框应用.docx》由会员分享，可在线阅读，更多相关《SAP常用对话框应用.docx（10页珍藏版）》请在冰豆网上搜索。
SAP常用对话框应用
1.Dialogboxforconfirmingprocessingstep（CONFIRM,POPUP）
CALLFUNCTION'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1=text-006
titel=text-005
IMPORTING
answer=t_code.
CHECKt_code='J'.
2.Dialogboxforconfirmingprocessingstep:
Withdiagnosistext
CALLFUNCTION'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
titel=text-100
diagnosetext1=text
diagnosetext2=text-102
textline1=text-103
defaultoption='Y'
IMPORTING
answer=answer.
IFanswer='A'ORanswer='N'.
ELSEIFanswer='J'.
ENDIF.
3.Dialogboxforchoosingfromalistwithoutdiagnosis（提供選擇列表供用戶選擇）
*填充選項列表：
selectlist-varoption='A.WalMart'.
APPENDselectlist.
selectlist-varoption='B.COLE'.
APPENDselectlist.
selectlist-varoption='C.Privatelable'.
APPENDselectlist.
*顯示列表dialog供用戶選擇
CALLFUNCTION'POPUP_TO_DECIDE_LIST'
EXPORTING
mark_flag='X'
mark_max=0
textline1='請選擇執行標准'
titel='請選擇執行標准:
'
TABLES
t_spopli=selectlist
EXCEPTIONS
not_enough_answers=1
too_much_answers=2
too_much_marks=3
OTHERS=4.
IFsy-subrc=0.
ENDIF.
4.上載文件（自帶路徑選擇對話框的上載函數UPLOAD，下載DOWNLOAD）
PARAMETER:
P_FILELIKERLGRAP-FILENAME.
CALLFUNCTION'WS_UPLOAD'
EXPORTING
FILENAME=P_FILE
FILETYPE='ASC'
TABLES
DATA_TAB=IN_PRO.
5.選擇屏幕的值選擇對話框（按F4出現）
DATA:
BEGINOFfieldsOCCURS3.
INCLUDESTRUCTUREhelp_value.
DATA:
ENDOFfields.
DATA:
BEGINOFvaluetabOCCURS3,
atwrtLIKEcawn-atwrt,
atwtbLIKEcawnt-atwtb,
ENDOFvaluetab.
SELECT-OPTIONS:
p_costFORcawn-atwrt.
ATSELECTION-SCREENONVALUE-REQUESTFORp_cost-low.
PERFORMget_value.
CALLFUNCTION'HELP_VALUES_GET_WITH_TABLE'
EXPORTING
title_in_values_list='成本分類﹕'
titel='請選擇成本分類：
'
IMPORTING
select_value=p_cost-low
TABLES
fields=fields
valuetab=valuetab.
FORMget_value.
CLEARfields.REFRESHfields.
CLEARvaluetab.REFRESHvaluetab.
fields-tabname='CAWN'.
fields-fieldname='ATWRT'.
fields-selectflag='X'.
APPENDfields.CLEARfields.
SELECTb~atwrtc~atwtb
INTOCORRESPONDINGFIELDSOFTABLEvaluetab
FROMcabnASaINNERJOINcawnASbON
a~atinn=b~atinnINNERJOINcawntASc
ONb~atinn=c~atinnANDb~atzhl=c~atzhl
WHEREa~atnam='ADDITIONAL_MATERIAL_CHAR'
ANDc~spras='M'.
ENDFORM."get_value
6.選擇屏幕日期選擇對話框（F4）
DATA:
week_sLIKEsy-datum,
week_eLIKEsy-datum.
PARAMETER:
s_weekLIKEscal-weekOBLIGATORY.
ATSELECTION-SCREENONVALUE-REQUESTFORs_week.
PERFORMget_week.
FORMget_week.
DATA:
sel_weekLIKEscal-week.
CLEAR:
week_s,week_e.
CALLFUNCTION'F4_DATE'
IMPORTING
select_week=sel_week
select_week_begin=week_s
select_week_end=week_e
EXCEPTIONS
calendar_buffer_not_loadable=1
date_after_range=2
date_before_range=3
date_invalid=4
factory_calendar_not_found=5
holiday_calendar_not_found=6
parameter_conflict=7
OTHERS=8.
IFsy-subrc=0.
s_week=sel_week.
ENDIF.
ENDFORM."get_week
7.信息List提示框：
DATAw_display1（70）TYPEc.
DATAw_display2（70）TYPEc.
CALLFUNCTION'POPUP_TO_DISPLAY_TEXT'
EXPORTING
titel='還有尚未確認的單據:
'
textline1=w_display1
textline2=w_display2
start_column=10
start_row=6.
8.DialogBoxfortheDisplayofaTextList（TextsinaTable）顯示文本List
DATA:
t_lineLIKETABLEOFtlineWITHHEADERLINE.
CALLFUNCTION'COPO_POPUP_TO_DISPLAY_TEXTLIST'
EXPORTING
task='DISPLAY'
titel=text-004
TABLES
text_table=t_line.
9.文件路徑選擇對話框
DATA:
t_pathLIKErlgrap-filename."文件路徑
**取文件路徑
PARAMETERS:
p_fileLIKErlgrap-filename.
ATSELECTION-SCREENONVALUE-REQUESTFORp_file.
PERFORMget_filename.
FORMget_filename.
CALLFUNCTION'KD_GET_FILENAME_ON_F4'
EXPORTING
mask='*.XLS'
static='X'
CHANGING
file_name=P_FILE
EXCEPTIONS
mask_too_long=1.
IFsy-subrc<>0.
MESSAGEe999WITH'路徑不正確或選擇文件錯誤'.
ENDIF.
ENDFORM.
10.調用方法產生文件路徑對話框
DATA:
p_fileLIKErlgrap-filename.
FIELD-SYMBOLSTYPEfile_table.
FIELD-SYMBOLS.
DATA:
f_tableTYPEfiletable.
DATA:
rcTYPEi.
DATA:
user_actionTYPEi.
DATA:
l_indexTYPEi.
CALLMETHODcl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title='請選擇要匯入的文件'
file_filter='Excelfiles（*.XLS）|*.XLS'
initial_directory='D:
\'
CHANGING
file_table=f_table
rc=rc
user_action=user_action
EXCEPTIONS
cntl_error=1
file_open_dialog_failed=2
error_no_gui=3.
CALLMETHODcl_gui_cfw=>flush
EXCEPTIONScntl_system_error=1
cntl_error=2.
CLEARp_file.
READTABLEf_tableASSIGNINGINDEX1.
IFsy-subrc=0.
p_file=-filename.
ENDIF.
11.提示信息dialog
CALLFUNCTION'POPUP_TO_INFORM'
EXPORTING
titel='匯入文件說明'
txt1=text-004
txt2=text-005
txt3=text-006
txt4=text-007.
12.程序運行時狀態欄提示
callfunction'SAPGUI_PROGRESS_INDICATOR'
exporting
percentage=0
text=t_text.“t_text：
數據處理中
13.Dialogboxfordisplayingatextwithparameters（例程：
RGUREP01）
INITIALIZATION.
PERFORMREADME_FIRST.
FORMREADME_FIRST.
CLEARSAVE_TCODE.
MOVESY-TCODETOSAVE_TCODE.
CLEARSY-TCODE.
IFSY-BATCHEQSPACE.
IFSAVE_TCODEEQ'SE38'.
CALLFUNCTION'POPUP_DISPLAY_TEXT_WITH_PARAMS'
EXPORTING
LANGUAGE=SY-LANGU
POPUP_TITLE=TEXT-400
*START_COLUMN=10
*START_ROW=3
TEXT_OBJECT='GLX_TABLE_REPAIR'
IMPORTING
CANCELLED=ANSWER
TABLES
PARAMETERS=TEXT_PARAMS
EXCEPTIONS
ERROR_IN_TEXT=1
TEXT_NOT_FOUND=2
OTHERS=3.
IFANSWERNESPACE.
CLEARANSWER.
LEAVETOTRANSACTIONSAVE_TCODE.
ELSE.
*EXIT.
CLEARSY-TCODE.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
14.文件路徑get
CALLFUNCTION'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME=FILENAME
DEF_PATH='\'
MASK=',*.*,*.csv;*.txt.'
MODE='O'
TITLE=TEXTDAW
*'Dateiauswahl'（flw）
IMPORTING
FILENAME=FILENAME
EXCEPTIONS
INV_WINSYS=01
NO_BATCH=02
SELECTION_CANCEL=03
SELECTION_ERROR=04.
IFSY-SUBRC<>0.ENDIF."ok
升级会员 