SAP ABAP – 用户退出
SAP ABAP – 用户退出
如果标准 SAP 提取器不提供预期数据或所需功能(例如在授权或时间检查中),则在提取中使用用户出口。用户出口通常用于销售和分销 (SD) 模块。SAP 在销售、运输、运输和计费领域提供了许多出口。用户出口旨在在标准 SAP 无法满足所有需求时进行一些更改。
为了能够访问每个销售领域的可用退出,请使用以下路径转到 IMG:IMG → 销售和分销 → 系统修改 → 用户退出。SD 领域中每个出口的文档都得到了详尽的解释。
例如,如果您想在销售单据处理(合同、报价单或销售订单)中查找用户退出,请按照上述路径继续展开销售中的用户退出→用户退出节点。单击图标文档以查看销售文档处理中可用的所有用户退出。
S.No. | 用户退出和描述 |
---|---|
1 |
USEREXIT_FIELD_MODIFICATION 用于修改屏幕属性。 |
2 |
USEREXIT_SAVE_DOCUMENT 当用户点击保存时帮助执行操作。 |
3 |
USEREXIT_SAVE_DOCUMENT_PREPARE 检查输入字段、在字段中放置任何值或向用户显示弹出窗口和确认文档非常有用。 |
4 |
USEREXIT_MOVE_FIELD_TO_VBAK 当用户标题更改移动到标题工作区时使用。 |
5 |
USEREXIT_MOVE_FIELD_TO_VBAP 当用户项目更改移动到 SAP 项目工作区时使用。 |
用户出口与客户出口的用途相同,但它们仅可用于 SD 模块。出口实现为对功能模块的调用。用户出口是对 SAP 标准程序的修改。
例子
REPORT ZUSEREXIT1. TABLES: TSTC, TSTCT, TADIR, TRDIR, TFDIR, ENLFDIR, MODSAPT, MODACT. DATA: JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE, field1(30), v_devclass LIKE TADIR-devclass. PARAMETERS: P_TCODE LIKE TSTC-tcode OBLIGATORY. SELECT SINGLE * FROM TSTC WHERE tcode EQ P_TCODE. IF SY-SUBRC EQ 0. SELECT SINGLE * FROM TADIR WHERE pgmid = 'R3TR' AND object = 'PROG' AND obj_name = TSTC-pgmna. MOVE TADIR-devclass TO v_devclass. IF SY-SUBRC NE 0. SELECT SINGLE * FROM TRDIR WHERE name = TSTC-pgmna. IF TRDIR-subc EQ 'F'. SELECT SINGLE * FROM TFDIR WHERE pname = TSTC-pgmna. SELECT SINGLE * FROM ENLFDIR WHERE funcname = TFDIR-funcname. SELECT SINGLE * FROM TADIR WHERE pgmid = 'R3TR' AND object = 'FUGR' AND obj_name EQ ENLFDIR-area. MOVE TADIR-devclass TO v_devclass. ENDIF. ENDIF. SELECT * FROM TADIR INTO TABLE JTAB WHERE pgmid = 'R3TR' AND object = 'SMOD' AND devclass = v_devclass. SELECT SINGLE * FROM TSTCT WHERE sprsl EQ SY-LANGU AND tcode EQ P_TCODE. FORMAT COLOR COL_POSITIVE INTENSIFIED OFF. WRITE:/(19) 'Transaction Code - ', 20(20) P_TCODE, 45(50) TSTCT-ttext. SKIP. IF NOT JTAB[] IS INITIAL. WRITE:/(95) SY-ULINE. FORMAT COLOR COL_HEADING INTENSIFIED ON. WRITE:/1 SY-VLINE, 2 'Exit Name', 21 SY-VLINE , 22 'Description', 95 SY-VLINE. WRITE:/(95) SY-ULINE. LOOP AT JTAB. SELECT SINGLE * FROM MODSAPT WHERE sprsl = SY-LANGU AND name = JTAB-obj_name. FORMAT COLOR COL_NORMAL INTENSIFIED OFF. WRITE:/1 SY-VLINE, 2 JTAB-obj_name HOTSPOT ON, 21 SY-VLINE , 22 MODSAPT-modtext, 95 SY-VLINE. ENDLOOP. WRITE:/(95) SY-ULINE. DESCRIBE TABLE JTAB. SKIP. FORMAT COLOR COL_TOTAL INTENSIFIED ON. WRITE:/ 'No of Exits:' , SY-TFILL. ELSE. FORMAT COLOR COL_NEGATIVE INTENSIFIED ON. WRITE:/(95) 'User Exit doesn’t exist'. ENDIF. ELSE. FORMAT COLOR COL_NEGATIVE INTENSIFIED ON. WRITE:/(95) 'Transaction Code Does Not Exist'. ENDIF. AT LINE-SELECTION. GET CURSOR FIELD field1. CHECK field1(4) EQ 'JTAB'. SET PARAMETER ID 'MON' FIELD sy-lisel+1(10). CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
在处理时,输入事务代码“ME01”并按 F8(执行)按钮。上面的代码产生以下输出 –