SAP BAPI操作手册.doc

BAPI操作手册作者:丑儿MSN: 刚刚开始学BAPI，不知道从什么地方入手，因此好多的东西都不知道怎么去做。前2天在网上看到一篇关于这样的文章，但是自己手动操作的时候还是出现了一些问题，现在把它整理成文档的形式，以供参考。这里我非常感谢我的好朋友杜善晶，谢谢她给了我很大的帮助。 -题记（丑儿 2007-10-31）1） 给BAPI创建数据结构(1)事务代码：SE11- 输入结构的名称:ZBAPI_ORDER_STATUS_IMPORT输入如下的3个字段 激活 保存2) 给BAPI创建数据结构(2)事务代码：SE11- 输入结构的名称：ZBAPISTAT输入如下字段激活 保存2） 创建函数事务代码：SE37创建函数组：转到函数组创建组输入函数组 和 函数组短文本 保存输入Function module：Z_BAPI_GET_ORDER_STATUSWW 点 创建输入函数模块 和 函数组() 短文本 SAVE属性选择状态如下Import输入如下的参数 Export输入如下参数Tables选择参数选择goto Global data 定义全局变量激活 保存输入代码如下Types: begin of Type_tj02t, istat like tj02t-istat, txt04 like tj02t-txt04, txt30 like tj02t-txt30, end of type_tj02t.DATA:* Declarations for TABLE parameter T_BAPISTAT like ZBAPISTAT occurs 0, G_BAPISTAT like ZBAPISTAT,* Table for object texts t_tj02t type type_tj02t occurs 0, g_tj02t type type_tj02t.* Structure for return messagesDATA: BEGIN OF MESSAGE, MSGTY LIKE SY-MSGTY, MSGID LIKE SY-MSGID, MSGNO LIKE SY-MSGNO, MSGV1 LIKE SY-MSGV1, MSGV2 LIKE SY-MSGV2, MSGV3 LIKE SY-MSGV3, MSGV4 LIKE SY-MSGV4, END OF MESSAGE.Source code中增加对应代码激活 保存增加的代码如下：FUNCTION Z_BAPI_GET_ORDER_STATUSWW.*-*Local interface:* IMPORTING* VALUE(BAPI_ORDER_STATUS_IMPORT) TYPE ZBAPI_ORDER_STATUS_IMPORT* EXPORTING* VALUE(RETURN) TYPE BAPIRETURN* TABLES* T_BAPISTAT STRUCTURE ZBAPISTAT*- DATA: l_aufnr LIKE afko-aufnr, l_objnr LIKE jest-objnr.* Check if order exists*SELECT SINGLE aufnr FROM afko INTO l_aufnr WHERE aufnr = BAPI_ORDER_STATUS_IMPORT-orderid. IF sy-subrc NE 0. CLEAR message. message-msgty = E. message-msgid = Z3. message-msgno = 000. message-msgv1 = BAPI_ORDER_STATUS_IMPORT-orderid. PERFORM set_return_message USING message CHANGING return. IF 1 = 2.* The only reason to include this statement, that will obviously* never execute, is that it will create a referecence so that you* can find out where a particular message is being used. This* functionality is used by the BAPIs programmed by SAP MESSAGE e000(z3). ENDIF. ENDIF. CHECK return IS INITIAL.* Read order status*CONCATENATE OR BAPI_ORDER_STATUS_IMPORT-orderid INTO l_objnr. IF BAPI_ORDER_STATUS_IMPORT-i_excludeinactive = X. SELECT objnr stat inact FROM jest INTO TABLE t_bapistat WHERE objnr = l_objnr AND inact X. ELSE. SELECT objnr stat inact FROM jest INTO TABLE t_bapistat WHERE objnr = l_objnr. ENDIF. IF sy-subrc 0.* No object status found CLEAR message. message-msgty = E. message-msgid = Z3. message-msgno = 001. message-msgv1 = BAPI_ORDER_STATUS_IMPORT-orderid. PERFORM set_return_message USING message CHANGING return. IF 1 = 2. MESSAGE e001(z3). ENDIF. ENDIF. CHECK return IS INITIAL.* Read order status texts* SELECT istat txt04 txt30 FROM tj02t INTO TABLE t_tj02t FOR ALL ENTRIES IN t_bapistat WHERE istat = t_bapistat-stat AND spras = BAPI_ORDER_STATUS_IMPORT-i_spras. SORT t_tj02t BY istat. LOOP AT t_bapistat INTO g_bapistat. READ TABLE t_tj02t WITH KEY istat = g_bapistat-stat BINARY SEARCH INTO g_tj02t. IF sy-subrc = 0. MOVE: g_tj02t-txt04 TO g_bapistat-txt04, g_tj02t-txt30 TO g_bapistat-txt30. MODIFY t_bapistat FROM g_bapistat TRANSPORTING txt04 txt30. ENDIF. ENDLOOP.ENDFUNCTION.*INCLUDE LZBAPISTATUSF01 .*-*&-*& Form SET_RETURN_MESSAGE*&-* This routine is used for setting the BAPI return message.* The routine is a standard routine for BAPIs that handles the message* structure for the BAPIRETURN structure. It has been copied from the* BAPI Company Code Getlist*-* -P_MESSAGE text* API方法Add方法输入Function module：Z_BAPI_GET_ORDER_STATUSWW确定选择选择确定选择 编辑更改版本状态对象类型To Implemented确定Note that the BAPI wizard has added a wrapper class for the function module so it can be sued as method in the business object.选择Choose menu Goto-Program to display the program4） 最后一步释放事务代码：SE37释放模组事务代码：SWO1释放业务对象类型 选择 对象类型修改版本状态到已实现释放对象类型（把光标放在