ABAP User Exit 是 SAP 系统中一种提供给客户扩展和修改标准程序的技术手段,这种机制允许客户在不修改 SAP 源代码的前提下,实现对标准程序的定制和功能增强。ABAP(Advanced Business Application Programming)是 SAP 的一种编程语言,用于开发企业级应用程序。在 SAP 系统中,有许多预先定义好的 User Exits,开发人员可以通过编写 ABAP 代码来使用这些 User Exits 实现特定功能。
下面将通过一个例子详细介绍 ABAP User Exit 的使用场景、实现方法和注意事项。假设我们所在的企业正在使用 SAP ERP 系统进行销售订单处理,但是在创建销售订单时,我们需要根据一些特定条件来自动修改客户的付款条件。虽然 SAP 系统提供了标准的业务逻辑和功能,但是在这个特定场景下,我们需要对标准程序进行定制,以满足企业的实际需求。在这种情况下,ABAP User Exit 就能够派上用场。
为了实现这个功能,我们需要遵循以下步骤:
1. 寻找合适的 User Exit
在 SAP 系统中,有许多预定义的 User Exits,我们需要找到一个合适的 User Exit 来实现我们的需求。在本例中,我们可以使用销售订单创建过程中的一个 User Exit:MV45AFZZ
。这个 User Exit 允许我们在销售订单保存之前,对订单数据进行修改。
2. 编写 ABAP 代码
找到合适的 User Exit 后,我们需要编写 ABAP 代码来实现我们的定制功能。在本例中,我们需要根据特定条件自动修改客户的付款条件。假设当订单金额超过 10000 时,我们需要将付款条件修改为“预付款”。
首先,我们需要进入 ABAP 开发工具(SE80 或 SE38),然后打开 User Exit 对应的 ABAP 程序 MV45AFZZ
。在这个程序中,我们需要找到一个合适的方法(FORM 或 FUNCTION MODULE)来实现我们的功能。在本例中,我们可以使用 USEREXIT_SAVE_DOCUMENT_PREPARE
方法。
接下来,我们需要在 USEREXIT_SAVE_DOCUMENT_PREPARE
方法中编写 ABAP 代码。代码示例如下:
FORM USEREXIT_SAVE_DOCUMENT_PREPARE.
DATA: lv_net_value TYPE konv-kwert.
LOOP AT xkomv WHERE kposn = '000000'.
lv_net_value = xkomv-kwert.
ENDLOOP.
IF lv_net_value GT 10000.
LOOP AT xvbak.
xvbak-zterm = '预付款'.
MODIFY xvbak.
ENDLOOP.
ENDIF.
ENDFORM.
以上代码首先计算了订单的净价值(lv_net_value
),然后根据净价值是否大于 10000 来修改付款条件。
使用下列代码查找系统里可用的 user exit:
*&---------------------------------------------------------------------*
*& Report ZFINDEXIT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZFINDEXIT.
TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
TABLES : tstct.
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK b1.
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) 'No User Exit exists'.
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.
服务器托管,北京服务器托管,服务器租用 http://www.fwqtg.net
相关推荐: oracle报错,XML节点值超过varchar(4000)截取方法。ORA-06502,ORA-06512,ORA-01706
使用extract().getstringval()获取节点文本 使用extractValue获取文本 使用XMLTABLE获取节点值 使用extract().getstringval()获取节点文本 sql如下: select extract(XMLTYPE…