业务对象（BO）设计

业务对象（BO）设计... 111

创建数据结构（SE11）... 111

创建业务对象类型（SWO1）... 111

新建业务对象类型... 111

业务对象及组件共有四种状态... 112

将新创建的业务对象状态修改为Implemented. 112

通过报表程序来实现业务对象的方法... 117

通过报表程序来实现业务对象的方法... 118

重定义接口方法... 119

实现方法... 119

测试业务对象... 120

为业务对象（BO）添加BAPI方法（通过BAPI函数来实现业务对象方法）... 121

创建BAPI参数的数据结构... 121

创建具有RFC功能的BAPI函数（RFM）... 122

创建函数组 ZEMP. 122

创建功能模块ZBAPI_GET_EMPLOYEE_LIST. 122

创建功能模块ZBAPI_GET_EMPLOYEE_DETAIL. 125

将BAPI函数绑定到相应的业务对象方法上... 126

测试BAPI方法

业务对象（BO）设计

创建数据结构（SE11）

业务对象代表具体的业务数据，因此业务对象类型都有相对应的数据字典结构对应。

创建业务对象类型（SWO1）

业务对象类型就相当于Class类的概念

新建业务对象类型

系统已自动引用SAP标准接口IFSAP，并从中继承了一些默认的属性和方法。新建的对象类型名称旁边有一个标记，表示对象目前状态为Modeled。

业务对象及组件共有四种状态

l Modeled：已建模，业务对象和组件已经创建，但没有程序实现其功能

l Implemented：已实现，业务对象和组件的程序已经创建（生成），但还没有完成

l Released：已发布，程序代码完成，该对象及组件可以使用

l Obsolete：已废弃，该对象不应继续使用

将新创建的业务对象状态修改为Implemented

将光标放在业务对象类型名所在行，选择以下菜单：

系统提示：

，标记不存在

查看业务对象的实现代码

点击“Program”按钮，则可查看该业务对象类型的程序代码实现部分ZBO_EMPLOYEE：

添加接口

创建业务对象类型时，除自动默认继承的接口 IFSAP（

）外，还可以为业务对象添加（或叫实现吧）其他的SAP接口，业务对象将从接口中自动继承它里面的属性或方法，其中的方法大多需要在业务对象中重新实现。

将光标放在Interfaces位置，点击新建按钮，添加IFCREATE接口：

注：添加接口时，这些接口都是已经存在的，否则是不能直接在这里输入的。这些接口类型也是通过SWO1创建的，只是在初始界面选择的是“Interface type(相当于接口)”，而不是“Object type(相当于类)”：

同理添加IFEDIT接口，最后结构如下：

在添加 IFCREATE接口时，会自动在Methods中将接口中的 Create方法继承过来；同理，IFEDIT接口中的EDIT方法也会继承过来

通过查看继承过来的方法属性，发现只有Create方法是静态的，与实例无关，这是因为在创建业务对象实例时，相当于工厂方法，是用来产生数据的，与具体业务数据无关：

添加关键字段Key

关键字段代表着一个业务对象类型的实例，由它来区分各个业务对象。在测试业务对象时，从业务对象类型测试界面切换到业务对象实例界面时，需要输入此Key值。另外，在通过“Utilties->API Methods->Add Method”菜单添加BAPI方法时，分配的BAPI函中如果定义了关键字段作为输入参数，当在添加该方法时就默认此方法为实例方法，所以不能选中Instance-independent选项

将鼠标放在“Key fields”所在位置上，点击新建按钮，系统将提示是否参照ABAP字典中的表结构创建关键字段，本例中的业务对象基于数据库表ZTAB_EMPLOYEE，所以在系统的 Create with Data Dictionary Field Proposals对话框中选择数据表ZTAB_EMPLOYEE：

如果以前一些步骤中未将业务对象的状态设置为“implemented”，则该字段的旁边也会有一个标记，可以将光标置于该字段后，选择以下菜单，将该组件的状态修改为“implemented”：

将光标置于该关键字段处，点击“Program”按钮，可以查看其代码实现，它参照了数据库表ZTAB_EMPLOYEE的ID字段：

添加属性

这里的属性与上面的关键字段实质上等同于Java类里的属性，因为业务对象类型就是类的概念

将光标置于Attributes所在行，点击新建按钮功能，系统将提示是否参照ABAP字典中的表结构创建关键字段，可以按照与添加关键字段类似的步骤将全部其他数据库表字段作为属性添加到业务对象组件中：

并为每一个属性输入名称之后，各字段将出现在Attributes列表中：

同时，选择属性字段后，点击“Program”按钮，可以查看与之相关的实现代码，下面是从数据库表取数据并填充到这些属性字段的过程：

设置默认属性和方法

选择可以在Default选项卡中设定对象的默认属性和方法：

默认属性与方法有什么用？？？当访问一个业务对象类型实例时（如在显示列表中双击一个实例），则会调用此方法及传递设置的默认属性？？？？

通过报表程序来实现业务对象的方法

业务对象类型中的方法与Java类型的方法实质上是同一个概念，只是真正实现这些方法的方式有很多种，如下：

例如，可以首先创建一个报表程序或者某个事务代码，然后在方法中直接提交此报表程序或调用事务；还可以在函数模块中完成所需要的功能，然后通过借助该功能模块来实现该方法，将业务对象的属性作为输入参数传递给功能模块，并接收功能返回的输出参数。

在没有进行重定义之前，这些继承而来的方法名称显示为深红色：

选中某个方法后，可以点击“Program”按钮来查看原有方法的实现，但绝大多数代码不能直接在当前新的业务对象中使用，需要重新实现。

通过报表程序来实现业务对象的方法

现以报表程序的方式，来重新实现业务对象类型继承过来原有方法（Create、Edit、Display等），业务对象的这些方法将通过提交到该报表的方式来实现这些方法的功能：

REPORT zbo_employee_rep.

TABLES: ztab_employee.
PARAMETERS: id LIKE ztab_employee-id OBLIGATORY,
            name LIKE ztab_employee-name,
            phone LIKE ztab_employee-phone,
            email LIKE ztab_employee-email,
            op.

START-OF-SELECTION.
ztab_employee-id = id.
ztab_employee-name = name.
ztab_employee-phone = phone.
ztab_employee-email = email.

CASE op.
    WHEN 'I'."插入数据
      INSERT ztab_employee.
      IF sy-subrc = 0.
        MESSAGE s016(rp) WITH 'One record inserted.'.
      ELSE.
        MESSAGE e016(rp) WITH 'No record inserted,ID existed.'.
      ENDIF.
    WHEN 'U'."更新数据
      UPDATE ztab_employee.
      IF sy-subrc = 0.
        MESSAGE s016(rp) WITH 'One record updated.'.
      ELSE.
        MESSAGE e016(rp) WITH 'No record update,ID not existed.'.
      ENDIF.
    WHEN 'V'."显示数据
      SELECT SINGLE * FROM ztab_employee WHERE id = ztab_employee-id.
      IF sy-subrc = 0.
        WRITE:/ 'Employee No:',ztab_employee-id,
              / 'Employee Name:',ztab_employee-name,
              / 'Employee Phone:',ztab_employee-phone,
              / 'Employee Email:',ztab_employee-email.
      ENDIF.
ENDCASE.

重定义接口方法

将光标置于方法名上，点击（即方法的重定义）按钮，每个方法都经过该操作后，底色会变为白色：

对这三个从接口继承过来的方法进行重定义后，再次选择“Program”功能，将无法看到接口中定义的实现代码，系统将提示该方法尚未通过程序实现。如果在实现这些方法之前点击按钮来生成业务对象类型时，则将现在错误提示信息：

然后可以通过以下菜单来查看具体错误：

实现方法

此小节将以上小节三个重定义方法进行实现。

将光标置于Display方法名上，点击“Program”按钮，提示方法还未进行代码实现：

Yes后，进行程序代码实现界面，在业务对象的实现程序中添加以下代码：

ExistenceCheck方法用于检查对象实现是否存在，如在对象测试界面中，需要选择“Instance”按钮来测试实例相关的一些方法时，如果未实现该方法，则如果输入一个不存在的ID，系统将仍进入实例测试界面，但实例相关的测试功能不可用。正确实现ExistenceCheck方法后，如果指定关键字段的对象不存在，系统将给出消息提示：Object does not exist。

其中object变量为前面自动生成的变量，相关代码如下：

测试业务对象

注：在每次修改程序后，都需要保存并重新生成业务对象类型，才能进行测试。当业务对象类型重新生成成功后：

会出现按钮，点击此按钮，进入到测试初始界面，此时对象尚未实例化（即此时只显示那些与业务对象实例无关的方法如Create方法——该方法不需要传递Key值）：

点击Create方法后面的按钮，则会提交到zbo_employee_rep报表程序，此报表程序会运行并显示选择屏幕，在选择屏幕中输入要插入的数据，继续运行该报表，即可向数据库表ZTAB_EMPLOYEE插入一条数据（即一个业务对象），录入的数据的选择屏幕如下：

当创建完一条数据后，点击“Instance”，输入一个存在的ID，即可切换到业务对象实例界面，可以继续对非静态方法，如Display、Edit方法进行继续测试：

为业务对象（BO）添加BAPI方法（通过BAPI函数来实现业务对象方法）

本小节将在前面章节的基础上，为业务对象类型添加两个BAPI方法：ZEMPLOYEE_obj.GetList（读取职员列表）和ZEMPLOYEE_obj.GetDetail（读取职员详细信息）。

BAPI方法与上节中所添加的普通方法是不同的，那些借助于报表程序来实现的Create、Edit等方法，仅可在SAP系统内部使用，但BAPI不同的是可以供非SAP系统对业务对象进行访问。

BAPI方法支持从当前SAP系统的外部进行访问，并可以就用于工作流、数据对象的ALE、批量传输等过程

创建BAPI参数的数据结构

BAPI方法ZEMPLOYEE_obj.GetList需要用到的结构类型（BAPI自定义结构类型需要以ZBAPI开头）：

这里只需返回员工ID与Name。

BAPI方法ZEMPLOYEE_obj.GetDetail需要用到的结构类型：

创建具有RFC功能的BAPI函数（RFM）

BAPI函数是可通过远程调用RFC的函数

现创建BAPI方法需要调用的两个RFM远程函数：ZBAPI_GET_EMPLOYEE_LIST和ZBAPI_GET_EMPLOYEE_DETAIL，ZEMPLOYEE_obj.GetList、ZEMPLOYEE_obj.GetDetail两个BAPI方法将借助于这两个BAPI函数来实现。

创建函数组 ZEMP

创建功能模块ZBAPI_GET_EMPLOYEE_LIST

BAPI函数名须以Zbapi开头

注：BAPI函数中Export必须有return返回参数（约定俗成）

由于函数组ZEMP是新创建的，所以在激活刚创建ZBAPI_GET_EMPLOYEE_LIST时，不能只单独对它进行激活，而是应该点击按钮，切换到SE80后，对函数组整体激活，否则激活时出错：

The main program of the function "ZBAPI_GET_EMPLOYEE_LIST" does notbegin with "FUNCTION-POOL".

点Goto->Global Data菜单，或者LZEMPTOP顶层包含文件：LZEMPTOP，在此包含文件中定义全局的数据变量：

并为ZBAPI_GET_EMPLOYEE_LIST函数添加以下源码：

FUNCTION zbapi_get_employee_list.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" EXPORTING
*"     VALUE(RETURN) TYPE BAPIRETURN
*" TABLES
*"      ZEMP_LIST STRUCTURE ZBAPIEMPLIST
*"----------------------------------------------------------------------
CLEAR zemp_list.
REFRESH zemp_list.
CLEAR return.
CLEAR ztab_employee.
SELECT * FROM ztab_employee INTO CORRESPONDING FIELDS OF TABLE zemp_list.
IF sy-subrc <> 0.
    CLEAR message.
    message-msgty = 'E'.
    message-msgid = 'RP'.
    message-msgno = 16.
    message-msgv1 = 'No Employee is available.'.
    PERFORM set_return_message USING message CHANGING return.
ENDIF.
ENDFUNCTION.

并双击set_return_message方法，创建LZEMPF01包含文件，并在此Include文件中添加此Form方法：

FORM set_return_message USING    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
    IMPORTING
      bapireturn = p_return
    EXCEPTIONS
      OTHERS     = 1.
ENDFORM.

测试函数：

创建功能模块ZBAPI_GET_EMPLOYEE_DETAIL

注：如果此RFM函数将用实例化业务对象，则需要在Import设置与业务对象Key一样的参数，如这里的ID（名称与类型最好都一致）

FUNCTION zbapi_get_employee_detail.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*"     VALUE(ID) TYPE ZTAB_EMPLOYEE-ID
*" EXPORTING
*"     VALUE(ZEMP_DETAIL) TYPE ZBAPIEMPDETAIL
*" TABLES
*"      RETURN STRUCTURE BAPIRETURN
*"----------------------------------------------------------------------
CLEAR zemp_detail.
CLEAR return.
CLEAR ztab_employee.
SELECT SINGLE * FROM ztab_employee INTO CORRESPONDING FIELDS OF zemp_detail WHERE id = id.
IF sy-subrc <> 0.
    CLEAR message.
    message-msgty = 'E'.
    message-msgid = 'RP'.
    message-msgno = 16.
    message-msgv1 = 'Employee does not exist.'.
    PERFORM set_return_message USING message CHANGING return.
ENDIF.
ENDFUNCTION.