BAPI 一些笔记

大家好，又见面了，我是你们的朋友全栈君。

• vendor 供应商号：长度必须和系统一致，10位。如 2000025要写成 0002000025传递给参数。

      CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

        EXPORTING
          input  = poheader-vendor
        IMPORTING
          output = poheader-vendor.

      poheaderx-vendor = abap_true.

•  POITEM 中的 PO_ITEM 参数，在 POITEMX中对应的不是X，而是相同的 采购凭证的项目编号.

      poitem-po_item       = lv_ebelp.”行项目
      poitemx-po_item      = lv_ebelp.

•  POHEADER中的参数在 POHEADERX一定要有对应的参数。POITEM也一样。
• 增强字段在extensionin里

   “抬头增强字段
    ls_te_head-zpslx = ls_head-zpslx.
    ls_te_head-zzekkoyl0 = ls_head-zwxsh.”无需送货标识
    ls_te_headx-zpslx = abap_true.
    ls_te_headx-zzekkoyl0 = abap_true.
    lt_extensionin-structure = ‘BAPI_TE_MEPOHEADER’.
    lt_extensionin-valuepart1 = ls_te_head.
    APPEND lt_extensionin.
    CLEAR:ls_te_head,lt_extensionin.
    lt_extensionin-structure = ‘BAPI_TE_MEPOHEADERX’.
    lt_extensionin-valuepart1 = ls_te_headx.
    APPEND lt_extensionin.
    CLEAR:ls_te_headx,lt_extensionin.

      “行项目增强字段
      ls_te_item-po_item = lv_ebelp.
      ls_te_item-zzeanme = lt_data-zzeanme .
      ls_te_item-zzcd    = lt_data-zzcd.
      ls_te_item-zzjsean = lt_data-ean11.
      ls_te_item-zzjssl  = lt_data-zzeanme.
      ls_te_item-zzjsdw  = lt_data-meins.
      ls_te_item-zzdgean = lt_data-zzdgean.
      ls_te_item-zzeanme = lt_data-zzdgsl.
      ls_te_item-zzdgdw  = lt_data-zzdgdw.
      ls_te_item-zmd = lt_data-zmd.
      ls_te_item-zzekpoyl6 = lt_data-zzekpoyl6.”城市代码
      CLEAR:lt_data,poaccount,poaccountx.

      lt_extensionin-structure = ‘BAPI_TE_MEPOITEM’.
      CALL METHOD cl_abap_container_utilities=>fill_container_c
        EXPORTING
          im_value               = ls_te_item
        IMPORTING
          ex_container           = lt_extensionin-valuepart1
        EXCEPTIONS
          illegal_parameter_type = 1
          OTHERS                 = 2.
      IF sy-subrc <> 0.
*                                     Implement suitable error handling here
      ENDIF.
      APPEND lt_extensionin.
      CLEAR lt_extensionin.

      ls_te_itemx-po_item = lv_ebelp.
      ls_te_itemx-zzeanme = abap_true.
      ls_te_itemx-zzcd    = abap_true.
      ls_te_itemx-zzjsean = abap_true.
      ls_te_itemx-zzjssl  = abap_true.
      ls_te_itemx-zzjsdw  = abap_true.
      ls_te_itemx-zzdgean = abap_true.
      ls_te_itemx-zzeanme = abap_true.
      ls_te_itemx-zzdgdw = abap_true.
      ls_te_itemx-zmd     = abap_true.
      ls_te_itemx-zzekpoyl6     = abap_true.
      lt_extensionin-structure = ‘BAPI_TE_MEPOITEMX’.
      lt_extensionin-valuepart1 = ls_te_itemx.
      APPEND lt_extensionin.
      CLEAR lt_extensionin.

BAPI的结构，BAPI里的代码可以分为这样两部分：

1、一部分是数据校核，检查传入的数据是否满足创建相关业务对象的条件，并且把错误消息反馈出来；

2、另一部分是更新数据库，即UPDATE/INSERT/DELETE dbtab这样的操作。

1 BAPI的优点

bapi是面向对象的设计;

bapi是固定的,一般不能修改;

bapi可以被sap内部部件和非sap程序使用;

bapi的成功和错误信息始终通过RETURN返回;

bapi可以被许多开发平台使用;

2 何时该考虑使用BAPI设计程序

用VB/JAVA?C++等语言编写非SAPGUI程序访问和处理sap数据;

SAP不同部件之间通讯;

与非sap程序或者老系统交换数据:

使用异步通信分发数据如:ALE

可以通过SAP Business Connector or Internet Application Components 与因特网程序集成;

3 关于RETURN

RETURN用于BAPI返回错误和成功的消息,它可以是BAPIRETURN,BAPIRETURN,BAPIRET1,BAPIRET2和BAPIRET2_FIX中的一种类型.这些结构一般都包括以下字段:

SORT return BY type number row.

LOOP AT return WHERE type = ‘E’ OR type = ‘A’.

 ENDLOOP.

如果sy-subrc = 0，CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’.

否则

 CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

      EXPORTING

        wait   = ‘X’  “参数wait赋值‘X’,提交完之后才回进行后面的代码

      IMPORTING

        return = ls_commit_return.

CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader         = ls_poheader
      poheaderx        = ls_poheaderx
*     testrun          = testrun
    IMPORTING
      exppurchaseorder = lv_ebeln
    TABLES
      return           = lt_return[]
      poitem           = lt_poitem[]
      poitemx          = lt_poitemx[]
      poschedule       = lt_poschedule[]
      poschedulex      = lt_poschedulex[]
      pocond           = lt_pocond[]
      pocondx          = lt_pocondx[]
*     poaccount        = poaccount[]
*     poaccountx       = poaccountx[]
*     potextheader     = potextheader[]
*     pocomponents     = pocomponents[]
*     pocomponentsx    = pocomponentsx[]
      extensionin      = lt_extensionin[].

  SORT lt_return BY type number row.
  CLEAR lv_msg.
  LOOP AT lt_return WHERE type = 'E' OR type = 'A'.
    IF lt_return-type = 'E' AND lt_return-id = 'MEPO'.
      CONTINUE.
    ENDIF.
    IF lt_return-type = 'E' AND lt_return-id = 'BAPI' AND  lt_return-number = '1'.
      CONTINUE.
    ENDIF.
    PERFORM frm_out_msg USING o_return-zmsg lt_return-message ';' CHANGING o_return-zmsg.
    lv_msg =  lv_msg && o_return-zmsg . "add start by Jeremy 22.05.2020 19:04:24
    AT NEW row.
      READ TABLE lt_poitem INTO DATA(ls_itme) INDEX  lt_return-row .
      o_return-zhxm2 = |{ ls_itme-po_item  ALPHA = IN }|.
      o_return-zhxm  = |{ ls_itme-po_item  ALPHA = IN }|.
*      CONDENSE O_RETURN-ZHXM NO-GAPS .
      o_return-zmsg = '项目:' && o_return-zhxm && o_return-zmsg.
      APPEND o_return TO ot_return.
      CLEAR o_return.
    ENDAT.
  ENDLOOP.
  IF lv_ebeln IS INITIAL.
    o_return-zmty = 'E'.
    CONDENSE lv_msg NO-GAPS .
    o_return-zmsg = lv_msg.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.