ABAP CALL TRANSACTION 调用事务码方式
- 使用BDC 参数调用事务码并进行跳转
REPORT YTEST.
INCLUDE BDCRECXY. "使用BDC一定要包含此文件
DATA L_OPT TYPE CTU_PARAMS.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU1 USER-COMMAND ABCD."在选择界面上创建一个按钮
AT SELECTION-SCREEN OUTPUT.
MOVE 'My Button' TO PUBU1.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
WHEN 'ABCD'.
PERFORM BDC_DYNPRO USING 'ZRPP_008' '1000'.
PERFORM BDC_FIELD USING 'BDC_CURSOR' 'GW_HEADER-FILENO'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZREFLESH'.
PERFORM BDC_FIELD USING 'GW_HEADER-FILENO' '100000000034'.
L_OPT-DISMODE = 'E'.
L_OPT-DEFSIZE = 'X'.
CALL TRANSACTION 'ZPP083' WITH AUTHORITY-CHECK USING BDCDATA OPTIONS FROM L_OPT. "WITH WITHOUT
ENDCASE.
- 使用 PARAMETER ID 调用事务码并进行跳转
REPORT YTEST.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU1 USER-COMMAND ABCD."在选择界面上创建一个按钮
AT SELECTION-SCREEN OUTPUT.
MOVE 'My Button' TO PUBU1.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
WHEN 'ABCD'.
SET PARAMETER ID 'BES' FIELD '4110000051'.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN .
ENDCASE.
- 以上两种方式都能使用 ABAP4_CALL_TRANSACTION 来进行跳转
"仅事务跳转
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
EXPORTING
TCODE = 'SE38'.
"使用 PARAMETER ID
DATA:GT_RFC_SPAGPA TYPE TABLE OF RFC_SPAGPA,
GW_RFC_SPAGPA LIKE LINE OF GT_RFC_SPAGPA.
GW_RFC_SPAGPA-PARID = 'BES'.
GW_RFC_SPAGPA-PARVAL = '4110000051'.
APPEND GW_RFC_SPAGPA TO GT_RFC_SPAGPA.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
EXPORTING
TCODE = 'ME23N'
SKIP_SCREEN = 'X' "SKIP FIRST SCREEN
TABLES
SPAGPA_TAB = GT_RFC_SPAGPA.
"使用BDC 参数
DATA:BDCDATA LIKE BDCDATA OCCURS WITH HEADER LINE.
DATA:MESSTAB LIKE BDCMSGCOLL OCCURS WITH HEADER LINE.
PERFORM BDC_DYNPRO USING 'ZRPP_008' '1000'.
PERFORM BDC_FIELD USING 'BDC_CURSOR' 'GW_HEADER-FILENO'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZREFLESH'.
PERFORM BDC_FIELD USING 'GW_HEADER-FILENO' '100000000034'.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
EXPORTING
TCODE = 'ZPP083'
MODE_VAL = 'A' "A:前台,显示屏幕 E:遇到错误停止并显示 N:后台模式
UPDATE_VAL = 'S' "A:异步 S:同步 L:本地模式
TABLES
USING_TAB = BDCDATA
MESS_TAB = MESSTAB.
- 调用TH_CREATE_MODE (调用TCODE并在新窗口展示)
CALL FUNCTION 'TH_CREATE_MODE'
EXPORTING
transaktion = 'SE38'.
post SAP-Garson
原文链接:https://blog.csdn.net/qq_33539438/article/details/116016267文章来自于网络,如果侵犯了您的权益,请联系站长删除!