abap中关于bapi的介绍:
1.BAPI – business application programming interface
2.它实际上是一种特殊的Remote Function Modules (RFC)是为了提供使用外部程序来进行交易活动
3.它提供的基于企业目标(Business Object) 技术的接口应用界面
4.SAP采用了Object-oriented技术，逻辑定义了SAP R/3系统的所有功能目标，并且将所有的目标(Objects) 和BAPIs存储于企业目标库BOR(Business Objects Repository).
5.SAP R/3 企业目标的目标类型(Object Type) 相当于目标设计语言中类(Class) 的概念，其定义结构由以下几部分组成：基本数据,接口界面,键(Key Fields),方法(Methods),特征(Attributes),事件(Events)
如何创建BAPI程序
1.定义BAPI Structure (Structure不能在BAPI中重复使用，因为一旦BAPI被释放，其Structure被冻结）
2.创建FUNCTION MODULE
每个BAPI必须有自己的Function Group，Function Group属性必须为RFC
3.创建Business Object
4.使用BAPI WIZARD创建API Method
这样BAPI可以被外部程序调用
5.Function Module符合BOR Method
4.释放BAPI Function Module,
释放Business Object Type,
释放BAPI作为BOR的一种Method
BAPI的简单实现步骤
一，创建Function Module
1，在SE11，创建需要的structure
2，在SE80，建Function group
3，在SE37，创建Function Module
Note：一个Function Group只能包含一个BAPI；参数传值；必须有有一个BAPIRETURN类型的EXPORT参数
二，封装
1，在SWO1，建Object Type
2，把Function Module作为一个Method加入，utilities->API Methods->Add Method
3，release Object和Module。使在BAPI Browser 中可以看到。也就是外部能够调用。
三，调用
1，如在另一系统中用ABAP调用，先在SM59中建RFC联到有BAPI的R/3，(ZGOGO)
在SE38的程序中调用，Call Function "ZBAPIXXXXX" DESTINATION ZGOGO EXPORTING ...
2，如用JAVA调用
引入包；（不一定要用IBM的）
import com.sap.rfc.*;
import com.sap.rfc.exception.*;
import com.ibm.sap.bapi.*;
import com.ibm.sap.bapi.generated.*;
建立连接；调用。。。（See CALL_BAPI.java）
1.给bapi创建结构1
事务代码：SE11- 输入结构的名称:ZBAPI_ORDER_STATUS_IMPORT
输入如下的3个字段。激活
2.给BAPI创建数据结构(2)
事务代码：SE11- 输入结构的名称：ZBAPISTAT
输入如下结构，激活
3.创建函数
事务代码：SE37
创建函数组：转到—〉函数组—〉创建组
输入函数组和短文本，保存
输入Function module：Z_BAPI_GET_ORDER_STATUSWW 点 创建
输入函数组和短文本，保存
属性界面更改类型，选择为远程启用的模块
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. * Declarations for TABLE PARAMETER DATA: 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 messages DATA: 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.
然后返回函数模块添加代码
FUNCTION z_bapi_get_order_statusww. *"---------------------------------------------------------------------- *"*"本地接口： *" 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.
检查会提示set_return_message这个form不存在，双击创建包含文件
*----------------------------------------------------------------------* ***INCLUDE LZBAPISTATUSWWF01. *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form SET_RETURN_MESSAGE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_MESSAGE text * <--P_RETURN text *----------------------------------------------------------------------* FORM set_return_message USING VALUE(p_message) LIKE message CHANGING p_return LIKE bapireturn. CHECK NOT message IS INITIAL. CALL FUNCTION 'BALW_BAPIRETURN_GET' EXPORTING type = p_message-msgty cl = p_message-msgid number = p_message-msgno par1 = p_message-msgv1 par2 = p_message-msgv2 par3 = p_message-msgv3 par4 = p_message-msgv4 * LOG_NO = ' ' * LOG_MSG_NO = ' ' IMPORTING bapireturn = p_return EXCEPTIONS OTHERS = 1. ENDFORM. " SET_RETURN_MESSAG
4.创建API Method
事务代码：SWO1
输入对象/接口类型：ZORDERSTAW 点 创建
输入如下的参数，保存
选择实用程序—>API方法-添加方法
输入Function module：Z_BAPI_GET_ORDER_STATUSWW，确定
下一步
下一步
选择是
选择 编辑—>更改版本状态—>对象类型—>需要实施
是
选择 转到—>程序
保存，返回
5.最后一步释放
事务代码：SE37
释放模组(显示的翻译不一样)
事务代码：SWO1
释放业务对象类型 选择 对象类型—>修改版本状态到—>已实现
释放对象类型（把光标放在 对象类型 上）
选择 编辑—更改版本状态—对象类型—已释放
把光标放在zproder…ZgetOrderSt…
选择 编辑—更改版本状态—对象类型组件—已释放
后退到smo1界面
选择对象类型—生成
成功的信息
6.查看BAPI
事务代码：BAPI
