函数记录

1.取得生产订单对象号函数

  CALL FUNCTION 'K_AUFNR_OBJECT_KEY_GET'
       EXPORTING
            aufnr = m_aufnr  ‘’生产订单号
            kokrs = m_kokrs ‘’控制范围
       IMPORTING
            objnr = m_objnr. ‘’对象号

对象号可用于查询JEST、TJ02T、JCDS、JSTO订单状态信息等

2.整合消息到字符串中

*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = sy-msgid
        msgnr               = sy-msgno
        msgv1               = sy-msgv1
        msgv2               = sy-msgv2
        msgv3               = sy-msgv3
        msgv4               = sy-msgv4
      IMPORTING
        message_text_output = return_value."返回值

3.创建SAP客户函数，前台创建事务XD01，修改XD02，显示XD03，删除XD06

创建客户函数示例：

  DATA:ls_kna1 TYPE kna1,
       ls_knb1 TYPE knb1,
       ls_knvv TYPE knvv,
       ls_addr1 TYPE bapiaddr1,
       ls_addr2 TYPE bapiaddr2,
       ls_knvi  TYPE knvi,
       lt_knvi  TYPE STANDARD TABLE OF fknvi WITH HEADER LINE.

  DATA:lv_id TYPE bapi4001_1-objkey,
       lt_bapiad1vl TYPE STANDARD TABLE OF bapiad1vl WITH HEADER LINE,
       lt_bapiad1vl_x TYPE STANDARD TABLE OF bapiad1vlx WITH HEADER LINE,
       lt_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.

  DATA:lv_kunnr TYPE kunnr,
       lv_num   TYPE i,
       lv_addrnumber TYPE adrc-addrnumber,
       lv_region TYPE zcrm_region-sapregion,
       lv_cityc  TYPE zcrm_region-sapregion,
       lv_num1    TYPE i.

*转换SAP地区、城市代码
  CLEAR:lv_region,lv_cityc.
  PERFORM frm_get_sapregion USING region
                            CHANGING lv_region.
  PERFORM frm_get_sapregion USING cityc
                            CHANGING lv_cityc.

  CLEAR:lv_num1.
  lv_num1 = STRLEN( lv_region ).

  IF lv_num1 <> 3.
    return_status = 'F'.
    return_value  = 'CRM标准行政区域对应SAP区域代码维护错误，地区（省份）应该为三位数字！'.
    RETURN.
  ENDIF.

*检查此客户是否已经创建，已经创建，返回已经创建的的客户号
  IF requesttype = 'CREATE'.
    CLEAR:lv_addrnumber.
    SELECT SINGLE addrnumber
      INTO lv_addrnumber
      FROM adrc
     WHERE extension1 = accountnumber.
    IF sy-subrc = 0.
      CLEAR:sapcode.
      SELECT SINGLE kunnr
        INTO sapcode
        FROM kna1
       WHERE adrnr = lv_addrnumber.
      IF sy-subrc = 0.
        requesttype = 'UPDATE'.
      ENDIF.
    ENDIF.
  ENDIF.

*客户主文件的一般数据
  IF requesttype = 'UPDATE'.
    ls_kna1-kunnr = sapcode."客户代码
  ENDIF.
  ls_kna1-mandt = '300'.
  ls_kna1-ktokd = ktokd."科目组
  ls_kna1-cityc = lv_cityc."城市代码
  ls_kna1-stceg = stceg."增值税登记号
  IF requesttype = 'UPDATE'.
    ls_kna1-loevm = loevm."主记录中删除标记
  ENDIF.

*客户主数据 (公司代码)
  ls_knb1-mandt = '300'.
  IF requesttype = 'UPDATE'.
    ls_knb1-kunnr = sapcode.
    ls_knb1-loevm = loevm."主记录删除标记(公司代码级)
  ENDIF.
  ls_knb1-bukrs = bukrs."公司代码
  ls_knb1-akont = akont."统驭科目
  ls_knb1-xzver = xzver."付款历史记录

*客户主记录销售数据
  ls_knvv-mandt = '300'.
  IF requesttype = 'UPDATE'.
    ls_knvv-kunnr = sapcode.
    ls_knvv-loevm = loevm."客户的删除标记 (销售级别)
  ENDIF.
  ls_knvv-vkorg = vkorg."销售组织
  ls_knvv-vtweg = vtweg."分销渠道
  ls_knvv-spart = spart."产品组
  ls_knvv-kdgrp = kdgrp."客户组
  ls_knvv-kalks = kalks."客户定价过程
  ls_knvv-bzirk = bzirk."销售地区
  ls_knvv-vkbur = vkbur."销售部门
  ls_knvv-waers = waers."货币
  ls_knvv-pltyp = pltyp."价格清单
  ls_knvv-vsbed = vsbed."装运条件
  ls_knvv-ktgrd = ktgrd."账户分配组

*地址的 BAPI 参考结构（组织/公司）
  ls_addr1-sort1 = sort1."城市描述
  ls_addr1-sort2 = sort2."组织机构代码

  lv_num = STRLEN( name )."客户名称
  IF lv_num < 35.
    ls_addr1-name  = name.
  ELSEIF lv_num < 69.
    ls_addr1-name  = name+0(34).
    ls_addr1-name_2 = name+34(34).
  ELSEIF lv_num <= 100.
    ls_addr1-name  = name+0(34).
    ls_addr1-name_2 = name+34(34).
    ls_addr1-name_3 = name+68(32).
  ENDIF.

  ls_addr1-street = street."用户地址
  ls_addr1-postl_cod1 = post_code1."城市邮政编码
  ls_addr1-city = city1."城市描述
  ls_addr1-country = country."国家代码
  ls_addr1-langu = sy-langu."语言
  ls_addr1-region = lv_region."省份
  ls_addr1-tel1_numbr = mob_number."电话
  ls_addr1-fax_number = fax_number."传真
  ls_addr1-e_mail = smtp_addr."电子邮箱
  ls_addr1-formofaddr = title_medi."标题

*设置税分类
  lt_knvi-mandt = '300'.
  IF requesttype = 'UPDATE'.
    lt_knvi-kunnr = sapcode."客户代码
  ENDIF.
  lt_knvi-aland = country.
  lt_knvi-tatyp = 'MWST'.
  lt_knvi-taxkd = taxkd.
  lt_knvi-kz    = 'I'.
  APPEND lt_knvi.

  CALL FUNCTION 'SD_CUSTOMER_MAINTAIN_ALL'
    EXPORTING
      i_kna1                     = ls_kna1
      i_knb1                     = ls_knb1
      i_knvv                     = ls_knvv
      i_bapiaddr1                = ls_addr1
      i_maintain_address_by_kna1 = 'X'
      pi_postflag                = 'X'
    IMPORTING
      e_kunnr                    = lv_kunnr
    TABLES
      t_xknvi                    = lt_knvi
    EXCEPTIONS
      client_error               = 1
      kna1_incomplete            = 2
      knb1_incomplete            = 3
      knb5_incomplete            = 4
      knvv_incomplete            = 5
      kunnr_not_unique           = 6
      sales_area_not_unique      = 7
      sales_area_not_valid       = 8
      insert_update_conflict     = 9
      number_assignment_error    = 10
      number_not_in_range        = 11
      number_range_not_extern    = 12
      number_range_not_intern    = 13
      account_group_not_valid    = 14
      parnr_invalid              = 15
      bank_address_invalid       = 16
      tax_data_not_valid         = 17
      no_authority               = 18
      company_code_not_unique    = 19
      dunning_data_not_valid     = 20
      knb1_reference_invalid     = 21
      cam_error                  = 22
      OTHERS                     = 23.
  IF sy-subrc <> 0.
    ROLLBACK WORK.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    return_status = 'F'."返回状态（S:成功；F:失败）

    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = sy-msgid
        msgnr               = sy-msgno
        msgv1               = sy-msgv1
        msgv2               = sy-msgv2
        msgv3               = sy-msgv3
        msgv4               = sy-msgv4
      IMPORTING
        message_text_output = return_value."返回值

  ELSE.

    CLEAR:lt_bapiad1vl,lt_bapiad1vl[],lt_return,lt_return[].
    lt_bapiad1vl-extens_1 = accountnumber.
    APPEND lt_bapiad1vl.
    CLEAR:lt_bapiad1vl_x,lt_bapiad1vl_x[].
    lt_bapiad1vl_x-extens_1 = 'X'.
    APPEND lt_bapiad1vl_x.

    CLEAR:lv_id.
    IF requesttype = 'UPDATE'.
      lv_id = sapcode."客户代码
    ELSE.
      lv_id = lv_kunnr.
    ENDIF.

    CALL FUNCTION 'BAPI_ADDRESSORG_CHANGE'
      EXPORTING
        obj_type                          = 'KNA1'
        obj_id                            = lv_id
*   OBJ_ID_EXT                        = ' '
*   CONTEXT                           = 1
*   ACCEPT_ERROR                      = ' '
*   SAVE_ADDRESS                      = 'X'
*   IV_CHECK_ADDRESS                  = 'X'
*   IV_TIME_DEPENDENT_COMM_DATA       = ' '
* IMPORTING
*   ADDRESS_NUMBER                    =
     TABLES
       bapiad1vl                         = lt_bapiad1vl
       bapiad1vl_x                       = lt_bapiad1vl_x
       return                            = lt_return
              .

    IF lt_return[] IS INITIAL.
      COMMIT WORK.

      return_status = 'S'."返回状态（S:成功；F:失败）
      IF requesttype = 'UPDATE'.
        kunnr = sapcode.
      ELSE.
        kunnr = lv_kunnr.
      ENDIF.
    ELSE.
      ROLLBACK WORK.

      return_status = 'F'."返回状态（S:成功；F:失败）
      CLEAR:lt_return.
      READ TABLE lt_return INDEX 1.
      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
        EXPORTING
          msgid               = lt_return-id
          msgnr               = lt_return-number
          msgv1               = lt_return-message_v1
          msgv2               = lt_return-message_v2
          msgv3               = lt_return-message_v3
          msgv4               = lt_return-message_v4
        IMPORTING
          message_text_output = return_value."返回值
    ENDIF.

  ENDIF.

4.修改客户地址函数BAPI_ADDRESSORG_CHANGE，示例如上

5.创建客户联系人前台事务VAP1，修改VAP2，显示VAP3，相应函数如下：

ISAI_CONTACT_CREATE

ISAI_CONTACT_CHANGE

ISAI_CONTACT_DELETE

示例：

  DATA:lst_address TYPE bapiaddr3,
       lst_address_changes TYPE bapiaddr3x,
       lt_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
       lv_return_status TYPE bapi_mtype,
       lv_return_value  TYPE zreturn_value.

  lst_address-lastname = name_last.
  lst_address-tel1_numbr = telf.
  sy-batch = 'X'.
*创建
  IF requesttype = 'CREATE'.
    CALL FUNCTION 'ISAI_CONTACT_CREATE'
      EXPORTING
        customerid              = kunnr
        address                 = lst_address
     IMPORTING
       new_contactid           = vonnr
       return_status           = lv_return_status
     TABLES
       return                  = lt_return
*       extensions_import       =
*       extensions_export       =
              .
    IF lv_return_status = 'S'.
      return_status = 'S'.
      return_value  = '成功'.
    ELSE.
      return_status = 'F'.
      CLEAR:lt_return.
      LOOP AT lt_return.
        IF sy-tabix = 1.
          IF lt_return-message IS NOT INITIAL.
            lv_return_value = lt_return-message.
          ELSE.
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = lt_return-id
                msgnr               = lt_return-number
                msgv1               = lt_return-message_v1
                msgv2               = lt_return-message_v2
                msgv3               = lt_return-message_v3
                msgv4               = lt_return-message_v4
              IMPORTING
                message_text_output = lv_return_value."返回值
          ENDIF.
          return_value = lv_return_value.
        ELSE.
          IF lt_return-message IS NOT INITIAL.
            lv_return_value = lt_return-message.
          ELSE.
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = lt_return-id
                msgnr               = lt_return-number
                msgv1               = lt_return-message_v1
                msgv2               = lt_return-message_v2
                msgv3               = lt_return-message_v3
                msgv4               = lt_return-message_v4
              IMPORTING
                message_text_output = lv_return_value."返回值
          ENDIF.
          CONCATENATE return_value lv_return_value INTO return_value SEPARATED BY space.
        ENDIF.
        CLEAR:lt_return.
      ENDLOOP.
    ENDIF.
*更新
  ELSEIF requesttype = 'UPDATE'.
    lst_address_changes-lastname = 'X'.
    lst_address_changes-tel1_numbr = 'X'.
    CALL FUNCTION 'ISAI_CONTACT_CHANGE'
      EXPORTING
        customerid              = kunnr
        contactid               = parnr
        address                 = lst_address
        address_changes         = lst_address_changes
     IMPORTING
       return_status           = lv_return_status
     TABLES
       return                  = lt_return
*   EXTENSIONS_IMPORT       =
*   EXTENSIONS_EXPORT       =
              .
    vonnr = parnr.
    IF lv_return_status = 'S'.
      return_status = 'S'.
      return_value  = '成功'.
    ELSE.
      return_status = 'F'.
      CLEAR:lt_return.
      LOOP AT lt_return.
        IF sy-tabix = 1.
          IF lt_return-message IS NOT INITIAL.
            lv_return_value = lt_return-message.
          ELSE.
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = lt_return-id
                msgnr               = lt_return-number
                msgv1               = lt_return-message_v1
                msgv2               = lt_return-message_v2
                msgv3               = lt_return-message_v3
                msgv4               = lt_return-message_v4
              IMPORTING
                message_text_output = lv_return_value."返回值
          ENDIF.
          return_value = lv_return_value.
        ELSE.
          IF lt_return-message IS NOT INITIAL.
            lv_return_value = lt_return-message.
          ELSE.
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = lt_return-id
                msgnr               = lt_return-number
                msgv1               = lt_return-message_v1
                msgv2               = lt_return-message_v2
                msgv3               = lt_return-message_v3
                msgv4               = lt_return-message_v4
              IMPORTING
                message_text_output = lv_return_value."返回值
          ENDIF.
          CONCATENATE return_value lv_return_value INTO return_value SEPARATED BY space.
        ENDIF.
        CLEAR:lt_return.
      ENDLOOP.
    ENDIF.
  ELSEIF requesttype = 'DELETE'.
    CALL FUNCTION 'ISAI_CONTACT_DELETE'
      EXPORTING
        customerid              = kunnr
        contactid               = parnr
     IMPORTING
       return_status           = lv_return_status
     TABLES
       return                  = lt_return
*   EXTENSIONS_IMPORT       =
*   EXTENSIONS_EXPORT       =
              .
    vonnr = parnr.
    IF lv_return_status = 'S'.
      return_status = 'S'.
      return_value  = '成功'.
    ELSE.
      return_status = 'F'.
      CLEAR:lt_return.
      LOOP AT lt_return.
        IF sy-tabix = 1.
          IF lt_return-message IS NOT INITIAL.
            lv_return_value = lt_return-message.
          ELSE.
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = lt_return-id
                msgnr               = lt_return-number
                msgv1               = lt_return-message_v1
                msgv2               = lt_return-message_v2
                msgv3               = lt_return-message_v3
                msgv4               = lt_return-message_v4
              IMPORTING
                message_text_output = lv_return_value."返回值
          ENDIF.
          return_value = lv_return_value.
        ELSE.
          IF lt_return-message IS NOT INITIAL.
            lv_return_value = lt_return-message.
          ELSE.
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = lt_return-id
                msgnr               = lt_return-number
                msgv1               = lt_return-message_v1
                msgv2               = lt_return-message_v2
                msgv3               = lt_return-message_v3
                msgv4               = lt_return-message_v4
              IMPORTING
                message_text_output = lv_return_value."返回值
          ENDIF.
          CONCATENATE return_value lv_return_value INTO return_value SEPARATED BY space.
        ENDIF.
        CLEAR:lt_return.
      ENDLOOP.
    ENDIF.
  ENDIF.

4.转换成内部输入（增加前导0）
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = 
        IMPORTING
          output = .

转换成外部输入（去掉前导0）

          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
            EXPORTING
              input  = 
            IMPORTING
              output = 

5.BAPI更新订单顺序编号

DATA:gv_number TYPE bapi_order_key-order_number,"订单号
     gwa_orderdata TYPE bapi_pp_order_change,"更改字段
     gwa_orderdatax TYPE bapi_pp_order_changex,"更改字段标识
     gwa_return TYPE bapiret2."返回消息

        gv_number = gwa_output-aufnr.
        gwa_orderdata-sequence_number = gwa_output-seqnr.
        gwa_orderdatax-sequence_number = 'X'.
        CALL FUNCTION 'BAPI_PRODORD_CHANGE'
          EXPORTING
            number                 = gv_number
            orderdata              = gwa_orderdata
            orderdatax             = gwa_orderdatax
       IMPORTING
         return                 = gwa_return
*     ORDER_TYPE             =
*     ORDER_STATUS           =
*     MASTER_DATA_READ       =
                  .
*更新失败
        IF gwa_return-type = 'E'.
          gwa_output-message = gwa_return-message.
          ROLLBACK WORK.
        ELSE.
*更新成功
          gwa_output-message = '更新成功'.
          COMMIT WORK AND WAIT.
        ENDIF.
      ELSE.
*更新表失败
        gwa_output-message = '更新半成品订单与整车预留关系表(ZREL_HAFAFKO_RES 激)失败'.
        ROLLBACK WORK.
      ENDIF.

6.BAPI修改采购订单

*新增采购订单项目号
    CLEAR: gt_return,gt_poschedule,gt_poschedulex,gv_flag,gt_poitem,gt_poitemx.
    REFRESH : gt_return,gt_poschedule,gt_poschedulex,gt_poitem,gt_poitemx.
*修改采购订单
    gt_poschedule-po_item = wa_data-ebelp.
    gt_poschedule-sched_line = '0001'.
    gt_poschedule-delivery_date = wa_data-eindt1.
    gt_poschedule-quantity = wa_data-menge1.
    APPEND gt_poschedule.
    CLEAR  gt_poschedule.
    gt_poschedulex-po_item = wa_data-ebelp.
    gt_poschedulex-po_itemx = 'X'.
    gt_poschedulex-sched_line = '0001'.
    gt_poschedulex-sched_linex = 'X'.
    gt_poschedulex-delivery_date = 'X'.
    gt_poschedulex-quantity = 'X'.
    APPEND gt_poschedulex.
    CLEAR  gt_poschedulex.
*调用函数修改采购订单
    CALL FUNCTION 'BAPI_PO_CHANGE'
      EXPORTING
        purchaseorder = wa_data-ebeln
      TABLES
        return        = gt_return
        poschedule    = gt_poschedule
        poschedulex   = gt_poschedulex.
    LOOP AT gt_return WHERE type = 'E'.
      CONCATENATE '采购订单' wa_data-ebeln '项目' wa_data-ebelp gt_return-message INTO gt_message SEPARATED BY ''.
      APPEND gt_message.
      CLEAR  gt_message.
      gv_flag = 'X'.
    ENDLOOP.
    IF gv_flag = 'X'.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      CONTINUE.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.
    WAIT UP TO 1 SECONDS.
    CLEAR: gt_return,gt_poschedule,gt_poschedulex,gv_flag,gt_poitem,gt_poitemx.
    REFRESH : gt_return,gt_poschedule,gt_poschedulex,gt_poitem,gt_poitemx.
*创建采购订单
*物料数量信息
    gt_poitem-po_item  = gv_item.
    gt_poitem-quantity = wa_data-menge2.
    gt_poitem-material = wa_data-matnr.
    gt_poitem-plant    = gt_ekpo-werks.
    gt_poitem-item_cat = gt_ekpo-pstyp.
    gt_poitem-stge_loc = gt_ekpo-lgort.
    APPEND gt_poitem.
    CLEAR  gt_poitem.
    gt_poitemx-po_item  = gv_item.
    gt_poitemx-po_itemx = 'X'.
    gt_poitemx-material = 'X'.
    gt_poitemx-plant    = 'X'.
    gt_poitemx-item_cat = 'X'.
    gt_poitemx-stge_loc = 'X'.
    APPEND gt_poitemx.
    CLEAR  gt_poitemx.
*修改采购订单
    gt_poschedule-po_item = gv_item.
    gt_poschedule-delivery_date = wa_data-eindt2.
    gt_poschedule-quantity = wa_data-menge2.
    APPEND gt_poschedule.
    CLEAR  gt_poschedule.
    gt_poschedulex-po_item = gv_item.
    gt_poschedulex-po_itemx = 'X'.
    gt_poschedulex-delivery_date = 'X'.
    gt_poschedulex-quantity = 'X'.
    APPEND gt_poschedulex.
    CLEAR  gt_poschedulex.
*调用函数增加采购订单行项目
    CALL FUNCTION 'BAPI_PO_CHANGE'
      EXPORTING
        purchaseorder = wa_data-ebeln
      TABLES
        return        = gt_return
        poschedule    = gt_poschedule
        poschedulex   = gt_poschedulex
        poitem        = gt_poitem
        poitemx       = gt_poitemx.
    LOOP AT gt_return WHERE type = 'E'.
      CONCATENATE '采购订单' wa_data-ebeln '新建项目' gt_return-message INTO gt_message SEPARATED BY ''.
      APPEND gt_message.
      CLEAR  gt_message.
      gv_flag = 'X'.
    ENDLOOP.
    IF gv_flag = 'X'.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      CONTINUE.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.
    WAIT UP TO 1 SECONDS.
*begin modify by zhangzaigang 20120525 物料存在舍入值时重写新增加项目数量
    DATA: lv_bstrf LIKE marc-bstrf,
          lv_ebelp LIKE ekpo-ebelp.
    lv_ebelp = gv_item.
    SELECT SINGLE bstrf
      INTO lv_bstrf
      FROM marc
     WHERE matnr = wa_data-matnr
       AND werks = gt_ekpo-werks.
    IF sy-subrc = 0 AND lv_bstrf <> ''.
      REFRESH: gt_poschedule,gt_poschedulex,gt_return.
      CLEAR:   gt_poschedule,gt_poschedulex,gt_return,gv_flag.
*修改采购订单
      gt_poschedule-po_item = gv_item.
      gt_poschedule-sched_line = '0001'.
      gt_poschedule-quantity = wa_data-menge2.
      APPEND gt_poschedule.
      CLEAR  gt_poschedule.
      gt_poschedulex-po_item = gv_item.
      gt_poschedulex-po_itemx = 'X'.
      gt_poschedulex-sched_line = '0001'.
      gt_poschedulex-sched_linex = 'X'.
      gt_poschedulex-quantity = 'X'.
      APPEND gt_poschedulex.
      CLEAR  gt_poschedulex.
*调用函数修改采购订单
      CALL FUNCTION 'BAPI_PO_CHANGE'
        EXPORTING
          purchaseorder = wa_data-ebeln
        TABLES
          return        = gt_return
          poschedule    = gt_poschedule
          poschedulex   = gt_poschedulex.
      LOOP AT gt_return WHERE type = 'E'.
        CONCATENATE '采购订单' wa_data-ebeln '项目' lv_ebelp gt_return-message INTO gt_message SEPARATED BY ''.
        APPEND gt_message.
        CLEAR  gt_message.
        gv_flag = 'X'.
      ENDLOOP.
      IF gv_flag = 'X'.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
        CONTINUE.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.
      ENDIF.
      WAIT UP TO 1 SECONDS.
    ENDIF.